Compound note

Jun 24, 2003 1 Replies

In a drawing I have one compound note, and I want to delete it with a macro. How do I get it (or find it if you want) with a VB-macro, so that I can delete it, or remove it ?



How about if I have several compound notes in a drawing, how do I then find the right one ? Do they have "names" or indexes so that they are recognisable ?



Regards, Trond


Yes they have names just like the features and dimensions in a drawing. They are only accessable through an API though. Finding the right one to delete might be tricky though. You could possibly search for one containing a specific text string.

this will search your template for a note with a specific name and returns its text to a supplied string variable

you will have to edit it to search for specific text and traverse a compound note.

Function getNoteObject(Name As String, ByRef NoteValue As String) As _ SldWorks.note

Dim swNote As SldWorks.note Dim swView As SldWorks.View Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set swSheet = Part.GetCurrentSheet() Part.EditTemplate Set swView = Part.GetFirstView Set swNote = swView.GetFirstNote While Not swNote Is Nothing If swNote.GetName = Name Then NoteValue = swNote.GetText Set getNoteObject = swNote Exit Function End If Set swNote = swNote.GetNext Wend Part.EditSheet Part.EditSketch 'Part.ClearSelection Part.EditSketch boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", _

0.1437811854572, 0.04867757019569, 0, False, 0, Nothing) boolstatus = Part.Extension.SelectByID("Sheet1", "SHEET", _ 0.08464306802756, 0.04139040880625, 0, False, 0, Nothing)

End Function

this is the example that sw help had for traversing a compound note there is more to it so look it up

Compound Note Example (VB)

If (note.IsCompoundNote()) Then

' If object is compound note

count = note.GetTextCount()

' Determine # of text entities

n2 = note.GetTextAtIndex (2)

' Get the 2nd piece of text

n1 = note.GetTextAtIndex (1)

' Get the 1st piece of text

ht2 = note.GetHeightAtIndex (2)

' Get height of 2nd piece of text

End if

Join the Discussion

Have something to add? Share your thoughts — no account required.

Didn't find your answer?

Ask the community — no account required