[求助]提示Select 在SelectionSet上失败！请高手指教！！

esri

Dim mysel As AcadSelectionSet
dim gpcode(2) as integer
dim gpvalue(2) as variant
dim groupcode as variant
dim groupvalue as variant gpcode(0) = 0 : gpvalue(0) = "insert"
gpcode(1) = -4 : gpvalue(1) = "="
gpcode(2) = 2 : gpvalue(2) = blockr.name
groupcode = gpcode
groupvalue = gpvalue
set mysel = acaddoc.SelectionSets.Add("mysel")
mysel.select acSelectionSetAll,,,groupcode,groupvalue 在运行到mysel.select acSelectionSetAll,,,groupcode,groupvalue这句时，提示Select 在SelectionSet 上失败！请高手指教！！

王咣生

你写的还挺离谱:

<RE class=Code>Sub Example_Select()
    ' This example adds members to a selection set, first by crossing and
    ' then by filtering for circles.
   
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
   
   
    ' Add all object to the selection set that lie within a crossing of (28,17,0) and
    ' (-3.3, -3.6,0)
    Dim mode As Integer
    Dim corner1(0 To 2) As Double
    Dim corner2(0 To 2) As Double
   
    mode = acSelectionSetCrossing
    corner1(0) = 28: corner1(1) = 17: corner1(2) = 0
    corner2(0) = -3.3: corner2(1) = -3.6: corner2(2) = 0
    ssetObj.Select mode, corner1, corner2
   
    ' Add all the Circles to the selection set that lie within the crossing of (28,17,0) and
    ' (-3.3, -3.6,0) by filtering from the current drawing
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Circle"
   
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    ssetObj.Select mode, corner1, corner2, groupCode, dataCode
   
End Sub</PRE>

esri

blockr是我得到的AcadBlockreference对象 blockr.name 是我得到了块名，经检查确实得到了。 acaddoc 是我得到的ActivateDocument 这也是没有错的 gpcode(0) = 0 : gpvalue(0) = "insert"
gpcode(1) = -4 : gpvalue(1) = "="
gpcode(2) = 2 : gpvalue(2) = blockr.name
我是想得到以blockr.name为过滤条件的选择集 Dim mysel As AcadSelectionSet
dim gpcode(2) as integer
dim gpvalue(2) as variant
dim groupcode as variant
dim groupvalue as variant gpcode(0) = 0 : gpvalue(0) = "insert"
gpcode(1) = -4 : gpvalue(1) = "="
gpcode(2) = 2 : gpvalue(2) = blockr.name
groupcode = gpcode
groupvalue = gpvalue
set mysel = acaddoc.SelectionSets.Add("mysel")
mysel.select acSelectionSetAll,,,groupcode,groupvalue mysel.select acSelectionSetAll,,,groupcode,groupvalue 这句就是过不去啊
我用的是VB

mccad

2.        Dim ss As AcadSelectionSet
3.        Set ss = CreatSSet
4.        Dim FilterType As Variant
5.        Dim FilterData As Variant
6.        Dim FType(1) As Integer
7.        Dim FData(1) As Variant
8.        FType(0) = 0
9.        FData(0) = "INSERT" '图元名
10.        FType(1) = 2
11.        FData(1) = "B-BTL"   '图块名
12.        FilterType = FType
13.        FilterData = FData
14.        ss.Select acSelectionSetAll, , , FilterType, FilterData

       Dim ss As AcadSelectionSet        Set ss = CreatSSet        Dim FilterType As Variant        Dim FilterData As Variant        Dim FType(1) As Integer        Dim FData(1) As Variant        FType(0) = 0        FData(0) = "INSERT" '图元名        FType(1) = 2        FData(1) = "B-BTL"   '图块名        FilterType = FType        FilterData = FData        ss.Select acSelectionSetAll, , , FilterType, FilterData

以下是用到的创建空白选择集的函数：

2. Function CreatSSet() As AcadSelectionSet
3.        On Error Resume Next
4.        ThisDrawing.SelectionSets("mccad").Delete
5.        Set CreatSSet = ThisDrawing.SelectionSets.Add("mccad")
6. End Function

Function CreatSSet() As AcadSelectionSet        On Error Resume Next        ThisDrawing.SelectionSets("mccad").Delete        Set CreatSSet = ThisDrawing.SelectionSets.Add("mccad") End Function