Solidworks二次开发—12—工程图的note

• 关 键 词：

讨论组 ：http://group.qqread.com

下面的程序读取当前图纸的每一个note，并在debug中打印结果。

Option Explicit

Dim swname As String

Dim swtext As String

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swDraw                      As SldWorks.DrawingDoc

    Dim swView                      As SldWorks.View

    Dim swNote                      As SldWorks.note

    Dim swAnn                       As SldWorks.Annotation

    Dim bRet                        As Boolean

    Debug.Print "begin:" & Chr(10)

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swDraw = swModel

 Set swView = swDraw.GetFirstView        ' This is the drawing template.i don't need to care about it

    Set swNote = swView.GetFirstNote

    swModel.ClearSelection2 (True)

    Debug.Print "File = " & swModel.GetPathName

    Do While Not swNote Is Nothing

        Set swAnn = swNote.GetAnnotation

        bRet = swAnn.Select2(True, 0)

        Debug.Assert bRet

 swname = swNote.GetName

 swtext = swNote.GetText

Debug.Print "  名称：" & swNote.GetName; " *** 文本： " & swNote.GetText

        Set swNote = swNote.GetNext

    Loop

End Sub

【深 度 阅 读】 相 关 文 章