Path Example
Examples:
l Drawing
l Drawings
l Project
Sub Example_Path_DescriptionKeyFile()
' This example returns the Path for the first
' DescriptionKeyFile in the collection.
Dim dKeyFile As AeccDescriptionKeyFile
Set dKeyFile = AeccApplication.ActiveProject.DescriptionKeyFiles.Item(0)
MsgBox "The value for DescriptionKeyFile Path is: " & dKeyFile.Path, vbInformation, "Path Example"
End Sub
Sub Example_Path_DescriptionKeyFiles()
' This example returns the Path for DescriptionKeyFiles.
Dim dKeyFiles As AeccDescriptionKeyFiles
Set dKeyFiles = AeccApplication.ActiveProject.DescriptionKeyFiles
MsgBox "The value for DescriptionKeyFiles Path is: " & dKeyFiles.Path, vbInformation, "Path Example"
End Sub
Sub Example_Path_Drawing()
' This example returns the Path setting for the first Drawing
' in the collection.
Dim dwg As AeccDrawing
Set dwg = AeccApplication.ActiveProject.Drawings(0)
MsgBox "The Path for the first Drawing in the collection is: " & dwg.Path _
, vbInformation, "Path Example"
End Sub
Sub Example_Path_Drawings()
' This example returns the Path for the drawings in the active project.
Dim dwgs As AeccDrawings
Set dwgs = AeccApplication.ActiveProject.Drawings
MsgBox "The Path value for Drawings is: " & dwgs.Path, vbInformation, "Path Example"
End Sub
Sub Example_Path_FileLocks()
' This example returns the Path for the FileLocks in the active project.
Dim fileLocks As AeccFileLocks
Set fileLocks = AeccApplication.ActiveProject.FileLocks
MsgBox "The Path value for FileLocks is: " & fileLocks.Path, vbInformation, "Path Example"
End Sub
Sub Example_Path_Project()
' This example returns the Path setting for the first Project
' in the collection
Dim proj As AeccProject
Set proj = AeccApplication.Projects.Item(0)
MsgBox "The Path value for the first Project in the collection is: " & proj.Path, vbInformation, "Path Example"
End Sub