Originally Posted by
fixo
Glad to help
Cheers
Hi Fixo, may you help me again in another little issue ?
I would like to use SelectionSets command to check the presence of a table inside the drawing.
Of course may there was a shortcut way, selecting all the object inside the DWG and check which of one is a Table, but I prefer to use the below code, but I don't know the correct dxf code.
Pls could you look at my code and suggest me something ?
Thank you
Code:
Dim intCode(0 To 1) As Integer
Dim varData(0 To 1) As Variant
intCode(0) = 0: varData(0) = "ACAD_TABLE"
intCode(1) = 2: varData(1) = "*"
ThisDrawing.SelectionSets.Add ("BOM")
Set Ssnew = ThisDrawing.SelectionSets("BOM")
Ssnew.Select acSelectionSetAll, , , intCode, varData