Test HTML

Public Sub SelObjects()
    Dim var1 As Variant
    Dim var2 As Variant
    
    Dim obj1 As Object
    
    'choose a selection set name that you only use as temporary storage and
    'ensure that it does not currently exist
    Dim flag As Integer
    
    
    On Error GoTo ErrLine
    
    flag = 0
    
    Do
    
        ThisDrawing.Utility.GetEntity obj1, var1, "Pick Point :"
        MsgBox obj1.EntityName
        
        
    
    
    Loop Until flag = 1
    
    
    
ErrLine: Exit Sub
    

End Sub

Test Presentation