[求助]这样的程序怎么改能选择图形中的块

freshclue

Dim blkDef As AcadBlock '定义块变量
Dim sset As AcadSelectionSet '定义选择集

On Error Resume Next
Set sset = ThisDrawing.SelectionSets("ssName")
If Err Then Set sset = ThisDrawing.SelectionSets.Add("ssName")
sset.Clear
Dim fType(0 To 1) As Integer, fData(0 To 1)
fType(0) = 0: fData(0) = "BLOCK": fType(1) = 8: fData(1) = "*"
sset.Select acSelectionSetAll, , , fType, fData

这些语句执行完成，查看sset，count值为0,但是图形中有块存在，请问怎么才能选择图形中的块呢？

sailorcwx

应该是"INSERT"不是“BLOCK”