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

lixiaomin96

LSP程序
(defun c:dia5b()
4 h& v- H# q' y; _; o- V+ W. b  (setvar"cmdecho"0)
  (dcl_dia5b)
, o  a0 C# s  r( ]7 L: Z2 i  v9 a3 W  (prinl)
3 y- ]) D4 J4 V9 H)
(defun dcl_dia5b()
) m# @7 @( |9 E/ O  (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)")
$ J8 \: q3 O) A% K/ W5 h: }  (action_tile"bb2" "(get_ww_hh)(done_dialog 2)")
% \# _/ T3 p2 d. o% h0 f% |  (action_tile"bb3" "(get_ww_hh)(done_dialog 3)")
" W% A" v( i1 q) H% i, O; Y+ }  (setq dd(start_dialog))
  (cond((= dd 1) (c:dia5b1))
$ v! S3 ~+ U  R  I" O       ((= dd 2) (c:dia5b2))
       ((= dd 3) (c:dia5b3))
       (t (alert"未完成任何动作！！！"))
  )
)
8 A. u: m( o: q# P4 I% s3 q4 X(defun get_ww_hh()
) H$ m% i) W- z+ t4 |5 m  (setq ww(atof(get_tile "kww")))
% d$ t7 }+ R; q* ?1 V3 R  (setq hh(atof(get_tile "khh")))
)  
7 w4 w: }7 X# T  \" Z(defun c:dia5b1()
  (setvar"cmdecho"0)
) Q% t" f0 v3 i. q/ m5 ~  (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)
1 L! V. p5 T/ F& i- x# ~; [5 S& v)
3 R- y. |* Y/ b# w  \1 E(defun c:dia5b3()
1 X9 c6 o: D# Y$ N) v4 Y! I  (setvar"cmdecho"0)
8 G9 c/ D+ i3 [# B  (get_input_data)
  (command"pline"p1 p2 p4 p3"c")
* M7 `; C* }# q1 ^, k  (prinl)
4 H+ Q) x! ^: G; c8 D0 {( q; v)
/ j0 M) R* y0 U5 p(defun get_input_data()
  ;;;(setq ww(getreal"宽度WW:"))
* v2 F+ f3 ?6 H$ c% {  ;;;(setq hh(getreal"\n 高度HH:"))
2 d7 \! Q) ]2 d  w% s- |  (setq p1(getpoint"\n 插入点:"))
7 g/ V' x8 p- w# o( Z* U1 J  (setq p2(polar p1 0 ww))
  (setq p3(polar p2 (* pi 0.5) hh))
# l* L7 [' Y( v* q7 T1 B, [  (setq p4(polar p3 pi ww))
  (setq pm(inters p1 p3 p2 p4))
4 P+ w2 e) f4 {; X* f+ @* F9 o" L# e  (setq pm12(polar p1 0 (* ww 0.5)))
% X" T0 i+ G/ y( d6 a! c  (setq pm34(polar p3 pi(* ww 0.5)))
. v$ y; y2 m# B  r0 n2 L' Z, K  (setq pm23(polar p2 (* pi 0.5) (* hh 0.5)))
  (setq pm14(polar p1 (* pi 0.5) (* hh 0.5)))
)  
2 m: `- c( l7 m. r3 q1 n+ ~: BDCL程序
4 u! ]4 m% _: @2 D4 t: Edia5b:dialog{
label="按钮测试范例";
' e6 d$ b* z& B9 H:boxed_row{
# [8 q* M) @% L; M5 u; klabel="图形尺寸";
# ~& r4 x# u) N0 b7 b/ S8 _:edit_box{label="宽度WW";key="KWW";edit_width=8;}
! p2 @: N; Y! D+ P% O) X! Q7 f:edit_box{label="高度HH";key="KHH";edit_width=8;}
+ ^  {1 ^" [9 `( }& m$ A}
: b3 j% S  T! e9 j:button{label="绘制DIA5B1-L型";key="bb1";}
* R* _9 W9 Q  O, p7 ?" @5 a' k:button{label="绘制DIA5B2-X型";key="bb2";}
:button{label="绘制DIA5B3-8型";key="bb3";}
6 b# x2 r+ I7 L' T. R* zspacer_1;
cancel_button;
}


为什么加载LSP后在控制框里填上参数老显示错误: 参数类型错误: stringp nil 我都要崩溃了。谁帮忙看看啊

hjg729

我在用三维阵列的时候，也是不能成功，打开cad 消息窗口，显示：
命令: _3darray
正在初始化...参数类型错误: stringp nil
# T# P% E$ \3 L3 ]不知道怎么回事，我用的是cad2008

hjg729

在控制面板添加\删除程序里，找到autocad，重新配置一下，不知道能不能解决。