Makros zum Bearbeiten des Textes einer Zeichnung

Macro
1

Hallo an alle

Ich möchte ein Makro erstellen, mit dem ich einen vorhandenen Text in einem SolidWorks Blueprint ändern kann.
Bisher waren meine Google-Suchen nicht erfolgreich, und der SolidWorks Makrorekorder ist auch keine große Hilfe.
Wir können auch nicht sagen, dass es sich bei den SolidWorks APIs um eine bereitgestellte, genaue und zugängliche Literatur handelt.
Hast du ein Beispiel oder eine Idee, um mich ein wenig zu leiten?

Vielen Dank im Voraus

2

Hallo
Für das Beispiel, das eine Notiz in der Vorlage ändert:
https://help.solidworks.com/2020/English/api/sldworksapi/Change_Note_Text_Example_VB.htm?verRedirect=1

Sie können die Grundkarte auch mit einer neuen (mit der neuen Notiz) ändern/neu laden
Meiner Meinung nach ist es einfacher (wenn machbar)
https://help.solidworks.com/2022/English/api/sldworksapi/Modify_and_Reload_Sheet_Format_Template_Example_VB.htm?verRedirect=1

1 „Gefällt mir“
3

Vielen Dank
Aber ich hatte diese beiden Codes bereits gefunden, die nichts mit dem zu tun haben, was ich tun möchte

4

Können Sie in diesem Fall mehr sagen oder die Notiz zeigen, die Sie ändern möchten und wo?

5

Aber tatsächlich ist es ein einfacher Text auf dem flachen Hintergrund, auf dem "AAA" steht, und ich möchte diesen Text mit einem Makro in "BBB" ändern, egal wo es sich befindet.
Wenn ich den Objektnamen kenne, der lautet: "Plan detail331@fond object1"

6

So bearbeiten Sie den Text einer Notiz über den Namen dieser Notiz, wenn ich es richtig verstanden habe:
https://help.solidworks.com/2020/English/api/sldworksapi/Get_Note_By_Name_Example_VB.htm

1 „Gefällt mir“
7

Nun, hier ist ein Stück Code, das funktioniert, andererseits muss ich es jetzt dazu bringen, die Formate zu erkennen, weil der Name der Notiz nicht bei jedem Zeichnungsformat identisch ist.

Sub main()
Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim swNote As SldWorks.Note
Dimmen von sNoteText als Zeichenfolge
Dim nTextCount so lange
Sonne i So lang
Dimmen NotizDeskriptiv als Zeichenfolge

Set swApp = Application.SldWorks 'CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView ' This is the drawing template

While Not swView Is Nothing
    Set swNote = swView.GetFirstNote
    While Not swNote Is Nothing
       If swNote.GetName = "Objet de détail160" Then
            NoteDescript = "$PRPSHEET:" & Chr(34) & "DESCRIPTION_EN" & Chr(34)
            swNote.SetTextAtIndex 1, NoteDescript
       End If
        'If swNote.IsCompoundNote Then
        '    nTextCount = swNote.GetTextCount
        '    For i = 1 To nTextCount
        '        sNoteText = swNote.GetTextAtIndex(i)
        '        DoReplaceString sNoteText
        '        swNote.SetTextAtIndex i, sNoteText
        '    Next i
        'Else
        '    sNoteText = swNote.GetText
        '    DoReplaceString sNoteText
        '    swNote.SetText sNoteText
        'End If
        Set swNote = swNote.GetNext
    Wend
    Set swView = swView.GetNextView
Wend

Ende Sub

8

Wenn der Inhalt identisch ist oder die gleiche Basis hat, bevorzugen Sie die Erkennung über den Inhalt, wenn dies nicht möglich ist, sehen Sie effektiv zur Erkennung über eine Namensliste.
Zu wissen, dass der Name im Allgemeinen riskanter ist als der Inhalt.

1 „Gefällt mir“
9

Hallo
Ist die Notiz an eine Dateieigenschaft gebunden oder handelt es sich nur um ein nicht angehängtes Objekt?

1 „Gefällt mir“