急!! 請問如何自動得到多義線的各個點的清單

wangyue · 发表于 2004-2-6 10:13:00

請問如何自動得到多義線的各個點的清單

kaixin119 · 发表于 2004-2-6 10:19: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)
)

wangyue · 发表于 2004-2-6 10:49:00

謝謝您
如果是AcDbPolygonMesh怎麼辦

急!! 請問如何自動得到多義線的各個點的清單

发表回复

精选推荐