如何一次性提取多行文字内的所有文字

fsj

一DWG格式图纸,内有众多的多行文字,如果用复制.粘贴的办法是可以提取多行文字内的文字,但太慢了,不知有没什么办法
( Y, ]: L, w, l  G* j! U
# u3 Z% R& {  D5 j$ h) J% q[ 本帖最后由 wsj249201 于 2008-7-19 08:34 编辑 ]

细看涛生

要看你往什么地方提,提来干嘛,OK?

iassqqq

文字单独设图层
- i& k& d' c$ M% }屏蔽其他图层就可以快速提取所有文字了

fsj

我的目地是EXCEL。但只要能至TXT之类就都好办了，三楼的可否讲如何操作

sealive_leafage

“工具”菜单里，选择“数据提取”；可以提取到excel

fsj

楼上的，那只能提取块里的数据，不能提提取多行文字里的数据

lsy_19830908

用特定对象选择,只选择文本
3 D3 V5 [; O+ M7 a# N$ r来进行提取

fsj

我这是2004版的CAD。没有你们讲的数据提取功能，我把属性提取看成数据提取了

maoyangmy

数据提取功能一样适用于多行文字，楼上的可以试试

fsj

我这是2004版的CAD。找不到你们讲的数据提取功能

woaishuijia

可以用二次开发功能编程提取。以下是VBA例程：

6 v7 C0 d* O( u-----------------------------------------------------------
Sub TQ()
! I8 \* @* v6 y$ ]' g    On Error Resume Next
" A- K$ c0 \8 _2 Y$ N( S    Dim I As Integer
9 Z' p% P* q" H" M) c. M    Dim E As Excel.Application, B As Workbook, S As Worksheet
7 K/ r7 j" J0 s4 }, h& W+ S    Dim SS As AcadSelectionSet, T As Object, FT(3) As Integer, FD(3) As Variant
    '下面定义选择集过滤器列表为多行文字或单行文字
  v/ X1 O9 K* d0 r& ?% Y8 H    FT(0) = -4: FD(0) = "<or"
! y$ E$ _' |6 S& Z% f4 @) h    FT(1) = 0: FD(1) = "mtext"
/ t* i/ P6 n/ Q4 x9 |8 @7 L    FT(2) = 0: FD(2) = "text"
2 v/ g5 t1 }# h4 L7 }7 d1 d5 c    FT(3) = -4: FD(3) = "or>"
    '创建选择集
    Set SS = ThisDrawing.SelectionSets.Add("SS")
) w4 f1 ]$ _+ ^    '在屏幕上选择多行文字或单行文字对象
9 A! X7 C* x4 N8 J6 u    SS.SelectOnScreen FT, FD
7 w0 Z" ]$ {. U, ]8 d     '如果选择集不为空则运行以下代码
5 I! L7 d5 e1 o8 h8 D1 S0 J" p: p0 O    If SS.Count > 0 Then
  T: i3 Q4 l# F- B        '运行EXCEL程序
        Set E = New Excel.Application
4 v5 z+ t) n  X* F* L9 f        '在EXCEL中插入工作薄
        Set B = E.Workbooks.Add
        '定义工作表
        Set S = B.ActiveSheet
        '显示EXCEL程序
0 j: l" u$ v. B' p$ u3 [" [# \        E.Visible = True
! |: \$ I' ~  B5 X         '遍历选择集并处理被选中的单行文字或多行文字对象
        For Each T In SS
            I = I + 1
            '把单行文字或多行文字的内容写入表格
! _1 O- i3 J* ?( l2 k$ l            '对于多行文字，如果直接写入则字符串中很可能包含转义符，使用者可根据需要对字符串运算处理后再写入表格
            S.Cells(I, 1).Value = T.TextString
/ X, w0 B7 s& v; `( s% a! `        Next
    End If
    SS.Delete '删除用过的选择集
End Sub
$ E* G2 p0 B3 c- A-----------------------------------------------------------------
& x0 Y. g4 ~/ Q; e1 \% p! G
“Alt+F11”打开VBA编辑器，将以上代码复制粘贴到thisdrawing对象代码窗口，在“工具”菜单下点“引用”，选择EXCEL类库（名称与EXCEL版本有关，如EXCEL2000为“Microsoft Excel 9.0 Object Library”），确定后即可使用。
7 @5 G$ m! N) |" I9 f0 s
[ 本帖最后由 woaishuijia 于 2008-7-19 02:39 编辑 ]

fsj

我爱谁家真是高手，很感谢，实现了目标。看来也要学点VBA
楼上还搞到这么晚，辛苦了（应该今天不用上班了吧），再一次多谢了
' U- q# N2 x5 K7 d+ `8 E$ \- w
- r  D* p! I# \$ K[ 本帖最后由 fsj 于 2008-7-19 06:53 编辑 ]