获取 dwg 中，名字为 D 或 M 开头的标注点位置。

最新推荐文章于 2020-12-30 03:22:07 发布

最新推荐文章于 2020-12-30 03:22:07 发布 · 194 阅读

文章标签：

#vba #cad

技术专栏收录该内容

18 篇文章

订阅专栏

本文介绍了一段VBScript代码，用于从AutoCAD DWG文件中提取所有名称以D或M开头的标注点的位置，并将这些位置信息写入文本文件。代码通过遍历模型空间中的每个对象，检查其是否为文本对象并符合筛选条件。

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


Private Sub getData()
    '获取 dwg 中，名字为 D 或 M 开头的标注点位置。
    'MsgBox ThisDrawing.Utility.get .GetString("D222")
    Dim varData As Variant
    Dim oName As Variant
    Dim txt As AcadText
    Dim ss As String

    Dim idx As Integer
    Dim i As Integer
    On Error GoTo ErrorHandler

    'varData = ThisDrawing
    'varData = ThisDrawing.ModelSpace
    varData = ThisDrawing.ModelSpace.Item(1).ObjectName

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("D:\fsti\地市部署\新设备\福州\福州联网_0308\福州联网\琴亭\位置点.txt", True)


    For i = 0 To ThisDrawing.ModelSpace.Count - 1 Step 1
        idx = i
        oName = ThisDrawing.ModelSpace.Item(i).ObjectName
        If oName = "AcDbText" Then
            Set txt = ThisDrawing.ModelSpace.Item(i)
            ss = Str(txt.insertionPoint(0))

            ss = ThisDrawing.ModelSpace.Item(i).textString

            If Left(ss, 1) = "D" Or Left(ss, 1) = "M" Then
                'MsgBox ss & Str(txt.insertionPoint(0))
                'Exit For
                a.WriteLine (ss & "     " & Str(txt.insertionPoint(0)) & "     " & Str(txt.insertionPoint(1)))
            End If
        End If

    Next i

    a.Close

    'MsgBox varData

ErrorHandler:    ' 错误处理程序。
    If Err.Number <> 0 Then

        MsgBox Str(idx) & ": Err.Number:" & Str(Err.Number) & ": Err.Description:" & Err.Description
    End If
'Resume    ' 将控制返回到产生错误的语句。
Exit Sub

End Sub