帮助翻译

Shade · 发表于 2008-4-18 14:41:12

我的一个朋友有一个ARX翻译器（即TOENGLISH），他用它将单个句子/文本行翻译成另一种语言。
我不知道它是如何工作的，但它对他和他就像我一样为他写了一个口齿不清的文件，它将接受文件中的文本行并将其提供给他的翻译器。
我的朋友使用带有lisp/vba插件的autocad LT，但由于某种原因插件确实喜欢我的lisp。所以作为一个实验，我要看看插件是否会除了VBA版本的换行符。顺便说一句，lisp确实在完整的cad中工作，所以我很确定没有那么多错误。
因此，我想知道是否可以帮助我将以下lisp转换为VBA。我不太精通VB，需要帮助翻译。

copy

(Defun Translate (LSP PAR / )
   (setq CHK (findfile LSP))
   (if (= CHK nil)(quit));
   (if (= PAR "D")
       (setq TMP (findfile "Acad.exe")
                PTH (vl-filename-directory TMP)                
                NME (strcat PTH "Tempfile.txt")
                ARG "D"
       );
       (setq  PTH (vl-filename-directory CHK)
                NME (vl-filename-base CHK) 
                NME (strcat PTH "\" NME ".TR8")
                ARG "E"
       )
   );
   (setq OLD (open CHK "r")
         NEW (open NME "w")
         LINE T
   );
   (while (/= LINE nil)
      (setq LINE (read-line OLD))
      (if (/= LINE nil)
          (progn 
                  (setq LINE (TOENGLISH LINE ARG))
                  (write-line LINE NEW)
          );
      );
   );
   (close OLD)
   (close NEW)    
);