【标注】标注转字

marting

1. (defun c:xdtb_dim2txt (/ ss)
   
2.   (if (setq ss (xdrx-ssget
   
3.                  "\n选择转字的标注对象<退出>:"
   
4.                  '((0 . "dimension*"))
   
5.                )
   
6.       )
   
7.     (progn (xdrx-begin)
   
8.            (xdrx-entity-make (xdrx-entity-getproperty ss "mtext"))
   
9.            (xdrx-entity-delete ss)
   
10.            (xdrx-end)
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    

(defun c:xdtb_dim2txt (/ ss)<br />   (if (setq ss (xdrx-ssget<br />                  "\n选择转字的标注对象<退出>:"<br />                  '((0 . "dimension*"))<br />                )<br />       )<br />     (progn (xdrx-begin)<br />            (xdrx-entity-make (xdrx-entity-getproperty ss "mtext"))<br />            (xdrx-entity-delete ss)<br />            (xdrx-end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

tzfcn

这比手工一个一个的调整要方便一点

607334

还不错，一般我都会炸开来