[求助]谁知道怎样将一份图纸中的全部文字导出？

stcwlz · 发表于 2004-9-7 11:20:00

经常碰到这样的情况，很多外文图纸（英、德、法...）需要将其中德文字搞成中文，懂CAD德不会翻译，翻译又不会用CAD，只好一个一个将文字复制出来，翻完后再一个一个复制进去，尤其碰到含有大量块的大图纸，有时块不好炸开，处理起来烦死了。有什么方法可以将文字自动导出交给翻译吗？

alwsu666 · 发表于 2004-9-7 11:30:00

你用filter命令试试

hours · 发表于 2004-9-7 11:34:00

filter只能过滤出文字吧！？能把文字导出TXT文件吗？
我看还是把文字过滤出来后CTRL-C，在WORD里CTRL-V！
这样可以把文字拷贝成图片！

stcwlz · 发表于 2004-9-7 11:36:00

谢谢二位，我试一下

stcwlz · 发表于 2004-9-7 11:46:00

还是希望能导出txt文件，还有好办法吗？

hours · 发表于 2004-9-7 11:59:00

写个LISP吧！

stcwlz · 发表于 2004-9-7 12:03:00

我很菜，怎么写可以帮我吗？

hours · 发表于 2004-9-7 12:42:00

我前年学过一点！去年就基本忘光了！：（
请个高手帮一下吧！！

stcwlz · 发表于 2004-9-7 19:03:00

迫切希望高手能予以帮助！

独角斗士 · 发表于 2004-9-7 19:11:00

多少年前编的，非常粗糙，因为几乎不用，也就没兴趣修改。
(defun c:wtext (/ fln f a n index e1 e txt)
   (setq fln (getstring "\n输出的文本文件名 :"))
   (setq f (open fln "w"))
   (setq a (ssget))
   (setq n (sslength a))
   (setq index (- n 1))
   (repeat n
   (setq e1 (entget (ssname a index)))
   (setq index (- index 1))
   (setq e (assoc 0 e1))
   (if (= "TEXT" (cdr e))
   (progn
   (setq txt (cdr (assoc 1 e1)))
   (write-line txt f)
   )
   )
   )
   (close f)
)

[求助]谁知道怎样将一份图纸中的全部文字导出？

发表回复

精选推荐