分享一个假封闭多段线转为真封闭的源码

hubeiwdlue

在论坛里面下载的黄明儒大师的中心线代码，经常碰到一个情况，就是假封闭的多段线，无法被选中，也无法生成中心线。
于是写了这个函数。


所谓假封闭，就是起点和终点相等，70组码为0
真封闭相对假封闭，节点数少1个，起点和终点不相等。

2. ;(ClosedLwp (car(entsel "\n选择线...")))
   
3. (defun ClosedLwp (en / endpt es lst1 startpt z210 z70 z90)
   
4.   (if (and
   
5.         (setq es (entget en)
   
6.           z90 (cdr (assoc 90 es));节点数
   
7.           z70 (cdr (assoc 70 es))
   
8.           z210 (assoc 210 es);210组码
   
9.           startpt (cdr (assoc 10 es))
   
10.           endpt (cdr (assoc 10 (reverse es))))
    
11.         (eq (cdr (assoc 0 es)) "LWPOLYLINE")
    
12.         (> z90 3)
    
13.         (eq z70 0)
    
14.         (equal startpt endpt 1e-5)
    
15.       )
    
16.     (progn
    
17.       ;去除最后一个节点
    
18.       (vl-some '(lambda(x) (setq lst1 (cdr lst1)) (= 10 (car x))) (setq lst1 (reverse es)))
    
19.       (setq lst1 (reverse lst1))
    
20.       (setq es (append lst1 (list z210)))
    
21.       ;更新节点数和是否封闭
    
22.       (setq es (subst (cons 90 (1- z90)) (cons 90 z90) es))
    
23.       (setq es (subst '(70 . 1) (cons 70 z70) es))
    
24.       (entmod es)
    
25.     )
    
26.   )
    
27. )

;(ClosedLwp (car(entsel "\n选择线...")))<br /> (defun ClosedLwp (en / endpt es lst1 startpt z210 z70 z90)<br />   (if (and<br />         (setq es (entget en)<br />           z90 (cdr (assoc 90 es));节点数<br />           z70 (cdr (assoc 70 es))<br />           z210 (assoc 210 es);210组码<br />           startpt (cdr (assoc 10 es))<br />           endpt (cdr (assoc 10 (reverse es))))<br />         (eq (cdr (assoc 0 es)) "LWPOLYLINE")<br />         (> z90 3)<br />         (eq z70 0)<br />         (equal startpt endpt 1e-5)<br />       )<br />     (progn <br />       ;去除最后一个节点<br />       (vl-some '(lambda(x) (setq lst1 (cdr lst1)) (= 10 (car x))) (setq lst1 (reverse es)))<br />       (setq lst1 (reverse lst1))<br />       (setq es (append lst1 (list z210)))<br />       ;更新节点数和是否封闭<br />       (setq es (subst (cons 90 (1- z90)) (cons 90 z90) es))<br />       (setq es (subst '(70 . 1) (cons 70 z70) es))<br />       (entmod es)<br />     )<br />   )<br /> )

hubeiwdlue

寒潮大冬瓜 发表于 2025-3-23 21:23
很好→很棒！很好~很棒！！很好……很棒！！！
只是我运行→先画一个闭合的多段线，然后切了 ...

不能有缺口，起点和终点重合。

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！
只是我运行→先画一个闭合的多段线，然后切了一个缺口，运行代码→选了多段线→无法进入下一步？

ghgh0130

曲线怎么写。

aws

                (if(null(vlax-curve-isClosed obj))
                        (if(equal(vlax-curve-getStartPoint obj)(vlax-curve-getEndPoint obj)0.1)
                                (entmod(subst(cons 70 1)(assoc 70(entget en))(entget en)))
                               
                        )
                )我都是这么处理的，也没细想，会有bug吗

hubeiwdlue

aws 发表于 2025-3-24 08:17
(if(null(vlax-curve-isClosed obj))
                        (if(equal(vlax-curve-getStartPoint obj)(vlax-curve-getEndPo ...

不清楚，和普通封闭多边形，多了一个节点。

hubeiwdlue

ghgh0130 发表于 2025-3-24 07:22
曲线怎么写。

多段线的曲线就是圆弧，我这个代码，不需要修改节点位置，只要凸度不变就行，比较简单。如果要修改节点位置来封闭多段线，那是一个数学问题，没有研究过。

biya

假封闭是什么意思

hubeiwdlue

biya 发表于 2025-3-24 09:00
假封闭是什么意思

画多段线的时候，真封闭是用c封闭的，假封闭，将最后一个点画在起点的位置，看上去是封闭的，cad不认。

biya

hubeiwdlue 发表于 2025-3-24 09:12
画多段线的时候，真封闭是用c封闭的，假封闭，将最后一个点画在起点的位置，看上去是封闭的，cad不认。

哦，知道了，这个好弄，把原组码处理一下就行了