FullName Example

Land Auto

FullName Example

Examples:

l DescriptionKeyFile

l Drawing

l Project


Sub Example_FullName_DescriptionKeyFile()
    
    ' This example returns the FullName for the first
    ' DescriptionKeyFile in the collection.
    Dim dKeyFile As AeccDescriptionKeyFile
    Set dKeyFile = AeccApplication.ActiveProject.DescriptionKeyFiles.Item(0)
    
    MsgBox "The value for DescriptionKeyFile FullName is " & dKeyFile.FullName _
        , vbInformation, "FullName Example"
    
End Sub

Sub Example_FullName_Drawing()
    
    ' This example returns the FullName setting for the first Drawing
    ' in the collection
    Dim dwg As AeccDrawing
    Set dwg = AeccApplication.ActiveProject.Drawings(0)
    
    MsgBox "The FullName for the first Drawing in the collection is: " & dwg.FullName _
        , vbInformation, "FullName Example"
    
End Sub

Sub Example_FullName_Project()
    
    ' This example returns the FullName setting for the first Project
    ' in the collection
    Dim proj As AeccProject
    Set proj = AeccApplication.Projects.Item(0)
    
    MsgBox "The FullName value for the first Project in the collection is: " & proj.FullName, _
        vbInformation, "FullName Example"
    
End Sub