[求助]：关于autolisp对话框语句的问题。

lxch

初学lisp编程，做Autolisp、对话框基础.CHM中的练习，遇到困难。
按照提示的程序，就是进行不下去。
望各位指点。

对话框基础中的第三篇中的练习如下：

RECT4.DCL

RECT:dialog  
{  label="Rectangle" ;  
:edit_box  //编辑框组件  
{  label="Rectangle width : " ;  
  key="RECT_W" ;  
  edit_limit=16;  
  edit_width=10;  
  fixed_width=true;  
}  
:edit_box  //编辑框组件  
{  label="Rectangle heigth :" ;  
  key="RECT_H" ;  
  edit_limit=16;  
  edit_width=10;  
  fixed_width=true;  
}  
ok_only;  
}

***************************************************

RECT4.LSP

(DEFUN C:RECT()  (SETQ DCL_ID (LOAD_DIALOG "C:/RECT4.DCL"))  
(NEW_DIALOG "RECT" DCL_ID)  
(SET_TILE "RECT_W" "50.0")  
(SET_TILE "RECT_H" "25.0")  
(ACTION_TILE "accept" "(S_RECT)(DONE_DIALOG)")  

(START_DIALOG)(UNLOAD_DIALOG)  
(SETQ PT_0 (GETPOINT "\nSelect rectangle lower left point : "))  
(SETQ PT_1 (POLAR PT_0 0 TMP_W)  
  PT_2 (POLAR PT_1 (/ PI 2) TMP_H)  
  PT_3 (POLAR PT_2 PI TMP_W))  
(COMMAND "PLINE" PT_0 PT_1 PT_2 PT_3 "C")  
(PRINC))

(DEFUN S_RECT()  (SETQ TMP_W (ABS (ATOF (GET_TILE "RECT_W")))  
  TMP_H (ABS (ATOF (GET_TILE "RECT_H"))))  
)

ljpnb

应该是这句有错误，可能是帮助文件就有错误：
(UNLOAD_DIALOG DCL_ID);;;少了DCL_ID

lxch

更正后，错误已解决。
谢谢指教。