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)<BR>                                                               (setq fln (getstring "\n输出的文本文件名 :"))<BR>                                                               (setq f (open fln "w"))<BR>                                                               (setq a (ssget))<BR>                                                               (setq n (sslength a))<BR>                                                               (setq index (- n 1))<BR>                                                               (repeat n<BR>                                                                                       (setq e1 (entget (ssname a index)))<BR>                                                                                       (setq index (- index 1))<BR>                                                                                       (setq e (assoc 0 e1))<BR>                                                                                       (if (= "TEXT" (cdr e))<BR>                                                                                                               (progn <BR>                                                                                                                                       (setq txt (cdr (assoc 1 e1)))<BR>                                                                                                                                       (write-line txt f)<BR>                                                                                                                       )<BR>                                                                                                       )<BR>                                                                                       )<BR>                                                                                       (close f)<BR>)
页: [1] 2 3
查看完整版本: [求助]谁知道怎样将一份图纸中的全部文字导出？