求助~~ 如何导出dwg文件中的文本！！！

opentranslator

各位大虾，我现在需要帮朋友公司翻译一些autocad图纸，都是些dwg文件，但是一条条复制粘贴出来太麻烦了！！所以想请问大家有没有什么办法能快速的把图纸中的文字导出为文本文件，或者有效率高的粘贴方法也好~~
0 p1 Q, @% s7 J- A5 g9 }9 L6 X* ?1 c
p.s.我在网上看到有人写了一个exptext.lsp，不过不太会用，用记事本复制了一个，导入之后不能用，不知道是不是哪里没做好

* n7 e* [" H) L3 v) O请各位帮帮忙~~
, n2 n7 T# ?# l7 D
如果哪位高人有办法解决请留言
9 I5 L2 \  Q# z* i% b' U8 k
$ _0 I! u) ~5 v我的qq:156724021

[ 本帖最后由 唐昕晨 于 2008-2-5 15:59 编辑 ]

woaishuijia

用AotuCAD2008的数据提取命令(dataextraction)。

# |' C7 P6 s. H

maoyangmy

能不能将exptxt.lsp的文本提供出来，让大家分析一下，问题出在什么地方，最好是源码

maoyangmy

我在2008中用dataextraction命令后到了第4步怎么特别慢？？

opentranslator

源码如下：
2 z: L# O6 @7 @8 @  o;;; ExpText.lsp(defun c:EXT (/ flnm fn s n index ents ent txt)
　(setq flnm (getstring “\nFile name:”))
　(setq fn (open flnm “w”))
　(setq s (ssget))
　(setq n (sslength s))
6 c( K2 X6 P# I; G　(setq index ( - n 1))
　(repeat n
　　(setq ents (entget (ssname s index)))
　　(setq index ( - index 1))
# p! M7 L# f% D9 p　　(setq ent (assoc 0 ents))
　　(if ( = “TEXT”(cdr ent))
　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　　(write-line txt fn)
　　　　)
　　)
' ~; m8 I0 O, T　)
(close fn)
)
9 y, b! |1 [4 c* J6 G0 ^" y. j(princ “\n文本导出:EXT”)
3 Z: t! ~; v( L  _
我是把这段源码直接粘贴进记事本然后保存为exptext.lsp，然后导入autocad2004，不过输入ext后指令出错，无法继续进行下面的步骤了~~
! r8 F/ J/ k8 `& p& z4 a% E
autocad2008的数据提取可以直接把文本提取到txt文件吗，如果可以我就直接去装2008了~

opentranslator

谢谢大家，我的问题已经解决，昨天费劲分析了半天源代码才搞懂，呵呵，多谢大家关心~~ autocad2008确实有提取文本命令，2004版的必须加载lisp才行
8 Z3 Z) {, ?+ X0 W谢谢我爱谁家

sunnyoldman

看来AUTOCAD2008人性化了不少

maoyangmy

ExpText.lsp出错是的信息提示是什么?毕竟很多人还没有装2008

hustrys

源程序中引号有错，可在CADlisp编辑器里修改一下

TradoSong

http://www.3dportal.cn/discuz/vi ... d=444224&page=1
5 [' F7 l4 k. p偶也是和楼主同样的问题，能否请朋友们指点一二
我输入EXT后便出错
1 J# o: F1 M$ p, e9 h5 Q我更不知道如何窗选
# K: c* `/ o- t+ z
谢谢

woaishuijia

对5楼的代码修改如下：
－－－－－－－－－－－－－－－－－－－－－－－－
% ~# m/ {9 v$ K: c# H(defun c:EXT (/ flnm fn s n index ents ent txt)
　(setq flnm (getstring "\nFile name:"))
　(setq fn (open flnm "w"))
　(setq s (ssget))
　(setq n (sslength s))
! \" o0 N: ~4 @1 G0 {7 {　(setq index ( - n 1))
; U+ ^; l6 m2 P! ?- G　(repeat n
　　(setq ents (entget (ssname s index)))
　　(setq index ( - index 1))
　　(setq ent (assoc 0 ents))
% E' F! x4 J6 n6 C  R: ]　　(if ( = "TEXT"(cdr ent))
% {" Q, ?3 a9 z' T5 g& m　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　　(write-line txt fn)
　　　　)
　　)
　)
% ^: h( a+ \& C0 e5 B(close fn)
  E7 i2 L6 e( h: e% j6 W3 X)
7 Z* x- ^/ `9 P# v" \(princ "\n文本导出:EXT")
－－－－－－－－－－－－－－－－－－－－－－－－

单恋一支花

大家都是高手啊，跟大家比起来我连菜鸟都算不上