帮忙看看这个程序哪有问题
dia5a.lsp中的程序如下(defun c:dia5a()
(setvar "cmdecho" 0)
(dcl_dia5a)
(prinl)
)
(defun dcl_dia5a()
(setq dcl_id (load_dialog "dia5a"))
(new_dialog "dia5a" dcl_id)
(set_tile "edit_p" (rtos (getvar "plinewid")))
(set_tile "edit_f" (rtos (getvar "filletrad")))
(set_tile "edit_t" (rtos (getvar "textsize")))
(set_tile "edit_s" (itoa (getvar "savetime")))
(action_tile "accept" "(ok_dia5a)(done_dialog 1)")
(start_dialog)
)
(defun ok_dia5a()
(setvar "plinewid" (atof (get_tile "edit_p")))
(setvar "filletrad" (atof (get_tile "edit_f")))
(setvar "textsize" (atof (get_tile "edit_t")))
(setvar "savetime" (atoi (get_tile "edit_s")))
)
dia5a.dcl中程序如下
dia5a:dialog{
label="AutoCAD绘图默认值设定";
:edit_box{
label="pline宽度";
key="edit_p";
edit_width=6;
}
:edit_box{
label="fillet半径";
key="edit_f";
edit_width=6;
}
:edit_box{
label="text字高";
key="edit_t";
edit_width=6;
}
:edit_box{
label="自动保存时间";
key="edit_s";
edit_width=6;
}
ok_cancel;
}
不知道为什么LSP程序无法运行老显示 错误: no function definition: PRINL 请高手帮忙看看 我是新手才学LSP不是很明白 看了，对我来说没有问题，根本看不懂:L
页:
[1]