错误: 参数类型错误: stringp nil求助

lixiaomin96 · 发表于 2009-10-6 22:27:49

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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 我都要崩溃了。谁帮忙看看啊

oldhenksu · 发表于 2009-10-7 10:34:12

提示: 作者被禁止或删除内容自动屏蔽

oldhenksu · 发表于 2009-10-7 10:40:09

提示: 作者被禁止或删除内容自动屏蔽

lixiaomin96 · 发表于 2009-10-7 11:36:30

我弄好了是DCL定义里的KWW KHH弄成小写就OK了谢谢大家

		自动登录	找回密码
密码			注册

通知

[已解决] 错误: 参数类型错误: stringp nil求助

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块

oldhenksu oldhenksu 当前离线积分 1323 UID 117927 主题在线时间小时注册时间 2005-10-9 头像被屏蔽	发表于 2009-10-7 10:34:12 \| 显示全部楼层来自：中国浙江宁波提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报

oldhenksu oldhenksu 当前离线积分 1323 UID 117927 主题在线时间小时注册时间 2005-10-9 头像被屏蔽	发表于 2009-10-7 10:40:09 \| 显示全部楼层来自：中国浙江宁波提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报