[jangle]

Я новичек в AutoCAD, подскажите как найти полилинии на чертеже VBA кодом.

[Кулик Алексей aka kpblc]

Из справки:

Код:

[Выделить все]

Sub Example_Select()
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    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.Select acSelectionSetAll, groupCode, dataCode
    
End Sub

Под себя адаптируй самостоятельно.