[求助]如何绘制三维多段线？

lzhanddsh

CAD里展绘了三维点实体，想编写代码实现绘制三维多段线，即将点连成三维多段线，请问如何处理？

miaozx2000

有没有高手回答这个问题

、

雪山飞狐_lzh

PolyLine3d

skg123

2. (defun c:test ()
   
3. (setq pts '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))
   
4. Closed 1
   
5. )
   
6. (Ent:Make_Poly pts 1)
   
7. )
   
8. (defun Ent:Make_Poly (pts Closed / e)
   
9.   (if (=  Closed 1)
   
10.     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))
    
11.     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 8))))
    
12.   )
    
13.   (foreach p pts
    
14.     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))
    
15.   )
    
16.   (entmake '((0 . "SEQEND")))
    
17.   (entlast)
    
18. )

(defun c:test ()<br /> (setq pts '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))<br /> Closed 1<br /> )<br /> (Ent:Make_Poly pts 1)<br /> )<br /> (defun Ent:Make_Poly (pts Closed / e)<br />   (if (=  Closed 1)<br />     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))<br />     (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 8))))<br />   )<br />   (foreach p pts<br />     (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))<br />   )<br />   (entmake '((0 . "SEQEND")))<br />   (entlast)<br /> )