Color Dialogbox

Anyone know how to invoke the dialogbox. I need to allow the user to select any color that Acad has but can't find a way to access the thing.

TIA,
Mike

 

Hi Mike

Code:

Private Declare Function acedSetColorDialog Lib "acad.exe" (Color As Long, _
ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long) As Boolean
'----------------------------------------------------------------------------
Public Function MeGetAcadColor(DefCol As Long, MtaCol As Boolean, _
LayCol As Long) As Long

MeGetAcadColor = -1

On Error Resume Next

If acedSetColorDialog(DefCol, MtaCol, LayCol) Then
MeGetAcadColor = DefCol
End If

End Function

Cheers

 

Kewl!

Thanks Juerg!

Mike

 

Hi Mike

Welcome...¦-)

Cheers

 

Juerg, took a look at your website, very nice work! I notice you a lot of code for lsp but nothing for vba. Just wondering why.

Mike

 

I've been using this, one question though. Anyway to get the true color tab?

Thanks

John Holmes

 

Hi Mike

I'm writing my programs mostly in (Visual)Lisp. I use the VBA interface only
as replacement for DCL, WinAPI access or for time critical functions.
That's why I don't publish VBA code on my website.

Cheers

 

Hi John

There is another API:

Code:

acedSetColorDialogTrueColor(
AcCmColor& color,
Adesk::Boolean bAllowMetaColor,
const AcCmColor& curLayerColor,
AcCm::DialogTabs tabs = (AcCm::DialogTabs)(AcCm::kACITab | AcCm::kTrueColorTab
| AcCm::kColorBookTab));

Because I've not a clue how to translate the API from C++ to VB, I can't
help...>:-(
If somebody has the knowledge how to implement this API in VBA ,any help
would be appreciated.

Cheers

 

Thanks, this will be very useful. How do the second and third arguments come into play? bAllowMetaColor (MtaCol)and nCurLayerColor (LayCol) seem to have no effect and are not returned from the function any different than what they were as they went in.

 

Hi AKS

- Color:
colorIndex to use as the default color. Returns with the colorIndex of the
color chosed in the dialog
- bAllowMetaColor:
Boolean indicating if BYLAYER and BYBLOCK colors are allowed
- nCurLayerColor:
color of current layer

Cheers

 

Thanks, that is what I thought, but I do not see that when
trying to test it this way. The allow meta and current layer
color seems to do nothing nor are they changed by the
function.

Private Declare ....etc.
End Function

Sub ctest()
Dim z As Long
Dim dc As Long
Dim mtac As Boolean
Dim lc As Long
dc = 15
mtac = False
'mtac = True
'lc = 23
z = MeGetAcadColor(dc, mtac, lc)
MsgBox (CStr(z) & " " & CStr(dc) & " " & CStr(mtac) & " " _
& CStr(lc))
End Sub