Sub GetEntity2()
Dim retEnt As Object
Dim pnt As Variant
On Error Resume Next
' The following example waits for a input from user and returns the Line in retEnt
ThisDrawing.Utility.GetEntity retEnt, pnt, "Select an object"
If Err 0 Then
Err.Clear
MsgBox "You need to select an existing object"
Else
Select Case LCase(TypeName(retEnt)) //该怎么写？
Case "acdbcircle" //返回什么串才对？
MsgBox "Circle"
Case "acdbline" //返回什么串才对？
MsgBox "Line"
Case Else
MsgBox "others"
End Select
end if
end sub
置顶卡
