[求助]：帮小弟解决一个很小的问题（谢谢）

tanle2020

请大家帮小弟解决一个很小的问题，用DXF组码创建一条多段线
长度=50  宽度=0.5  起点X=-6 Y=1.5 终点X=-1 Y=1.5
（谢谢各位了）
图片：

                               
登录/注册后可看大图

cy956

2. 
   
3. (defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb);;(#m_pl2 d70 plw pla pb "0" -1)■制造等宽直pline
   
4.   (setq        d90 (length pl_list)
   
5.         pb  '()
   
6.   )
   
7.   (foreach x pl_list
   
8.     (progn
   
9.       (setq pb
   
10.              (append pb
    
11.                      (list (cons 10 x)
    
12.                            (cons 40 plw)
    
13.                            (cons 41 plw)
    
14.                            (cons 42 pla)
    
15.                      )
    
16.              )
    
17.       )
    
18.     )
    
19.   )
    
20.   (setq        en000 (append (list
    
21.                         (cons 0 "LWPOLYLINE")
    
22.                         (cons 100 "AcDbEntity")
    
23.                         (cons 8 lay_pl)
    
24.                         (cons 100 "AcDbPolyline")
    
25.                         (cons 90 d90)
    
26.                         (cons 70 d70)
    
27.                       )
    
28.                       pb
    
29.               )
    
30.   )
    
31.   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
    
32.   (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  )
    
33. )
    
34. 
    
35. (#m_pl2 0 50 0 (list '(-6 1.5)(-1 1.5)) "图层" -1)  
    

<br /> (defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb);;(#m_pl2 d70 plw pla pb "0" -1)■制造等宽直pline<br />   (setq        d90 (length pl_list)<br />         pb  '()<br />   )<br />   (foreach x pl_list<br />     (progn<br />       (setq pb<br />              (append pb<br />                      (list (cons 10 x)<br />                            (cons 40 plw)<br />                            (cons 41 plw)<br />                            (cons 42 pla)<br />                      )<br />              )<br />       )<br />     )<br />   )<br />   (setq        en000 (append (list<br />                         (cons 0 "LWPOLYLINE")<br />                         (cons 100 "AcDbEntity")<br />                         (cons 8 lay_pl)<br />                         (cons 100 "AcDbPolyline")<br />                         (cons 90 d90)<br />                         (cons 70 d70)<br />                       )<br />                       pb<br />               )<br />   )<br />   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))<br />   (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  )<br /> )<br /> <br /> (#m_pl2 0 50 0 (list '(-6 1.5)(-1 1.5)) "图层" -1)  <br />

tanle2020

谢谢cy956 [斑竹的帮忙，问题已解决。

xyp1964

[php](entmake '((0 . "LWPOLYLINE")
           (100 . "AcDbEntity")
           (100 . "AcDbPolyline")
           (90 . 2)
           (70 . 0)
           (43 . 50.0)
           (10 6.0 1.5)
           (40 . 50.0)
           (41 . 50.0)
           (42 . 0.0)
           (10 -1.0 1.5)
           (40 . 50.0)
           (41 . 50.0)
           (42 . 0.0)
          )
)[/php]