Topic: How to use vla-close ?

[domenicomaria]

I apologize if the question is perhaps too stupid. . .
but I need, with vlisp, to close an opened dwg file by another (active) dwg file. . .
how you do it ?

How to use vla-close ?

[ribarm]

You mean command : CLOSE ?

[ribarm]

Untested...

Code - Auto/Visual Lisp: [Select]

1. (defun closeallbutactive ( / cad )
2.  
3.   (vl-load-com)
4.  
5.   (vlax-for doc (vla-get-documents (setq cad (vlax-get-acad-object)))
6.     (if (not (equal (vla-get-activedocument cad) doc))
7.       (vla-close doc)
8.     )
9.   )
10.   (princ)
11. )
12.  

HTH.
M.R.

[domenicomaria]

It says :  Automation Error. Drawing is busy.

[ribarm]

It says :  Automation Error. Drawing is busy.

It was because of line 6.
should be (equal) instead of (eq) that was before I altered function...

[domenicomaria]

Marko, thank you very much!
It works !
Today I lost a couple of hours,
and I don't understand (now) why I didn't succeed !
Now it seems incredibly simple to me! (now !)

My brain is aging !

Thank you.

ciao