如何用vba抓取cad中的数据？

laisme888 · 发表于 2019-12-8 21:41

如图所示，需要把CAD中黄色圈圈中的数据抓取到excel中去，如何实现呢？

Dim CADDoc As AcadDocument
Set CAD = GetObject(, "AutoCAD.Application")
CAD.Visible = True
直接调用CAD 用 CAD的selectionsets 获取你想要的数据

蓝桥玄霜 · 发表于 2019-12-9 10:21

有个“明经通道”论坛是专门讨论ACADVBA的。

laisme888 · 发表于 2019-12-9 16:08

蓝桥玄霜发表于 2019-12-9 10:21
有个“明经通道”论坛是专门讨论ACADVBA的。

谢谢版主

yes363001640 · 发表于 2019-12-9 19:15

蓝桥玄霜发表于 2019-12-9 10:21
有个“明经通道”论坛是专门讨论ACADVBA的。

有邀请码吗

我是来讨说法的 · 发表于 2019-12-10 22:46

了解一下autolisp

jgs315d · 发表于 2019-12-11 00:18

CADVBA~哇~这里貌似没有玩这个的~

xiaocake · 发表于 2019-12-11 08:39

获取选择集后，依次遍历选择集中的每个对象，检查对象类型，这里是要找文本（单行文字或多行文字），可能文本是在块参照里面，那就要再去遍历块参照中的对象，判断是不是想要的对象(文本)，是的话取得文本的值就可以了。CAD2010及以上版本的VBA模块需要单独安装，64位的CAD2010~2014的VBA有问题，所以如果是64位的CAD要用VBA开发，建议使用CAD2015及以上版本。

		自动登录	找回密码
密码			免费注册

[求助] 如何用vba抓取cad中的数据？