社区 › VB › 帮助翻译

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

帮助翻译

我的一个朋友有一个ARX翻译器（即TOENGLISH），他用它将单个句子/文本行翻译成另一种语言。
我不知道它是如何工作的，但它对他和他就像我一样为他写了一个口齿不清的文件，它将接受文件中的文本行并将其提供给他的翻译器。
我的朋友使用带有lisp/vba插件的autocad LT，但由于某种原因插件确实喜欢我的lisp。所以作为一个实验，我要看看插件是否会除了VBA版本的换行符。顺便说一句，lisp确实在完整的cad中工作，所以我很确定没有那么多错误。
因此，我想知道是否可以帮助我将以下lisp转换为VBA。我不太精通VB，需要帮助翻译。
(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"
       );
       (setqPTH (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)   
);
lisp基本上采用另一种语言编写的文本文件，打开文件，翻译文件并将翻译写入临时文件，然后将其带入Autocad。
lisp非常基本，应该很容易理解。
任何帮助都将不胜感激...
**** Hidden Message *****

Dnereb 发表于 2008-5-12 11:23:23

良好的....我的两个观点:
为了帮助自己，你需要帮助你的帮助者。
问题是许多vba熟练人员不理解lisp(许多愚蠢的括号)
因此，如果您用简单的英语写下每一行LISP代码的作用，人们可能甚至想要帮助您。

Dnereb 发表于 2008-5-12 11:25:50

不需要ARX...你只需要一个网络浏览器。
http://world.altavista.com/

查看完整版本: 帮助翻译