VBA中的AutoCAD真彩色对话框？

' This is the definition of acedSetColorDialogTrueColor as found in aced.h
' acedSetColorDialogTrueColor(
'    AcCmColor& color,
'    Adesk::Boolean bAllowMetaColor,
'    const AcCmColor& curLayerColor,
'    AcCm::DialogTabs tabs = (AcCm::DialogTabs)(AcCm::kACITab | AcCm::kTrueColorTab| AcCm::kColorBookTab));
'
'   My understanding is that AcCmColor& is a pointer to the AcCmColor object(AcadAcCmColor in VBA)
'   Constants are directly from aced.h
Private Declare Function acedSetColorDialogTrueColor Lib "acad.exe" (ByVal pColor As Long, _
ByVal bAllowMetaColor As Boolean, ByVal pCurLayerColor As Long, ByVal DialogTabs As Integer) As Boolean
Private Const kACITab = 1
Private Const kTrueColorTab = 2
Private Const kColorBookTab = 4
Public Function GetAcadTrueColor(MtaCol As Boolean) As Object
  Dim SelectColor As AcadAcCmColor 'This is returned from the call
  Dim LayColor As New AcadAcCmColor ' This is sent to the call, thus I initialize it first without regard to the color
  On Error Resume Next
  If acedSetColorDialogTrueColor(ObjPtr(SelectColor), MtaCol, ObjPtr(LayColor), kACITab Or kTrueColorTab Or kColorBookTab) Then
    Set GetAcadTrueColor = SelectColor 'return AcadAcCmColor
  End If
End Function

[CommandMethod("COLORDLG")]
public void colordlg()
{
    Document doc = acadApp.DocumentManager.MdiActiveDocument;
    Editor ed = doc.Editor;
    ColorDialog dlg = new ColorDialog();
    if (dlg.ShowDialog() != System.Windows.Forms.DialogResult.OK) return;
    Autodesk.AutoCAD.Colors.Color clr = dlg.Color;
    ed.WriteMessage("\nColor selected is [{0}]", clr.ToString());
}

Public Function AcadColorDialog() As Integer
    'calls the acad color dialog and returns
    'the index of the color selected or -1 if cancelled
    Dim i As Integer
    Dim vl As New VLAX
    
    'call color dialog
    vl.EvalLispExpression ("(setq clr (acad_colordlg 1))")
    'if dialog was canceled, clr will be nil, set to -1 instead
    i = vl.EvalLispExpression("(if (= clr nil)(setq clr -1)(setq clr clr))")
    AcadColorDialog = i
    Set vl = Nothing
End Function

Option Explicit
Type tColor
   NotKnow As Long
   Color As Long
   ColorName As Long
   ColorBook As Long
End Type
Private Declare Function acedSetColorDialogTrueColor Lib "acad.exe" _
  (ByRef Color As tColor, ByVal AllowMetaColor As Boolean, _
   ColorCurrent As tColor, ByVal ColorSystems As Byte) As Byte
Sub DlgTrueColor()
Dim Color As AcadAcCmColor
Dim AllowMetaColor As Boolean
Dim ColorSystems As Byte
Dim Result As Byte
Dim ColorOld As Long
Dim ColorLong As tColor, ColorCurrent As tColor
   With ColorLong
      .NotKnow = 1691390208
      .Color = -1024366560
      .ColorName = 0
      .ColorBook = 0
End With
   With ColorCurrent
      .NotKnow = 1691390208
      .Color = -1023410169
      .ColorName = 0
      .ColorBook = 0
   End With
   AllowMetaColor = True
   ColorSystems = 7
   On Error Resume Next
   ColorOld = ColorLong.Color
   Result = acedSetColorDialogTrueColor(ColorLong, AllowMetaColor, ColorCurrent, ColorSystems)
 On Error GoTo 0
   If ColorLong.Color = ColorOld Then
      MsgBox "!", vbExclamation
    Else
      Set Color = Application.GetInterfaceObject("AutoCAD.AcCmColor.16")
      Color.EntityColor = ColorLong.Color
      If Color.ColorMethod = acColorMethodByRGB Then
         MsgBox ": " & Chr(13) & Chr(10) & _
           "   : RGB — " & Color.ColorMethod & Chr(13) & Chr(10) & _
           "   : R" & Color.Red & ":G" & Color.Green & ":B" & Color.Blue, vbInformation
       Else
         MsgBox ": " & Chr(13) & Chr(10) & _
           "   : ACI — " & Color.ColorMethod & Chr(13) & Chr(10) & _
           "   : " & Color.ColorIndex, vbInformation
      End If
   End If
End Sub