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

lixiaomin96

LSP程序
(defun c:dia5b()
" L. i6 r6 l9 v5 w  (setvar"cmdecho"0)
  (dcl_dia5b)
  (prinl)
2 R# N' v# p9 K- x5 ])
(defun dcl_dia5b()
  (setq dcl_id(load_dialog"dia5b"))
- B( @+ O' u3 d( t$ T  L! ^" E  (new_dialog "dia5b" dcl_id)
: N8 b, ]( X5 D5 l) P# I+ m, f  (set_tile"kww" "50")
1 a! N4 U/ b) g  (set_tile"khh" "50")
) j% a% }+ q: o7 e2 b& g1 Z" y  (action_tile"bb1" "(get_ww_hh)(done_dialog 1)")
6 {1 a+ D: l, H7 ?" k% J" I! p  (action_tile"bb2" "(get_ww_hh)(done_dialog 2)")
  (action_tile"bb3" "(get_ww_hh)(done_dialog 3)")
  (setq dd(start_dialog))
: b1 S9 w" y/ @3 N$ s% n3 U1 q  (cond((= dd 1) (c:dia5b1))
       ((= dd 2) (c:dia5b2))
       ((= dd 3) (c:dia5b3))
; B' Y! T6 A5 t4 v7 Z4 _       (t (alert"未完成任何动作！！！"))
  )
)
(defun get_ww_hh()
  (setq ww(atof(get_tile "kww")))
  (setq hh(atof(get_tile "khh")))
)  
6 @: i$ t- E# o8 Y(defun c:dia5b1()
  (setvar"cmdecho"0)
, ]8 G& }6 ~! F0 S7 v5 w  (get_input_data)
5 `$ o, j; c6 O6 t5 w0 l  (command"pline"p1 p2 p3 pm34 pm pm14"c")
  (prinl)
9 k9 n) }4 `0 ]; F)
* v8 K5 s* ^- O' z6 K& `(defun c:dia5b2()
  (setvar"cmdecho"0)
, O- B) q. g6 A  M4 L' f2 i  (get_input_data)
, E7 E* s! |: [& Z3 Q$ `) O$ V3 R2 ?  (command"pline"p1 p2 p3 p4"c")
  (command"line"p1 p3 "")
0 C. q9 x1 w4 e8 ?9 k  (command"line"p2 p4 "")
6 V: j% q$ `" ?1 o4 G# {  (prinl)
)
(defun c:dia5b3()
  (setvar"cmdecho"0)
9 W* _4 T& n( @  (get_input_data)
* h* [! o3 u# L# e/ K* W" V8 M  (command"pline"p1 p2 p4 p3"c")
9 [7 T; V/ M6 E7 \% O  (prinl)
" T1 n1 j( m) i* F)
(defun get_input_data()
& }$ @' H! u- W  ?1 w+ z  ;;;(setq ww(getreal"宽度WW:"))
* c# j8 O* ]& z3 c) [) \  ;;;(setq hh(getreal"\n 高度HH:"))
$ s  a) J1 ^4 M( s1 ]  (setq p1(getpoint"\n 插入点:"))
% ~/ j% o+ M( |( G; x  (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))
! K0 i  {% j; T; }  m  (setq pm12(polar p1 0 (* ww 0.5)))
; }4 g* v& C* e# r/ n; D  (setq pm34(polar p3 pi(* ww 0.5)))
! ?% c" i4 S% ?* M  J  (setq pm23(polar p2 (* pi 0.5) (* hh 0.5)))
  (setq pm14(polar p1 (* pi 0.5) (* hh 0.5)))
% E  R7 g: P7 v$ @: r. r4 `( G7 ])  
4 h# w- p- l+ g& E4 xDCL程序
dia5b:dialog{
label="按钮测试范例";
' @2 w& s9 O# F:boxed_row{
$ S1 w% F1 {8 _. q9 Z, clabel="图形尺寸";
4 ~' @' @2 K( a" [5 [) j! @:edit_box{label="宽度WW";key="KWW";edit_width=8;}
8 j+ |. G; T  x) `7 }- l:edit_box{label="高度HH";key="KHH";edit_width=8;}
( ^) Q6 `' ~. ^}
/ ~8 }7 ?7 H9 |4 P# m- J+ C:button{label="绘制DIA5B1-L型";key="bb1";}
0 L& {% i- o; _, F7 A* t) i:button{label="绘制DIA5B2-X型";key="bb2";}
:button{label="绘制DIA5B3-8型";key="bb3";}
spacer_1;
cancel_button;
}

/ }. V/ n# [1 J0 y" C$ D( \. B$ C
为什么加载LSP后在控制框里填上参数老显示错误: 参数类型错误: stringp nil 我都要崩溃了。谁帮忙看看啊

hjg729

我在用三维阵列的时候，也是不能成功，打开cad 消息窗口，显示：
命令: _3darray
正在初始化...参数类型错误: stringp nil
, s0 y6 y2 \. o1 E% p% a不知道怎么回事，我用的是cad2008

hjg729

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