谁帮忙看看这个画矩形的程序错在哪里？

wenjin0926

如下程序运行时提示：参数太少。不知道是什么原因，请各位大哥帮忙看看 啊

对话框定义：

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; 
}

LISP驱动程序：

(DEFUN C:RECT() 
 (SETQ DCL_ID (LOAD_DIALOG "D:/wen jin/AutoCAD/second/rect/rect.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")))
  ) 
)

tcsl9621

(ACTION_TILE "accept" "(S_RECT)(DONE_DIALOG 1)") 我中发现这一处。

wenjin0926

我调试了，还是不能正常运行，提示说：参数太少！！！

那位高手再帮忙看看？？

 

龙龙仔

   (unload_dialog) →(unload_dialog DCL_ID)

tcsl9621

对，楼上的对，我没看出来。

wenjin0926

万分感谢！！！

程序已经成功！！！