[求助]：紧急求助：怎样一次性查出指定图层里同种对象的坐标值？

shenxuhui403

各位专家、大虾、高手、版主：本人今日遇到难题了。
我是搞地质的，但是我们单位的数字化程度不高，一直用CAD作图，没有使用GIS系统。我们在野外填图的时候，也就没有使用GPS之类的精确定点设备，只是凭眼睛看看差不多在地图上用铅笔随便点的。现在有一张图，我们手工在上面点了300多个地质点，整张图我已经用CAD清绘好了，当然上面的点也是看看差不多随便点上去的。
现在的问题是：经省国土资源厅专家检查，认为我们这样做不行，所有的地质点一定要有坐标值才行。也就是说我必须把图上地质点的坐标全部读出来。一个个读太麻烦了啊，有没有什么办法能够一次把这些点的坐标值读出来，并存为文本文件？当然，这些点是在同一个图层里的，均为1mm直径的圆形对象。

aichong

;;;圆心坐标写出到文本文件
(defun c:test1 ()
  ;(CMDLA0)
  (setq ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)
ff  (open ffn "w")
ss  (ssget '((0 . "CIRCLE")))
i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq pt (dxf 10 (entget s1))
   tx (strcat (rtos (car pt) 2 3)
       " "
       (rtos (cadr pt) 2 3)
       " "
       (rtos (caddr pt) 2 3)
      )
    )
    (write-line tx ff)
  )
  (close ff)
  (princ (strcat "\n 坐标写至=>" ffn))
  ;(CMDLA1)
  (princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
注：若为点的话，将 ss  (ssget '((0 . "CIRCLE")))
改为： ss  (ssget '((0 . "POINT")))

shenxuhui403

楼上的长老：以上代码怎么用啊？本人虽不是超级菜鸟，但是二次开发的玩意儿从来都不懂，一直都是用现成的。

刚才试了一下，把上面的代码保存为zb.lsp文件，然后在CAD中加载，CAD命令行中立刻出现“选择对象”字样。但当我选择一个圆形对象并回车后，出现的还是“选择对象”字样，再回车，则什么也没有了。请教具体应用方法，多有感谢了！

就一砖头

是保存在自己cad 那个编程的程序里保存么  具体怎样用呀！ 请指教！

shenxuhui403

还有一个问题：加载后，在命令行中输入“zb”没有什么反应啊，提示“未知命令”。

aichong

启动命令为：test1
当然也可以改为zb：将第2行(defun c:test1 ()
改为：(defun c:zb ()，即可
这个程序根据纵坐标的大小输出（即Y坐标小的在前面），读取小数点的位数由CAD的单位定。
这个程序支持框选，也可以单选，选择结束后回车即生成文本文件：坐标.txt

shenxuhui403

果然如此，非常感谢！！！

科技工作者

好办法，我也正要这个功能呢，但由于本人较菜，能做个安装文件就好了，谢谢

shenxuhui403

经多次检验，这个方法有个问题：即输出的坐标并非如长老说的“根据纵坐标的大小输出（即Y坐标小的在前面）”，而是没有任何规律的一堆坐标。只能把它们粘贴到EXCEL表格中再次排序才行。希望aichong 长老能再次不吝赐教，再次感谢！

aichong

呵呵，这个不是我写的，我也不知道怎么修改。