open drawing 'read-only' - lisp

[jlaidler]

How can you open a drawing read-only with autolisp.

[tom_brabant]

this seems to do it

(vla-open (vla-get-documents (vlax-get-acad-object)) "c:/temp/test.dwg" :vlax-true)

[jlaidler]

thanks... that works great.

[jlaidler]

One other thing.... how can I get the read-only drawing to be active??

[tom_brabant]

This could do it, but, it just assumes that the most recently opened document is in the "front" of the documents collection. Also, take care: when I loaded this text from the vlisp text editor using "load text in editor" I lost control of the VLIDE until I manually (acad side with mouse) made the original document active again.



(vla-open (vla-get-documents (vlax-get-acad-object)) "c:/temp/test.dwg" :vlax-true)
(setq doclis nil)
(setq acad (vlax-get-acad-object))
(setq docs (vla-get-documents acad))
(vlax-for doc docs (setq doclis (cons doc doclis)))
(vla-activate (car doclis))

[tom_brabant]

Oops! make that the "back" of the collection: the way I wrote that means the lisp list doclis will be in the _reverse_ order of the documents collection.

[jrodriguez]

with this routine.... how can i get a dialog box to open up just the same way as open does. I'm looking to make a read-only open button that works the same way as open does???

any ideas

thanks
JRodriguez

[EC-CAD]

Now you only took a year and 8 months. Progress.
Bob

[jrodriguez]

LOL

hehehehehehee once again not the originator.... just beginin to look into this now..

LOL

i bet we talk again on another one or two of the same topics. LOL

thanks again ECCAD
JRodriguez

[EC-CAD]

See the other post.

Bob

[alan_tuck]

You don't need the loop, a more efficient way of doing it is:

(vla-open (vla-get-documents (vlax-get-acad-object)) "c:/temp/test.dwg" :vlax-true)
 (setq docs (vla-get-documents (vlax-get-acad-object)))
 (vla-activate  (vla-item docs (1- (vla-get-count docs))))