请问：如何实现对话框中的出错信息在驱动程序中赋值

wuyidebh

dcl文件

error:dialog
{
label="出错信息！";
:text
{
label="半径不能为负";
}
ok_only;
}

lisp文件

(DEFUN c:error()
(SETQ DCL_ID (LOAD_DIALOG "D:\\Program Files\\AutoCAD 2004\\Support\\error"))
(NEW_DIALOG "error" DCL_ID) 
(START_DIALOG)
(UNLOAD_DIALOG DCL_ID) 
)

如何实现“半径不能为负”这一句在lisp文件中进行赋值？谢谢

citykunan

error:dialog
{
label="出错信息！";
:text

{
key="er";
value="半径不能为负";
}
ok_only;
}

 

(DEFUN c:error( /  err )
(SETQ DCL_ID (LOAD_DIALOG "error.dcl"))
(NEW_DIALOG "error" DCL_ID)
(action_tile "accept" "(lhy) (done_dialog 1)")
(START_DIALOG)
 
(UNLOAD_DIALOG DCL_ID) 
 err
)

(defun lhy ()
    (setq err (get_tile "er"))
)

wdabo

我是这样理解楼主意思的，楼主希望对话框中出现不同的文字，例如"半径不能为0"，等等。

那就应该把value="半径不能为负";这一行去掉。

在lisp程序中，用set_tile函数进行赋值。

wuyidebh

谢谢，太感谢了