[LISP函数]：请高手指点一下

yjbin008

小弟刚开始学AUTO LISP 自己试做了一个LISP 内容如下，希望大家给指正一下里面的缺点，谢谢大家：
;立面窗的绘制
(defun C:lmw( / lay os rows colu row1 row2 colu1
                pt pt0 pt1 pt2 pt3 pt4 ww)
             
   (setvar "CMDECHO" 0)
   (setq lay (getvar "clayer"))
   (setq os (getvar "OSMODE"))
   (setvar "OSMODE" 0)
   (command "color" "bylayer")
   (command "layer" "m" "lmw" "c" "c" "lmw" "")

   (setq rows (getint "\n窗上下分格数(1不分格)/<或2>: "))  ;
   (if (= rows nil) (setq rows 2))
   (setq colu (getint "\n窗扇数<3>: "))
   (if (= colu nil) (setq colu 3))
   (setq row1 (getreal "\n窗高<1500>: "))
   (if (= row1 nil) (setq row1 1500))
   (if (= rows 2)
     (progn
       (setq row2 (getreal "\n窗上格高度<450>: "))
       (if (= row2 nil) (setq row2 450))
     )
     (setq row2 0)
   )
   (setq colu1 (getreal "\n窗宽<1500>: "))
   (if (= colu1 nil) (setq colu1 1500))
   (setq pt (getpoint "\n窗左下角点: "))
   (setq pt1 pt) (setq ww (/ colu1 colu))                 ;数据输入

   (setq pt2 (polar pt1 0 colu1))            ;
   (setq pt3 (polar pt2 (* pi 0.5) row1))
   (setq pt4 (polar pt1 (* pi 0.5) row1))
   (command "line" pt1 pt2 pt3 pt4 pt1 "")   ;外框线      
   
   (if (= rows 2)
     (progn
       (setq pt2 (polar pt1 (* pi 0.5) (- row1 row2)))  ;
       (setq pt3 (polar pt2 0 colu1))
       (command "line" pt2 pt3 "")                      ;横线
     )
   )

   (if (>= colu 2)                            ;
     (progn
       (repeat (1- colu)                        
         (setq pt2 (polar pt1 0 ww))
         (setq pt3 (polar pt2 (* pi 0.5) row1))
         (command "line" pt2 pt3 "")         
         (setq pt1 pt2)
       )
     )
   )                                          ;竖线

   (setq pt0 pt)                                         ;
   (repeat colu
     (setq pt1 (polar pt0 (* pi 0.25) 63.6396))
     (setq pt2 (polar pt1 0 (- ww 90)))
     (setq pt3 (polar pt1 (* pi 0.5) (- row1 row2 90)))
     (setq pt4 (polar pt2 (* pi 0.5) (- row1 row2 90)))
     (command "line" pt1 pt2 pt4 pt3 pt1 "")
     (setq pt0 (polar pt0 0 ww))                         ;下框内框线
   )

   (if (= rows 2)
     (progn
       (setq pt0 (polar pt (* pi 0.5) (- row1 row2)))        ;
       (repeat colu
         (setq pt1 (polar pt0 (* pi 0.25) 63.6396))
         (setq pt2 (polar pt1 0 (- ww 90)))
         (setq pt3 (polar pt1 (* pi 0.5) (- row2 90)))
         (setq pt4 (polar pt2 (* pi 0.5) (- row2 90)))
         (command "line" pt1 pt2 pt4 pt3 pt1 "")
         (setq pt0 (polar pt0 0 ww))                         ;上框内框线
       )
     )
   )

   (setvar "OSMODE" os)
   (command "layer" "s" lay "")
   (redraw)
   (princ)
)