用lisp布尔多义线，合并的功能，我想了个路子，请高手指点

hhh454

用lisp布尔多义线，合并的功能，我想了个路子，请高手指点：
下面是我弄的一个图片，


下面是我的思路，但是不知道怎么串起来，请高手支招，谢谢
1，使用  “region”  ，命令将图中的多义线或者矩形，变成面片
2，使用布尔命令  “union”  ，合并面片
3，炸开合并后的面片，变成单条line
4，pe命令合成多义线。

3527188

2. (defun c:text  (/ osmode_bak ss e getss)
   
3.   (defun getss (e / ss)
   
4.     (setq ss (ssadd))
   
5.     (while (setq e (entnext e))
   
6.       (setq ss (ssadd e ss))
   
7.     )
   
8.     ss
   
9.   )
   
10.   (setvar "CMDECHO" 0);_关闭命令提示
    
11.   (Setq osmode_bak (getvar "osmode"));_记录捕捉
    
12.   (Setvar "osmode" 0);_关闭捕捉
    
13.   (setq ss  (ssget))
    
14.   (setq e(entlast))
    
15.   (command ".region" ss "")
    
16.   (command ".union" (getss e) "")
    
17.   (setq e(entlast))
    
18.   (command ".Explode" (entlast))
    
19.   (if (= 0 (getvar "peditaccept"))(setvar "peditaccept" 1))
    
20.   (command "_.pedit" "m" (getss e) "" "j" "0.005" "")
    
21.   (Setvar "osmode" osmode_bak);_还原捕捉
    
22.   (setvar "CMDECHO" 1);_打开命令提示
    
23.   (princ)
    
24. )

(defun c:text  (/ osmode_bak ss e getss)<br />   (defun getss (e / ss)<br />     (setq ss (ssadd))<br />     (while (setq e (entnext e))<br />       (setq ss (ssadd e ss))<br />     )<br />     ss<br />   )<br />   (setvar "CMDECHO" 0);_关闭命令提示<br />   (Setq osmode_bak (getvar "osmode"));_记录捕捉<br />   (Setvar "osmode" 0);_关闭捕捉<br />   (setq ss  (ssget))<br />   (setq e(entlast))<br />   (command ".region" ss "")<br />   (command ".union" (getss e) "")<br />   (setq e(entlast))<br />   (command ".Explode" (entlast))<br />   (if (= 0 (getvar "peditaccept"))(setvar "peditaccept" 1))<br />   (command "_.pedit" "m" (getss e) "" "j" "0.005" "")<br />   (Setvar "osmode" osmode_bak);_还原捕捉<br />   (setvar "CMDECHO" 1);_打开命令提示<br />   (princ)<br /> )

296715530

好用，天正的布尔功能一样

渠辉

xyp-Get-Bpoly

Gu_xl

1. (defun c:tt  (/ en1 en2 pjdl enRegion0 enRegion1 enRegion2 ss)
   
2.   (if
   
3.     (and
   
4.       (setq en1 (car (entsel "\n 选择第一个多段线:")))
   
5.       (setq en2 (car (entsel "\n 选择第二个多段线:")))
   
6.       )
   
7.      (progn
   
8.        (setq pjdl (vlax-invoke
   
9.                     (vlax-ename->vla-object en1)
   
10.                     'IntersectWith
    
11.                     (vlax-ename->vla-object en2)
    
12.                     acExtendNone))
    
13.        (if (and pjdl (> (length pjdl) 3))
    
14.          (progn
    
15.            (command ".region" en1 "")
    
16.            (setq enRegion1 (entlast))
    
17.            (command ".region" en2 "")
    
18.            (setq enRegion2 (entlast))
    
19.            (command ".union" enRegion1 enRegion2 "")
    
20.            (setq enenRegion0 (entlast))
    
21.            (command ".Explode" enenRegion0)
    
22.            (setq ss (ssget "p"))
    
23.            (command "pedit" "m"  ss "" "y" "j" "" "")
    
24.            )
    
25.          )
    
26.        )
    
27.      )
    
28.   )
    

(defun c:tt  (/ en1 en2 pjdl enRegion0 enRegion1 enRegion2 ss)<br />   (if<br />     (and<br />       (setq en1 (car (entsel "\n 选择第一个多段线:")))<br />       (setq en2 (car (entsel "\n 选择第二个多段线:")))<br />       )<br />      (progn<br />        (setq pjdl (vlax-invoke<br />                     (vlax-ename->vla-object en1)<br />                     'IntersectWith<br />                     (vlax-ename->vla-object en2)<br />                     acExtendNone))<br />        (if (and pjdl (> (length pjdl) 3))<br />          (progn<br />            (command ".region" en1 "")<br />            (setq enRegion1 (entlast))<br />            (command ".region" en2 "")<br />            (setq enRegion2 (entlast))<br />            (command ".union" enRegion1 enRegion2 "")<br />            (setq enenRegion0 (entlast))<br />            (command ".Explode" enenRegion0)<br />            (setq ss (ssget "p"))<br />            (command "pedit" "m"  ss "" "y" "j" "" "")<br />            )<br />          )<br />        )<br />      )<br />   )<br />

hhh454

谢谢，我弄了半天，没有弄出来，选择上次的也选择不上

hhh454

我自己弄了一个，还不全，炸开和合并弄不了
下面是代码

2. (defun c:tt (/ ngc_pa)
   
3.   (setvar "CMDECHO" 0);_关闭命令提示
   
4.   (Setq osmode_bak (getvar "osmode"));_记录捕捉
   
5.   (Setvar "osmode" 0);_关闭捕捉
   
6.   (setq ngc_pa(getpoint "指定一点:")
   
7.         ngc_pb(getpoint "指定另一点")
   
8.         )        
   
9.   (command ".region" "f" ngc_pa ngc_pb "" "")
   
10.   (command ".union" "f" ngc_pa ngc_pb "" "")
    
11.   (炸开)  这个弄不好
    
12.   (pedit) 这个也连不上
    
13.   (Setvar "osmode" osmode_bak);_还原捕捉
    
14.   (setvar "CMDECHO" 1);_打开命令提示
    
15.   (princ)
    
16.   )

(defun c:tt (/ ngc_pa)<br />   (setvar "CMDECHO" 0);_关闭命令提示<br />   (Setq osmode_bak (getvar "osmode"));_记录捕捉<br />   (Setvar "osmode" 0);_关闭捕捉<br />   (setq ngc_pa(getpoint "指定一点:")<br />         ngc_pb(getpoint "指定另一点")<br />         )        <br />   (command ".region" "f" ngc_pa ngc_pb "" "")<br />   (command ".union" "f" ngc_pa ngc_pb "" "")<br />   (炸开)  这个弄不好<br />   (pedit) 这个也连不上<br />   (Setvar "osmode" osmode_bak);_还原捕捉<br />   (setvar "CMDECHO" 1);_打开命令提示<br />   (princ)<br />   )

shang_123

这个很给力！

shang_123

  楼主 这块程序 好像没用上  (command "pedit" "m"  ss "" "y" "j" "" "")   忘指教

cable2004

你选择的是点，而不是图元呀！

• (setq en1 (car (entsel "\n 选择第一个多段线:")))
•       (setq en2 (car (entsel "\n 选择第二个多段线:")))
• (setq ngc_pa(getpoint "指定一点:")
•         ngc_pb(getpoint "指定另一点"）      )        
  
• 
  

logoin

终极解决方案在这里
http://wenku.baidu.com/view/258c771d59eef8c75fbfb3f4.html

hhh454

这次没有问题了，简单的command，感谢 GU_XL的帮助，
解释一下的我的代码思路，我是用点选的方法，记录2个点，然后执行命令的 ” f “ 栏选择，
下面是全部的代码：

2. (defun c:tt (/ ngc_pa ngc_pb ss)
   
3.   (setvar "CMDECHO" 0);_关闭命令提示
   
4.   (Setq osmode_bak (getvar "osmode"));_记录捕捉
   
5.   (Setvar "osmode" 0);_关闭捕捉
   
6.   (setq ngc_pa(getpoint "指定一点:")
   
7.         ngc_pb(getpoint "指定另一点")
   
8.         )        
   
9.   (command ".region" "f" ngc_pa ngc_pb "" "")
   
10.   (command ".union" "f" ngc_pa ngc_pb "" "")
    
11.   (setq ss (ssget "p"))
    
12.   (command ".Explode" ss)
    
13.   (setq ss (ssget "p"))
    
14.   (command "pedit" "m"  ss "" "y" "j" "" "")
    
15.   (Setvar "osmode" osmode_bak);_还原捕捉
    
16.   (setvar "CMDECHO" 1);_打开命令提示
    
17.   (princ)
    
18.   )

(defun c:tt (/ ngc_pa ngc_pb ss)<br />   (setvar "CMDECHO" 0);_关闭命令提示<br />   (Setq osmode_bak (getvar "osmode"));_记录捕捉<br />   (Setvar "osmode" 0);_关闭捕捉<br />   (setq ngc_pa(getpoint "指定一点:")<br />         ngc_pb(getpoint "指定另一点")<br />         )        <br />   (command ".region" "f" ngc_pa ngc_pb "" "")<br />   (command ".union" "f" ngc_pa ngc_pb "" "")<br />   (setq ss (ssget "p"))<br />   (command ".Explode" ss)<br />   (setq ss (ssget "p"))<br />   (command "pedit" "m"  ss "" "y" "j" "" "")<br />   (Setvar "osmode" osmode_bak);_还原捕捉<br />   (setvar "CMDECHO" 1);_打开命令提示<br />   (princ)<br />   )

，谁还有简单的方法也可以贴出来。

hhh454

cable2004 发表于 2011-10-12 18:13
你选择的是点，而不是图元呀！

解释一下的我的代码思路，我是用点选的方法，记录2个点，然后执行命令的 ” f “ 栏选择，