求一LISP，首尾相连的线条，选其中一段，合并成多段线

青菩提 · 发表于 2014-4-11 18:18:06

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

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

×

如题！有几条线段，首尾相连，想要的效果是，我只框选或点选其中一条线段，然后，自动向两端延伸搜出与之相连的所有线段，并合并为一条多段线！
请高手指点

kwok · 发表于 2014-4-11 20:28:16

(defun c:tt (/ en);;;相连的一起连接,不能對付SPLINE \ ELLIPSE
  (setvar "cmdecho" 0)
  (setq en (entsel "\n点线串连接:"))
  (vl-cmdf ".pedit" en "J" "all" "" "")
  (princ "\nYou are OK")
  (setvar "cmdecho" 1)
  (princ)
)

lucas3 · 发表于 2014-4-12 08:19:37

论坛上这种程序很多

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

[求助] 求一LISP，首尾相连的线条，选其中一段，合并成多段线

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