插入图块的小程序不知道什么地方出了问题
lsp文件：(defun c:charu()
(new_dialog charukuai 液压系统);
(action_tile charu1 diaoyon);
(action_tile cancel (done_dialog charukuai));
) ;
(defun c:diaoyong()
(command "insert" "房子.dwg");
)
DCL文件（文件名是“液压系统”）：
charukuai:dialog{
label="插入液压块";
:button{
label="房子";
key="charu1";
}
spacer_1;
ok_cancel;
}
这是我自编的两个文件，用于插入块，加载成功后，我输入“charu”。cad命令提示栏提示:
“命令: _appload 已成功加载 正确的液压系统.lsp。
命令:
命令:
命令: charu
; 错误: 参数类型错误: stringp nil”
问题到底出在哪？急需解决这个问题。 论坛这样的问题多了，不搜索下看看。
(defun c:charu()
(if (> (setq dcl_id (load_dialog "液压系统")) 0) (progn
(if (new_dialog "charukuai" dcl_id) (progn
(action_tile charu1 "(done_dialog 1)")
(action_tile cancel "(done_dialog 0)")
(setq re (start_dialog))
)
(princ "\n无法显示对话框！")
)
(unload_dialog dcl_id)
)
(princ "\n无法加载对话框！")
)
(if (= re 1) (c:diaoyong))
)
(defun c:diaoyong()
(command "insert" "房子.dwg");
)
页:
[1]