G利用VBA从AUTOCAD中提取文字的问题

fsj

从论坛得到一代码，可实现从AUTOCAD中提取文字至EXCEL，但提取的文字输出到EXCEL后生成的文字顺序与图纸的顺序会有时不同，哪位高手帮看下哪改，可让它按顺序提取
; P4 L7 N8 t' O  @具体代码如下
Sub TQ()
    On Error Resume Next
    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"
    FT(1) = 0: FD(1) = "mtext"
    FT(2) = 0: FD(2) = "text"
* z4 p5 f  A5 [    FT(3) = -4: FD(3) = "or>"
    '创建选择集
" k" b6 Y# x- W3 z+ S    Set SS = ThisDrawing.SelectionSets.Add("SS")
4 a1 V& Y% N9 L/ I& A; ~* f    '在屏幕上选择多行文字或单行文字对象
; C, m# Z7 K' d+ }  _% C    SS.SelectOnScreen FT, FD
     '如果选择集不为空则运行以下代码
    If SS.Count > 0 Then
        '运行EXCEL程序
! @  t7 {- D8 Q        Set E = New Excel.Application
3 @( x' [& @* f! z        '在EXCEL中插入工作薄
& Z. l6 D! N& X$ k7 ?        Set B = E.Workbooks.Add
        '定义工作表
% _1 H6 s* v0 X5 ]        Set S = B.ActiveSheet
4 U1 Y) f& \% W' R, ]% {        '显示EXCEL程序
! @) `, I1 m' S+ U6 U        E.Visible = True
/ j+ N) @3 C* W% E. c" D         '遍历选择集并处理被选中的单行文字或多行文字对象
        For Each T In SS
            I = I + 1
& y7 w$ c! ?' I9 i0 L6 a            '把单行文字或多行文字的内容写入表格
. ]# f7 b$ i! S* w( e' c) O& l            '对于多行文字，如果直接写入则字符串中很可能包含转义符，使用者可根据需要对字符串运算处理后再写入表格
            S.Cells(I, 1).Value = T.TextString
; T9 |3 }1 X3 p+ g4 i        Next
* ~+ p6 ~! ]- z% V- k    End If
0 e# A( b* }3 K2 e    SS.Delete '删除用过的选择集
% _3 P5 o7 m% b: }End Sub

woaishuijia

' R& z1 G  E) v" n# K# l* k% u
你说的"顺序"指的是什么呢?电脑可不是神仙,它不可能猜到你的心事的.呵呵,你总得给一个规则出来吧?

fsj

你说的"顺序"指的是什么呢?电脑可不是神仙,它不可能猜到你的心事的.呵呵,你总得给一个规则出来吧?

打个比方,图纸上文本(多个单行文字)的顺序为q a z w s x,利用此提取的文本的顺序可能是a q s x w z,我要得到的是q a z w s x,即与图上的文本顺序一样,你可试提取一下,它生成的文本只能是单列的(如果可以做成多行多列的,则更好)

fsj

高手们都去打酱油了？

fsj

高手在哪啊，快来人啊

sealive_leafage

5 b8 s& ~' k, f9 T( J如果单纯是功能的上实现，有专门的程序可以下载使用（论坛上就有），如果是在学习VBA，此程序不能按你要的顺序提取的原因是提取顺序跟选择集构建的顺序有关；试试按你要求的顺序单个选择文字对象，而不是使用框选方式选择；如果文字选择有规律可循，如文字的位置，只要在程序里增加文字位置点的判断即可，关键是要有规律，不如像BOM中内容的提取，一行一行的提取；

fsj

楼上的可否给个链接，我找不到
( S) G. S; T/ l/ _预谢了

Wonfunggorl86

论坛里的这个程序大家谁有啊。