（已解决）VB读CAD中的文字

vb2cad

大家好，我刚刚到这里，以前用VB做EXCEL和WORD方面的应用，没有接触过CAD编程。

请给我一个VB调用CAD的例子，希望有如下的完整内容：

1、打开一个CAD文件（如：C:\TEST.DWG)

2、用DEBUG.PRINT列出文件中的所有单行文字与多行文字的内容。

3、关闭CAD文件

希望能用VB写，不要用CAD中自带的VBA。

谢谢！

vincentzpf

我想知道你想得到文本块还是纯文本。

vb2cad

谢谢回复。

我不需要读文本块的内容，想得到的就是所有文本的内容，如果文本读出来还包含格式信息都不要紧的，不需要您额外写代码整理成纯文本内容，只要读出来的数据含有文本的内容都可以的。

希望能得到大家的帮助。

vb2cad

一个同事让我帮他写一个程序，把一个工程中的所有图纸的电缆统计到电子表格中，

所以我临时注册提问题的，请斑竹把这个帖子收回，问题已经解决了。

wuhuan2080

请教是怎么实现的呢？

vb2cad

我没有做过CAD方面的编程，为了帮助同事，首先要解决的问题是能工程图纸中的文本读出来这个问题，所以就注册了一些CAD论坛发帖子问（有的CAD论坛现在都不让注册）。同时自己也在网上搜索和看一些编程资料。参考了一个VBA，自己写了一段代码，但不理想，第二天在《博学论坛》http://www.boxuesky.com有热心网友“wuyunpeng888”（CAD二次开发板块的斑竹）答复了我的这个问题，得到下面这段代码，经过试验，很正常。

在这里，感谢关心本帖的网友。我把它贴出来大家共享，希望大家在技术上别太保守，只有互相交流技术才能更好的突破。

Option Explicit
Public cadApp As AcadApplication, cadDoc As AcadDocument
Dim ent As AcadEntity
Private Sub Command1_Click()
On Error Resume Next
'连接CAD
Set cadApp = GetObject(, "autocad.Application")
If Err.Number <> 0 Then
    Err.Clear
    Set cadApp = CreateObject("autocad.Application")
End If
cadApp.Visible = True
'打开DWG文件
Set cadDoc = cadApp.Documents.Open("C:\TEST.DWG")

' 安全创建选择集
Dim SSet As AcadSelectionSet
Dim fType(0) As Integer, fData(0) As Variant      ' 选择集过滤器
Set SSet = cadDoc.SelectionSets.Add("Example")
If Err.Number <> 0 Then
    Err.Clear
    Set SSet = cadDoc.SelectionSets.Item("Example")
    SSet.Clear
End If
fType(0) = 0: fData(0) = "*text"
'选择文字并输出
SSet.Select acSelectionSetAll, , , fType, fData
If SSet.Count > 0 Then
    For Each ent In SSet
        Debug.Print ent.TextString
    Next
End If
SSet.Delete
'关闭文件
cadDoc.Close False
Set SSet = Nothing
Set ent = Nothing
Set cadDoc = Nothing
Set cadApp = Nothing
End Sub

hellommmm

学习了。谢谢！！

klmysjy

非常感谢,无私奉献,共同进步

rensd

不错，学习一下。