多重引线动态拖动

newer · 发表于 2017-3-10 22:22:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

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)
)

(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]

liuyj · 发表于 2017-3-11 00:09:10

这个用夹点不就行了？

newer · 发表于 2017-3-11 00:33:43

liuyj 发表于 2017-3-11 00:09

这个用夹点有时候不方便，尤其水平段很短的时候，要放大才能找到，这个插件只要点到实体就能拖动了。
而且这个拖动的基点是引线的端点，而不是水平基线的中间夹点，更符合习惯。

另外，这个插件还能拖动多重引线做成的块。

qqqincccken · 发表于 2017-3-13 21:23:00

谢谢提供学习一下!!!!!!!!!!!

kqqt6236 · 发表于 2017-3-17 00:05:07

看上去很强大。

tanwei1 · 发表于 2017-8-27 13:49:11

谢谢提供，很实用

帐号		自动登录	找回密码
密码			立即注册

[工具] 多重引线动态拖动

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子