快速切换已设置好的标注样式，例如变色插件，重金求教！

天非深化设计 · 发表于 2012-6-9 00:56

本帖最后由天非深化设计于 2012-6-9 01:10 编辑

在此先谢谢各位大侠，工作需要，特此求教！
原因：画完立面图了（例标注样式是50），开始画大样图的时候例标注样式是10），不得不去点击标注样式按钮换，不能提高工作
效率，
要求：我们公司有专用的DWT样板文件，里面设置了很多种样式，根据全局比例设置的，例如样式名称是5、10、15、20、30、75等，
大家帮忙写一个LISP的代码吧，大家一定知道CAD有一个变色插件，命令1是红色，命令2是黄色，
我希望这个快速切换标注也采用这种命令，例如命令Q5就将标注样式5置为当前，Q25就把样式25置为当前这样的操作！谢谢大家，大家给源码最好学过了！

仲文玉 · 发表于 2012-6-9 00:56

本帖最后由仲文玉于 2012-6-9 10:59 编辑

(defun c:tt (/ bz)
(setq bz (getstring "\n请输入标注比例[5;10;15;20;25;30;50;75;100;120;150;200]<5>"))
(if (null bz ) (setq bz "5"))
(cond
((= bz "5") (command "-dimstyle" "s" "5"))
((= bz "10") (command "-dimstyle" "s" "10"))
((= bz "15") (command "-dimstyle" "s" "15"))
((= bz "20") (command "-dimstyle" "s" "20"))
((= bz "30") (command "-dimstyle" "s" "30"))
((= bz "50") (command "-dimstyle" "s" "50"))
((= bz "75") (command "-dimstyle" "s" "75"))
((= bz "100") (command "-dimstyle" "s" "100"))
((= bz "150") (command "-dimstyle" "s" "150"))
((= bz "200") (command "-dimstyle" "s" "200"))
)
(princ)
)

print1985 · 发表于 2012-6-9 11:13

本帖最后由 print1985 于 2012-6-9 11:18 编辑

(defun c:q5 ()
(command "-DIMSTYLE" "R" "q5");q5 样式名自行修改
(princ "\n当前标注样式:q5")
(princ)
)

(defun c:q25 ()
(command "-DIMSTYLE" "R" "q25");q25 样式名自行修改
(princ "\n当前标注样式:q25")
(princ)
)

669423907 · 发表于 2012-6-9 12:43

楼主可以搜一下动态切换标注样式。

byghbcx · 发表于 2012-6-9 21:17

直接点工具条中的窗口就设置好了，就像切换图层一样，有必要要写多个LSP命令完成呢

dakui · 发表于 2012-8-4 12:10

下载下来学习学习

断箭 · 发表于 2018-3-29 20:52

print1985 发表于 2012-6-9 11:13
(defun c:q5 ()
(command "-DIMSTYLE" "R" "q5");q5 样式名自行修改
(princ "\n当前标注样式:q5")

简单，好用！！:D:D

CADHH450 · 发表于 2018-5-9 16:19

zhangcan0515 · 发表于 2018-5-15 23:02

好用简洁学习了

bai2000 · 发表于 2018-5-16 16:23

账号		自动登录	找回密码
密码			注册

快速切换已设置好的标注样式，例如变色插件，重金求教！

最佳答案

点评