Need help to create new drawing

Hi! Help needed...
I make new drawing using
(vlax-invoke-method (vla-get-Documents (vlax-get-Acad-Object)) 'Add
"acadiso.dwt")
Ok. I'm store returned #<VLA-OBJECT IAcadDocument ??????> .
But what I must to do to make this document active?

Mike

 

Try this:

(defun Q_new (/ acad acaddoc newdoc QnewTemplatePath)
(vl-load-com)
(setq acad (vlax-get-acad-object)
)
(setq acadDoc (vlax-get-property acad 'Documents)
)
;;;
(setq QnewTemplatePath "C:\\Documents and Settings\\wpz\\Local Settings\\Application Data\\Autodesk\\AutoCAD 2005\R16.1\\enu\\Template\\acad.dwt")
;;;
(setq newDoc (vlax-invoke-method acadDoc 'Add QnewTemplatePath)
)
(if (/= newDoc nil)
(vlax-invoke-method newDoc 'Activate)
(prompt "\nFailed to create new drawing file.")
)
)

Bill

 

Ok. I receive a reference to [NewDoc] and store in temp variable.

But when I try to call (vlax-invoke-method [newDoc] 'Activate)

VLisp IDE didn't respond while I'm not switching drawing window manually.

Mike.

Settings\\Application Data\\Autodesk\\AutoCAD
2005\R16.1\\enu\\Template\\acad.dwt")

 

Regardless of how you do it, changing the active document
will cause your program's execution to be suspeded until
the current active document is active again. That's how LISP
works, and there is no getting around it.

I've not tried using ActiveX from lisp on non-active documents,
so I can't say if that will work.