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

fuzhishui · 发表于 2018-5-6 19:01:00

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

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


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