Creating QC Inspection Numbers using NX Journal

Thanks for the post! Do you know if this can be done with PMI through journeling as well? I saw a demo of the BCT software that does this and a bunch more automation (in NX) and it looks really slick. Would love to be able to do it myself.

Thanks, just realized you posted back.
Yeah that is what I mean.  Check out this link and take a look at the NX vid.
http://www.bct-technology.com/en/products-solutions/bct-software-products/bct-inspector-suite/
 
Although this has alot more then just adding ballons, I figured maybe this journal could be a good starting point.

I couldn't find any property or a method which helps me to differentiate between a normal dimension and a dimension with manual text.(i.e., text of dimension edited after placing it, not  the appended text).Please help me to resolve this issue?

       Thanks for your timely help.

I'm trying to modify this code so that all of the dimensions (and FCFs and surface features) are automatically labeled in numeric order, but I keep getting an error "Balloon size must be greater than 0."

Would you happen to have code that does this?

I've been working with this, trying to figure out what to modify to get it to label each dimension/FCF automatically with a balloon.

Next


I was able to get auto ballooning to work with the code below, but for some reason I have to run the code twice each time. The first time, no balloons are created, but when I run the code a second time, all of the dimensions are ballooned as I want. Does anyone know why this might be happened?

Thanks! Would you happen to know of any other workpart subclasses that might traverse the entire file, instead of just individual sheets? I'm currently using workpart.dimensions.

Hi I reach to use you J of 01/28/2012, but not the next ones posted here, Im quite new in this, I need to make square symbol instead of triangle, we currently use GDT Symbols with appended text one by one in the dimensions... I think your J of 09/19/2013 is what I need but give me an error message... do you think is possible to have this with a box instead than baloon or triangle?

This is a code so you can drop balloons in any spot you want on the drawing. You don't have to attach the balloon to a note or dimension:

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Annotations

Module NXJournal
Sub Main

'*************************************************************************
'change the following offset distances to get something that works for you
'offsets from dimension text
Const XOffsetDim as Double = 0.5
Const YOffsetDim as Double = 1
'offsets from notes
Const XOffsetNote as Double = -3
Const YOffsetNote as Double = 0
'*************************************************************************

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim lw As ListingWindow = theSession.ListingWindow
Dim noteDim As Annotation
Dim noteDimOrigin as Point3d = Nothing
'Dim letterPref as LetteringPreferences = Nothing
Dim symbolPref as SymbolPreferences = Nothing
Dim noteNumber as Integer
Dim input as String
'Dim theAnnotationManager as NXOpen.Annotations.AnnotationManager = workPart.Annotations
Dim theAnnotationManager as AnnotationManager = workPart.Annotations

Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")

Do
input = InputBox("Enter starting QC number: ", "QC inspection numbers", "1")
Loop Until (isNumeric(input))
noteNumber = input

'lw.Open()
'lw.WriteLine ("testing")
Dim NoteView As View
While selectNoteDimension("Select Dimension or Note", noteDimOrigin, NoteView) = Selection.Response.Ok

'lw.WriteLine("origin: " & noteDimOrigin.X & ", " & noteDimOrigin.Y)
'letterPref = noteDim.GetLetteringPreferences()
symbolPref = theAnnotationManager.Preferences.GetSymbolPreferences()
'lw.WriteLine("Alignment Position: " & letterPref.AlignmentPosition.ToString())
'lw.WriteLine("ID Symbol size: " & symbolPref.IDSymbolSize)
'lw.WriteLine("Annotation type: " & noteDim.GetType().ToString())

Dim nullAnnotations_IdSymbol As Annotations.IdSymbol = Nothing
Dim idSymbolBuilder1 As Annotations.IdSymbolBuilder

idSymbolBuilder1 = workPart.Annotations.IdSymbols.CreateIdSymbolBuilder(nullAnnotations_IdSymbol)
idSymbolBuilder1.Origin.Plane.PlaneMethod = Annotations.PlaneBuilder.PlaneMethodType.XyPlane
idSymbolBuilder1.Type = Annotations.IdSymbolBuilder.SymbolTypes.Circle
idSymbolBuilder1.UpperText = noteNumber
'use the symbol size set in the part
idSymbolBuilder1.Size = symbolPref.IDSymbolSize

Dim assocOrigin1 As Annotations.Annotation.AssociativeOriginData
With assocOrigin1
.OriginType = Annotations.AssociativeOriginType.AtAPoint
.AssociatedPoint = workPart.Points.CreatePoint(noteDimOrigin)
.AssociatedView = NoteView

End With
idSymbolBuilder1.Origin.SetAssociativeOrigin(assocOrigin1)

Dim QC_IDSymbol As IDSymbol
QC_IDSymbol = idSymbolBuilder1.Commit()

'change IDSymbol layer to match that of the dimension or note it is attached to
'QC_IDSymbol.Layer = noteDim.Layer
idSymbolBuilder1.Destroy()

noteNumber += 1

End While
'lw.Close
theSession.SetUndoMarkName(markId1, "Label Dimensions")
theSession.SetUndoMarkVisibility(markId1, Nothing, Session.MarkVisibility.Visible)

End Sub 'Main

'**************************************************
Function selectNoteDimension(ByVal prompt As String, ByRef obj As Point3d, ByRef YYY As View)
'Annotation class covers dimensions and notes
'Annotation -> Dimension
'Annotation -> DraftingAid -> SimpleDraftingAid -> NoteBase -> BaseNote -> Note
Dim ui As UI = GetUI()
Dim mask(1) As Selection.MaskTriple
With mask(0)
.Type = UFConstants.UF_dimension_type
.Subtype = 0
.SolidBodySubtype = 0
End With
With mask(1)
.Type = UFConstants.UF_point_type
'.Subtype = UFConstants.UF_draft_note_subtype
.SolidBodySubtype = 0
End With

Dim cursor As Point3d = Nothing

'Dim resp As Selection.Response = _
'ui.SelectionManager.SelectObject(prompt, prompt, _
'Selection.SelectionScope.AnyInAssembly, _
'Selection.SelectionAction.ClearAndEnableSpecific, _
'False, False, mask, obj , cursor)

Dim resp As Selection.DialogResponse = _
ui.SelectionManager.SelectScreenPosition(prompt, YYY, obj)

If resp = Selection.DialogResponse.Cancel Then
Return Selection.Response.Cancel
Else
Return Selection.Response.Ok
End If
End Function 'selectNoteDimension
'**************************************************

End Module