【CAD】通过VBA获取CAD中的文本

最新推荐文章于 2024-03-31 16:59:07 发布

end1n9

最新推荐文章于 2024-03-31 16:59:07 发布

阅读量5.6k

点赞数 2

分类专栏： vbs autocad 文章标签： vba autocad

本文链接：https://blog.youkuaiyun.com/end1n9/article/details/112801674

版权

vbs 同时被 2 个专栏收录

10 篇文章

订阅专栏

autocad

2 篇文章

订阅专栏

本文介绍了一种在AutoCAD中提取文本并将其保存到文本文件的方法，通过VBA脚本实现，能自动跳过非文本对象的选择，适用于焊口编号等数据的提取及后续比对。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

同事需求，要提取单线图中的所有焊口编号和检测报告中的做比对。网上找了个有些麻烦，不能选取非文本，否则报错。于是修改代码如下。

用法：

1、打开cad文件

2、在VB编辑器中复制以下代码，然后运行

3、此时回到CAD，选取要提取的文本，如果都需要提取，则全选。选取非文本时脚本会自动跳过。右键完成。

4、结果保存在d:/output.txt文件内。

Sub AcadGetText()
    
    Dim sset As AcadSelectionSet   '声明定义选择集
    Dim ent As AcadEntity          '声明实体
    Dim fso, f
    Dim filename As String         '声明文件字符串
    Dim str As String
    
    filename = "d:/output.txt"
    
    Do While ThisDrawing.SelectionSets.Count > 0
        ThisDrawing.SelectionSets.Item(0).Delete
    Loop
    
    Set sset = ThisDrawing.SelectionSets.Add("sst")  '添加选择集
    sset.SelectOnScreen                              '在屏幕上选择对象
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(filename, 8, True)
    
    ' 可能选取到非文本，所以。。。
    On Error Resume Next
    For Each ent In sset
        str = ""
        str = ent.TextString
        If str <> "" Then f.WriteLine str
    Next
    
    f.Close
    
End Sub

参考于：https://blog.youkuaiyun.com/maokaijiang/article/details/5814147

自己修改了些代码，用于处理选取了非文本时报错问题。也更换了写文件的方式。

2021.1.19 锦采