如何判断曲线端点位置是否和其他对象重叠

guosheyang

世人皆醉 发表于 2024-1-30 14:19
最后一步好像有问题，中断了

循环体中改为用entmod试试

(repeat(setq i(sslength ss2))
    (entmod(append(entget (ssname ss2 (setq i(1- i)))) '((70 . 1))))
)

guosheyang

最好上传dwg测试

世人皆醉

guosheyang 发表于 2024-1-30 14:35
最好上传dwg测试

改了也不行，放弃两个，附件上传了，你看看

guosheyang

先运行下overkill命令 试试

guosheyang

guosheyang

你上传图中   最后一个是属于悬挂线问题   把悬挂线搜索出来删除  然后在闭合    关于悬挂线 搜索  找下 大海大佬的代码   论坛有的

x_s_s_1

以下代码能解决大部分问题，未下载您的例图
(defun c:tt  (/ en n old ss)
    (setq old (getvar 'peditaccept))
    (setq en (entlast))
    (setvar 'peditaccept 1)
    (setq ss (ssget '((0 . "line,lwpolyline,arc"))))
    (vl-cmdf "pedit" "m" ss "" "j" 0 "")
    (while (setq en (entnext en))
        (vla-put-Closed (vlax-ename->vla-object en) :vlax-true))
    (repeat (setq n (sslength ss))
        (setq en (ssname ss (setq n (1- n))))
        (if (entget en)
            (vla-put-Closed (vlax-ename->vla-object en) :vlax-true)))
    (setvar 'peditaccept old))

世人皆醉

guosheyang 发表于 2024-1-30 15:02
你上传图中   最后一个是属于悬挂线问题   把悬挂线搜索出来删除  然后在闭合    关于悬挂线 搜索  找下 大 ...

我的目的不是绘制组成一个集体的多段线，我就是想判断两个曲线端点中没有与其他点重合的那个点，然后绘制线连接这两个端点，和其他的曲线没有关系

世人皆醉

x_s_s_1 发表于 2024-1-30 15:19
以下代码能解决大部分问题，未下载您的例图
(defun c:tt  (/ en n old ss)
    (setq old (getvar 'pedit ...

试了一下，没有啥用

guosheyang

世人皆醉 发表于 2024-1-30 15:30
我的目的不是绘制组成一个集体的多段线，我就是想判断两个曲线端点中没有与其他点重合的那个点，然后绘制 ...

假如有三段线   提取所有三段线的起点和终点    然后  相同点坐标归类   只有一个点坐标的  就是那两点  绘制线段连接即可  
当然  你用join命令连接起来三段线  再 提取起点 终点坐标  也可以  如果要返回非连接状态  undo以下即可