Viewport scale value

Is there a way to get the current scale of an active viewport? It seems
that there is, but I'm having a "brain fart" at the moment. Any help will
be appreciated.

Hanksor

 

(last (trans '(0 0 1) 3 2))

 

Try,

(setq obj (vlax-ename->vla-object (car (entsel "\nSelect paperspace
viewport: "))))
(vla-get-customScale obj)

HTH,

Devin

 

This will not work with polygonal viewports.

(setq vp (car (entsel "\nSelect Viewport...")))
(setq vpscl (/ (cdr (assoc 45 (entget vp))) (cdr (assoc 41 (entget vp)))))

 

This will work with normal & polygonal viewports....

(defun getvpscale (/ ent elist vpscale)
(setq ent (car (entsel "\nSelect viewport: ")))
(if ent
(progn
(setq elist (entget ent))
(cond ((= (cdr (assoc 0 elist)) "VIEWPORT") t)
((and (= (cdr (assoc 0 elist)) "LWPOLYLINE")
(assoc 330 elist))
(setq elist (entget (cdr (assoc 330 elist)))))
(t (princ "\nNot a valid viewport object....")(setq elist nil)))
(if elist (setq vpscale (/ (cdr (assoc 45 elist)) (cdr (assoc 41
elist)))))
)
)
(if vpscale
(princ (strcat "\nVpscale = " (rtos vpscale)))
(princ "\nNothing selected.....")
)
(princ)
)

Jeff

 

Isn't this a bit easier ??

(last (trans '(0 0 1) 3 2))

 

Yes! But only for an active viewport

 

oops.... not exactly....

 

Thanks!! That is exactly what I was looking for. I needed to determine the
current scale of the viewport when it became active.