I have a Palette for displaying and setting xrecord data for 3DSolids.
Private Sub ButtonPickTimbers_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ButtonPickTimbers.Click
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim values() As TypedValue = {New TypedValue(DxfCode.Start, "3DSOLID")}
Dim sfilter As New SelectionFilter(values)
Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView()
Dim res As PromptSelectionResult = ed.GetSelection(sfilter)
If Not res.Status = PromptStatus.OK Then Return
SS = res.Value
TimberID = SS.Item(CurrTimberIndex).ObjectId
ListTimber(TimberID) 'Fills Palette Textboxes with data from the entities
xrecord
End Sub
The problem I'm have is that the Command: prompt is not returned after
ButtonPickTimbers_Click is executed.
