vba 调用CAD 标准窗口

寒风

RT
CAD有多少标准API供VBA使用，这些函数是否有定义列表呢,哪可以下载到，谢谢。
比如调用打印对话框等....
如：

'===============封装API函数，获得用户选择颜色的结果
Public Function GetColorFromDlg(ByVal initColor As Long, _
ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long)As Long
GetColorFromDlg = -1
On Error Resume Next

If acedSetColorDialog(initColor, bAllowMetaColor,nCurLayerColor) Then
GetColorFromDlg = initColor
End If

End Function

’=====================标签背景改为选择的颜色

Private SubNewLYColorLabel_Click()
Color.ColorIndex = GetColorFromDlg(1, False, 256)
NewLYColorLabel.BackColor = RGB(Color.Red, Color.Green,Color.Blue)
End Sub