请问使用VBA如何快速从一个DWG文件中获得数据呢？

Alleria

我是这样来做的 Dim entry As AcadEntity
For Each entry In acadDoc.ModelSpace 。。。 Next 如果知道了其中想要获得对象的名称，能有快速获得这个对象的方法么？ 谢谢！

myfreemind

有智能提示的

Alleria

不过，这一过程我主要是用VB编写一个控件来进行的，然后在网页中调用，


我想在文件中找到的对象是个BLOCKREFERENCE，如果处理的文件很多，文件中的对象也很多的话，用我那种查找的方式很慢！


请问有更好的方法么？


谢谢！

mccad

用选择集+过滤器。

Alleria

我这样来写的 Dim oSelectionSet As AcadSelectionSet
Dim aFilterType(0) As Integer
Dim aFilterData(0) As Variant
Dim aCorner1(0 To 2) As Double
Dim aCorner2(0 To 2) As Double

aCorner1(0) = -10000: aCorner1(1) = -10000: aCorner1(2) = 0
aCorner2(0) = 10000: aCorner2(1) = 10000: aCorner2(2) = 0


Set oSelectionSet = acadDoc.SelectionSets.Add("SS4")

aFilterType(0) = 0
aFilterData(0) = "Block Reference"
aFilterType(1) = 2
aFilterData(1) = "tb*"
oSelectionSet.Select acSelectionSetAll, aCorner1, aCorner2, aFilterType, aFilterData
总是获得不了我想要的Block Reference，获得其它的Text,Line没有问题， aFilterData(0) = "Block Reference"到底该怎么写呢？我试过很多种写法了 谢谢！

雪山飞狐_lzh

"Insert"

Alleria

感谢大家的回答:)

libetterma

高手很多哦

Alleria

查找PolyLine的时候，过滤条件中对象的类型该写什么呢？


哪里有这种对照的详细说明呢？


谢谢！

雪山飞狐_lzh

命令行输入


(entget(car(entsel)))


查看对象的DXF组码