cad vba 打开文件对话框_VBA 调用AutoCAD “选择颜色对话框"

'声明

Private Declare Function acedSetColorDialog Lib "acad.exe" _

(Color As Long, ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long) As Boolean

'封装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

Sub DrawLine()

Dim Color As New AcadAcCmColor  '注意定义方法

Color.ColorIndex = GetColorFromDlg(1, False, 256)

Dim L As AcadLine

Dim P1(2) As Double

Dim P2(2) As Double

P1(0) = 0: P1(1) = 0: P1(2) = 0

P2(0) = 100: P2(1) = 100: