We Use only Parts Only BOM
looking to create a macro that outputs just details missing a balloon.
For starters. know about the "balloon icon", when expanding the BOM Table, just wondering if there was a way to "access" it.
I saw another old post Check Ballooning is done for each BOM item , which contained some incomplete code, I'm just wondering if anyone had any other ideas
thanks,
I've made a paid program in case you're interested.
Deepak,
Thanks for the offer, well appreciated. I would, if i had a budget for this type of thing, maybe someday my boss will see the benefit to supporting these types of endeavors, but he is from a different era.
Again thanks,
Cad Admin wrote:
Deepak,
Thanks for the offer, well appreciated. I would if i had a budget for this type of thing, maybe someday my boss will see the benefit to supporting these types of endeavors, but he is from a different era.
Again thanks,
Well can understand the scenario, sorry for not able to offer the program FOC.
I'm not trying to cut out any money you can make for your efforts, but I really think this should be possible from within SW by default. SW shouldn't allow you to produce a drawing with something in the BOM that doesn't have everything ballooned. Or, even better, it should highlight items not ballooned in a different color... Hmm...That may make a good Top Ten List idea for next year.
You can get that via BOM table, check the picture posted in first post.
I skimmed over that and missed it completely. I should pay more attention. I hardly every use that flyout, that is handy for making sure the parts are ballooned. I hardly every use that flyout for the BOMs.
Deepak,
Any ideas on a methodology to work through on this issue?
Cad Admin wrote:
Deepak,
Any ideas on a methodology to work through on this?
I've used similar methods as posted in this post Check Ballooning is done for each BOM item (which you'e posted above as well).
Here is how my tool works
The suggestion is incomplete, the gist of it, i believe, was to traverse the BOM and for each line iterate through all annotations to determine if a balloon existed pointing to this object.
This may work, though I am uncertain without fully testing it whether or not this would behave correctly with multiple components and multiple balloons. It is entirely possible that it would give some false positives or some false negatives in the check iteration.
What about if the balloon was hidden? accidentally or not?
Would this give me a "false" positive?
Could be possible, but in my personal case we do not hide balloons
I'd probably approach like this:
Get BOM of interest
Read item numbers into an array
For each view:
Linked to BOM?
For each note of view:
HasBalloon?
Not hidden?
Text is linked to item number?
Read item number
Mark in array as ballooned
next view
Report to user any item # not found.
Add any warnings desired, such as views not linked to BOM, or balloons not linked to item number, etc.
I cant remember needing to hide a balloon either, but that rare instance of it accidentally being hidden... ya just never know.
That check looks great Josh Brady
Hi,
Have you tried using the Deign Checker?
Tried it there for a drawing and it shows the above, no need for a macro.
edit. also works when the balloon is hidden
regards
Stevie
Yes, we have, but been tasked to add the check to an existing macro...so my hands are tied...LOL
Well i worked through some issues, (might have been small for others, but they almost done me in...lol)
Cad Admin wrote:
Well i worked through some issues, (might have been small for other, but they almost done me in...lol)
Good job!!
Is this macro available?
For anyone else looking for macro code. This is a macro to test if all BOM items are linked. All balloons and BOM must be on the same sheet.
Sub main()
'checks all views on active sheet to see if all items in bom are properly ballooned.
'spawns popup if item is unlinked
Dim currentView As SldWorks.View
Dim swApp As SldWorks.SldWorks
Dim swDraw As SldWorks.DrawingDoc
Dim swModel As SldWorks.ModelDoc2
Dim swNote As SldWorks.Note
Dim swAnn As SldWorks.Annotation
Dim swBOMTableAnn As SldWorks.BomTableAnnotation
Dim swBomFeat As SldWorks.BomFeature
Dim swFeat As SldWorks.FeatureDim vTableArr As Variant
Dim balloonAnnotations As VariantDim bomItemIndex As Integer
Dim balloonIndex As Integer
Dim itemNumber As String
Dim partNumber As StringDim warningText As String
Dim foundBalloon As BooleanSet swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swFeat = swModel.FirstFeatureDo While Not swFeat Is Nothing
If "BomFeat" = swFeat.GetTypeName Then
Set swBomFeat = swFeat.GetSpecificFeature2
Set swFeat = swBomFeat.GetFeature
vTableArr = swBomFeat.GetTableAnnotations
For Each vTable In vTableArr 'loop over all tables
Set swBOMTableAnn = vTable
For bomItemIndex = 1 To swBOMTableAnn.RowCount - 1 'loop over rows in bom to see if they are linked to any view on the active sheet
swBOMTableAnn.GetComponentsCount2 bomItemIndex, Config, itemNumber, partNumber
Set currentView = swDraw.GetFirstView
foundBalloon = False
Debug.Print swDraw.GetViewCount
Do While Not currentView Is Nothing 'loop over every drawing view
Debug.Print currentView.GetAnnotationCount
If currentView.GetAnnotationCount > 0 Then
balloonAnnotations = currentView.GetAnnotations
For balloonIndex = 0 To UBound(balloonAnnotations) 'loop over every annotation in view
balloonContent = ""
Set swAnn = balloonAnnotations(balloonIndex)
If swAnn.GetType = swAnnotationType_e.swNote Then
Set swNote = swAnn.GetSpecificAnnotation
If swNote.IsBomBalloon Then
If swNote.GetText = itemNumber Then 'this bom item is linked with this balloon
foundBalloon = True
Exit Do 'break loop as soon as link is found
End If
End If
End If
Next balloonIndex
If foundBalloon Then
Exit Do 'break loop as soon as link is found
End If
Debug.Print currentView.Name
End If
Set currentView = currentView.GetNextView
Loop
If Not foundBalloon Then
warningText = warningText & "Bom item " & itemNumber & " : " & partNumber & " not selected" & vbNewLine
End If
Next bomItemIndex
Next vTable
Exit Do 'break out once BOM is found
End If
Set swFeat = swFeat.GetNextFeature
Loop
If Not warningText = "" Then
Debug.Print warningText
MsgBox warningText, vbCritical, "Balloons Missing!"
End If
End Sub
Thanks for sharing Colt !
Well i worked through some issues, (might have been small for others, but they almost done me in...lol)