OverrideSettings Example

AEC Auto

Sub Example_OverrideSettings()

    Dim db As New AecBaseDatabase
    Dim cLayerKeyStyles As AecLayerKeyStyles
    Dim layerKeyStyle As aeclayerkeystyle
    Dim overrideSettings As AecLayerOverrideSettings
    db.Init ThisDrawing.Database
    
    Set cLayerKeyStyles = db.LayerKeyStyles
    Set layerKeyStyle = cLayerKeyStyles.Item(0)
    Set overrideSettings = layerKeyStyle.overrideSettings

End Sub

previous page start next page