VBA选择集。选择一个li

callvey · 发表于 2022-7-6 22:20:52

你好

我有这个密码；

Sub selectABlockOnALayer（）
将sset设置为AcadSelectionSet
设置sset=ThisDrawing。选择集。添加（“例外-BLOCK3”）

Dim filterType作为变体
Dim filterData作为变体
尺寸p1（0到2）为双精度
尺寸p2（0到2）为双精度

Dim grpCode（0到1）为整数
grpCode（0）=8
grpCode（1）=2
过滤器类型=grpCode

Dim GRP值（0到1）作为变量
GRP值（0）=“FXPM”
GRP值（1）=“4PLUG”
filterData=GRP值

sset。选择acSelectionSetAll、p1、p2、filterType、filterData

调试。打印“实体：”&str（sset.count）

sset。删去

末端接头
我知道代码只在一个层上选择一种类型的块，但我甚至不能让它工作！

我试图选择89个不同类型的块，存在于一个特定的层。

这是用VB可以做到的吗？

任何建议都很好。

谢谢

汤姆