Aliases.Count property

AutoCAD Map 3D ActiveX

Aliases.Count property

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