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:

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！