如何将多条线交叉形成的每个封闭区域，自动生成闭合多段线

fuzhishui

请教一个问题。请问利用objectARX+CAD，有没有可利用的函数直接将多条任意线性实体（多段线、 直线、二维多段线等）交叉形成的封闭区域生成闭合多段线！或给个建议！

lishucheng96

2. (defun c:mj(/ sss oldos pl s ent)
   
3.   (vl-load-com)
   
4.   (setq sss (ssadd))
   
5.   (setq OLDOS (getvar"OSMODE"))
   
6.   (setvar "OSMODE" 0)
   
7.         (setq pl (getpoint "\n内部选一点(结束请回车):"))
   
8.         (bpoly pl)
   
9.         (princ (/= pl nil))
   
10.         (if (/= pl nil) (setq s (entlast))        )
    
11.         (if s  (progn
    
12.                                          (setq ent (vlax-ename->vla-object s))
    
13.                                          (vla-put-color ent 1)                                                 
    
14.                                  )
    
15.         )
    
16.         (setvar "OSMODE" OLDOS)
    
17.         (vlr-beep-reaction )
    
18.         (princ)       
    
19. )

(defun c:mj(/ sss oldos pl s ent)<br />   (vl-load-com)<br />   (setq sss (ssadd))<br />   (setq OLDOS (getvar"OSMODE"))<br />   (setvar "OSMODE" 0)<br />         (setq pl (getpoint "\n内部选一点(结束请回车):"))<br />         (bpoly pl)<br />         (princ (/= pl nil))<br />         (if (/= pl nil) (setq s (entlast))        )<br />         (if s  (progn<br />                                          (setq ent (vlax-ename->vla-object s)) <br />                                          (vla-put-color ent 1)                                                 <br />                                  )<br />         )<br />         (setvar "OSMODE" OLDOS)<br />         (vlr-beep-reaction )<br />         (princ)        <br /> )

fuzhishui

lishucheng96   CAD有个命令可以实现，但都要内部选点，假如数据很多的情况下效率就太低了。想让程序去自动判断并生成，问了几个朋友   说要用算法去实现

soleman

用轮廓提取功能

fuzhishui

soleman 发表于 2018-5-23 14:26
用轮廓提取功能

不太清楚，请指点一下，有可调用的函数吗？

依然小小鸟

lishucheng96 发表于 2018-5-8 00:01

可以增加生成多段线后 删除原线段的功能吗

meja

版主有写一个，仔细搜索

zj20190405

lishucheng96 发表于 2018-5-8 00:01

谢谢大哥，恭喜发财