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

fsj · 发表于 2010-3-12 14:27:53

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

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

x

本帖最后由 woaishuijia 于 2012-11-13 06:04 编辑

从论坛得到一代码，可实现从AUTOCAD中提取文字至EXCEL，但提取的文字输出到EXCEL后生成的文字顺序与图纸的顺序会有时不同，哪位高手帮看下哪改，可让它按顺序提取
具体代码如下
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"
FT(3) = -4: FD(3) = "or>"
'创建选择集
Set SS = ThisDrawing.SelectionSets.Add("SS")
'在屏幕上选择多行文字或单行文字对象
SS.SelectOnScreen FT, FD
   '如果选择集不为空则运行以下代码
If SS.Count > 0 Then
      '运行EXCEL程序
      Set E = New Excel.Application
      '在EXCEL中插入工作薄
      Set B = E.Workbooks.Add
      '定义工作表
      Set S = B.ActiveSheet
      '显示EXCEL程序
      E.Visible = True
      '遍历选择集并处理被选中的单行文字或多行文字对象
      For Each T In SS
         I = I + 1
         '把单行文字或多行文字的内容写入表格
         '对于多行文字，如果直接写入则字符串中很可能包含转义符，使用者可根据需要对字符串运算处理后再写入表格
         S.Cells(I, 1).Value = T.TextString
      Next
End If
SS.Delete '删除用过的选择集
End Sub

woaishuijia · 发表于 2010-3-12 16:16:32

本帖最后由 woaishuijia 于 2012-11-13 06:00 编辑

你说的"顺序"指的是什么呢?电脑可不是神仙,它不可能猜到你的心事的.呵呵

,你总得给一个规则出来吧?

fsj · 发表于 2010-3-14 09:02:14

本帖最后由 fsj 于 2010-3-14 09:10 编辑

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

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

fsj · 发表于 2010-3-15 17:38:01

高手们都去打酱油了？

fsj · 发表于 2010-3-17 12:08:34

高手在哪啊，快来人啊

sealive_leafage · 发表于 2010-3-17 18:22:13

本帖最后由 sealive_leafage 于 2010-3-17 18:34 编辑

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

fsj · 发表于 2010-3-19 18:37:50

楼上的可否给个链接，我找不到
预谢了

Wonfunggorl86 · 发表于 2017-6-16 15:08:36

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

		自动登录	找回密码
密码			注册

通知

[已答复] G利用VBA从AUTOCAD中提取文字的问题

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

评分

浏览过的版块