Viewport Scale Equal To Annotation Scale - LISP

chancevv — Mon, 04 Dec 2023 21:43:16 GMT

Hi! Running into an interesting situation when trying to scale the viewport of my layout with LISP.

Quick rundown: I'm trying to automate scaling the viewport to 1" = 750' by calling a custom command made with LISP. When doing this manually usingmouse and keyboard, I noticed in the command line that it uses the command _.MSPACE to enter the model space of the viewport, _CANNOSCALE to adjust the scale of the viewport to the predefined scales on the list, and then ._PSPACE to exit the viewport. Seems simple.

Here's what the command line looks like:

Command: _.MSPACE
Command: _CANNOSCALE
Enter new value for CANNOSCALE <"1" = 500'">: 1" = 750'
Command: _.PSPACE

If I click back into the viewport and type VPSCALE, the scale corresponds with the value chosen from the list. Ex: the command line will show PS:MS == 1:750 for this example.

Now I want to apply this into LISP code. Based on what the command line was showing while doing this manually, I created the following:

(defun c:scaleadjustment() (setq desiredscale "1\" = 750'") (command "._mspace") (command "_cannoscale" desiredscale) (command "._pspace") (princ) )

Upon calling the command, the command line looks virtually the same:

Command: SCALEADJUSTMENT
Command: ._mspace
Command: _cannoscale
Enter new value for CANNOSCALE <"1" = 500'">: 1" = 750'
Command: ._pspace

However, it does not increase or decrease the zoom of my viewport like it would if I am using the button at the bottom of the screen and clicking the corresponding value. If I type in _CANNOSCALE after calling the command, it has the value CANNOSCALE <1" = 750'">: , but if I type VPSCALE it will show the initial scale value. Therefore, when using _CANNOSCALE in LISP, it doesn't automatically match the viewport scale with the updated annotation scale.

There is a button to the right of the scale value for this, but from what I can (or can't) find, there is not a command to queue this. Does anyone know how it can be replicated in LISP, or if there is a different way to tackle this?

Really appreciate any insight!

Re: Viewport Scale Equal To Annotation Scale - LISP

CodeDing — Mon, 04 Dec 2023 22:36:21 GMT

@chancevv ,

Based on your screenshots, it would appear to me that your Paper Space is setup to be INCHES and your Model Space to be FEET. If I am correct in those 2 assumptions, then this code below should work for you. I have set it up in a way so that when you input your desired scales, you can enter both your decimal/engineering scales (e.g. 1"=30') and your architectural scales (e.g. 1/8"=1').

(defun c:TEST ( / errMsg paperInch drawingFoot ssVP vp cScale lockState) ;; initial checks to be sure we're in paper space (if (or (not (= 1 (getvar 'CVPORT))) (not (zerop (getvar 'TILEMODE)))) (setq errMsg "\nMust be in Paper Space.") );if (if errMsg (progn (alert (princ errMsg)) (exit))) ;; get vp scale inputs from user [or we can use defaults if desired] ;; (setq paperInch 1) ;; (setq drawingFoot 30) (initget 7) (setq paperInch (getreal "\nEnter Paper Inches (e.g. if 1\"=30' then enter '1'): ")) (initget 7) (setq drawingFoot (getreal "\nEnter Drawing Feet (e.g. if 1\"=30' then enter '30'): ")) (prompt "Select VIEWPORT to change scale: ") (if (setq ssVP (ssget "_+.:E:S" '((0 . "VIEWPORT")))) (progn (setq vp (ssname ssVP 0)) (setq cScale (/ (* 12.0 paperInch) (* 12.0 drawingFoot))) (setq lockState (getpropertyvalue vp "Locked")) (setpropertyvalue vp "Locked" 0) (setpropertyvalue vp "CustomScale" cScale) (setpropertyvalue vp "Locked" lockState) (prompt "\nCustom Viewport scale successfully set.") );progn ;else (prompt "\nViewport not selected. No action taken.") );if (princ) );defun

Best,

~DD

topic Re: Viewport Scale Equal To Annotation Scale - LISP in Visual LISP, AutoLISP and General Customization Forum

Viewport Scale Equal To Annotation Scale - LISP

Re: Viewport Scale Equal To Annotation Scale - LISP