vba 调用CAD 标准窗口
RTCAD有多少标准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
页:
[1]