Viewport scales

[Steve Jones]

Hello all,

(setq *activelayout*
(vla-get-activelayout
(vla-get-activedocument (vlax-get-acad-object))
)
)

Is there any way to check if *activelayout* (which is a paperspace layout) has viewports of differing scales? This is to be used with a reactor so I can't use (ssget)

Any ideas?

Steve

 

[Jeff Mishler]

Something like this:

(defun test (/ *ACTIVELAYOUT* CSCALE LAYOUTBLK LAYVP)
(setq *activelayout* (vla-get-activelayout
(vla-get-activedocument
(vlax-get-acad-object))
))
(setq layoutblk (vla-get-block *activelayout*))
(vlax-for item layoutblk
(if (= (vla-get-objectname item) "AcDbViewport")
(setq layvp (cons item layvp))
)
)
(setq layvp (cdr (reverse layvp))); remove the PS view object (if layvp (foreach x layvp (setq cscale (vla-get-customscale x)) ;;do your other stuff here.... ) )
)

HTH,
Jeff

 

[Steve Jones]

Something EXACTLY like that.

Cheers Jeff that's excellent, it was the (vla-get-block... that had me stumped

Steve