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

天非深化设计

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

仲文玉

2. 
   
3. (defun c:tt (/ bz)
   
4.   (setq bz (getstring "\n请输入标注比例[5;10;15;20;25;30;50;75;100;120;150;200]<5>"))
   
5.   (if (null bz ) (setq bz "5"))
   
6.    (cond
   
7.     ((= bz "5") (command "-dimstyle" "s" "5"))
   
8.     ((= bz "10") (command "-dimstyle" "s" "10"))
   
9.     ((= bz "15") (command "-dimstyle" "s" "15"))
   
10.     ((= bz "20") (command "-dimstyle" "s" "20"))
    
11.     ((= bz "30") (command "-dimstyle" "s" "30"))
    
12.     ((= bz "50") (command "-dimstyle" "s" "50"))
    
13.     ((= bz "75") (command "-dimstyle" "s" "75"))
    
14.     ((= bz "100") (command "-dimstyle" "s" "100"))
    
15.     ((= bz "150") (command "-dimstyle" "s" "150"))
    
16.     ((= bz "200") (command "-dimstyle" "s" "200"))
    
17.    )
    
18.   (princ)
    
19. )

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

print1985

(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

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

byghbcx

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

dakui

下载下来学习学习

断箭

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

简单，好用！！:D:D

CADHH450

zhangcan0515

好用 简洁 学习了

bai2000