【求助】简单的AutoLISP语言转换成C语言－没人会？

yiluohe

我有一些AutoLisp的程序看不懂，请各位帮我翻译成C语言形式。谢谢！  
（defun YPZL(/ f data2 c d l2 h d1 v1 v2a v2b v2 vo vn v3 v4 v5a v5b v5c v5 h1 v m ) //data2 后面为变量，这个句子我不理解  
（setq f (open (getfiled "select a file" "d:\\1hx\\" ""8)"r")  
(setq data2(list))  
(setq c (read-list f)  
(while (/=c nil)  
         (rline c)  
         (setq data2 (append data2 datalist))  
         (setq c (read-line f)  
)  
  
:argument of list  
(setq d(list 'l' 'l1' 'r1' 'r2' 'r3' 'r4' 'r5' 'k1' 'k2' 's3' 'h2' 'h4' 'h8' 'h9' 'z' 'p' 't1' h3' 'h6'  
   'h7' 'c1' 'c2'))  
(jjfz d data2)  
(close f)  
  
//又一段  
the data evaluated to argument  
(defun jjFz (fhao shu / i n a b )  
(setq i 0)  
(setq n (length fhao))  
  (repeat n  
(setq a (ntn i fhao))  
  (setq b (ntn i fshu))  
(set a b)  
(setq i (i+1))  
   
)  
  
;read-line of string and the string change to data of list  
(defun rline (c / str i s1 lettero letter)  
    (setq datalist (list))  
    (setq str "")  
   (setq i l)  
   (setq s1 (strlen c)  
   (setq lettero " " letter " ")  
   (repeat s1)  
(setq lettero letter)  
(setq letter (substr c i l))  
(if (/= lettrer " ")  
     (if (/=letter ",")  
              (setq str (strcat str letter))  
        
   
  (cond ( ( or (and (or ( and (>lettero "/") (<lettero ":") )(lettero "."))  
                             (or (=letter " ")(=letter "," ) )  
                      
                        (= i s1 )  
              
              (setq datalist (cons (atof str ) datalist ))  
              (setq str " ")  
             
      
     (setq i ( 1+i)  
   
  (setq datalist (reverse datdalist))  
)

wayne