视口比例

KO你

快捷键  sv  视口比例
(defun c:sv (/ bl)
(command"mview""l""off""all""");解锁所有视口
(command"mspace");从布局空间切换到视口模型空间
(if (setq bl (getreal "\n视口比例 1:"))
(command "zoom" "s" (strcat (rtos (/ 1.0 bl) 2 10) "xp")))
(command"pspace");从视口模型空间切换到布局空间
(command"mview""l""on""all""");锁定所有视口
(princ))

上面的程序为视口的标准比例，要怎样才能做到编辑视口标准比例的同时视口注释比例同步

中国梦

谢谢楼主分享

xzd716

(command "CANNOSCALE"  aa);aa为注释比例，如“1:2"

KO你

xzd716 发表于 2023-1-8 19:05
(command "CANNOSCALE"  aa);aa为注释比例，如“1:2"

朋友在我上面程序上编辑视口比例，程序怎么改注释比例才同步？

xzd716

(defun c:sv (/ bl)
(command"mview""l""off""all""");解锁所有视口
(command"mspace");从布局空间切换到视口模型空间
(if (setq bl (getreal "\n视口比例 1:"))
(command "zoom" "s" (strcat (rtos (/ 1.0 bl) 2 10) "xp")))
(command "CANNOSCALE"  (strcat "1:" (rtos bl 2 1)))       
(command"pspace");从视口模型空间切换到布局空间
(command"mview""l""on""all""");锁定所有视口
(princ))

KO你

xzd716 发表于 2023-1-9 21:32
(defun c:sv (/ bl)
(command"mview""l""off""all""");解锁所有视口
(command"mspace");从布局空间切换到 ...

经过测试不行，你那边可以吗

376394482

谢谢分享        .

xzd716

可以，一次只能对一个视口设置

KO你

xzd716 发表于 2023-1-10 21:12
可以，一次只能对一个视口设置

视口默认的比例列表如果没有需要的比例的情况下
运行此程序是不成功的

KO你

常用比例如下
快捷键  svxp  CAD视口默认的比例列表
(defun c:svxp()
(setvar "cmdecho" 0)
(command "-scalelistedit" "D" "*" "E" )
(setvar "expert" 5)
(command "-scalelistedit"
"A" "1:1" "1:1"
"A" "1:2" "1:2"
"A" "1:3" "1:3"
"A" "1:5" "1:5"
"A" "1:10" "1:10"
"A" "1:15" "1:15"
"A" "1:20" "1:20"
"A" "1:25" "1:25"
"A" "1:30" "1:30"
"A" "1:40" "1:40"
"A" "1:50" "1:50"
"A" "1:60" "1:60"
"A" "1:75" "1:75"
"A" "1:80" "1:80"
"A" "1:100" "1:100"
"A" "1:125" "1:125"
"A" "1:150" "1:150"
"A" "1:175" "1:175"
"A" "1:200" "1:200"
"A" "1:250" "1:250"
"A" "1:300" "1:300"
"A" "1:400" "1:400"
"A" "1:500" "1:500"
"A" "1:750" "1:750"
"A" "1:1000" "1:1000"
"A" "1:1500" "1:1500"
"A" "1:2000" "1:2000"
"A" "1:2500" "1:2500"
"A" "1:3000" "1:3000"
"A" "1:4000" "1:4000"
"A" "1:5000" "1:5000"
"E" )
(setvar "expert" 0)
(setvar "cmdecho" 1))
(c:svxp)