automatisch purge en opslaan comando uitvoeren"[opgelost]".

[sschevers]

Hepa,

Zit net te lezen dat wanneer je (command "-purge" .........) doet in een reactor doet dit niet werkt. Ik deze regel dus uit de lisp gehaald.

Net even snel getest en nu werkt het wel.

gr.
stephan

[Hepa]

Hepa,

Zit net te lezen dat wanneer je (command "-purge" .........) doet in een reactor doet dit niet werkt. Ik deze regel dus uit de lisp gehaald.

Net even snel getest en nu werkt het wel.

gr.
stephan

Stephan,

Deze doet ook niet wat ik verwacht. Omdat nu werkt het commando "save" maar het commando "purge" werkt niet. Ook niet als de purge commando afzonderlijk wordt gebruikt.

Gr.

[EddyBeerke]

Vervang de code door dit:

Code Selecteer Uitklappen

(vl-load-com)

;Setup and initialise the reactor
(VLR-DWG-Reactor "Save begin" '((:VLR-beginSave .  purgeDrawing)))

(defun purgeDrawing (calling-reactor commandInfo / doc )
  ;; get the active drawing
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))

  ;; Purge
  (princ "\nStart purge")(princ)
  (repeat 3 (vla-PurgeAll doc))
  (princ "\nEinde purge")
  (princ)
 
)

Dan zie je dat het wel gebeurd...

[Hepa]

Beste EddyBeerke,

Bedankt voor jou hulp ook. Nu doet het inderdaad wat ik verwacht.

Hierbij verklaar ik deze topic als --> opgelost.

Gr.

[sschevers]

Hepa,

Ter info: de functie vla-PurgeAll geeft geen feedback op de command line. Vandaar dat je dacht de functie niet werkt.

@Eddy: Dank voor je input 

gr.

Stephan