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)      
)

fuzhishui 发表于 2018-5-11 23:09:00

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

soleman 发表于 2018-5-23 14:26:00


用轮廓提取功能




fuzhishui 发表于 2018-5-29 21:00:00


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

依然小小鸟 发表于 2018-8-23 14:57:00


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

meja 发表于 2019-1-6 16:45:00

版主有写一个，仔细搜索

zj20190405 发表于 2019-6-6 21:06:00


谢谢大哥，恭喜发财
页: [1]
查看完整版本: 如何将多条线交叉形成的每个封闭区域，自动生成闭合多段线