【关于CAD视口默认的比例列表】
本帖最后由 kucha007 于 2022-10-28 00:29 编辑我在明经找了半天，只找到这个帖子，但是这个帖子一次只能新增一个视口比例。http://bbs.mjtd.com/forum.php?mod=viewthread&tid=180723&highlight=%B1%C8%C0%FD%C1%D0%B1%ED
我就在想能不能写一个列表，可以快速创建常用的视口比例，本人不会写lsp，所以只是生硬的凑了一个不太好用的代码。
希望各位大佬看看能不能再优化一下。1是若比例存在则覆盖（避免报错），2是能不能写一个list列表，或者用一个变量去代替，要不然代码太长了:'(
--20221028--改写了一下：
(defun C:SKBL (/ Old_Exp Old_Cmd)
(setq Old_Exp (getvar "expert"))(setq Old_Cmd (getvar "cmdecho"))
(setvar "expert" 5)(setvar "cmdecho" 0)
(command "undo" "be")
(command "-scalelistedit" "D" "*" "E")
(foreach XX
'("1:2" "1:3" "1:5" "1:6" "1:8" "1:10" "1:15" "1:20"
"1:25" "1:30""1:50" "1:60" "1:75" "1:80" "1:100"
"1:150" "1:200" "1:250" "1:300" "1:500"
);常用视口比例
(command "-scalelistedit" "A" XX XX "E")
)
(command "undo" "be")
(setvar "expert" Old_Exp)(setvar "cmdecho" Old_Cmd)
(princ "\n——★★★ 视口比例已更新 ★★★——")
(princ)
)
本帖最后由 aichong 于 2021-4-30 23:43 编辑
;;;新建常用比例列表-详图类
(defun c:TT()
(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:4" "1:4"
"A" "1:5" "1:5"
"A" "1:8" "1:8"
"A" "1:10" "1:10"
"A" "1:15" "1:15"
"A" "1:16" "1:16"
"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:75" "1:75"
"A" "1:80" "1:80"
"A" "1:100" "1:100"
"E" )
(setvar "expert" 0)
(setvar "cmdecho" 1);;;打开命令提示
(princ "\n常用的比例列表添加完成！")
) aichong 发表于 2021-4-30 23:40
;;;新建常用比例列表-详图类
(defun c:TT()
(setvar "cmdecho" 0);;;关闭命令提示
妙啊，居然还有expert这种变量，学习了!!! 创建视口比例，学习了！ 6，正是要 EXPERT 这个变量！ 必须支持下方便 感谢大佬分享 太有用了！！！！！
页:
[1]