以下是我所知道的关于
选项显式
公共声明函数acedSetColorDialog Lib"acad.exe"(Color As Long, ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long)As Boolean
Sub test()
Dim lngInitClr As Long
Dim blnMetaColor As Boolean
Dim lngCurClr As Long
On Error Resume Next
如果acedSetColorDialog(lngInitClr, blnMetaColor, lngCurClr)然后
MsgBox lngInitClr
结束如果
结束子
公共函数ColorDialog()As整数
Dim intVariable As整数
如果连接则
objAcad.Application.WindowState=acMin
'调用acad颜色对话框并返回
'调用颜色对话框
ThisDrawing1.SendCommand("(setq clr(acad_colordlg1))"&vbCr)
ThisDrawing1.SendCommand("(if(=clr nil)"&_
"(setvar""USERI5"""-1)"&_
"(setvar""USERI5""clr)"&vbCr)
ColorDialog=ThisDrawing1.GetVariable("USERI5")
'重置sysvar
ThisDrawing1.SetVariable"USERI5", intVariable
End如果
Fred Castillo