如何将点号坐标高程提取(已自行解决)

song宋_74729

是我要的结果 ,以下的源码只能一点的选择 不能提取点号 只能提取坐标高程,我的点号图层为CPTname希望大师能够将修改为提取点号坐标高程 谢谢

(defun c:pi()

   (setq ff(open (getfiled "档保存为""d:/" "txt" 1) "w"))

   (setq ents"")

   (while

          (setq pt (getpoint "\n 读取输出坐标的点:"))

          (setq s (strcat (rtos (nth 1 pt) 2 3) "     " (rtos (nth 0 pt) 2 3) "     " (rtos (nth 2 pt) 2 3)))

          (write-line s ff)

       (princ "\n")

       (princ  (strcat "\n　已输出的文字为'" s "'"))

        (setqents "")

   )

)

fan_zh

都已经高级会员了，不应该啊

song宋_74729

fan_zh 发表于 2016-9-9 13:08
都已经高级会员了，不应该啊

编号提取我没问题 点号就没办法