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

fsj

一DWG格式图纸,内有众多的多行文字,如果用复制.粘贴的办法是可以提取多行文字内的文字,但太慢了,不知有没什么办法
8 d' S) y  d- B. }5 b& a1 {8 n
& P8 F; \2 N! M* f1 e: a[ 本帖最后由 wsj249201 于 2008-7-19 08:34 编辑 ]

细看涛生

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

iassqqq

文字单独设图层
% K8 A2 T9 I( J* {" f屏蔽其他图层就可以快速提取所有文字了

fsj

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

sealive_leafage

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

fsj

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

lsy_19830908

用特定对象选择,只选择文本
9 p1 S# C/ U8 ?8 |3 X- n来进行提取

fsj

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

maoyangmy

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

fsj

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

woaishuijia

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

7 s+ G4 g# P4 H0 ~$ w  W-----------------------------------------------------------
$ h! P4 T5 @9 }3 FSub TQ()
9 r4 ~) _! d7 o7 f" K    On Error Resume Next
    Dim I As Integer
2 A# d7 Y5 i6 d% L& n    Dim E As Excel.Application, B As Workbook, S As Worksheet
    Dim SS As AcadSelectionSet, T As Object, FT(3) As Integer, FD(3) As Variant
    '下面定义选择集过滤器列表为多行文字或单行文字
    FT(0) = -4: FD(0) = "<or"
9 X* O8 o3 T6 G" H/ d    FT(1) = 0: FD(1) = "mtext"
8 y; c* L" F5 H3 v( m+ W+ Y1 W+ ]    FT(2) = 0: FD(2) = "text"
3 B2 p! g! {; N& q    FT(3) = -4: FD(3) = "or>"
    '创建选择集
    Set SS = ThisDrawing.SelectionSets.Add("SS")
    '在屏幕上选择多行文字或单行文字对象
    SS.SelectOnScreen FT, FD
' _6 I9 r/ n* C5 e     '如果选择集不为空则运行以下代码
/ `; p* k  U7 ^# G    If SS.Count > 0 Then
' L; X5 b, \: i. P' {4 Z        '运行EXCEL程序
        Set E = New Excel.Application
        '在EXCEL中插入工作薄
8 i& u! q1 g7 U% w1 T        Set B = E.Workbooks.Add
        '定义工作表
        Set S = B.ActiveSheet
        '显示EXCEL程序
        E.Visible = True
         '遍历选择集并处理被选中的单行文字或多行文字对象
        For Each T In SS
- J5 g( M* b  n' `  F            I = I + 1
            '把单行文字或多行文字的内容写入表格
3 Y2 v/ w; X  O* ?, W            '对于多行文字，如果直接写入则字符串中很可能包含转义符，使用者可根据需要对字符串运算处理后再写入表格
            S.Cells(I, 1).Value = T.TextString
2 z3 K% w( {, ~; y+ @( ]* [$ K        Next
    End If
    SS.Delete '删除用过的选择集
* @0 \$ s- r# X9 _/ GEnd Sub
5 o% l- a6 B- q) E. h( |0 L4 L-----------------------------------------------------------------
' }" u  F# H$ j, {7 U3 P
) ?+ A9 [% D; Y4 m/ a; X5 `“Alt+F11”打开VBA编辑器，将以上代码复制粘贴到thisdrawing对象代码窗口，在“工具”菜单下点“引用”，选择EXCEL类库（名称与EXCEL版本有关，如EXCEL2000为“Microsoft Excel 9.0 Object Library”），确定后即可使用。
7 n. t& Y+ [- q) k# @  m& ?1 J
' R1 z; H1 y+ ~: |, E[ 本帖最后由 woaishuijia 于 2008-7-19 02:39 编辑 ]

fsj

我爱谁家真是高手，很感谢，实现了目标。看来也要学点VBA
楼上还搞到这么晚，辛苦了（应该今天不用上班了吧），再一次多谢了
9 R7 ]2 B6 z9 g8 R5 I% Y
, r; f( G( g' l; Y; f8 G6 ?3 j[ 本帖最后由 fsj 于 2008-7-19 06:53 编辑 ]