[求助]：TO：QUN 谢谢你，但是……

zj_xuefeng

但是，我想在程序中调用color 选择的对话框，然后可以让用户在color对话框中选择颜色。我不知道如何在我所写的程序模块中，调用color对话框？谢谢！

ymd

这也是一种办法！
struct resbuf *arglist, *rslt=NULL;
short color;
int rc;
color = 3; /* Sets the default -- green */
arglist = ads_buildlist(RTSTR, "acad_colordlg", RTSHORT, color,RTNIL,0 );
if (arglist == NULL)
/* Do error handling */
rc = ads_invoke(arglist, &rslt);
if (rc != RTNORM) {
/* Do error handling */
} else if (rslt == NULL) {
/* Do error handling */
}
else {
/* Save the user-selected color */
color = rslt->resval.rint;
}

rave

最初由 zj_xuefeng 发布
[B]但是，我想在程序中调用color 选择的对话框，然后可以让用户在color对话框中选择颜色。我不知道如何在我所写的程序模块中，调用color对话框？谢谢！ [/B]

最简单的方法：
Adesk::Boolean acedSetColorDialog(int& nColor, Adesk::Boolean bAllowMetaColor,    int nCurLayerColor);
/*
Perform the SetColor dialog. Return TRUE on OK else FALSE
  
   nColor : On entry the default color on exit of OK user chosen color
   
  bAllowMetaColor : if TRUE the pseudo-colours "BYLAYER" and "BYBLOCK"  will be allowed
   
  nCurLayerColor : is the color of the current layer, For use in the ncolor swatch if the color is set to "BYLAYER"
*/

Qun

LISP函数：(acad_colordlg  颜色 [标志])