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

lixiaomin96

LSP程序
(defun c:dia5b()
  (setvar"cmdecho"0)
  (dcl_dia5b)
  (prinl)
* J: [  t$ P, p4 a4 s* `)
(defun dcl_dia5b()
/ q" ?  S& b) V$ ~  q  (setq dcl_id(load_dialog"dia5b"))
4 h% Y* o' i2 V- [& T+ O  (new_dialog "dia5b" dcl_id)
  (set_tile"kww" "50")
, d; U+ t$ S+ V7 r! h4 J2 z# a  (set_tile"khh" "50")
+ r6 m/ D& A% a1 c* ]0 E  (action_tile"bb1" "(get_ww_hh)(done_dialog 1)")
% h; r$ t0 d* Q6 l4 P  (action_tile"bb2" "(get_ww_hh)(done_dialog 2)")
6 w0 \( e6 l" L# e  (action_tile"bb3" "(get_ww_hh)(done_dialog 3)")
  (setq dd(start_dialog))
9 N/ ], e' k; [; b9 P  @% w- [  (cond((= dd 1) (c:dia5b1))
- K+ T2 x3 o# t! C; ]       ((= dd 2) (c:dia5b2))
       ((= dd 3) (c:dia5b3))
; \& p1 {6 A/ O/ ]       (t (alert"未完成任何动作！！！"))
8 P+ q' I3 R' e6 c% a6 r  )
)
(defun get_ww_hh()
+ K9 I% N' O+ X+ T  (setq ww(atof(get_tile "kww")))
  (setq hh(atof(get_tile "khh")))
)  
1 I/ T' G# U$ g  C" u(defun c:dia5b1()
3 l4 F" `9 g1 h# Q- K# G3 j  (setvar"cmdecho"0)
  (get_input_data)
  (command"pline"p1 p2 p3 pm34 pm pm14"c")
  (prinl)
)
(defun c:dia5b2()
  (setvar"cmdecho"0)
) Z2 J1 @- s( c+ l# `$ m( U  (get_input_data)
+ S/ T, q% A, H8 C1 p! k  (command"pline"p1 p2 p3 p4"c")
  (command"line"p1 p3 "")
% V* v3 E' u" n: @) L& d. Y8 S  (command"line"p2 p4 "")
3 f! W: D" L  S% m. x: T' x4 ~9 }  (prinl)
" E$ A' i3 s8 _+ S6 ~)
(defun c:dia5b3()
. f. E! H3 X* |" a  (setvar"cmdecho"0)
  (get_input_data)
8 p: W1 l2 K4 Y' i" e  Z# R  (command"pline"p1 p2 p4 p3"c")
4 b! y, }$ C; i  (prinl)
7 [5 X4 e# u4 ~. R# C1 n)
0 X8 C  g, L+ t8 p: f$ p(defun get_input_data()
  ;;;(setq ww(getreal"宽度WW:"))
  ;;;(setq hh(getreal"\n 高度HH:"))
  (setq p1(getpoint"\n 插入点:"))
  (setq p2(polar p1 0 ww))
3 s7 j. x: d2 z( {  (setq p3(polar p2 (* pi 0.5) hh))
7 g6 M  x8 \. X  R  (setq p4(polar p3 pi ww))
  (setq pm(inters p1 p3 p2 p4))
2 J3 x: A* v* _1 R  (setq pm12(polar p1 0 (* ww 0.5)))
! q: R0 e1 Z6 Y$ x  (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程序
. o* F7 A4 H. d9 ]: r8 `: ldia5b:dialog{
label="按钮测试范例";
, I1 e3 r) g: M# Z# Y4 H:boxed_row{
7 |7 |! B2 _- b/ g0 Clabel="图形尺寸";
& j0 F/ y1 F* G9 Q8 S3 E:edit_box{label="宽度WW";key="KWW";edit_width=8;}
( ~/ h9 D: w% g2 p& n:edit_box{label="高度HH";key="KHH";edit_width=8;}
+ i; k9 k. [9 j7 K3 f}
:button{label="绘制DIA5B1-L型";key="bb1";}
:button{label="绘制DIA5B2-X型";key="bb2";}
/ {  m5 j1 {, E5 w0 e. G:button{label="绘制DIA5B3-8型";key="bb3";}
spacer_1;
, M5 _# r+ n) N1 A) i9 x; Acancel_button;
}
8 b& |4 ^% f, e; f0 d
3 ~/ `: f# z/ r, |5 w0 ?+ R
' P  p; y' _' p% U: }9 }为什么加载LSP后在控制框里填上参数老显示错误: 参数类型错误: stringp nil 我都要崩溃了。谁帮忙看看啊

hjg729

我在用三维阵列的时候，也是不能成功，打开cad 消息窗口，显示：
1 M* D( q( c: M1 Y2 t' v命令: _3darray
正在初始化...参数类型错误: stringp nil
不知道怎么回事，我用的是cad2008

hjg729

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