求助：entmakex生成多义线不显示

hujirong8243692

;;Entmake点表生成多段线
(defun mkpolyline (line_layer line_color line_type  line_kd line_bz p_lst / pt)
  (entmakeX
    (append
      (list '(0 . "LWPOLYLINE")
     '(100 . "AcDbEntity")
      (cons 8 line_layer)
      (cons 62 line_color)
      (cons 6 line_type)
      (cons 370 line_kd)
     '(100 . "AcDbPolyline")
      (cons 90 (length p_lst))
      (cons 70 line_bz)
      )
      (mapcar '(lambda (pt) (cons 10 pt)) p_lst)
    )
  )
)

；；在外面单独处理时可显示，在lisp程序中生成多义线不显示

ll_j

组码370和43都是线宽，但这是两个不一样的概念，43是多段线实体本身宽度，370是显示线宽（×100倍），实体宽度在不同比例下显示是不同的，而显示线宽在不同的显示比例下是恒定的。
这两个值相互是没有什么关系的，而且在entmake时也都不是必须的组码，按说是不会出错的，我们测试也没什么错误。
楼主的错误描述不算太清楚，大家也没法重现，建议楼主如果问题还没有解决，可以结合截图，再仔细描述，以便大家理解。

newer

line_kd 是 宽度？ 如果是宽度，就不是组码370，是43

下面代码，执行测试命令 TT，测试能生成多段线

1. (defun mkpolyline
   
2.        (line_layer line_color line_type line_kd line_bz p_lst / pt)
   
3.   (entmakeX
   
4.     (append
   
5.       (list '(0 . "LWPOLYLINE")
   
6.             '(100 . "AcDbEntity")
   
7.             (cons 8 line_layer)
   
8.             (cons 62 line_color)
   
9.             '(100 . "AcDbPolyline")
   
10.             (cons 6 line_type)
    
11.             (cons 90 (length p_lst))
    
12.             (cons 70 line_bz)
    
13.             (cons 43 line_kd)
    
14.      )
    
15.       (mapcar '(lambda (pt) (cons 10 pt)) p_lst)
    
16.     )
    
17.   )
    
18. )
    
19. (defun c:tt ()
    
20.   (mkpolyline
    
21.     "12"
    
22.     1
    
23.     "bylayer"
    
24.     30
    
25.     1
    
26.     (list (getpoint) (getpoint) (getpoint))
    
27.   )
    
28.   (princ)
    
29. )
    

(defun mkpolyline<br />        (line_layer line_color line_type line_kd line_bz p_lst / pt)<br />   (entmakeX<br />     (append<br />       (list '(0 . "LWPOLYLINE")<br />             '(100 . "AcDbEntity")<br />             (cons 8 line_layer)<br />             (cons 62 line_color)<br />             '(100 . "AcDbPolyline")<br />             (cons 6 line_type)<br />             (cons 90 (length p_lst))<br />             (cons 70 line_bz)<br />             (cons 43 line_kd)<br />      )<br />       (mapcar '(lambda (pt) (cons 10 pt)) p_lst)<br />     )<br />   )<br /> )<br /> (defun c:tt ()<br />   (mkpolyline<br />     "12"<br />     1<br />     "bylayer"<br />     30<br />     1<br />     (list (getpoint) (getpoint) (getpoint))<br />   )<br />   (princ)<br /> )<br />

newer

去 http://bbs.xdcad.net/thread-708957-1-1.html 看看，借鉴下里面的。

hujirong8243692

谢谢大侠！改为43后就显示了。采用370是我改动宽度时读出图元表，发现370码在变化。

newer

hujirong8243692 发表于 2017-8-4 07:40

每种实体的DXF组码，去看DXF帮助文件，里面列的很清楚。

fan_zh

学习收藏了

hujirong8243692

请问大侠：为何设置了线宽或全局线宽，但读出的图元表中没有线宽组码43的信息？按读出的图元表信息重新生成图元后就不是原来的宽度了

Lisphk

hujirong8243692 发表于 2017-8-4 09:47

http://bbs.xdcad.net/thread-708957-1-1.html ， 去看看这个帖子，看看都哪些是必须的组码。

kqqt6236

我也跟着学习一下。