Hello,
Where is the error in the GetSelection below using filters?
The "acSSPrompt.Status" returns error using ==>> acTypValAr.SetValue(New TypedValue(DxfCode.ExtendedDataAsciiString, "P"), 2)
The entity XData in the blockReference is:
Registered Application Name: DEVICE
Code 1000, ASCII string: P
Code 1000, ASCII string: UPD2
The code:
Dim acTypValAr(2) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "INSERT"), 0)
acTypValAr.SetValue(New TypedValue(DxfCode.ExtendedDataRegAppName, "DEVICE"), 1)
acTypValAr.SetValue(New TypedValue(DxfCode.ExtendedDataAsciiString, "P"), 2)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
Dim pso As New PromptSelectionOptions
pso.MessageForAdding = "SELECT THE DEVICES"
Dim acSSPrompt As PromptSelectionResult
acSSPrompt = ed.GetSelection(pso, acSelFtr)
Thanks,
Tácito Fieker
CADGRAPH