如何才能快速提取多个点的三维坐标（XYZ）

htys24101

最近工作上需要提取很多个点的三维坐标到EXCEL中，用PLINE线只有二维，用LINE线每次只能提2个坐标，用3dploy命令提取的坐标信息太多，请各位师傅们能不另赐教，谢谢

Gu_xl

你想从哪儿获取三维点呀？是line还是point还是lwpolyline,你说清楚点！

bmy07

回复 Gu_xl 的帖子

版本你好，又要麻烦你了，如何提取三维多段线每个点的坐标

Gu_xl

回复 bmy07 的帖子

1. (defun c:tt(/ en enl pts)
   
2.   (setq en (car (entsel "选择3dpolyline")))
   
3.   (while (= (cdr (assoc 0 (setq enl (entget (setq en (entnext en)))))) "VERTEX")
   
4.     (setq pts (cons (cdr (assoc 10 enl)) pts))
   
5.     )
   
6.   (reverse pts)
   
7.   )
   

(defun c:tt(/ en enl pts)<br />   (setq en (car (entsel "选择3dpolyline")))<br />   (while (= (cdr (assoc 0 (setq enl (entget (setq en (entnext en)))))) "VERTEX")<br />     (setq pts (cons (cdr (assoc 10 enl)) pts))<br />     )<br />   (reverse pts)<br />   )<br />

bmy07

回复 Gu_xl 的帖子

怎么这么简单，特别感谢

yinmonkey

Gu_xl 发表于 2011-3-31 18:13
回复 bmy07 的帖子

为什么提取出来的顶点坐标精度XY只有小数点后2位，Z为小数点后3位，如何设置才能提取小数点后5位！谢谢