[VBA函数]：[VBA函数]：紧急求助，关于选择对象

qiaqiadeng

请高手们帮我实现这样的一个功能：见附件，如果点取"选择"则窗口form1隐藏，然后在图纸空间里面选择对象，如果对象是文字对象，则在textbox1中显示文字的内容，如果选择的对象是多段线则在textbox1中显示该多段线的面积。附件是免币的。有劳各位了。    Set pl = ssetObj.Item(0)这条语句是将选择集里的第一个对象赋给pl对象，不知道怎么不行。

雪山飞狐(lzh)

应该是不难的，你先自己编编，有什么问题再问吧

qiaqiadeng

代码是这样的：
Private Sub CommandButton1_Click()
    Dim ssetObj As AcadSelectionSet
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    Dim point
    Dim pl As AcadPolyline
    Dim groupCode As Variant, dataCode As Variant
    Dim num, i As Integer
    'On Error Resume Next '忽略错误继续执行
    Me.Hide
    num = ThisDrawing.SelectionSets.Count
    For i = 0 To num - 1
        Set ssetObj = ThisDrawing.SelectionSets.Item(i)
        If ssetObj.Name = "sel" Then
            ssetObj.Delete
        End If
    Next i
    Set ssetObj = ThisDrawing.SelectionSets.Add("sel")
    gpCode(0) = 0
    dataValue(0) = "*"
    ssetObj.SelectOnScreen gpCode, dataValue
    Set pl = ssetObj.Item(0)
End Sub
假如我选择了一条多段线，为什么最后一条语句老是提示：
运行时错误：'13'
类型不匹配
请高手解决。