[编程申请]：帮编一个所有的线条，只要端点相连的就合并成一条多线!

clhclh · 发表于 2008-4-10 08:09:44

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

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

×

帮编一个所有的线条，只要端点相连的就合并成一条多线!比如一个多边形打散之后，再用此程序就能一次恢复成原来的多边形？

yangjr · 发表于 2008-4-10 15:56:27

(defun c:Plfzmj ( / ss pt1)
  (setvar "PEDITACCEPT" 1)
  (setvar "CMDECHO" 0)
  (setq ss (ssget "X" '((0 . "LINE,ARC,LWPOLYLINE"))))
  (setq pt1 (entsel "\n选择一条需连接的线:"))
  (command "PEDIT" pt1 "j" ss "" "")
  (princ)
)

clhclh · 发表于 2008-4-10 16:32:45

谢谢2楼，我用了呀

yhly555 · 发表于 2014-9-10 22:25:36

yangjr 发表于 2008-4-10 15:56
(defun clfzmj ( / ss pt1)
(setvar "PEDITACCEPT" 1)
(setvar "CMDECHO" 0)

我用了提示ssget参数错误

zxq0220 · 发表于 2014-9-11 08:12:25

(defun c:Plfzmj ( / ss pt1)
(setvar "CMDECHO" 0)
(setq ss (ssget "X" '((0 . "LINE,ARC,LWPOLYLINE"))))
(setvar "PEDITACCEPT" 1)
(command "PEDIT" "M" ss "" "J" "" "")
(setvar "PEDITACCEPT" 0)
(princ)
)

zhcSolution · 发表于 2014-10-14 12:32:26

非闭合图元个数大于1万个了？

这种问题的解决是非常困难的；原因：1）图形的个数不定2）图形的位置不知。目前国内能做此问题解决只有深圳志和诚科技有限公司(zhcdesign.com) 开发的软件ZHCTOPL，是目前性价比最高的。

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

[编程申请]：帮编一个所有的线条，只要端点相连的就合并成一条多线!

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

相关帖子

点评

谢，