Represents a shorthand name for a drive and directory.

Properties are a full path that exists on the hard drive and the name of the alias.

Created by calling Aliases.Add.

The following example uses both properties of this object to cycle through and report on the aliases in a project.

Dim als As Alias

Dim cAls As Integer, i As Integer

Dim amap As AcadMap

Dim strOutput As String

 

Set amap = ThisDrawing.Application. _

GetInterfaceObject("AutoCADMap.Application") 

cAls = amap.Aliases.Count

For i = 0 To cAls - 1

Set als = amap.Aliases.Item(i) 

strOutput = strOutput & als.Name & "=" & als.Directory & Chr(13) 

Next i

MsgBox strOutput