Viewport scales

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

 

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

 

Something EXACTLY like that.

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

Steve