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

fsj

一DWG格式图纸,内有众多的多行文字,如果用复制.粘贴的办法是可以提取多行文字内的文字,但太慢了,不知有没什么办法

[ 本帖最后由 wsj249201 于 2008-7-19 08:34 编辑 ]

细看涛生

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

iassqqq

文字单独设图层
$ g* f8 j- z6 V6 J9 A屏蔽其他图层就可以快速提取所有文字了

fsj

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

sealive_leafage

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

fsj

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

lsy_19830908

用特定对象选择,只选择文本
来进行提取

fsj

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

maoyangmy

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

fsj

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

woaishuijia

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

-----------------------------------------------------------
$ S1 P( I  M* Z. F. N) O5 I: nSub TQ()
    On Error Resume Next
% u* W, K/ A1 L+ b# B  y3 N    Dim I As Integer
    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"
8 ]% r+ \1 i# n- D3 k    FT(1) = 0: FD(1) = "mtext"
    FT(2) = 0: FD(2) = "text"
1 z8 m, t( A8 b9 ^) K& @    FT(3) = -4: FD(3) = "or>"
    '创建选择集
# G& {. C& k2 r/ y, d    Set SS = ThisDrawing.SelectionSets.Add("SS")
, n* g, u. c/ C. Y2 t) q6 u    '在屏幕上选择多行文字或单行文字对象
    SS.SelectOnScreen FT, FD
9 V9 q8 H& ]8 }7 U) R; @7 Q: j     '如果选择集不为空则运行以下代码
    If SS.Count > 0 Then
$ ~! ?* l" F* a$ L+ f+ o( J        '运行EXCEL程序
1 g+ m, y) ?3 \        Set E = New Excel.Application
        '在EXCEL中插入工作薄
" U3 }- \* W" d        Set B = E.Workbooks.Add
# ^, m4 H( n  m! ?8 X1 @        '定义工作表
: E; s! K, z- N        Set S = B.ActiveSheet
8 b# G: V* D1 T: h$ V        '显示EXCEL程序
! A1 u4 `$ ^! K; s* {  P8 q        E.Visible = True
         '遍历选择集并处理被选中的单行文字或多行文字对象
" G; s( R8 D4 i2 }1 I        For Each T In SS
+ s+ t( I* N: c2 n  H            I = I + 1
2 x+ o8 G& d3 Z8 a            '把单行文字或多行文字的内容写入表格
  r3 V2 O  [# z) w4 Y& d. V& k, X            '对于多行文字，如果直接写入则字符串中很可能包含转义符，使用者可根据需要对字符串运算处理后再写入表格
' s. G4 ^- w$ O: ]) ?8 `            S.Cells(I, 1).Value = T.TextString
! l* o% p; U) i% `! Q* I        Next
! W$ I# s* Y: Q2 q8 _    End If
    SS.Delete '删除用过的选择集
End Sub
-----------------------------------------------------------------

  U8 A( d+ e; _“Alt+F11”打开VBA编辑器，将以上代码复制粘贴到thisdrawing对象代码窗口，在“工具”菜单下点“引用”，选择EXCEL类库（名称与EXCEL版本有关，如EXCEL2000为“Microsoft Excel 9.0 Object Library”），确定后即可使用。
) o, G* y% Y3 \% o9 a9 c" s8 P
$ {' F4 _8 {7 n' k3 I[ 本帖最后由 woaishuijia 于 2008-7-19 02:39 编辑 ]

fsj

我爱谁家真是高手，很感谢，实现了目标。看来也要学点VBA
楼上还搞到这么晚，辛苦了（应该今天不用上班了吧），再一次多谢了
6 Z# {: \( V0 `+ M, Q" I+ i
[ 本帖最后由 fsj 于 2008-7-19 06:53 编辑 ]