免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

楼主: zrjyzhao1
收起左侧

[求助] 高手求教:如何批量提取CAD图中拐点坐标,并导出坐标?.txt文件

  [复制链接]

0

主题

76

铜板

0

好友

实习生

Rank: 1

积分
7
发表于 2012-10-18 15:36 | 显示全部楼层
yuanziyou 发表于 2011-10-31 19:05
1.用"ap"命令加载附件里的文件(最好是点击右边 公文包图标下的"内容"添加到启动组)
2.输入命令"xzb"(如果 ...

你好,我CAD图上有很多三点和标注,能不能编一个小程序全部提取坐标和标注到txt或excel.

网上找到一个有错误,而且只能提取坐标,不能提取标注

源程序:
(defun c:zhhua()
(princ "\n框选所需输出的点:")
(setq ss (ssget ))
(setq n (sslength ss))
(setq ff (open (getfiled "文件保存为" "c:" "txt" 1) "w"))
(setq i 0)
(repeat n
  (setq spt (ssname ss i ))
  (setq ept (entget spt))
  (if (= (cdr (assoc 0 ept)) "POINT")
    (progn
      (setq lxyz (cdr (assoc 10 ept)))
      (setq sy (rtos (nth 0 lxyz)))
      (setq sz1 (rtos (nth 2 lxyz)))
      (setq sxyz (strcat sx " " sy " " sz1))
      (write-line sxyz ff)
    )
  )
  (setq i (+ i 1))
);repeat
(princ "\n转换完毕")
)

; 错误: 参数类型错误: stringp nil,看看什么原因?再有能不能把标注桩号和坐标都一起从CAD里批量转化过来,麻烦你给完善一下,谢谢
回复 支持 反对

使用道具 举报

4

主题

1629

铜板

18

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
478
QQ
发表于 2012-11-4 10:17 | 显示全部楼层
受教了,谢谢!
回复 支持 反对

使用道具 举报

11

主题

2463

铜板

21

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
538
QQ
发表于 2013-7-19 11:06 | 显示全部楼层
yuanziyou 发表于 2011-10-31 19:05
1.用"ap"命令加载附件里的文件(最好是点击右边 公文包图标下的"内容"添加到启动组)
2.输入命令"xzb"(如果 ...

好东西,谢谢分享
回复 支持 反对

使用道具 举报

0

主题

59

铜板

0

好友

实习生

Rank: 1

积分
1
发表于 2013-7-21 13:58 手机频道 | 显示全部楼层
不错,学习了
回复 支持 反对

使用道具 举报

70

主题

7616

铜板

23

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
28870

宣传勋章灌水勋章贡献勋章

QQ
发表于 2013-7-21 21:15 | 显示全部楼层
过来学习学习,以后可能能用得上啊
回复 支持 反对

使用道具 举报

0

主题

50

铜板

0

好友

实习生

Rank: 1

积分
8
发表于 2013-9-8 11:36 | 显示全部楼层
好东西~~~~~~~~
回复

使用道具 举报

42

主题

4万

铜板

42

好友

地信贵宾

Rank: 13Rank: 13Rank: 13Rank: 13

积分
32631

宣传勋章灌水勋章贡献勋章

QQ
发表于 2013-10-17 16:34 | 显示全部楼层
我这里有个CAD提取坐标工具。
http://bbs.3s001.com/forum.php?m ... id=14929&extra=
回复 支持 反对

使用道具 举报

1145

主题

10万

铜板

2

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
21819

灌水勋章活跃勋章冰雪节勋章

QQ
发表于 2013-10-19 20:12 | 显示全部楼层
进来看看啦
加强科技支撑和引领  实现地质找矿新突破 。     
回复 支持 反对

使用道具 举报

0

主题

141

铜板

3

好友

技术员

Rank: 3Rank: 3

积分
32
发表于 2013-11-29 21:26 | 显示全部楼层
多谢多谢,先试试啊
回复 支持 反对

使用道具 举报

1

主题

184

铜板

0

好友

实习生

Rank: 1

积分
10
发表于 2014-3-10 00:06 | 显示全部楼层
坐标王 发表于 2011-11-2 10:34
坐标王5.0(简体中文版)---坐标标注、桩智能编号、坐标提取、桩放线、地籍测绘
可以解决你的问题

坐标王,您好!我想请问一下,为什么我在导出闭合多段线时无法选取对象?选取多段线提示找到0个……
11111111,,.jpg
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表