(求助)可否把下面的源码每句都注释下

425017842

(求助)可否把下面的源码每句都注释下，刚接触LISP,不是很明白。
原帖位置http://bbs.mjtd.com/thread-89159-1-1.htm版主GU-XL编写的源码
(DEFUN C:TT (/ PT FILENAME path scale)
  (defun getname (pt scale / X Y XKM A XM YKM YM dimzin)
    (setq dimzin (getvar 'dimzin))
    (setvar 'dimzin 0)
    (setq x (car pt)
          y (cadr pt)
          xkm (rtos (setq a (fix (* 0.001 y))) 2 0)
          xm (substr (rtos (* 0.001 (* (fix (/ (- y (* a 1000)) (* scale 0.5))) (* scale 0.5))) 2 2) 2)
          ykm (rtos (setq a (fix (* 0.001 x))) 2 0)
          ym (substr (rtos (* 0.001 (* (fix (/ (- x (* a 1000)) (* scale 0.5))) (* scale 0.5))) 2 2) 2)
          )
    (setvar 'dimzin dimzin)
    (strcat xkm  xm "-" ykm  ym)
    )
  (setq scale (getint "\n 图形比例尺<1:500>"))
  (if (null scale) (setq scale 500))
  (setq path (getvar 'DWGPREFIX))
(while
  (setq pt (getpoint "\n选取点位置:"))
;;;得到文件名
  (setq filename (strcat (getname pt scale) ".dwg"))
;;;插入块
  (if (setq filename (findfile (strcat path filename)))
    (command "insert" filename '(0 0 0) 1 1 0)
  )
)
)