将对齐标注转换为转角标注

newer

[sell=2]

1. (defun c:XDTB_DIMA2L ( / e pts ss)
   
2.   (xdrx_prompt "\n选取要转换的对齐标注<退出>:")
   
3.   (if (setq ss (ssget '((0 . "dimension") (70 . 33))))
   
4.     (progn
   
5.       (xdrx_begin)
   
6.       (xdrx_setsstodb ss 0)
   
7.       (while (setq e (xdrx_getentdata 0))
   
8.         (setq pts (xdrx_getpropertyvalue e "stretchpoint"))
   
9.         (xdrx_dimension_makerotate (car pts) (cadr pts) (caddr pts)
   
10.                                    (angle (car pts) (cadr pts))
    
11.         )
    
12.         (xdrx_entity_setpropertiesfrom (entlast) e)
    
13.         (xdrx_object_swapid (entlast) e)
    
14.       )
    
15.       (xdrx_entity_delete ss)
    
16.       (xdrx_prompt "\n成功转换了 " (sslength ss) " 个对齐尺寸标注.")
    
17.       (xdrx_end)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    
22. 
    

(defun c:XDTB_DIMA2L ( / e pts ss)<br />   (xdrx_prompt "\n选取要转换的对齐标注<退出>:")<br />   (if (setq ss (ssget '((0 . "dimension") (70 . 33))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq pts (xdrx_getpropertyvalue e "stretchpoint"))<br />         (xdrx_dimension_makerotate (car pts) (cadr pts) (caddr pts)<br />                                    (angle (car pts) (cadr pts))<br />         )<br />         (xdrx_entity_setpropertiesfrom (entlast) e)<br />         (xdrx_object_swapid (entlast) e)<br />       )<br />       (xdrx_entity_delete ss)<br />       (xdrx_prompt "\n成功转换了 " (sslength ss) " 个对齐尺寸标注.")<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

[/sell]

天若有情007

好像转了之后还是对齐标注啊

zheng0000zheng

不错，学习学习

knife0930

不错，学习学习

l982414

好东东，不错，

knife0930

好像不行哦

zhouzhiy

谢谢楼主分享！

xzs16

好像转了之后还是对齐标注啊

zhouzhiy

谢谢楼主分享！

zhouzhiy

谢谢楼主分享！

xtay112

多谢楼主的分享···

宏光

转了之后还是对齐标注啊

xinxirong

好东东，不错，