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

jason6188 · 发表于 2004-6-25 00:52:00

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

cqnj023 · 发表于 2004-6-27 22:22:00

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 · 发表于 2004-6-25 07:17:00

;;;取得多义线第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 · 发表于 2004-6-29 18:49:00

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

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

发表回复

精选推荐