entmake生成的多段线，在特定情况下形成“自交”，无法生成面域

yjtdkj

llsheng_73 发表于 2021-7-22 13:37
三角形怎么会自交的？
图打不开，程序看上去没问题
不如你直接把了问题的三角形那三个点贴出来，让大家画 ...

(-302097.0 18307.3)(55030.7 40172.9)(62229.4 36640.4)

yjtdkj

llsheng_73 发表于 2021-7-22 13:37
三角形怎么会自交的？
图打不开，程序看上去没问题
不如你直接把了问题的三角形那三个点贴出来，让大家画 ...

打不开是论坛的问题，我重新上传zip文件

nzl1116

多段线画两段，然后来个 (vla-put-closed pline :vlax-true)

llsheng_73

应该是CAD的bug,用图形那两个三角形，只要保持方向顺时针方向，重新手画也无法转成面域
但是反向、缩放、旋转后都能转成面域

lee50310

測試cad版本  AutoCad2018 升級1.1 繁體版
自交三角形 圖檔測試 面域 我這邊 ok  可生成面域

xvjiex

只能更改LWPOLYLINE的点的排序：

2. (defun point2pline (lst)
   
3.   (entmake
   
4.     (append (list '(0 . "LWPOLYLINE")
   
5.               '(100 . "AcDbEntity")
   
6.               '(100 . "AcDbPolyline")
   
7.               (cons 90 (length lst))
   
8.               '(70 . 1)
   
9.             )
   
10.       (mapcar '(lambda (pt) (cons 10 pt)) lst)
    
11.     )
    
12.   )
    
13.   (entlast)
    
14. )
    
15. (defun loop(lst)
    
16.   (append (cdr lst)(list(car lst)))
    
17. )
    
18. (defun c:tt ()
    
19.   (setq lst (list (getpoint "第1点")
    
20.               (getpoint "第2点")
    
21.               (getpoint "第3点")
    
22.             )
    
23.   )         
    
24.   (if(not(command "region"(point2pline lst)""))
    
25.     (command "region"(point2pline (loop lst))"")
    
26.   )
    
27. )

(defun point2pline (lst)<br />   (entmake<br />     (append (list '(0 . "LWPOLYLINE")<br />               '(100 . "AcDbEntity")<br />               '(100 . "AcDbPolyline")<br />               (cons 90 (length lst))<br />               '(70 . 1)<br />             )<br />       (mapcar '(lambda (pt) (cons 10 pt)) lst)<br />     )<br />   )<br />   (entlast)<br /> )<br /> (defun loop(lst)<br />   (append (cdr lst)(list(car lst)))<br /> )<br /> (defun c:tt ()<br />   (setq lst (list (getpoint "第1点")<br />               (getpoint "第2点")<br />               (getpoint "第3点")<br />             )<br />   )          <br />   (if(not(command "region"(point2pline lst)""))<br />     (command "region"(point2pline (loop lst))"")<br />   )<br /> )