song宋_74729 发表于 2016-9-8 22:37:56

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

本帖最后由 song宋_74729 于 2022-8-7 20:05 编辑

是我要的结果 ,以下的源码只能一点的选择 不能提取点号 只能提取坐标高程,我的点号图层为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 发表于 2016-9-9 13:08:02

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

song宋_74729 发表于 2016-9-9 18:16:54

本帖最后由 song宋_74729 于 2022-8-7 20:05 编辑

fan_zh 发表于 2016-9-9 13:08 static/image/common/back.gif
都已经高级会员了，不应该啊
编号提取我没问题 点号就没办法
页: [1]
查看完整版本: 如何将点号坐标高程提取(已自行解决)