高手求教：如何批量提取CAD图中拐点坐标，并导出坐标?.txt文件

zrjyzhao1

高手求教：如何批量提取CAD图中拐点坐标，并导出坐标.txt文件?
     工作中需要将地籍图的一些点的坐标提取并添加在.txt文件中上报，我们的做法是，在CAD里点取坐标， 然后在旁边坐标表格里修改，最后再一个个地输入到记事本里，太麻烦了并且有手工输错的可能，请教高手看看如何解决？

yuanziyou

zrjyzhao1 发表于 2011-10-31 08:37
非常感谢，两种情况都存在。能否讲得详细点呢？需要的是测量上的平面直角坐标，横轴为Y,纵轴为X。纵轴X正 ...

1.用"ap"命令加载附件里的文件(最好是点击右边 公文包图标下的"内容"添加到启动组)
2.输入命令"xzb"(如果想改命令,用记事本打开文件,把第三行的"xzb"替换成自己想要的)
3.可一次性选择多个对象
4.文本格式为:  点号,北,东
(点号是流水编号)
多线段坐标写入文本xzb.zip (634 Bytes, 下载次数: 3250)

2011-10-31 19:05 上传

点击文件名下载附件

yuanziyou

zrjyzhao1 发表于 2011-11-1 14:10
非常好，但是还有一些问题请教专家：1、文本里提取的坐标序号是按什么提取的呢？2、最好能自动提取CAD图形 ...

你最终需要的结果是怎么样的?
如果需要和图上匹配起来,我建议将复合先转为权属线,再生成界址点表,.这样可以非常清晰的知道对应情况
操作步骤: 1.地籍/复合线转为权属线
                2.地籍/绘制地籍表格/界址点成果表(excel)

==========================================
现在这段代码里是没有去匹配图上的点号,是根据节点数从1开始依次排列的;
我自己又用你的数据试了一遍,没出现你说的少点及重点的情况;
如果想将顺序改为: 点号,东(Y),北(X), 将第17行的   (rtos (caddr pp) 2 3)  与  (rtos(cadr pp) 2 3) 交换一下就行了.(其实lisp上手还是蛮快的,这段代码我也是用人家的代码小改了下,接触lisp的时间不超过1周);
==========================================
再附上一个其他地方看到的小程序: 在图上生成界址点表(命令:jzd) 生成界点号坐标表.(Jzd).LSP.zip (10.98 KB, 下载次数: 1124)

2011-11-1 19:20 上传

点击文件名下载附件

yuanziyou

1.如果是提取多段线拐点坐标,你可以写上最后需要的txt文件的格式,我把我手里的lisp改下.
比如:
点号,北坐标,东坐标
2.如果是散点,你可以先在图上用多线段连接,不用编程,用list命令,复制到记事本,查找替换即可

zrjyzhao1

yuanziyou 发表于 2011-10-28 17:48
1.如果是提取多段线拐点坐标,你可以写上最后需要的txt文件的格式,我把我手里的lisp改下.
比如:
点号,北坐 ...

非常感谢，两种情况都存在。能否讲得详细点呢？需要的是测量上的平面直角坐标，横轴为Y,纵轴为X。纵轴X正的一端（北端）为方位角0°，顺时钟角度增加；横轴Y右端（东端）为90°、纵轴负的一端（南端）为180°、横轴Y左端（西端）为270°，坐标象限划分按照顺时针。正好与数学上的平面直角坐标相反

另外lisp,怎么加载呢，我刚接触CAD不长时间

lyj19571203

学习，谢楼主分享！

zrjyzhao1

yuanziyou 发表于 2011-10-31 19:05
1.用"ap"命令加载附件里的文件(最好是点击右边 公文包图标下的"内容"添加到启动组)
2.输入命令"xzb"(如果 ...

非常好，但是还有一些问题请教专家：1、文本里提取的坐标序号是按什么提取的呢？2、最好能自动提取CAD图形各节点的原始编号和坐标，这样的话就不用直接再去分辨文本的点编号与图形里的编号的对应关系了。3、如果输出文本按“序号、Y(东)、X(北)”西式需要怎样修改呢？
还请不吝赐教!

zrjyzhao1

yuanziyou 发表于 2011-10-31 19:05
1.用"ap"命令加载附件里的文件(最好是点击右边 公文包图标下的"内容"添加到启动组)
2.输入命令"xzb"(如果 ...

非常好，但是还有一些问题请教专家：1、文本里提取的坐标序号是按什么提取的呢？2、最好能自动提取CAD图形各节点的原始编号和坐标，这样的话就不用直接再去分辨文本的点编号与图形里的编号的对应关系了。3、如果输出文本按“序号、Y(东)、X(北)”西式需要怎样修改呢？
还请不吝赐教!
4、按1,306492.803,514386.892
2,306491.465,514398.186
3,306491.457,514399.572
4,306484.765,514399.56
5,306448.822,514380.418       
的闭合图形得到的是txt文本
1,306492.803,514386.892
2,306491.465,514398.186
3,306491.457,514399.572
4,306484.765,514399.56
5,306484.765,514399.56也就是有两个点是同一个坐标，如果是不闭合图形终会少一个点的坐标值，还请完善一下程序。

zrjyzhao1

yuanziyou 发表于 2011-11-1 19:19
你最终需要的结果是怎么样的?
如果需要和图上匹配起来,我建议将复合先转为权属线,再生成界址点表,.这样可 ...

谢谢高手的帮忙，只有拿周立波的贫段来答谢一下：周立波:
流氓不一定没编制，比如城管；流氓不一定没文化，比如叫兽；流氓不一定没职称，比如砖家；流氓不一定没荣誉，比如共和国脊梁；流氓不一定没名片，比如华商主席；流氓不一定没微博，比如去开房的干部；流氓不一定没信仰，比如党内的贪官。

chdy81

很强大，学习了