[求助]：如何两个多边形合并为一个多边形？

xyz002 · 发表于 2009-11-10 17:06:46

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

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

×

要求将两个相交的多边形合并为一个，删除相交部分，这个lisp程序如何写，请高手支招，最好能贴代码，谢谢

xyp1964 · 发表于 2009-11-10 23:50:56

合并

xyz002 · 发表于 2009-11-11 08:28:30

多谢斑竹，具体用lisp程序如何实现呢，请指教

Underway · 发表于 2009-11-11 10:46:00

借道 Region 即可

xyz002 · 发表于 2009-11-11 13:00:53

如何获得region后的选择集呢

Underway · 发表于 2009-11-11 14:00:14

Ref info here:
http://www.xdcad.net/forum/showthread.php?postid=2165789

xyz002 · 发表于 2009-11-11 19:53:23

多谢长老指点，完成合并需获得多次command的选择集，如何调用子函数实现呢

Underway · 发表于 2009-11-11 20:54:10

未能理解 '多次command的选择集...调用子函数....'
可以有您的代码做为回答的参考呢

xyp1964 · 发表于 2009-11-11 21:42:43

;; 两个多边形的并集
(defun c:test845 ()
  (CMDLA0)
  (setq s1 (car (entsel "\n1: "))
s2 (car (entsel "\n2: "))
s0 (entlast)
s3 (xyp-add-region s1)
s4 (xyp-add-region s2)
s5 (XYP-BOOLEAN s3 s4 0)
  )
  (entdel s1)
  (entdel s2)
  (CMDLA1)
)

xyz002 · 发表于 2009-11-11 22:18:45

是这样的，整个过程要依次用到region,union,explode,pedit这4个命令，形成一个闭合多边形。根据青铜长老提供的参考，我修改了一下，最后结果是做出来了，但感觉太啰嗦，需要获得前三个命令操作完后的选择集，是否可以通过三次调用获取选择集的子函数来实现？以下是代码，请高手指点，该如何修改。
(defun c:1 (/ ss lastent lastent2 s1 s2 e f)
(setq ss (ssget))
(setq lastent (entlast))
(setq s1 (ssadd))
(command ".region" ss "")
(while (setq e (entnext lastent))
(ssadd e s1)
(setq lastent e)
)
(command ".union" s1 "")
(setq lastent2 (entlast))
(command ".explode" lastent2 "")
(setq s2 (ssadd))
(while (setq f (entnext lastent2))
(ssadd f s2)
(setq lastent2 f)
)
(command ".pedit" "m" s2 "" "y" "j" "" "c" "")
)

xyp1964  斑竹，
你的程序加载后，错误: no function definition: CMDLA0
这是怎么回事啊

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

[求助] [求助]：如何两个多边形合并为一个多边形？

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

相关帖子