错误: 参数类型错误: stringp nil求助
LSP程序(defun c:dia5b()
(setvar"cmdecho"0)
(dcl_dia5b)
(prinl)
)
(defun dcl_dia5b()
(setq dcl_id(load_dialog"dia5b"))
(new_dialog "dia5b" dcl_id)
(set_tile"kww" "50")
(set_tile"khh" "50")
(action_tile"bb1" "(get_ww_hh)(done_dialog 1)")
(action_tile"bb2" "(get_ww_hh)(done_dialog 2)")
(action_tile"bb3" "(get_ww_hh)(done_dialog 3)")
(setq dd(start_dialog))
(cond((= dd 1) (c:dia5b1))
((= dd 2) (c:dia5b2))
((= dd 3) (c:dia5b3))
(t (alert"未完成任何动作！！！"))
)
)
(defun get_ww_hh()
(setq ww(atof(get_tile "kww")))
(setq hh(atof(get_tile "khh")))
)
(defun c:dia5b1()
(setvar"cmdecho"0)
(get_input_data)
(command"pline"p1 p2 p3 pm34 pm pm14"c")
(prinl)
)
(defun c:dia5b2()
(setvar"cmdecho"0)
(get_input_data)
(command"pline"p1 p2 p3 p4"c")
(command"line"p1 p3 "")
(command"line"p2 p4 "")
(prinl)
)
(defun c:dia5b3()
(setvar"cmdecho"0)
(get_input_data)
(command"pline"p1 p2 p4 p3"c")
(prinl)
)
(defun get_input_data()
;;;(setq ww(getreal"宽度WW:"))
;;;(setq hh(getreal"\n 高度HH:"))
(setq p1(getpoint"\n 插入点:"))
(setq p2(polar p1 0 ww))
(setq p3(polar p2 (* pi 0.5) hh))
(setq p4(polar p3 pi ww))
(setq pm(inters p1 p3 p2 p4))
(setq pm12(polar p1 0 (* ww 0.5)))
(setq pm34(polar p3 pi(* ww 0.5)))
(setq pm23(polar p2 (* pi 0.5) (* hh 0.5)))
(setq pm14(polar p1 (* pi 0.5) (* hh 0.5)))
)
DCL程序
dia5b:dialog{
label="按钮测试范例";
:boxed_row{
label="图形尺寸";
:edit_box{label="宽度WW";key="KWW";edit_width=8;}
:edit_box{label="高度HH";key="KHH";edit_width=8;}
}
:button{label="绘制DIA5B1-L型";key="bb1";}
:button{label="绘制DIA5B2-X型";key="bb2";}
:button{label="绘制DIA5B3-8型";key="bb3";}
spacer_1;
cancel_button;
}
为什么加载LSP后在控制框里填上参数老显示错误: 参数类型错误: stringp nil 我都要崩溃了。谁帮忙看看啊 我在用三维阵列的时候，也是不能成功，打开cad 消息窗口，显示：
命令: _3darray
正在初始化...参数类型错误: stringp nil
不知道怎么回事，我用的是cad2008 在控制面板添加\删除程序里，找到autocad，重新配置一下，不知道能不能解决。
页:
[1]