Create Compound Note Example (VBA)

This example shows how to create a compound note in a drawing document.

 

'---------------------------------------------

Dim swApp As Object

Dim drawing As Object

Dim note As Object

 

Sub main()

Set swApp = CreateObject ("SldWorks.Application")

 

' Get open drawing document

Set drawing = swApp.ActiveDoc  

 

' You can have an entity selected in a drawing view if you want an attached note

' Call subfunction to create the compound note

makeCnote

 

End Sub

 

sub makeCnote()

set note = drawing.CreateCompoundNote (0.00635, 0.05, 0.2, 0.0)

 ' Add text to note

 note.AddText "zero pt", 0, 0, 0  

 note.AddText "top", 0.01, 0.01, 0

 

 ' Prepare note for geometry

 note.BeginSketchEdit    

 

 ' Add geometry to note

 drawing.CreateLineVB 0, 0, 0, 0.01, 0.01, 0

 drawing.CreateCircleVB 0, 0, 0, 0.01414

 

 ' Finish

 note.EndSketchEdit    

 

' Do some queries also

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

 

End Sub