批量LEADER转多重引线MLEADER

newer

1. (defun c:XDTB_LDR2MLDR (/ ss nums p1 p2 doglen arrowid arrowsize)
   
2.   (xd::doc:checkacadversion '>= "2008" "")
   
3.   (if (and (xdrx_initssget "\n选取要转换的LEADER<退出>:")
   
4.            (setq ss (xdrx_ssget '((0 . "LEADER"))))
   
5.       )
   
6.     (progn (xdrx_begin)
   
7.            (mapcar '(lambda (x)
   
8.                       (setq nums (xdrx_getpropertyvalue x "numvertices"))
   
9.                       (if (or (= nums 2) (= nums 3))
   
10.                         (progn (setq p1 (xdrx_getpropertyvalue x "vertexat" 0)
    
11.                                      p2 (xdrx_getpropertyvalue x "vertexat" 1)
    
12.                                )
    
13.                                (setq doglen 0.0)
    
14.                                (if (= nums 3)
    
15.                                  (setq doglen (distance p2 (xdrx_getpropertyvalue x "vertexat" 2)))
    
16.                                )
    
17.                                (xdrx_mleader_make p1 p2 "1" 1.0 doglen)
    
18.                                (xdrx_setpropertyvalue
    
19.                                  (entlast)
    
20.                                  "mtext"
    
21.                                  (xdrx_getpropertyvalue x "AnnotationObjId")
    
22.                                  "textattachmenttype"
    
23.                                  5
    
24.                                )
    
25.                                (if (xdrx_getpropertyvalue x "hasArrowHead")
    
26.                                  (progn (setq arrowId   (xdrx_getpropertyvalue x "arrowId" 0)
    
27.                                               arrowsize (xdrx_getpropertyvalue x "dimasz")
    
28.                                         )
    
29.                                         (xdrx_setpropertyvalue
    
30.                                           (entlast)
    
31.                                           "ArrowSymbolId"
    
32.                                           arrowid
    
33.                                           "arrowsize"
    
34.                                           arrowsize
    
35.                                         )
    
36.                                  )
    
37.                                )
    
38.                                (xdrx_entity_setpropertiesfrom (entlast) x)
    
39.                                (xdrx_object_swapid x (entlast))
    
40.                                (xdrx_entity_delete (entlast))
    
41.                         )
    
42.                       )
    
43.                     )
    
44.                    (xdrx_pickset->ents ss)
    
45.            )
    
46.            (xdrx_prompt
    
47.              "\n成功转换了 "
    
48.              (sslength ss)
    
49.              " 个Leader到MLeader."
    
50.            )
    
51.            (xdrx_end)
    
52.     )
    
53.   )
    
54.   (princ)
    
55. )
    
56. 
    

(defun c:XDTB_LDR2MLDR (/ ss nums p1 p2 doglen arrowid arrowsize)<br />   (xd::doc:checkacadversion '>= "2008" "")<br />   (if (and (xdrx_initssget "\n选取要转换的LEADER<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "LEADER"))))<br />       )<br />     (progn (xdrx_begin)<br />            (mapcar '(lambda (x)<br />                       (setq nums (xdrx_getpropertyvalue x "numvertices"))<br />                       (if (or (= nums 2) (= nums 3))<br />                         (progn (setq p1 (xdrx_getpropertyvalue x "vertexat" 0)<br />                                      p2 (xdrx_getpropertyvalue x "vertexat" 1)<br />                                )<br />                                (setq doglen 0.0)<br />                                (if (= nums 3)<br />                                  (setq doglen (distance p2 (xdrx_getpropertyvalue x "vertexat" 2)))<br />                                )<br />                                (xdrx_mleader_make p1 p2 "1" 1.0 doglen)<br />                                (xdrx_setpropertyvalue<br />                                  (entlast)<br />                                  "mtext"<br />                                  (xdrx_getpropertyvalue x "AnnotationObjId")<br />                                  "textattachmenttype"<br />                                  5<br />                                )<br />                                (if (xdrx_getpropertyvalue x "hasArrowHead")<br />                                  (progn (setq arrowId   (xdrx_getpropertyvalue x "arrowId" 0)<br />                                               arrowsize (xdrx_getpropertyvalue x "dimasz")<br />                                         )<br />                                         (xdrx_setpropertyvalue<br />                                           (entlast)<br />                                           "ArrowSymbolId"<br />                                           arrowid<br />                                           "arrowsize"<br />                                           arrowsize<br />                                         )<br />                                  )<br />                                )<br />                                (xdrx_entity_setpropertiesfrom (entlast) x)<br />                                (xdrx_object_swapid x (entlast))<br />                                (xdrx_entity_delete (entlast))<br />                         )<br />                       )<br />                     )<br />                    (xdrx_pickset->ents ss)<br />            )<br />            (xdrx_prompt<br />              "\n成功转换了 "<br />              (sslength ss)<br />              " 个Leader到MLeader."<br />            )<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />