Viewport scale

[mixted570595]

I have been tasked with creating a command for my team to create frame references for ships. I almost had the routine done but then they asked me to have it scale based on the scale of the view port. As it sits right now they have top key in the scale (***) I would much rather them just pick the vport they would like. My issue is I can not seem to get a useable number.

So my question is

How do I get the view port scale?

Acad help showed me this "NoteThe ZOOM XP factor is calculated with the following formula: group_41 / group_45 (or pspace_height / mspace_height)."

but I always get nil returned when I try to grab the val with something like this

(defun c:test()
(setq VP (ssget(list (cons 0 "viewport"))))
(setq vps (getval 41 VP))
)

[BlackBox]

Unfortunately, Viewports are not entirely accessible via DXF... Visual LISP (read VLA-Object) is required. Specifically, look into the AcDbViewport Object's CustomScale, and/or StandardScale Properties.

For example:

(defun c:DVP () (c:DumpViewport))
(defun c:DumpViewport (/ ss)
  (vl-load-com)
  (if (setq ss (ssget ":S:E:L" '((0 . "VIEWPORT"))))
    (progn
      (textpage)
      (vlax-dump-object (vlax-ename->vla-object (ssname ss 0)) T))
    (prompt "\n** Nothing selected ** "))
  (princ))

**Edit - ... And, welcome to AUGI! BTW

[mixted570595]

Thanks and thanks. That is helpful info. Have been working with it for a couple years now but am still by far a noob.

[BlackBox]

No worries; we all start somewhere.