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

lixiaomin96

LSP程序
  V( A" B& D% [3 |4 a+ v(defun c:dia5b()
  (setvar"cmdecho"0)
/ i. q# N  r7 v6 _! k& O  (dcl_dia5b)
  (prinl)
, K9 B8 V2 j" c. G0 E)
(defun dcl_dia5b()
6 R; S3 H3 T( X3 b; {3 b+ N* F: @/ @  (setq dcl_id(load_dialog"dia5b"))
  (new_dialog "dia5b" dcl_id)
  (set_tile"kww" "50")
8 ?# }/ P) y5 f* Q0 _2 e  (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)")
! s$ f" H+ {7 T* Y3 B1 q: b  (setq dd(start_dialog))
+ ?2 {, ]7 `; h+ O  (cond((= dd 1) (c:dia5b1))
3 f0 T, J( J; n       ((= dd 2) (c:dia5b2))
       ((= dd 3) (c:dia5b3))
) q0 L) p! N4 T+ @# G( h$ g% Q8 R       (t (alert"未完成任何动作！！！"))
; C3 b6 r8 g. s# N  )
)
' S; k7 k" Z' t* G(defun get_ww_hh()
3 j4 B/ k  y  U7 ]7 J1 r) }3 A" I  (setq ww(atof(get_tile "kww")))
. r8 F- O# y  _$ `6 ?* ^7 L2 O  (setq hh(atof(get_tile "khh")))
)  
9 [0 [7 W$ O( w9 [1 W$ ](defun c:dia5b1()
% Y7 q6 d, q/ e+ ~  (setvar"cmdecho"0)
  (get_input_data)
8 h% ]6 a; S# w% J$ L( B  t% ]" w0 \  (command"pline"p1 p2 p3 pm34 pm pm14"c")
# P2 b1 b% [$ v$ b' K- q# ]  (prinl)
. [  P1 _/ u8 x/ y. A, S7 l  b)
: H3 O, |  s' b' `(defun c:dia5b2()
  (setvar"cmdecho"0)
  (get_input_data)
! U; K1 M0 K3 F1 U/ M) \  (command"pline"p1 p2 p3 p4"c")
  (command"line"p1 p3 "")
  (command"line"p2 p4 "")
  (prinl)
)
(defun c:dia5b3()
  (setvar"cmdecho"0)
, r" ?+ M2 N$ V/ E5 Y( p2 Q! c4 Z  (get_input_data)
  (command"pline"p1 p2 p4 p3"c")
  (prinl)
)
(defun get_input_data()
  ;;;(setq ww(getreal"宽度WW:"))
5 w6 h) p3 f# ]5 |! \6 B$ ?5 r) \* v  ;;;(setq hh(getreal"\n 高度HH:"))
* ], s1 L9 i% d& q" X. Z( B  (setq p1(getpoint"\n 插入点:"))
  (setq p2(polar p1 0 ww))
  (setq p3(polar p2 (* pi 0.5) hh))
  (setq p4(polar p3 pi ww))
1 p) |" @0 \; j- P3 e) W8 \$ P! O  (setq pm(inters p1 p3 p2 p4))
  (setq pm12(polar p1 0 (* ww 0.5)))
. t' M* A+ J/ J, \0 Y4 d& ]  (setq pm34(polar p3 pi(* ww 0.5)))
  (setq pm23(polar p2 (* pi 0.5) (* hh 0.5)))
& ?( N# r: C9 n3 _" r) B- i  (setq pm14(polar p1 (* pi 0.5) (* hh 0.5)))
' j6 v9 w  {, [) {4 X)  
( L$ o: x% K6 p1 w2 pDCL程序
dia5b:dialog{
6 ]" X" |# E, r+ D) ~, Ilabel="按钮测试范例";
:boxed_row{
label="图形尺寸";
) z; f# {6 B- e4 W8 f5 u2 g& M:edit_box{label="宽度WW";key="KWW";edit_width=8;}
( Y( q( U: E: I) ~:edit_box{label="高度HH";key="KHH";edit_width=8;}
0 S8 a: r$ X1 d; f" w) e( ~3 ?}
1 o% |" w6 F3 Y, i% G# r8 R:button{label="绘制DIA5B1-L型";key="bb1";}
:button{label="绘制DIA5B2-X型";key="bb2";}
. b) O$ C  k% A: e:button{label="绘制DIA5B3-8型";key="bb3";}
9 j* a; w% m' O' W  X# W& |spacer_1;
% r1 Z$ z  j( p+ ]' j# J- ^6 Scancel_button;
4 V  a" E2 W4 V3 A}

: P. x4 f7 W+ y, ^9 t" V
为什么加载LSP后在控制框里填上参数老显示错误: 参数类型错误: stringp nil 我都要崩溃了。谁帮忙看看啊

hjg729

我在用三维阵列的时候，也是不能成功，打开cad 消息窗口，显示：
命令: _3darray
3 x7 M* ^; \  O) U1 A6 `正在初始化...参数类型错误: stringp nil
- m9 `. ~4 E, ?6 {4 e* X不知道怎么回事，我用的是cad2008

hjg729

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