Add bounding box with weight output

Submitted by CAD_GUY on Thu, 11/21/2019 - 06:28

Forums:

I had a bounding box journal running with NX9/ Windows 7
Now I upgrade the OS to Windows 10 and this journal hangs when executed on NX9
Can someone please help me to fix this?
Thanks!

'============================================================================= ' DutchAero ' Patrick Delisse - 2008-05-11 - ' rev 2 - 2012-05-16 - Added the option to add extra material on all sides '=============================================================================


Option Strict Off

Imports NXOpen

Imports NXOpen.UF

Imports NXOpenUI

Imports NXOpen.Utilities

Imports System

Imports System.Math
Module BoxVolume
    Dim s As Session = Session.GetSession()

    Dim ufs As UFSession = UFSession.GetUFSession()

    Dim workPart As Part = s.Parts.Work

    Dim ui As UI = ui.GetUI()

    Dim body As NXObject = Nothing
    Dim markId1 As Session.UndoMarkId
    Dim nullFeatures_Feature As Features.Feature = Nothing
    Dim MyForm As New xxx
    Sub Main()

        markId1 = s.SetUndoMark(Session.MarkVisibility.Visible, "Start")

        Dim message As String = "Select a Block"

        Dim title1 As String = "Selection"

        Dim min_corner() As Double = {0.0, 0.0, 0.0}

        Dim directions(,) As Double = {{1.0, 0.0, 0.0}, _

                                       {0.0, 1.0, 0.0}, _

                                       {0.0, 0.0, 1.0}}

        Dim distances() As Double = {0.0, 0.0, 0.0}

        Dim csysTag As NXOpen.Tag = Tag.Null

        Dim workviewtag As NXOpen.Tag = Tag.Null
start1:

        SelectABody("Select Solid", body)

        On Error GoTo EndingIt
        If body.Tag <> Tag.Null Then

            ufs.Modl.AskBoundingBoxExact(body.Tag, csysTag, min_corner, directions, distances)

            ufs.Disp.SetHighlight(body.Tag, 0)

            DisplayBoundingBox(min_corner, directions, distances)

        End If

EndingIt:
    End Sub

    Public Sub SelectABody(ByVal prompt As String, ByRef obj As NXObject)

        Dim mask(0) As Selection.MaskTriple

        With mask(0)

            .Type = UFConstants.UF_solid_type

            .Subtype = UFConstants.UF_solid_body_subtype

            .SolidBodySubtype = 0

        End With

        Dim cursor As Point3d = Nothing
        ui.SelectionManager.SelectTaggedObject(prompt, "Select a body", _

            Selection.SelectionScope.AnyInAssembly, _

            Selection.SelectionAction.ClearAndEnableSpecific, _

            False, False, mask, obj, cursor)
    End Sub
    Private Sub DisplayBoundingBox(ByRef min_corner As Double(), ByRef directions As Double(,), _

                                  ByRef distances As Double())
        Dim partUnits As Integer = 1

        ufs.Part.AskUnits(workPart.Tag, partUnits)

        Dim Unit As String

        Dim OtherUnit As String

        Dim Factor As Decimal

        Dim xp, xm, yp, ym, zp, zm As String

        If partUnits = 1 Then

            Unit = "mm"

            Factor = 1 / 25.4

            OtherUnit = "Inch"

        Else

            Unit = "inch"

            Factor = 25.4

            OtherUnit = "mm"

        End If
        Try
            If MyForm.ShowDialog = Windows.Forms.DialogResult.OK Then

                xp = Abs(CDec(Replace(MyForm.TextBox1.Text, ".", ",")))

                xm = Abs(CDec(Replace(MyForm.TextBox2.Text, ".", ",")))

                yp = Abs(CDec(Replace(MyForm.TextBox3.Text, ".", ",")))

                ym = Abs(CDec(Replace(MyForm.TextBox4.Text, ".", ",")))

                zp = Abs(CDec(Replace(MyForm.TextBox5.Text, ".", ",")))

                zm = Abs(CDec(Replace(MyForm.TextBox6.Text, ".", ",")))

            Else

                xp = 0

                yp = 0

                zp = 0

                xm = 0

                ym = 0

                zm = 0

            End If
            MyForm.Close()

            MyForm.Dispose()

            MyForm = Nothing
            Dim blockFeatureBuilder1 As Features.BlockFeatureBuilder

            blockFeatureBuilder1 = workPart.Features.CreateBlockFeatureBuilder(nullFeatures_Feature)
            blockFeatureBuilder1.BooleanOption.Type = GeometricUtilities.BooleanOperation.BooleanType.Create
            Dim targetBodies1(0) As Body

            Dim nullBody As Body = Nothing
            targetBodies1(0) = nullBody

            blockFeatureBuilder1.BooleanOption.SetTargetBodies(targetBodies1)
            s.SetUndoMarkName(markId1, "Block Dialog")
            Dim markId2 As Session.UndoMarkId

            markId2 = s.SetUndoMark(Session.MarkVisibility.Invisible, "Block")
            blockFeatureBuilder1.Type = Features.BlockFeatureBuilder.Types.OriginAndEdgeLengths
            Dim point1 As Point

            point1 = blockFeatureBuilder1.OriginPoint
            blockFeatureBuilder1.OriginPoint = point1
            'As the block only accepts dimensions as strings we need to convert our number to a string and replace decimal comma by decimal point.

            Dim Lengte As String

            Dim Breedte As String

            Dim Hoogte As String

            Lengte = Replace(CStr(distances(0) + xp + xm), ",", ".")

            Breedte = Replace(CStr(distances(1) + yp + ym), ",", ".")

            Hoogte = Replace(CStr(distances(2) + zp + zm), ",", ".")
            Dim originPoint1 As Point3d = New Point3d(min_corner(0) - xm, min_corner(1) - ym, min_corner(2) - zm)

            blockFeatureBuilder1.SetOriginAndLengths(originPoint1, Lengte, Breedte, Hoogte)
            blockFeatureBuilder1.SetBooleanOperationAndTarget(Features.Feature.BooleanType.Create, nullBody)
            Dim feature1 As Features.Feature

            feature1 = blockFeatureBuilder1.CommitFeature()
            Dim displayModification1 As DisplayModification

            displayModification1 = s.DisplayManager.NewDisplayModification()

            displayModification1.ApplyToAllFaces = True

            displayModification1.NewTranslucency = 70
            Dim objects1(0) As DisplayableObject

            Dim body1 As Body = nullBody

            Dim p As Integer = 0

            Dim i As Integer = 0

            Do While i = 0

                Try

                    body1 = CType(workPart.Bodies.FindObject("BLOCK(" & p & ")"), Body)

                    i = 1

                Catch ex As Exception

                    p = p + 1

                End Try

            Loop

            objects1(0) = body1
            displayModification1.Apply(objects1)

            displayModification1.Dispose()
            Dim cornX, cornY, cornZ As Decimal

            Dim lX, lY, lZ As Decimal

            cornX = min_corner(0) - xm

            cornY = min_corner(1) - ym

            cornZ = min_corner(2) - zm

            lX = distances(0) + xm + xp

            lY = distances(1) + ym + yp

            lZ = distances(2) + zm + zp
            s.ListingWindow.Open()

            s.ListingWindow.WriteLine("=================================================================")

            s.ListingWindow.WriteLine("*                     Part boundaries (Box)                     *")

            s.ListingWindow.WriteLine("=================================================================")

            s.ListingWindow.WriteLine(" ")

            s.ListingWindow.WriteLine(" Box Origin in X (" & Unit & ") = " & Math.Round(cornX, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" Box Origin in Y (" & Unit & ") = " & Math.Round(cornY, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" Box Origin in Z (" & Unit & ") = " & Math.Round(cornZ, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" ")

            s.ListingWindow.WriteLine(" Box Length (X)  (" & Unit & ") = " & Math.Round(lX, 2, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" Box Width  (Y)  (" & Unit & ") = " & Math.Round(lY, 2, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" Box Height (Z)  (" & Unit & ") = " & Math.Round(lZ, 2, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" ")

            s.ListingWindow.WriteLine(" Box Length (X)  (" & OtherUnit & ") = " & Math.Round(lX * Factor, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" Box Width  (Y)  (" & OtherUnit & ") = " & Math.Round(lY * Factor, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" Box Height (Z)  (" & OtherUnit & ") = " & Math.Round(lZ * Factor, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" ")

            s.ListingWindow.WriteLine(" Box Volume    (" & Unit & "^3) = " & Math.Round(lX * lY * lZ, 3, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine("               (Cm^3) = " & Math.Round(lX * lY * lZ / 1000, 2, MidpointRounding.AwayFromZero))

            s.ListingWindow.WriteLine(" ")

            s.ListingWindow.WriteLine(" ")

            If partUnits = 1 Then

                s.ListingWindow.WriteLine("=================================================================")

                s.ListingWindow.WriteLine(" Approximate Mass")

                s.ListingWindow.WriteLine(" ---------------------------------------------------------------")

                s.ListingWindow.WriteLine("    Aluminium (Kg) = " & Math.Round(lX * lY * lZ * 0.00000271, 3, MidpointRounding.AwayFromZero))

                s.ListingWindow.WriteLine("    Steel     (Kg) = " & Math.Round(lX * lY * lZ * 0.00000785, 3, MidpointRounding.AwayFromZero))

                s.ListingWindow.WriteLine("    Titanium  (Kg) = " & Math.Round(lX * lY * lZ * 0.0000045, 3, MidpointRounding.AwayFromZero))

                s.ListingWindow.WriteLine("    Inconel   (Kg) = " & Math.Round(lX * lY * lZ * 0.00000819, 3, MidpointRounding.AwayFromZero))

            End If

            s.ListingWindow.WriteLine("-----------------------------------------------------------------")

            s.ListingWindow.WriteLine(" ")
            s.DeleteUndoMark(markId2, Nothing)
            s.SetUndoMarkName(markId1, "Block")
            blockFeatureBuilder1.Destroy()
            workPart.FacetedBodies.DeleteTemporaryFacesAndEdges()
        Catch ex As Exception

            MsgBox("Check input!" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Cannot Calculate Bounding Box")
        End Try
    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        'Unloads the image immediately after execution within NX

        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

    Public Function SetSolidDisplay(ByVal Kleur As Integer, ByVal Nr As Integer) As Integer
        On Error Resume Next
    End Function
End Module
Partial Class xxx

    Inherits System.Windows.Forms.Form
    Public Sub New()

        MyBase.New()
        'This call is required by the Windows Form Designer.

        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    'Form overrides dispose to clean up the component list.

     _

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

        Try

            If disposing AndAlso components IsNot Nothing Then

                components.Dispose()

            End If

        Finally

            MyBase.Dispose(disposing)

        End Try

    End Sub

    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox

    Friend WithEvents Label3 As System.Windows.Forms.Label

    Friend WithEvents Label4 As System.Windows.Forms.Label

    Friend WithEvents Label5 As System.Windows.Forms.Label

    Friend WithEvents Label6 As System.Windows.Forms.Label

    Friend WithEvents Label7 As System.Windows.Forms.Label
    'Required by the Windows Form Designer

    Private components As System.ComponentModel.IContainer
    'NOTE: The following procedure is required by the Windows Form Designer

    'It can be modified using the Windows Form Designer.

    'Do not modify it using the code editor.

     _

    Private Sub InitializeComponent()

        Me.Button1 = New System.Windows.Forms.Button()

        Me.Button2 = New System.Windows.Forms.Button()

        Me.TextBox1 = New System.Windows.Forms.TextBox()

        Me.TextBox2 = New System.Windows.Forms.TextBox()

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.TextBox3 = New System.Windows.Forms.TextBox()

        Me.TextBox4 = New System.Windows.Forms.TextBox()

        Me.TextBox5 = New System.Windows.Forms.TextBox()

        Me.TextBox6 = New System.Windows.Forms.TextBox()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.Label4 = New System.Windows.Forms.Label()

        Me.Label5 = New System.Windows.Forms.Label()

        Me.Label6 = New System.Windows.Forms.Label()

        Me.Label7 = New System.Windows.Forms.Label()

        Me.SuspendLayout()

        '

        'Button1

        '

        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK

        Me.Button1.Location = New System.Drawing.Point(12, 168)

        Me.Button1.Name = "Button1"

        Me.Button1.Size = New System.Drawing.Size(57, 23)

        Me.Button1.TabIndex = 6

        Me.Button1.Text = "Ok"

        Me.Button1.UseVisualStyleBackColor = True

        '

        'Button2

        '

        Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel

        Me.Button2.Location = New System.Drawing.Point(178, 168)

        Me.Button2.Name = "Button2"

        Me.Button2.Size = New System.Drawing.Size(57, 23)

        Me.Button2.TabIndex = 7

        Me.Button2.Text = "Cancel"

        Me.Button2.UseVisualStyleBackColor = True

        '

        'TextBox1

        '

        Me.TextBox1.Location = New System.Drawing.Point(52, 62)

        Me.TextBox1.Name = "TextBox1"

        Me.TextBox1.Size = New System.Drawing.Size(63, 20)

        Me.TextBox1.TabIndex = 0

        Me.TextBox1.Text = "0"

        '

        'TextBox2

        '

        Me.TextBox2.Location = New System.Drawing.Point(152, 62)

        Me.TextBox2.Name = "TextBox2"

        Me.TextBox2.Size = New System.Drawing.Size(63, 20)

        Me.TextBox2.TabIndex = 1

        Me.TextBox2.Text = "0"

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Location = New System.Drawing.Point(26, 65)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(20, 13)

        Me.Label1.TabIndex = 6

        Me.Label1.Text = "X+"

        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Location = New System.Drawing.Point(129, 65)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(17, 13)

        Me.Label2.TabIndex = 7

        Me.Label2.Text = "X-"

        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'TextBox3

        '

        Me.TextBox3.Location = New System.Drawing.Point(52, 88)

        Me.TextBox3.Name = "TextBox3"

        Me.TextBox3.Size = New System.Drawing.Size(63, 20)

        Me.TextBox3.TabIndex = 2

        Me.TextBox3.Text = "0"

        '

        'TextBox4

        '

        Me.TextBox4.Location = New System.Drawing.Point(152, 88)

        Me.TextBox4.Name = "TextBox4"

        Me.TextBox4.Size = New System.Drawing.Size(63, 20)

        Me.TextBox4.TabIndex = 3

        Me.TextBox4.Text = "0"

        '

        'TextBox5

        '

        Me.TextBox5.Location = New System.Drawing.Point(52, 114)

        Me.TextBox5.Name = "TextBox5"

        Me.TextBox5.Size = New System.Drawing.Size(63, 20)

        Me.TextBox5.TabIndex = 4

        Me.TextBox5.Text = "0"

        '

        'TextBox6

        '

        Me.TextBox6.Location = New System.Drawing.Point(152, 114)

        Me.TextBox6.Name = "TextBox6"

        Me.TextBox6.Size = New System.Drawing.Size(63, 20)

        Me.TextBox6.TabIndex = 5

        Me.TextBox6.Text = "0"

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Location = New System.Drawing.Point(26, 91)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(20, 13)

        Me.Label3.TabIndex = 12

        Me.Label3.Text = "Y+"

        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'Label4

        '

        Me.Label4.AutoSize = True

        Me.Label4.Location = New System.Drawing.Point(26, 117)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(20, 13)

        Me.Label4.TabIndex = 13

        Me.Label4.Text = "Z+"

        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'Label5

        '

        Me.Label5.AutoSize = True

        Me.Label5.Location = New System.Drawing.Point(129, 91)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(17, 13)

        Me.Label5.TabIndex = 14

        Me.Label5.Text = "Y-"

        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'Label6

        '

        Me.Label6.AutoSize = True

        Me.Label6.Location = New System.Drawing.Point(129, 117)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(17, 13)

        Me.Label6.TabIndex = 15

        Me.Label6.Text = "Z-"

        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'Label7

        '

        Me.Label7.AutoSize = True

        Me.Label7.Location = New System.Drawing.Point(26, 27)

        Me.Label7.Name = "Label7"

        Me.Label7.Size = New System.Drawing.Size(130, 13)

        Me.Label7.TabIndex = 16

        Me.Label7.Text = "Extra material to be added"

        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'xxx

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center

        Me.ClientSize = New System.Drawing.Size(247, 203)

        Me.ControlBox = False

        Me.Controls.Add(Me.Label7)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.Label5)

        Me.Controls.Add(Me.Label4)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Me.TextBox6)

        Me.Controls.Add(Me.TextBox5)

        Me.Controls.Add(Me.TextBox4)

        Me.Controls.Add(Me.TextBox3)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Controls.Add(Me.TextBox2)

        Me.Controls.Add(Me.TextBox1)

        Me.Controls.Add(Me.Button2)

        Me.Controls.Add(Me.Button1)

        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog

        Me.MaximizeBox = False

        Me.MinimizeBox = False

        Me.Name = "xxx"

        Me.ShowInTaskbar = False

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        Me.Text = "Bounding Box"

        Me.ResumeLayout(False)

        Me.PerformLayout()
    End Sub

    Friend WithEvents Button1 As System.Windows.Forms.Button

    Friend WithEvents Button2 As System.Windows.Forms.Button

    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox

    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox

    Friend WithEvents Label1 As System.Windows.Forms.Label

    Friend WithEvents Label2 As System.Windows.Forms.Label

End Class

re: bounding box

NXJournaling - Thu, 11/21/2019 - 12:59

In line 95, I added "System" to fully qualify the dialog result reference; after that it ran fine.

If MyForm.ShowDialog = System.Windows.Forms.DialogResult.OK Then

I've seen this happen before (even on the same computer with no significant changes) where the journal ran fine yesterday, but refuses to run today until the references are fully qualified. It usually happens with System.Windows.Forms, but I don't really know why.

Re: Bounding Box

CAD_GUY - Fri, 11/22/2019 - 04:28

Thanks!
Now when I select the solid, the second window comes to add extra material dialogue and it's frozen complete.
I have to force NX to end task.
Am I missing any settings within NX environment?

re: bounding box

NXJournaling - Fri, 11/22/2019 - 05:12

That's strange, it is working fine for me. I select a solid, the dialog appears, I enter values for the offsets, OK, and the bounding solid is created.

I'm on Windows 10 and used NX 9.0.3.4 MP 15. I'm not certain why it is not working for you. Perhaps patch up NX if applicable and check the .net framework version?

Re: Bounding Box

CAD_GUY - Fri, 11/22/2019 - 07:32

I found the culprit. I cannot find the "OK" button on the add extra material dialogue box. Somehow that dialogue box is trimmed small. I have to use the "Tab" on my keyboard to move thru the values and at the end press the enter key to close that window and show the information screen. This may be because of my windows display settings. Any chance to make this dialogue window visible with "OK" button
Thanks!

re: bounding box

NXJournaling - Fri, 11/22/2019 - 08:11

Near the end of the file you will find the following line:

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog

Try changing this to:

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow

This should give you a place in the bottom right corner to grab the dialog and resize it as needed.

Re: Bounding Box

CAD_GUY - Fri, 11/22/2019 - 10:37

Thanks!
It's working perfect now
I modified the border style and the window size code