Read Only
Count As Long
Returns the number of aliases in an AcadMap object.
Use this property to list current drive aliases.
The following example displays the name of each alias.
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