VBA选择集。选择一个li
你好我有这个密码；
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可以做到的吗？
任何建议都很好。
谢谢
汤姆 请阅读代码发布指南，并为您的代码使用代码标签。 你应该能够从这条线索中收集到你需要的东西。
页:
[1]