ProfileStyle Example

AEC Auto

Sub Example_ProfileStyle()

    Dim ent As Object
    Dim pt As Variant
    Dim mass As AecMassElement

    ThisDrawing.Utility.GetEntity ent, pt, "Select AEC Mass Element"
        
    If TypeOf ent Is AecMassElement Then
        Set mass = ent
        MsgBox "ProfileStyle is: " & mass.ProfileStyle.Name, vbInformation, "ProfileStyle Example"
    Else
        MsgBox "Not an AecMassElement", vbExclamation, "ProfileStyle Example"
    End If

End Sub

previous page start next page