[求助]新手求助,请高手帮忙!!!!

ldsslg

小弟才刚刚起步自学LISP语言,希望高手帮忙注解!!下面是提取线坐标的程序,

(defun c:outcor(/ filename file entname ptlist index pt str)
  (setq OutCorFileIndex (if OutCorFileIndex OutCorFileIndex 1)
        filename (strcat (getvar "dwgprefix") "zb" (itoa OutCorFileIndex)".txt")
    OutCorFileIndex(1+ OutCorFileIndex)
    file (open filename "w")
  )
  (setq entname (car(entsel))
    ptlist  (vl-remove-if '(lambda(x) (/= (car x) 10)) (entget entname))
    index   0
  )
  (repeat (length ptlist)
    (setq pt (nth index ptlist)
      str (strcat (itoa (1+ index)) ",1,1," (itoa (1+ index)) "," (rtos (caddr pt) 2 3)
              ","(rtos (cadr pt) 2 3))
      index (1+ index)
    )
    (write-line str file)
  )
  (close file)
  (alert (strcat "你的坐标文件保存在" filename "请查看"))
)

ldsslg

没人理我呀~~~好惨呀~~~