窗口读取文件调试定义出错

zwf100

高手帮忙看下下面这段程序，是读取文件赋值，运行时出现错误: no function definition: STTA，感觉语句没啥问题的

(defun C:readtxt()
(vl-load-com)
;(setq txt_str (getstring "\nfile's name and path :"))
(setq txt_str (getfiled "Select file to Open" "" "txt" 8))
  
     (setq str_lst nil)
     (setq bb 1)
     (if (setq ff (open txt_str "r"))
         (progn
         
            (while (setq data (read-line ff))
               (princ (strcat "\n*** 数据=" data ))
   
                                (setq str_lst (cons  str_lst data ))
                 (setq stta (nth bb str_lst))
                (princ (strcat "\n*** 数据="  rtos(stta 2 3) ))
             (setq bb (+ bb 1))
              )
         (close ff)
         )
      )
(prin1)
  str_lst
  
)

鱼与熊掌

rtos(stta 2 3) ))

zwf100

鱼与熊掌 发表于 2015-5-5 21:57
rtos(stta 2 3) ))

谢谢，找到原因了