(XD::MLeader:MakeBlock)制作内容为图块的MLEADER

newer

1. (defun XD::MLeader:MakeBlock (sPt ePt dogleg blk / ml)
   
2.     (setq ml (xdrx_mleader_make sPt ePt "1" 1 1))
   
3.     (xdrx_setpropertyvalue ml "contenttype" 1)
   
4.     (xdrx_setpropertyvalue ml "dogleglength" dogleg "blockcontentid" (if (= (type blk) 'STR)
   
5.                                                  (xdrx_object_get "block"
   
6.                                                                   blk
   
7.                                                  )
   
8.                                                  blk
   
9.                                                )
   
10.     )
    
11.     ml
    
12. )
    
13. 
    

(defun XD::MLeader:MakeBlock (sPt ePt dogleg blk / ml)<br />     (setq ml (xdrx_mleader_make sPt ePt "1" 1 1))<br />     (xdrx_setpropertyvalue ml "contenttype" 1)<br />     (xdrx_setpropertyvalue ml "dogleglength" dogleg "blockcontentid" (if (= (type blk) 'STR)<br />                                                  (xdrx_object_get "block"<br />                                                                   blk<br />                                                  )<br />                                                  blk<br />                                                )<br />     )<br />     ml<br /> )<br /> <br />