Question

CAD怎么按桩号导出坐标

Answer 1

CAD按桩号导出坐标步骤如下。

1、首先要把要编号的图纸定好位，图纸要按照总平面图定好位的图形，否则导出来的坐标是不对是。举例：已给两个已知点的坐标并把图定好位置，图片中红色框内的坐标就是给予的坐标点并已做好图纸。

2、接下来检查要编号的桩位是哪个图层的，且桩位的圆和别的图层是不是一起成块的，如果是那就把所有的桩位都分解。

3、在工具栏里面找到“工具”，点击“工具”在下拉列表里选“加载应用程序”，弹出窗口，在查找范围里面找到摆放的CAD插件-VLX格式，鼠标左键单击后点击“加载”，加载成功后关闭窗口。

4、在命令栏里输入gczbh后按回车键，提示你输入桩径，看图的圆是多大就输多少，例如图纸中桩径是600，那就输入600后按回车键，输入起始编号1后按回车键。

5、然后提示输入要编号的圆所在的图层，刚才在第二步已看了桩位圆的图层，例如图纸的图层是桩，就在命令行输入桩字后按回车键，命令行出现选择对象。

6、用鼠标左键点击要编号的图纸，图中的左上角红色框内是鼠标左键开始点，右下角的红色框内是终止点，从开始点到终止点之间过程中鼠标左键一直按着，到了终点要点击一下鼠标左键，如果没有全选还可以按着这个方法继续选择你要编号的圆。

7、桩位圆全部选中后，点击鼠标右键，弹出窗口点击“保存”，保存前选择你要保存的位置。

这样CAD就按桩号将坐标导出了。

Answer 2

桩编号就用“工程桩自动编号并提取坐标程序”，百度搜索此程序即可。该程序可对任何对象、按任意顺序、任意位置进行编号并提取桩位坐标，提取的坐标可为相对坐标或绝对坐标（新增）；同时，程序内部隐含：消除重叠对象、消除相同编号、消除重选编号（新增）等功能；且界面清晰友好、操作简便，可大幅度提高桩基施工编号和放样效率。

Answer 3

第一
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

追问

第二个好复杂啊 完全看不懂，能加QQ指导么？第一个的桩号是要自己手打出来是么？

Answer 4

第一
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

Answer 5

专门有按桩号导出坐标的程序，演示如下