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

yulip

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

alexmai

建议加些内容：
(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

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

yulip

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

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

foer123

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

KO你

记得晓东论坛有

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))