Topic: How do you set the StandardScale & AnnoScale of a viewport

[BazzaCAD]

Sorry I've been out of the loop fro way too long.
I'm trying to set the StandardScale & the AnnoScale of a viewport to the same scale.
If I change the "Viewport Scale" from the drop down list on the status bar to something like 3/4" = 1'-0"
Then run

Code: [Select]

(vla-get-standardscale
  (vla-get-activepviewport (vla-get-activedocument (vlax-get-acad-object)))
)I get 14
How do I get the list of the StandardScale codes so I know 14 = 3/4" = 1'-0" or what is the code for 1" = 1'-0" ?

[jbuzbee]

Don't know if there is a better way but this is what I came up with:

Code: [Select]

;;;Return CANNOSCALE in drawing units
;;;(jb:Cannoscale)
(defun jb:Cannoscale (/ annoscale ret)
  (setq annoscale (vlax-invoke
                    (vla-get-ActiveDocument (vlax-get-acad-object))
                    'getvariable
                    "CANNOSCALEVALUE"
                    )
        ret       (/ 12 (* annoscale 12.0))
        )
  ret
  )
Hope this helps.

[CAB]

You may find this useful.
Routine excepts any of these formats: 1/4, 48, 1:20
http://www.theswamp.org/index.php?topic=18143.msg297216#msg297216

[ronjonp]

James,

Is there an advantage to grabbing the variable using vlsp over using (/ 12 (* (getvar 'cannoscalevalue) 12.0))?

Ron

[jbuzbee]

 

I'm laughing because that was written in the "heat of battle" if you will.  I had to feverishly work to get a bunch of the new features incorporated into all my stuff, so apparently at the time I was working heavily in activex mode.

So, no, probably no advantage at all.

[ronjonp]

Good to know

[BazzaCAD]

You may find this useful.
Routine excepts any of these formats: 1/4, 48, 1:20
http://www.theswamp.org/index.php?topic=18143.msg297216#msg297216

Thx CAB,
That looks like it will do the trick.