skg123 发表于 2022-5-7 21:12

编程创建三维多段线

本帖最后由 skg123 于 2022-5-9 14:11 编辑



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

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




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



999999 发表于 2022-5-8 09:15

感谢大神的研究并分享

ynhh 发表于 2022-5-8 09:25

感谢
多找点精彩的来分享

gzxl 发表于 2022-5-8 13:30

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

czb203 发表于 2022-8-12 10:02


感谢大神的研究并分享

skg123 发表于 2023-12-15 16:03

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

有时候没有发现:lol
页: [1]
查看完整版本: 编程创建三维多段线