lzhanddsh 发表于 2008-7-3 14:24:00

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

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

miaozx2000 发表于 2010-9-20 16:04:00

<p>有没有高手回答这个问题</p>
<p>、</p>

雪山飞狐_lzh 发表于 2010-9-20 17:01:00

PolyLine3d

skg123 发表于 2022-5-7 21:05:23

(defun c:test ()
(setq pts '((102.946 68.6354 3) (112.102 97.4851 3) (125.484 59.4879 3) (103.651 52.4513 3))
Closed 1
)
(Ent:Make_Poly pts 1)
)
(defun Ent:Make_Poly (pts Closed / e)
(if (=Closed 1)
    (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 9))))
    (setq e (Entmake (list '(0 . "POLYLINE") '(70 . 8))))
)
(foreach p pts
    (entmake (list '(0 . "VERTEX") '(70 . 32) (cons 10 p)))
)
(entmake '((0 . "SEQEND")))
(entlast)
)
页: [1]
查看完整版本: [求助]如何绘制三维多段线？