[LISP函数]：用ENTMAKE做实体时扩展数据的问题!

起子

用ENTMAKE做实体，偶尔可以画出来，绝大多数画不出来，有谁用过的看下时什么原因

代码如下：

(entmake (list
           (cons 0 "LWPOLYLINE")
           (cons 5 "87")
           (cons 8 "0")
           (cons 100 "AcDbEntity")
           (cons 100 "AcDbPolyline")
           (cons 90 2)
           (cons 70 0)
           (cons 43 0.0)
           (cons 38 0.0)
           (cons 39 0.0)
           (cons 10 (list 10000 10000))
           (cons 10 (list 10025 100027))
           (cons -3
                 (list
                   (list
                     "sz"
                     (cons 1000 "adf")
                   )
                 )
           )
         )
)

yshf

1. 没有起、止宽度组码；
2. 没有凸度组码；
3. 没有注册应用名“SZ”。
改为如下即可：

1. (if (= (tblsearch "appid" "sz") nil)
   
2.        (regapp "sz")
   
3.    )
   
4.    (entmake (list
   
5.               (cons 0 "LWPOLYLINE")
   
6.               (cons 5 "87")
   
7.               (cons 8 "0")
   
8.               (cons 100 "AcDbEntity")
   
9.               (cons 100 "AcDbPolyline")
   
10.               (cons 90 2)
    
11.               (cons 70 0)
    
12.               (cons 43 0.0)
    
13.               (cons 38 0.0)
    
14.               (cons 39 0.0)
    
15.               (cons 10 (list 10000 10000))
    
16.               (cons 40 0)
    
17.               (cons 41 0)
    
18.               (cons 42 0)
    
19.               (cons 10 (list 10025 100027))
    
20.               (cons 40 0)
    
21.               (cons 41 0)
    
22.               (cons 42 0)
    
23.               (cons -3 (list (list "sz" (cons 1000 "adf"))))
    
24.              )
    
25.    )

复制代码

起子

试了下可行，谢谢！
另：宽度凸度是可选的，不写也可以。

zjh20052318

一直试扩展数据，怎么都不成功，看了这贴才意识到少了一层list