编程创建三维多段线

skg123

平时编程都是 创建 多段线，代码也比较容易找到。
做测绘的朋友都是知道，三角网的线采用的是 三维多段线绘制；
用 Entmake 这个代码创建图元的代码实在难找，功夫不负有心人，被我找到了；
找了一晚上，终于在大神 高飞鸟 的博客中找到一段代码
https://www.highflybird.cn/drupal/node/148

我自己做了一个测试程序，分享给大家

2. (defun c:test ()
   
3. (setq pts '((102.946 68.6354 33) (112.102 97.4851 13) (125.484 59.4879 3) (103.651 52.4513 53))
   
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 33) (112.102 97.4851 13) (125.484 59.4879 3) (103.651 52.4513 53))<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 /> )

999999

感谢大神的研究并分享

ynhh

感谢
多找点精彩的来分享

gzxl

不是吧，这很多年就有了。
比如这里 http://bbs.mjtd.com/thread-99515-1-1.html

czb203

感谢大神的研究并分享

skg123

gzxl 发表于 2022-5-8 13:30
不是吧，这很多年就有了。
比如这里 http://bbs.mjtd.com/thread-99515-1-1.html

有时候没有发现