fuzhishui 发表于 2018-5-6 19:01:39

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

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

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

(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:56

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

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

本帖最后由 soleman 于 2018-5-23 14:33 编辑

用轮廓提取功能

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

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

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

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

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


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

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

版主有写一个，仔细搜索

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

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


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