CAD的坐标、高程怎么提取？

(defun c:tqzb()
(setq ff (open (getfiled "文件保存为" "d:/" "txt" 1) "w"))
(setq ents "")
(setq i 1)
(while
(setq pt (getpoint "\n 点击输出坐标的点:"))
(setq s (strcat (itoa i ) " " (rtos (nth 1 pt) 2 4) " " (rtos (nth 0 pt) 2 4) " " (rtos (nth 2 pt) 2 4)))
(write-line s ff)
(princ "\n")
(princ (strcat "\n　已输出的文字为'" s "'"))
(setq ents "")
(setq i (+ 1 i))
)

)
(prompt "\n 提醒 提取坐标到文本程序已加载，键入 tqZB 启动本程序")
;;;程序结束
将以上文字复制到记事本，保存，将后缀名改为lsp，在工具栏加载本插件，再在命令行输入tqzb，回车，就可按点击提取三维坐标了。

专门有这方面程序，平面坐标、高程都可以提取，演示如下： 

楼上说的很对,楼上是高手

坐标你可以再网上下载一个坐标插件 安装就可以用了 很方便的

id 查询坐标