[LISP程序]：请帮个忙呀！帮忙看哪里有问题，谢谢！

一生有你

(defun c:lian2(/ dcl_id width height perimeter x1 y1)
  (setq dcl_id (load_dialog"lian2.dcl"))
  (if(not (new_dialog"shurutufudaxiao" dcl_id)) (exit))
  (action_tile"accept" "(done_dialog)")
  (start_dialog)
  (if (= 0 (start_dialog))
      (setq x1(get_tile "width"))
    )
  (setq y1(get_tile "height"))
  (setq x1(atof x1))
  (setq y1(atof y1))
  (setq perimeter (* 2 (+ x1 y1)))
  (command "line" (list 0 0) (list x1 0) (list x1 y1) (list 0 x1) "close")
    (unload_dialog dcl_id)
  (princ(strcat"周长为" perimeter))
  )
画不出图来，错误是：
命令: lian2
; 错误: 参数类型错误: stringp nil
帮帮看看吧！！

czg09180274

(defun c:lian2(/ dcl_id width height perimeter x1 y1)
(setq dcl_id (load_dialog"lian2.dcl"))
(if(not (new_dialog"shurutufudaxiao" dcl_id)) (exit))
(set_tile "width" "")             ;设定对话框中的默认值为空
(set_tile "height" "")            ;设定对话框中的默认值为空(你的程序中没有定义这两个值，所以后面的程序会出错）

(action_tile"accept" "(get-data) (done_dialog 1)")
(setq dd (start_dialog))
(if (= 1 dd) (ai_draw))
)

(defun get_data()
(setq x1(get_tile "width"))
(setq y1(get_tile "height"))
(setq x1(atof x1))
(setq y1(atof y1))
)

(defun ai_draw()
(setq perimeter (* 2 (+ x1 y1)))
(command "line" (list 0 0) (list x1 0) (list x1 y1) (list 0 x1) "close")
(princ(strcat"周长为" perimeter))
)

一生有你

非常感谢！

pipi002004

讲讲这个是什么用的吧，说不定我门其他人也嫩能用得上啊

一生有你

这个程序的意思是我在对话框里输入宽和高，然后用我自己输入的数据来计算周长。还没想出怎么用对话框把我计算的周长输出到文本框！
如各位谁懂，请赐教！！！！感激不尽！