LayerKeyStyle Example

LayerKeyStyle Example

Examples:

l AecLayerKey

l AecLayerKeys

l AecLayerOverrideSetting

l AecLayerOverrideSettings

---

Sub Example_LayerKeyStyle_AecLayerKey()

'This example shows the layer style generated by the key

    Dim db As New AecBaseDatabase
    Dim layerKey As AecLayerKey
    
    db.Init ThisDrawing.Database
    
    Set layerKey = db.LayerKeyStyles.Item(0).Keys.Item(0)
    MsgBox "Layer Style: " & layerKey.layerKeyStyle.Name, vbInformation, "LayerKeyStyle Example"

End Sub

---

Sub Example_LayerKeyStyle_AecLayerKeys()

'This example shows the name of the owner layer key style

    Dim db As New AecBaseDatabase
    Dim layerKeys As AecLayerKeys
    
    db.Init ThisDrawing.Database
    
    Set layerKeys = db.LayerKeyStyles.Item(0).Keys
    MsgBox "Layer Keys Owner Name: " & layerKeys.layerKeyStyle.Name, vbInformation, "LayerKeyStyle Example"

End Sub

---

Sub Example_LayerKeyStyle_AecLayerOverrideSetting()

    'This example shows the name of the owner of the overridesetting

    Dim db As New AecBaseDatabase
    Dim setting As AecLayerOverrideSetting
    
    db.Init ThisDrawing.Database
    
    Set setting = db.LayerKeyStyles.Item(0).overrideSettings.Item(0)
    MsgBox "Setting Owners Name: " & setting.layerKeyStyle.Name, vbInformation, "LayerKeyStyle Example"

End Sub

---

Sub Example_LayerKeyStyle_AecLayerOverrideSettings()

    Dim db As New AecBaseDatabase
    Dim overrideSettings As AecLayerOverrideSettings
    
    db.Init ThisDrawing.Database
    
    Set overrideSettings = db.LayerKeyStyles.Item(0).overrideSettings
    MsgBox "Layer Override Settings owner name: " & overrideSettings.layerKeyStyle.Name, vbInformation, "LayerKeyStyle Example"
 

End Sub

---