创建特定选择

dkiellor · 发表于 2022-7-6 22:54:58

嘿，伙计们，我对这类事情还不熟悉，我有点小麻烦。我目前正试图整合一个宏，将我的标题栏信息从所有布局表导出到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。删去
退出
如果结束
下一个
如果结束
末端接头

SEANT · 发表于 2022-7-6 23:45:59

该设置“intCode（1）=67:varData（1）=0”将选择过程仅限于模型空间。要仅为纸面空间重新分类，它将是：“intCode（1）=67:varData（1）=1”

然而，根据下游情况，可能需要额外处理来隔离特定布局。

dkiellor · 发表于 2022-7-7 00:23:06

干杯，肖恩，我要去看戏。
当做
戴夫

[编程交流] 创建特定选择

发表回复

精选推荐