[求助]：请高手看看关于variant的问题

sccat

我想判断getxdata返回的variant 是否empty，然后将里面的东西变成字符串返回，怎么不行啊？发生致命错误．

请高手指点一下．


Private Sub CommandButton2_Click()
Dim ssetObj As AcadSelectionSet
Dim elem As AcadObject
Dim DataType As Variant
Dim Data As Variant
   
    On Error Resume Next
    ThisDrawing.SelectionSets("text").Delete
    Set ssetObj = ThisDrawing.SelectionSets.Add("text")
    Err.Clear
    On Error GoTo 0
   
    ' Add objects to a selection set by prompting user to select on the screen
    'While (True)
selectagain:
    ssetObj.SelectOnScreen
    For Each elem In ssetObj
   
        If Right(elem.ObjectName, 4) = "Text" Then
        elem.GetXData ApplicationName, DataType, Data
        If IsEmpty(Data) <> True Then
            'Label1.Caption = CStr(Data(0)) + " " + CStr(Data(1)) + " " + CStr(Data(2))
            Label1.Caption = CStr(Data(0))
        End If
        End If
              
        
        
    Next

   
   
   If ssetObj.Count <> 0 Then
   ssetObj.Clear
   GoTo selectagain
   End If
   
    ssetObj.Delete
End Sub

雪山飞狐(lzh)

为什么要用Goto语句？改用While循环试试，另选择集清空的做法不好，应该先删除，再建立

sccat

选择集清空的做法不好，应该先删除，再建立?

怎样做啊?

jsnjwang1024

选择集构造的有问题.

雪山飞狐(lzh)

提供一种方法，可以用扩展数据中的1001组码做过滤器，可以省略判断

关于选择集的用法，参见下面的帖子
http://www.xdcad.net/forum/showthread.php?s=&threadid=294720