yulip 发表于 2019-4-22 11:42:14

想要一个修改视口比例的脚本，不会编程所以实在是改编不出来，能不能帮忙改一下

(Defun C:VVS ()
(setq SS (getreal "指定视口比例:1:"))
(setq TT (strcat ("1/" (rtos SS) "xp")))
(command "zoom" TT)
)

alexmai 发表于 2019-4-24 11:42:59

建议加些内容：
(defun c:0x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(setq bili (getstring "\n输入比例："))
(command "zoom" (strcat "1/" bili "xp"))
(command "mview" "l" "on" "all" "")
(princ)      
)

start4444 发表于 2019-4-22 11:49:44

(defun c:vvs ()
        (setq bili (getstring "\n输入比例："))
        (command "zoom" (strcat "1/" bili "xp"))
        (princ)       
       
)

yulip 发表于 2019-4-22 18:43:09

start4444 发表于 2019-4-22 11:49
(defun c:vvs ()
        (setq bili (getstring "\n输入比例："))
        (command "zoom" (strcat "1/" bili "xp"))
...

谢谢，果然背靠大树好乘凉

foer123 发表于 2019-7-12 00:07:55

你这个相当于缩放了视口
是在不改变视口窗口大小的情况下视口里的模型图形随视口比例的大小而改变
比如把视口设置为比例1:30，视口里面也相应的也变化

KO你 发表于 2019-7-12 18:43:37

本帖最后由 KO你 于 2019-7-12 18:56 编辑

记得晓东论坛有

http://bbs.xdcad.net/thread-719172-1-2.html
快捷键sv视口比例
(defun c:sv (/ bl)
(if (setq bl (getreal "\n视口比例1:"))
(command "zoom" "s" (strcat (rtos (/ 1.0 bl) 2 10) "xp")))
(princ))
页: [1]
查看完整版本: 想要一个修改视口比例的脚本，不会编程所以实在是改编不出来，能不能帮忙改一下