求助：因为要用全站仪放线，请问如何快速的从cad中导出点的坐标到excel中？因为不知道方法，我只好先用鼠标选定，再手抄下来，然后输入excel，这样费时又容易出错，高手多多帮忙，谢谢！
求助：因为要用全站仪放线，请问如何快速的从cad中导出点的坐标到excel中？因为不知道方法，我只好先用鼠标选定，再手抄下来，然后输入excel，这样费时又容易出错，高手多多帮忙，谢谢！
2楼
这个兄弟还要这个吗？建议你搜索下，在baidu或着谷歌之类的，关键字：CAD 提取坐标
保证能找到想要的
回复
3楼
一个快速读控制点的方法：（转）
本方法可以完成以下工作，读控制点坐标、形成坐标表、在图上打点并标上控制点编号。优点是快速、准确、方便修改。
1、把原图转化到原始坐标系中去。
2、用pline将你要读的控制点连接起来，如果中间发觉漏点（：〉面壁）了可以将pline打断，把漏掉的点补上。
3、list这个pline看看，是不是所有的坐标点都出来了？
4、把它复制到word或者notepad里，用替换功能将你不想要的东西替换掉，最终只剩余你所想要的坐标。
5、把坐标复制到excel里，并对其进行编号，控制点坐标表就有了。然后把它插到cad中就ok了。
6、然后在excel里将坐标弄成xxx.xx，yyy.yy的形式，在回到cad里画个园点，copy，m，选基点（园点中心），点cad命令栏，ctrl+V
刷 刷 刷，点就全部打上去了。
7、最后在每个点旁边写上控制点编号，这个有点繁琐。在回到excel里，将每个点加工成如下格式
text
xxx.xx，yyy.yy
4 文字高度
0 文字角度
Kn 对应控制点编号
enter，表示文字输入完毕
………………
………………
………………
然后回到cad，选中命令栏，ctrl+V，刷 刷 刷，编号就上去了，整齐划一。
哈哈，打完收工。
搞不明白的自己想去。
回复
4楼
非常感谢高手的帮忙！谢谢～！
回复
5楼
获得CAD坐标并输出到指定行.exe
回复
6楼
我试过了，真的很好用，说明一下，要将md.lsp文件考到support文件目录下，或者其他CAD的有效搜索路径下，这样就不用每次打开CAD现加载它，才能使用，考完后CAD就可以自动加载了！我是新手，所以给其他新手提个醒！
回复
7楼
md.lsp
回复
8楼
非常感谢各位朋友的热心帮助，谢谢！已经搞定。呵呵……
回复
9楼
非常感谢
谢谢大家
回复
10楼
看看能不能用
回复
11楼
(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 0 p)))
y (strcat "Y=" (rtos (nth 1 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)
回复
怎么用啊
