Question

急求。AutoCAD中如何批量导出很多文字的xyz坐标。

如图。每个文字特性里边都会有xyz坐标。但我想把它批量导出来。有什么办法吗？
可用的话可以追很多分
好吧我已经解决了。有人遇到相同问题私信我就好了

Answer 1

你好，有以下几种方法供你参考：
第一
1、把要导出点位坐标的点，用pline方式连接起来。
2、在CAD命令行输入list命令，选择开始用pline方式画出的多线段，回车。
3、在弹出的list对话框中会详细显示点位的信息，如果点没有显示完全，继续回车，直到所有的点均显示为止。
4、copy第三步显示的信息进TXT或者其实格式的文档，替换掉不需要的文字，这个时候就是纯的坐标数据了。保存。
5、CAD坐标和测量坐标的X、Y是相反的。如果测量软件只支持xy格式的点，那么就需要把第4步保存的文件的xy互换下位置，
即把CAD中的X换为测量坐标的Y，把CAD的Y换为测量坐标的X。方法是用EXCEL打开第4步保存的文件，交换X、Y即可。

第二

CAD
坐标数据批量导出小工具

(defun c:md()
(setvar "cmdecho" 0)

(COMMAND ".UNDO" "BE")
(command "-units" "2" "3" "2" "3" "" "")
(setq fp (open "d:/
桩号坐标值
.xls" "a") s (getvar "cmdecho") n (getint "\n
请输入总桩数！

"))
(princ "
桩号
" fp)(princ "\t" fp)
(princ "X
坐标值
" fp)(princ "\t" fp)
(princ "Y
坐标值
" fp)(princ "\n" fp)
(repeat n

(setq k (getstring "\n
输入桩号（如：
K1
）
！
")
p (getpoint "\n
选取节点！
")
x (strcat "X=" (rtos (nth 1 p)))
y (strcat "Y=" (rtos (nth 0 p))))
(princ k fp)(princ "\t" fp)
(princ x fp)(princ "\t" fp)
(princ y fp)(princ "\n" fp))

(close fp)
(setvar "cmdecho" s))
(princ "\n
提示：输入

MD
命令来运行本程序！
")
(princ)
1
、

打开记事本，粘贴以上代码，然后保存成

md.lsp
2
、

打开
CAD
并加载这个小程序
（在命令行输入
appload
，
选择加载
md.lsp
程序）
，
将
md.lsp
复制在
support
文件夹下后可自动加载
(cad2006
不支持自动加载）
。

3
、

输入
md
运行命令，输入桩数，再输入桩号，再选择点，完成后，保存
CAD
文件，关
闭
CAD
，打开
D
盘你就会看到生成一个文件
“
桩号坐标值
.xls”
的
Excel
文件，打开，如下格式

桩号

X
坐标值

Y
坐标值

k1 X=1073.205 Y=1028.341
k2 X=2193.676 Y=922.327
k3 X=1752.278 Y=595.802
桩号

X
坐标值

Y
坐标值

1 X=877.972 Y=1257.333
2 X=2360.883 Y=1257.333
3 X=1578.266 Y=281.999