怎样得到一根pline的各个结点的坐标

citykunan · 发表于 2004-1-14 17:13:00

怎样得到一根pline的各个结点的坐标？

wb0815 · 发表于 2004-1-14 17:14:00

(defun c:test ()
(vl-load-com)
(setq obj (car (entsel "\nSelect a Polyline: ")))
(MASSOC 10 (entget obj))
)
(defun massoc (key alist / x nlist)
(foreach x alist
(if (eq key (car x))
(setq nlist (cons (cdr x) nlist))
)
)
(reverse nlist)
)

citykunan · 发表于 2004-1-14 17:19:00

谢谢。

BDYCAD · 发表于 2004-1-14 17:27:00

好!

无痕 · 发表于 2004-1-16 13:11:00

本帖最后由作者于 2004-1-27 4:12:13 编辑

好程序

无痕 · 发表于 2004-1-16 15:01:00

本帖最后由作者于 2004-1-27 4:12:55 编辑

二楼的是对lwpline，不是pline啊

urljit · 发表于 2004-1-26 20:09:00

楼主是说plyline还是lwpline？

账号		自动登录	找回密码
密码			注册