Method 'GetSubEntity' of object 'IAcadUtility' failed
It worked before, although I had to select the room name twice because it would say No entity selected the first time.
'I'm hiding a form to select a room number.
Private Sub cmdSRN_Click()
Hide
Dim AE As AcadEntity, Pnt As Variant, TransMatrix As Variant, ContextData As Variant
'Select roomno
ThisDrawing.Utility.GetSubEntity AE, Pnt, TransMatrix, ContextData, "Select Room Number"
If Err = 0 Then
debug.print AE.TextString
Else
Err.Clear
MsgBox "No entity Selected. ", , "Selection"
End If
Show
End Sub
Edited by: garyntx on Oct 6, 2009 3:12 PM
