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

(defun c:tqzb()
\x05 (setq ff (open (getfiled "文件保存为" "d:/" "txt" 1) "w"))
\x05 (setq ents "")
(setq i 1)
\x05 (while
\x05 (setq pt (getpoint "\n 点击输出坐标的点:"))
\x05 (setq s (strcat (itoa i ) " " (rtos (nth 1 pt) 2 4) " " (rtos (nth 0 pt) 2 4) " " (rtos (nth 2 pt) 2 4)))
\x05 \x05 (write-line s ff)
\x05 \x05 (princ "\n")
\x05 \x05 (princ (strcat "\n　已输出的文字为'" s "'"))
\x05 \x05 (setq ents "")
(setq i (+ 1 i))
\x05 )
\x05
)
(prompt "\n 提醒 提取坐标到文本程序已加载,键入 tqZB 启动本程序")
;;;程序结束
将以上文字复制到记事本,保存,将后缀名改为lsp,在工具栏加载本插件,再在命令行输入tqzb,回车,就可按点击提取三维坐标了.那请问高程怎么写入？不是怎么写入，而是怎么读取，如果你的图纸有三维坐标（含高程），那么，你点击后就有三维坐标，如果高程无，就显示为零，如果你要三维坐标展点，那么你就用南方CASS7.1~9.0就OK了，