[求助]：请问如何用entmake创建LWPOLYLINE？

panzhongw

请问如何用entmake创建LWPOLYLINE？

cy956

2. 
   
3. 
   
4. ;;;制造 LWPOLYLINE  input: d70=0开口，1闭合; plist'((p d40 d41 d42)....);
   
5. (defun #m_pl (d70 pl_list lay_pl color /)
   
6.   (setq        d90 (length pl_list)
   
7.         pb  '()
   
8.   )
   
9.   (foreach x pl_list
   
10.     (progn
    
11.       (setq pb(append pb
    
12.         (list (cons 10 (nth 0 x))
    
13.               (cons 40 (nth 1 x))
    
14.               (cons 41 (nth 2 x))
    
15.               (cons 42 (nth 3 x))
    
16.         ) )
    
17.     ) )
    
18.   )
    
19.   (setq        en000 (append (list
    
20.         (cons 0 "LWPOLYLINE")
    
21.         (cons 100 "AcDbEntity")
    
22.         (cons 8 lay_pl)
    
23.         (cons 100 "AcDbPolyline")
    
24.         (cons 90 d90)
    
25.         (cons 70 d70))
    
26.         pb) )
    
27.   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
    
28.   (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  )
    
29. )
    
30. 
    
31. (defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb)
    
32.   (setq        d90 (length pl_list)
    
33.         pb  '()
    
34.   )
    
35.   (foreach x pl_list
    
36.     (progn
    
37.       (setq pb
    
38.              (append pb
    
39.                      (list (cons 10 x)
    
40.                            (cons 40 plw)
    
41.                            (cons 41 plw)
    
42.                            (cons 42 pla)
    
43.                      )
    
44.              )
    
45.       )
    
46.     )
    
47.   )
    
48.   (setq        en000 (append (list
    
49.                         (cons 0 "LWPOLYLINE")
    
50.                         (cons 100 "AcDbEntity")
    
51.                         (cons 8 lay_pl)
    
52.                         (cons 100 "AcDbPolyline")
    
53.                         (cons 90 d90)
    
54.                         (cons 70 d70)
    
55.                       )
    
56.                       pb
    
57.               )
    
58.   )
    
59.   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))
    
60.   (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  )
    
61. )
    
62. 
    
63. 
    

<br /> <br /> ;;;制造 LWPOLYLINE  input: d70=0开口，1闭合; plist'((p d40 d41 d42)....);<br /> (defun #m_pl (d70 pl_list lay_pl color /)<br />   (setq        d90 (length pl_list)<br />         pb  '()<br />   )<br />   (foreach x pl_list<br />     (progn<br />       (setq pb(append pb<br />         (list (cons 10 (nth 0 x))<br />               (cons 40 (nth 1 x))<br />               (cons 41 (nth 2 x))<br />               (cons 42 (nth 3 x))<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 />         pb) )<br />   (if (/= -1 color) (setq en000 (append en000 (list (cons 62 color)))))<br />   (if (= nil (entmake en000)) (princ "\n制造 LWPL 制造失败.")  )<br /> )<br /> <br /> (defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb)<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 /> <br />

第一个可以定义不同的凸度和线宽，
第二个定义相同的凸度和线宽.