Hi,
I have a need to delete all the tables in my drawing.
I started with the SS14 code from Jerry Winters VB.NET progamming and modified it to select tables. Unfortunately, when trying to select a table, the code does not work. I tried it with Polylines, block references, Mtext and it worked OK with all of them. See the code below:
<CommandMethod("SS14")> _ Public Sub SS14() Dim myDB As DatabaseServices.Database Dim myDWG As ApplicationServices.Document Dim myEd As EditorInput.Editor Dim myPSR As EditorInput.PromptSelectionResult Dim mySS As EditorInput.SelectionSet Dim myFilter(0) As DatabaseServices.TypedValue myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.Start, "INSERT") myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.Start, "TABLE") ' myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.Start, "POLYLINE") ' myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.Start, "MTEXT")
'''' Chenge items commented out above for testing.
Dim mySF As New EditorInput.SelectionFilter(myFilter) myDWG = ApplicationServices.Application.DocumentManager.MdiActiveDocument myDB = myDWG.Database myEd = myDWG.Editor myPSR = myEd.SelectAll(mySF) Try mySS = myPSR.Value If Not IsNothing(mySS) Then MsgBox(mySS.Count) End If Catch ex As SystemException MsgBox(Err.Description) End Try End Sub
What am I doing wrong? Or is there a bug when selecting "Tables" as distinct from other entities?
Solved! Go to Solution.
Solved by Alfred.NESWADBA. Go to Solution.
Hi Laurie,
when you create a table in your drawing and do then
(entget (car (entsel))) <ENTER> ==> then select a table
you will see in the list of the object-properties this sequence:
(0 . "ACAD_TABLE")
That answers imho the reason why "TABLE" is not working in your example, you should give "ACAD_TABLE" as parameter for the filter:
myFilter(0) = New DatabaseServices.TypedValue(DatabaseServices.DxfCode.Start, "ACAD_TABLE")
HTH, - alfred -
Can't find what you're looking for? Ask the community or share your knowledge.