请教视口视口比例设置及获取

xzd716

各位老师，请问如何通过lisp设置视口比例及获取视口比例？

dingtiedt

gaics 发表于 2021-6-25 14:31
自定义比例：(vla-get-customscale(vlax-ename->vla-object(car(entsel))))
标准比例：(vla-get-standards ...

vla-get-standardscale，既然说"standard"，应该是“标准”的吧

三种情况：

一，standard的值非1（standard2的值等于standard的值），得到的数值，就是“比例列表”的第几行的比例

例如：        5,   就是比例列表的第5行，即"1:5"

               14， 就是比例列表的第14行，即"1:100"

二，standard的值是1，standard2的值非1，则仍为"比例列表"的第几行的比例，此时的比例值为自定义比例

例如：        10， 就是比例列表的第10行，即"1:27"；"1:27"为自定义比例，非初始的标准比例，定为了standard2

三，standard和standard2的值均为1，则要通过计算，因为"比例列表"中没有此比例

e:\scalelistMJ.jpg

KO你

快捷键  sv  视口比例
(defun c:sv (/ bl)
(if (setq bl (getreal "\n视口比例1:"))
(command "zoom" "s" (strcat (rtos (/ 1.0 bl) 2 10) "xp")))
(princ))

快捷键  svv  视口比例查询
(defun c:svv (/ ent)
(prompt "选择需要查询比例的视口：")
(setq  ent (entget (ssname (ssget ":S" '((0 . "viewport"))) 0)))
(princ (strcat "\n视口比例为：1:" (rtos (/ (cdr(assoc 45 ent))
(cdr(assoc 41 ent))) 2 0) "\n"))
(princ))


这个论坛上有

xzd716

(setq bl (getreal "\n输入视口设置比例：")) (setq OBJECTS (ssget "x" '((0 . "viewport")))) (setq ENT (entget (ssname OBJECTS 0))) (command "mview" "l" "off" ent "") (setq xbl (* bl (cdr(assoc 41 ent)))) (setq ent1 (subst (cons 45 xbl) (assoc 45 ent) ent)) (entmod ent1)

sharetow

(getvar "screensize")
(getvar "viewsize")

xzd716

谢谢，但我希望能获取自定义比例或标准比例

MUSIC-DIE

xzd716 发表于 2021-6-24 06:54
谢谢，但我希望能获取自定义比例或标准比例

那两个是灰色的   不可设置的，即使lisp  ax arx 都不行

alexmai

有问题先查询论坛
http://bbs.mjtd.com/forum.php?mo ... F%DA%2B%B1%C8%C0%FD

G〆h

点取某视口，并获取自定义比例    (strcat "1:" (rtos(/ 1 (vla-get-CustomScale (Vlax-Ename->Vla-Object (car (entsel))))) 2 0))

gaics

自定义比例：(vla-get-customscale(vlax-ename->vla-object(car(entsel))))
标准比例：(vla-get-standardscale(vlax-ename->vla-object(car(entsel))))
(vla-get-standardscale2(vlax-ename->vla-object(car(entsel))))

标准比例不准确用自定义比例换算

xzd716

谢谢各位老师指教！

xzd716

视口比例获取解决。再请问：在视囗显示锁定情况下，能否通过LISP进行视口自定义比例设置？