重设多段线起始点

newer · 发表于 2016-12-9 21:18:34

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

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

×

(defun c:XDTB_POLYReStartPnt ( / e p1 pt)
  (xdrx_begin)
  (xdrx_sysvar_push '("osmode" 1))
  (if (and
        (setq e (car (xdrx_entsel "\n拾取多段线<退出>:" '((0 . "*POLYLINE")))))
        (setq p1 (xdrx_getpropertyvalue e "startpoint"))
        (setq pt (getpoint p1 "\n起始点<退出>:"))
      )
    (progn
      (xd::polyline:resetstartpoint e pt)
      (xdrx_prompt "\n起始点已经重设.")
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)

yoyoho · 发表于 2016-12-10 00:27:25

正需要，支持N版大人了！

qqqincccken · 发表于 2016-12-10 09:31:16

謝謝大神們的分享,再次感謝

kiwiairui · 发表于 2019-4-11 08:27:21

感谢分享

chaozi5756 · 发表于 2020-12-7 16:33:01

这个就厉害了。。。

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

[多段线] 重设多段线起始点

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