Gets an alias.

Item(Index As Variant) As Alias

Returns the alias.

Index

Index, starting at 0, or name of an alias in the collection.

The following example shows how to display each item in the aliases collection.

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