TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: jxphklibin on October 12, 2009, 04:31:58 AM

Title: What is this works?
Post by: jxphklibin on October 12, 2009, 04:31:58 AM

the code is below:

(if (not dwg_reactor_run)(setq dwg_reactor_run(vlr-dwg-reactor nil '((:vlr-saveComplete . save)))))
(defun save(a b)
   (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Save )
)

what is it works?

any can help? thanks!

Title: Re: What is this works?
Post by: Lee Mac on October 12, 2009, 07:59:13 AM

It is a drawing reactor that will save the ActiveDocument after the save command has completed.

Title: Re: What is this works?
Post by: T.Willey on October 12, 2009, 11:13:33 AM

I'm not sure the Save method will work.  If not, use the SaveAs method, as this works.