求助:怎样用entmake生成真彩色多段线

lht

已知：点P1和点P2，高程Z，线宽L，真彩色R、G、B值，请高手们用entmake帮写个生成多段线的函数。

ssyfeng

试试这个：

1. (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 420 (logior (lsh (fix R) 16) (lsh (fix G) 8) (fix B))) (cons 90 2) (cons 43 L) (cons 38 Z) (cons 10 pt1) (cons 10 pt2)))
   

(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 420 (logior (lsh (fix R) 16) (lsh (fix G) 8) (fix B))) (cons 90 2) (cons 43 L) (cons 38 Z) (cons 10 pt1) (cons 10 pt2)))<br />

lht

谢谢ssyfeng老师，函数很好用，达到了目的，真是高手！

longer1000

怎么用啊？？？？？？？？？