创建特定选择
嘿，伙计们，我对这类事情还不熟悉，我有点小麻烦。我目前正试图整合一个宏，将我的标题栏信息从所有布局表导出到excel。我发现了一些与选择集非常相似的东西，但它只读取模型空间。我似乎也不明白为什么它只读取模型空间。这是这幅画的一部分吗。效用变量？它是否可以读取drg中的所有布局？任何帮助都会很好。
干杯
戴夫
这是我之前找到的脚本
子GetNamedInserts（）
Dim entbref作为AcadBlockReference
作为AcadSelectionSet的Dim Tempobjs
Dim intCode（2）为整数
Dim varData（2）作为变型
将strName设置为字符串
strName=此图纸。公用事业GetString（0，“标题栏：”）
SSInit公司
设置TempObjSS=ThisDrawing。选择集。添加（“临时设置”）
intCode（0）=0:varData（0）=“插入”
intCode（1）=67:varData（1）=0
intCode（2）=2:varData（2）=strName
TempObjSS。选择acSelectionSetAll、intCode、varData
MsgBox“There are”和tempobjs。在模型空间中计数和“插入引用”&strName&“插入”
末端接头
子SSInit（）
将SSS设置为AcadSelectionSets
将SS设置为AcadSelectionSet
设置SSS=ThisDrawing。选择集
如果SSS。然后计数>0
对于SSS中的每个SS
如果SS。Name=“TempSSet”然后
SS。删去
退出
如果结束
下一个
如果结束
末端接头 该设置“intCode（1）=67:varData（1）=0”将选择过程仅限于模型空间。要仅为纸面空间重新分类，它将是：“intCode（1）=67:varData（1）=1”
然而，根据下游情况，可能需要额外处理来隔离特定布局。 干杯，肖恩，我要去看戏。
当做
戴夫
页:
[1]