QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 10184|回复: 11
收起左侧

[已解决] 求助~~ 如何导出dwg文件中的文本!!!

[复制链接]
发表于 2008-2-5 00:58:46 | 显示全部楼层 |阅读模式 来自: 中国北京

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
各位大虾,我现在需要帮朋友公司翻译一些autocad图纸,都是些dwg文件,但是一条条复制粘贴出来太麻烦了!!所以想请问大家有没有什么办法能快速的把图纸中的文字导出为文本文件,或者有效率高的粘贴方法也好~~ # ]% T4 P7 o8 f0 @7 u
! `! b, Q0 z# ~9 ]2 K; E
p.s.我在网上看到有人写了一个exptext.lsp,不过不太会用,用记事本复制了一个,导入之后不能用,不知道是不是哪里没做好8 y% ^2 I+ {7 J3 I) b; `9 j
% L) c& q$ e. J: V7 T# B
请各位帮帮忙~~
- Z! i; y9 m' M# E3 N  @( c
. t# W3 d# O' F" C6 L0 x2 W7 m如果哪位高人有办法解决请留言
, B' t3 Z2 @( n/ }! e# B0 G9 W! F* n4 u+ U
我的qq:156724021$ R5 u* ~) W2 o3 N; I5 [

4 x. I" E2 H9 T: [3 c3 O[ 本帖最后由 唐昕晨 于 2008-2-5 15:59 编辑 ]
发表于 2008-2-5 06:53:43 | 显示全部楼层 来自: 中国
用AotuCAD2008的数据提取命令(dataextraction)。9 u3 [+ g' X/ P6 j9 C
2 h) S2 e$ v' A) l# o" t3 i$ m
Untitled-1.gif

评分

参与人数 1三维币 +5 收起 理由
唐昕晨 + 5 应助

查看全部评分

发表于 2008-2-5 08:57:53 | 显示全部楼层 来自: 中国辽宁鞍山
能不能将exptxt.lsp的文本提供出来,让大家分析一下,问题出在什么地方,最好是源码
发表于 2008-2-5 09:03:17 | 显示全部楼层 来自: 中国辽宁鞍山
我在2008中用dataextraction命令后到了第4步怎么特别慢??
 楼主| 发表于 2008-2-5 09:42:25 | 显示全部楼层 来自: 中国北京
源码如下:
1 z  o+ ]. d& q9 z* C8 o;;; ExpText.lsp(defun c:EXT (/ flnm fn s n index ents ent txt) ! O/ P+ \; Y7 ?6 e; k  M" p
 (setq flnm (getstring “\nFile name:”)) 7 L$ k$ t. ?' t, G$ t* U
 (setq fn (open flnm “w”))
* Y$ t1 C8 x: c- S& u- H% n: v (setq s (ssget))
5 m9 E% o8 f$ r. H (setq n (sslength s)) : a! V5 ?( ^( o7 D0 |
 (setq index ( - n 1))
" L/ U! x# {/ I6 y! t5 L1 e (repeat n * P, h5 \6 M/ z2 q( K
  (setq ents (entget (ssname s index)))
% {7 r3 ~6 C* @3 y/ b  (setq index ( - index 1))
  E2 i3 `9 ~& {* u1 j  (setq ent (assoc 0 ents)) 6 O: W7 m% v6 r3 _
  (if ( = “TEXT”(cdr ent))
/ J; G3 k6 l  `/ z- g) C( H    (progn
9 X; V( U9 ~7 {# O8 D# v, E      (setq txt (cdr (assoc 1 ents))) ! l1 i8 _" F! {+ j
      (write-line txt fn)
+ X& s! B7 [  d! s: s    )
* S( z' z1 _- v) V  )
6 b; V! J# \. o )
* ^0 p9 ^0 A+ Y7 k- W2 Y$ y  @6 Q(close fn)
- b- \: ?. [6 G2 r, |* C8 t# _6 T)
9 }' }& u9 D  H0 b0 n; f(princ “\n文本导出:EXT”)5 [3 H' y" O! K$ u5 m6 r% [
! T( i+ _% W) |, Z7 q
我是把这段源码直接粘贴进记事本然后保存为exptext.lsp,然后导入autocad2004,不过输入ext后指令出错,无法继续进行下面的步骤了~~$ y) d9 f7 Z- k' \$ U: z3 j) ?+ p. F
: b4 |  i. L& E, t; l
autocad2008的数据提取可以直接把文本提取到txt文件吗,如果可以我就直接去装2008了~
 楼主| 发表于 2008-2-5 09:51:55 | 显示全部楼层 来自: 中国北京
谢谢大家,我的问题已经解决,昨天费劲分析了半天源代码才搞懂,呵呵,多谢大家关心~~ autocad2008确实有提取文本命令,2004版的必须加载lisp才行4 `0 w/ L0 z9 A& z  C
谢谢我爱谁家
发表于 2008-2-7 08:40:35 | 显示全部楼层 来自: 中国河北保定
看来AUTOCAD2008人性化了不少
发表于 2008-2-8 09:01:12 | 显示全部楼层 来自: 中国辽宁鞍山
ExpText.lsp出错是的信息提示是什么?毕竟很多人还没有装2008
发表于 2008-2-8 09:23:43 | 显示全部楼层 来自: 中国山东青岛
源程序中引号有错,可在CADlisp编辑器里修改一下
发表于 2008-7-23 00:27:29 | 显示全部楼层 来自: 中国江苏南京
http://www.3dportal.cn/discuz/vi ... d=444224&page=1
+ _6 m$ \  H* I) |, K( N偶也是和楼主同样的问题,能否请朋友们指点一二
7 D0 S0 x4 p5 T我输入EXT后便出错
  L* f# \$ ~3 s( m& B我更不知道如何窗选
- q' N: D, `  q$ e4 H) B; W: G7 z
( k, c  o2 x# K) [- t3 V6 U" M谢谢
发表于 2008-7-25 22:40:26 | 显示全部楼层 来自: 中国
对5楼的代码修改如下:
4 \$ }! f% G1 U( i/ N+ N------------------------
' @: G& x9 ?7 g) i7 K(defun c:EXT (/ flnm fn s n index ents ent txt)
  r' [- k. R3 o  m* J/ i (setq flnm (getstring "\nFile name:")) 0 H5 G2 q7 t2 D9 f  _1 {" ?
 (setq fn (open flnm "w"))
3 r# ?& y0 A) U$ V, F8 j (setq s (ssget)) ) o$ i9 I6 }" B/ u# t7 l
 (setq n (sslength s)) 0 o$ \5 E( m4 ?0 {5 ]* R9 B0 g
 (setq index ( - n 1)) ( X" P: K6 j- v9 P; o
 (repeat n ; D7 p% f( j6 U
  (setq ents (entget (ssname s index))) 9 M3 ^, q3 D. u# J- S+ w. e+ b  z
  (setq index ( - index 1))
% f3 x5 ]# @3 R) e  (setq ent (assoc 0 ents)) # i. v8 \5 T1 \/ v+ G, \
  (if ( = "TEXT"(cdr ent))
. S- D8 N4 D8 \2 C    (progn 9 L3 D* T; y1 i  D9 _# p
      (setq txt (cdr (assoc 1 ents)))
9 K. [: \3 W7 N      (write-line txt fn)   y, D2 G: Y  ]- [( Y
    )
2 K# i- _) X/ [2 e* ], P& c  ) ; N  \: ]8 h1 z5 t% b
 ) ( T3 ?7 E9 z# [, S% I: A
(close fn)
, p: a- C. F: v" d/ _)
' \7 a+ a; r2 {(princ "\n文本导出:EXT")* U- B7 E4 V. j6 ]+ n7 q
------------------------

评分

参与人数 1三维币 +10 收起 理由
wsj249201 + 10 应助

查看全部评分

发表于 2012-11-1 22:28:54 | 显示全部楼层 来自: 中国山西长治
大家都是高手啊,跟大家比起来我连菜鸟都算不上
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表