首先在AutoCAD中输入命令AliasEdit，弹出如下对话框。

然后点击旁边的Edit，又弹出一个对话框。

下面的列表框里面，就是所有的命令。但是如何把这些内容复制出来呢？

使用API函数库中的Control类：

'ListBox
Sub 获取列表框内容()
    Dim L As New API.ListBox
    Dim i As Integer
    With L
        .Hwnd = 527140
        For i = 0 To .ListCount
            Range("A" & i + 1).Value = .List(i)
        Next i
     End With
End Sub

这样就获取到Excel表格中了。

结果如下：

-3DOSNAP
-ACTSTOP
-ACTUSERMESSAGE
-ARCHIVE
-ARRAY
-ATTACH
-ATTDEF

...

XREF
XREFCTL
XREFLAYER
XREFNOTIFY
XREFOVERRIDE
XREFREGAPPCTL
XREFTYPE
ZOOM
ZOOMFACTOR
ZOOMWHEEL