请问有可以把选中的标注置为当前标注的插件吗?

chtword

请问有可以把选中的标注置为当前标注的插件吗?

chg

这个不需要插件，只要一个简单的小程序就可以了，我给你一个例子吧。我自己以前写的。

2. 
   
3. ;;;将当前标注样式更改为选中的尺寸对应的标注样式
   
4. (defun c:ds (/ diment err old-osmode old-ortho old-cmdecho)
   
5. ; (setsysvar)
   
6.   (setvar "cmdecho" 0)
   
7.   (setvar "errno" 0)
   
8.   (setq diment (entsel "\n选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"))
   
9.   (setq err (getvar "errno"))
   
10.   (while (/= err 52)
    
11.     (if        (= err 7)
    
12.       (progn
    
13.         (setvar "errno" 0)
    
14.         (setq diment (entsel "没有选中.\n选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"))
    
15.         (setq err (getvar "errno"))
    
16.         )
    
17.       (if (/= (cdr (assoc 0 (entget (car diment)))) "DIMENSION")
    
18.         (progn
    
19.           (setvar "errno" 0)
    
20.           (setq
    
21.             diment (entsel
    
22.                      "所选对象不是尺寸标注.\选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"
    
23.                      )
    
24.             )
    
25.           (setq err (getvar "errno"))
    
26.           )
    
27.         (setq err 52)
    
28.         )
    
29.       )
    
30.     )
    
31.   (if (= (getvar "errno") 52)
    
32.     (exit)
    
33.     )
    
34.   (command "_.dimstyle" "" "" diment)
    
35.   ;(setsysvar)
    
36.   (princ)
    
37.   )

<br /> ;;;将当前标注样式更改为选中的尺寸对应的标注样式<br /> (defun c:ds (/ diment err old-osmode old-ortho old-cmdecho)<br /> ; (setsysvar)<br />   (setvar "cmdecho" 0)<br />   (setvar "errno" 0)<br />   (setq diment (entsel "\n选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"))<br />   (setq err (getvar "errno"))<br />   (while (/= err 52)<br />     (if        (= err 7)<br />       (progn<br />         (setvar "errno" 0)<br />         (setq diment (entsel "没有选中.\n选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"))<br />         (setq err (getvar "errno"))<br />         )<br />       (if (/= (cdr (assoc 0 (entget (car diment)))) "DIMENSION")<br />         (progn<br />           (setvar "errno" 0)<br />           (setq<br />             diment (entsel<br />                      "所选对象不是尺寸标注.\选择一个尺寸，将其对应的标注样式设置为当前标注样式 :"<br />                      )<br />             )<br />           (setq err (getvar "errno"))<br />           )<br />         (setq err 52)<br />         )<br />       )<br />     )<br />   (if (= (getvar "errno") 52)<br />     (exit)<br />     )<br />   (command "_.dimstyle" "" "" diment)<br />   ;(setsysvar)<br />   (princ)<br />   )

vlisp2012

多谢楼上的分享。

幸福是真

谢谢二楼回复

yefei812678

谢谢二楼回复