马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 newer 于 2017-3-10 22:23 编辑
[sell] - (defun c:XDTB_MLeaderDrag ( / dynpt e lastvertex str tf)
- (defun _callback (dynpt)
- (xdrx_setpropertyvalue e "lastvertex" dynpt)
- )
- (xdrx_begin)
- (if (setq e (car (xdrx_entsel
- "\n选取拖动的多重引线<退出>:"
- '((-4 . "<or")
- (0 . "MULTILEADER")
- (2 . "XMLEADER*")
- (-4 . "or>")
- )
- )
- )
- )
- (progn
- (if (setq tf (xdrx_object_isa e "AcDbBlockreference"))
- (progn
- (xdrx_entity_explode e)
- (setq e (entlast))
- )
- )
- (setq lastvertex (xdrx_getpropertyvalue e "lastvertex"))
- (xdrx_pointmonitor "_callback")
- (getpoint lastvertex)
- (xdrx_pointmonitor)
- (if tf
- (progn
- (setq str
- (strcat "XMLEADER-" (xdrx_getpropertyvalue e "handle"))
- )
- (xdrx_block_make
- str
- e
- (xdrx_getpropertyvalue e "firstvertex" 0)
- t
- )
- )
- )
- )
- )
- (xdrx_end)
- (princ)
- )
[/sell] |