Does anyone have a macro for inserting a split balloon in SW2016?
This will insert a split balloon with "A" on the top, and "23" on the bottom. You'll need to change the SelectByID2 to actually select what you want to balloon:
Dim swApp As SldWorks.SldWorks
Dim Part As ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim myNote As Note
Dim BomBalloonParams As BalloonOptions
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Line3", "SKETCHSEGMENT", 0.272729922359744, 0.19285376344086, 0, False, 0, Nothing, 0)
Set BomBalloonParams = Part.Extension.CreateBalloonOptions()
BomBalloonParams.Style = 7
BomBalloonParams.Size = 2
Set myNote = Part.Extension.InsertBomBalloon2(BomBalloonParams)
myNote.SetBomBalloonText 1, "A", 1, "23"
I am a novice at macros. I do want it to select the ID by the BOM I have it linked too. Would it be possible for you to change this macro to show that? I would but knowing me and what little I know about creating macros I am sure I would screw it up. Thanks
Retrieving data ...