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

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)
)

账号		自动登录	找回密码
密码			注册