xzd716 发表于 2021-6-22 22:13:39

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

本帖最后由 xzd716 于 2021-6-24 06:55 编辑

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

dingtiedt 发表于 2023-11-9 14:13:34

本帖最后由 dingtiedt 于 2023-11-9 14:34 编辑

gaics 发表于 2021-6-25 14:31
自定义比例：(vla-get-customscale(vlax-ename->vla-object(car(entsel))))
标准比例：(vla-get-standards ...
vla-get-standardscale，既然说"standard"，应该是“标准”的吧:P-

三种情况：

一，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你 发表于 2021-6-26 20:42:52

快捷键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 "选择需要查询比例的视口：")
(setqent (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 发表于 2021-6-30 16:31:40

(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 发表于 2021-6-23 11:49:49

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

xzd716 发表于 2021-6-24 06:54:29

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

MUSIC-DIE 发表于 2021-6-25 10:40:59

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

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

alexmai 发表于 2021-6-25 13:52:15

有问题先查询论坛
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=182735&highlight=%CA%D3%BF%DA%2B%B1%C8%C0%FD

G〆h 发表于 2021-6-25 14:09:07

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

gaics 发表于 2021-6-25 14:31:01

本帖最后由 gaics 于 2021-6-25 14:49 编辑

自定义比例：(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 发表于 2021-6-27 21:04:50

谢谢各位老师指教！

xzd716 发表于 2021-6-27 21:09:33

视口比例获取解决。再请问：在视囗显示锁定情况下，能否通过LISP进行视口自定义比例设置？
页: [1] 2
查看完整版本: 请教视口视口比例设置及获取