[求助]用VBA如何调出CAD的颜色属性对话框，之后，如何获得所选的颜色号

cyt4321

斑竹和各位大侠： 用VBA如何调出CAD的颜色属性对话框，之后，如何获得所选的颜色号。能不能与lisp结合得到呢？请给个例子。谢了！

alin

Reply From: Oquendo, Frank
Date: Jul/13/00 - 18:18 (GMT)

Re: Using the Color Dialog
I don't know about the File dialog (maybe GETFILED will work) but I do know
that you can use the VisualLISP ActiveX Module to call the ACAD_COLORDLG
function and receive its return value. If you're not familiar with the
VisualLISP ActiveX Module, I have a free wrapper class in the download
section of my web site. It's called VLAX (pretty original, huh?) Using it,
you can call the color dialog like so: Dim objVLAX As New VLAX, retVal
retVal = objVLAX.EvalLispExpression("(acad_colordlg 3 nil)") Be sure to add the class module to your project and also be sure to type
(VL-LOAD-COM) at the command line before running.

wyj7485

Private Declare Function acedSetColorDialog Lib _
"acad.exe" (color As Long, ByVal bAllowMetaColor _
As Boolean, ByVal nCurLayerColor As Long) As Boolean 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

cyt4321

谢了！