Thanks for the reply buy what do I dim "acedSetColorDialog" to. It's looking
for a function but I still can not get the color promt.
Thanks,
Andy
"Jürg Menzi" wrote in message
news:3F048616.F9D4FF50@bluewin.ch...
> Andrew Elmore
>
> courtesy of Randall Rath:
>
> calling sub:
> Dim lColor As Long
> lColor = ChooseColor(lColor, True, lColor)
>
> 'Color choice using autocad color selection dialog box
> '
> Public Function ChooseColor(ByVal lngInitClr As Long, _
> ByVal blnMetaColor As Boolean, _
> ByVal lngCurClr As Long) As Long
> ChooseColor = -1
>
> On Error Resume Next
>
> If acedSetColorDialog(lngInitClr, blnMetaColor, lngCurClr) Then
> ChooseColor = lngInitClr
> End If
>
> On Error GoTo 0
>
> End Function
>
> Cheers
> --
> Juerg Menzi
> MENZI ENGINEERING GmbH, Switzerland
> http://www.menziengineering.ch