帮忙看看这个程序哪有问题

lixiaomin96

dia5a.lsp中的程序如下
6 l! E5 n& b5 G7 q( W/ t  _. k( {
- p& E  J" ~8 d. H8 E& k- h/ h( O(defun c:dia5a()
5 ]& y7 B* O+ v) x4 ~  (setvar "cmdecho" 0)
- T: y  i9 {, ]5 R  (dcl_dia5a)
  (prinl)
)
3 V1 R% g1 o+ w/ A; @(defun dcl_dia5a()
  (setq dcl_id (load_dialog "dia5a"))
  (new_dialog "dia5a" dcl_id)
, @- K, `  i% b- f  (set_tile "edit_p" (rtos (getvar "plinewid")))
  (set_tile "edit_f" (rtos (getvar "filletrad")))
# l* ]3 T6 V1 g3 O" T  (set_tile "edit_t" (rtos (getvar "textsize")))
) k( i7 z! A1 s  y9 }* T  (set_tile "edit_s" (itoa (getvar "savetime")))
: \5 G  ~5 `, ?4 E  [. B  (action_tile "accept" "(ok_dia5a)(done_dialog 1)")
  (start_dialog)
1 `9 N6 ?  T& |$ a5 G! Q)
' b; r  X& }4 L) {' A& \(defun ok_dia5a()
  (setvar "plinewid" (atof (get_tile "edit_p")))
: q2 P# g# ^0 T% c  (setvar "filletrad" (atof (get_tile "edit_f")))
, Q. V2 {/ B4 w* c+ M  (setvar "textsize" (atof (get_tile "edit_t")))
  (setvar "savetime" (atoi (get_tile "edit_s")))
)
2 F8 t6 @! E) J3 m8 H. t  J; z

dia5a.dcl中程序如下
: Y6 A. ~& B8 \5 Udia5a:dialog{
            label="AutoCAD绘图默认值设定";
% o; _6 i% W9 u9 [7 K            :edit_box{
- a3 [, P7 M3 \1 O5 A; ~9 O, T9 `/ y) @                     label="pline宽度";
. E1 e' P3 U  d* B" n+ B                     key="edit_p";
4 I, Q( O! A$ A$ D( u3 [* x                     edit_width=6;
            }
+ _) o: m5 q& C3 a. d+ D. v( C            :edit_box{
: E" _* L) n' ]- A$ K% S2 O- S/ ~7 W! b" E                     label="fillet半径";
- u/ C: T& ^* D/ e) `6 h  G                     key="edit_f";
; l; L' c/ J: W                     edit_width=6;
            }
            :edit_box{
2 O9 B; T" G& A- Z; S& W8 d' z                     label="text字高";
                     key="edit_t";
                     edit_width=6;
# m0 R7 R" F# G- N2 u            }
# ~! x3 F$ g1 T( h            :edit_box{
; T+ d* }9 c) B' g6 D. [8 y                     label="自动保存时间";
( N% E: I5 M- G$ O: e% x! a                     key="edit_s";
                     edit_width=6;
            }
' A- W& Q9 z6 ^( O- j            ok_cancel;
}




不知道为什么LSP程序无法运行老显示 错误: no function definition: PRINL 请高手帮忙看看 我是新手才学LSP不是很明白

dzgzfei

看了，对我来说没有问题，根本看不懂