VBA; convert PolyLine to Slab; help needed

[christoph.wieczorek]

Hi all!

i started using VBA for programming ADT 2006, specifically with AEC objects.

i want to convert some PolyLines to Slabs and Walls, i do this by that code:

ThisDrawing.SendCommand "_AecSlabConvert" & vbCr & "0,0,0" & vbCr & "b" & vbCr & "t" & vbCr

It works, but i select a PolyLine by a Point, like "0,0,0" and when something else lies on this Point, i have no control about the selection!

So my question is:

How can i else convert Lines to Walls or Slabs?
or
How can i select elements through VBA in ADT, and how works this SelectionSets like this:

ThisDrawing.ActiveSelectionSet



Thanks for your help,

Chris

[brent.burgess]

Hi Chris

Hope this helps

Sub Example_SelectAtPoint()
    ' This example adds objects to a selection set by identifying a point.
    ' At first all objects at the point are added to the selection set. Then
    ' only circle objects at the point are added to the selection set.
    
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET1")
   
    ' Add to the selection set all the objects that lie at point(6.8,9.4,0) 
    Dim point(0 To 2) As Double
    point(0) = 6.8: point(1) = 9.4: point(2) = 0
    ssetObj.SelectAtPoint point
    
    ' Add to the selection set all the Circles that lie at point (6.8,9.4,0) 
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "Circle"
    
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    
    ssetObj.SelectAtPoint point, groupCode, dataCode
    
End Sub

You can change "Circle" to any object you are trying to select


Brent