社区 › AutoLISP/Visual LISP 编程技术 › 快速切换已设置好的标注样式，例如变色插件，重金求教！

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

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

本帖最后由 天非深化设计 于 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:02

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


(defun c:tt (/ bz)
(setq bz (getstring "\n请输入标注比例<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:08

本帖最后由 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:19

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

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

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

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

下载下来学习学习

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

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:45

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

好用 简洁 学习了

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

查看完整版本: 快速切换已设置好的标注样式，例如变色插件，重金求教！