[Mstn 2023.1 VBA] How to delete all tables in a dgn?

Question

Hi, 
 I some drawings (dgn files, converted from dwg files) that have some tables in them. I would like to use vba to delete all these tables. Is there an msdElementType for a table? Or something equivalent? 
 --Thanks, --Robert Arnold

Colin Wang · Answer

Hi Robert, 
 
 Greetings! 
 You may get an element and check the value of property "GetDisplayString", if the value is "Table", it is a table. 
 Here we have a piece of code for getting number of table elements in model, please check. 
 Sub getTableElements()
 Dim oElement As Element
 Dim oSc As ElementScanCriteria
 Dim oPH As PropertyHandler
 Dim iCountTables As Integer
 Dim str() As String, oStr1 As String
 Dim ElemID As Long
 
 Set oSc = New ElementScanCriteria
 oSc.ExcludeNonGraphical
 Dim oScanEnumerator As ElementEnumerator
 
 Set oScanEnumerator = ActiveModelReference.Scan(oSc)
 
 Do While oScanEnumerator.MoveNext
 Set oElement = oScanEnumerator.Current
 Set oPH = CreatePropertyHandler(oElement)
 str = oPH.GetAccessStrings
 On Error Resume Next
 For i = LBound(str) To UBound(str)
 If str(i) = "ElementDescription" Then
 oPH.SelectByAccessString (str(i))
 oStr1 = oPH.GetDisplayString
 If oStr1 = "Table" Then
 ElemID = oElement.ID.Low
 Debug.Print "found table element with id " + CStr(ElemID) ' print id of table element.
 iCountTables = iCountTables + 1
 Exit For
 End If
 End If
 Next i
 Loop
 Debug.Print "Total number of table element in model - " & iCountTables ' print number of table elements in active model

End Sub

Best Regards, 
 Colin

[Mstn 2023.1 VBA] How to delete all tables in a dgn?

Top Replies