Topic: Lisp Function instead of the one in Doslib

[Tharwat]

Hello .

I wonder if there is any Lisp function that does the same like the one in DOSlib .

Code: [Select]

(dos_show 0)
(dos_show 1)
(dos_show 2)

Thanks.

Tharwat

[Lee Mac]

vla-put-windowstate ?

[Tharwat]

Perfect .

Thank you Lee .

[ribarm]

I'm sorry, you meant this ?

Code: [Select]

(vl-load-com)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))

(vla-put-windowstate adoc (vlax-make-variant 1))
(vla-put-windowstate adoc (vlax-make-variant 2))
(vla-put-windowstate adoc (vlax-make-variant 3))

M.R.

[Tharwat]

Thank you ribarm .

That's exactly what I meant and whats Lee brought before . 

I did try it without converting to variant and which would work also like the following .

Code: [Select]

(vla-put-windowstate (vla-get-activedocument (vlax-get-acad-object)) Acmax ) or Acmin or acnorm
Thanks

[Lee Mac]

Depending upon which window you wish to maximise/minimise, either of these will work:

Code: [Select]

(setq app (vlax-get-acad-object)
      doc (vla-get-activedocument app)
)
(vla-put-windowstate doc acmin)
(vla-put-windowstate doc acmax)
(vla-put-windowstate doc acnorm)

(vla-put-windowstate app acmin)
(vla-put-windowstate app acmax)
(vla-put-windowstate app acnorm)

[ribarm]

Thanks for explanation Tharwat,

that variables Acmax, Acmin, Acnorm actually have values 3, 2, 1... But only after (vl-load-com)

M.R.

[Tharwat]

Your way of doing it is not mentioned in the Acad Help , so where did you get the inspiration form to convert to variant ? 

It works when converting to variant also .

Thanks