如何得到当前用户坐标系下复合线的顶点坐标？

jason6188

请教各位朋友：


　　如何得到当前坐标系下复合线的顶点坐标，并将这些坐标导出为文本文件？

cqnj023

2楼返回的是世界坐标系坐标，返回当前用户坐标系可把(foreach x Entlist
(if (equal (car x) 10)
(setq PLlist (cons (cdr x) PLlist))
)
改为(foreach x Entlist
(if (equal (car x) 10)
(setq PLlist (cons （trans (cdr x) 0 1) PLlist))
)

wzh

;;;取得多义线第M个顶点的坐标
(defun Passoc (m Entname / x Entlist PLlist)
(if Entname
(progn
(setq Entlist (entget Entname))
(foreach x Entlist
(if (equal (car x) 10)
(setq PLlist (cons (cdr x) PLlist))
)
)
(nth m PLlist)
)
)
) 生成文本文件你还是自己编吧，看看书........

jason6188

谢谢二位朋友，在你们的帮助下，问题已经解决！thank you！