用VB.NET在UG中算冲压力

tqtgmm163com · 发表于 2020-1-17 17:04

本帖最后由 tqtgmm163com 于 2020-1-17 17:13 编辑

'==============================================================================
'  WARNING!!  This file is overwritten by the Block UI Styler while generating
'  the automation code. Any modifications to this file will be lost after
'  generating the code again.
'
'    Filename:  C:\dlx\press.vb
'
'       This file was generated by the NX Block UI Styler
'       Created by: Administrator
'             Version: NX 8.5
'             Date: 01-06-2020  (Format: mm-dd-yyyy)
'             Time: 16:31 (Format: hh-mm)
'
'==============================================================================

'==============================================================================
'==============================================================================

'------------------------------------------------------------------------------
'These imports are needed for the following template code
'------------------------------------------------------------------------------
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.BlockStyler

'------------------------------------------------------------------------------
'Represents Block Styler application class
'------------------------------------------------------------------------------
Public Class press
'class members
Private Shared theSession As Session
Private Shared theUI As UI
Private theDlxFileName As String
Private theDialog As NXOpen.BlockStyler.BlockDialog
Private group0 As NXOpen.BlockStyler.Group ' Block type: Group
Private linear As NXOpen.BlockStyler.LinearDimension ' Block type: Linear Dim
Private string01 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string02 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string03 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string06 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string04 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string05 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string07 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string09 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string010 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string011 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private string012 As NXOpen.BlockStyler.StringBlock ' Block type: String
Private list_box0 As NXOpen.BlockStyler.ListBox ' Block type: List Box
Public Shared ReadOnly SnapPointTypesOnByDefault_UserDefined As Integer = 1
Public Shared ReadOnly SnapPointTypesOnByDefault_Inferred As Integer = 2
Public Shared ReadOnly SnapPointTypesOnByDefault_ScreenPosition As Integer = 4
Public Shared ReadOnly SnapPointTypesOnByDefault_EndPoint As Integer = 8
Public Shared ReadOnly SnapPointTypesOnByDefault_MidPoint As Integer = 16
Public Shared ReadOnly SnapPointTypesOnByDefault_ControlPoint As Integer = 32
Public Shared ReadOnly SnapPointTypesOnByDefault_Intersection As Integer = 64
Public Shared ReadOnly SnapPointTypesOnByDefault_ArcCenter As Integer = 128
Public Shared ReadOnly SnapPointTypesOnByDefault_QuadrantPoint As Integer = 256
Public Shared ReadOnly SnapPointTypesOnByDefault_ExistingPoint As Integer = 512
Public Shared ReadOnly SnapPointTypesOnByDefault_PointonCurve As Integer = 1024
Public Shared ReadOnly SnapPointTypesOnByDefault_PointonSurface As Integer = 2048
Public Shared ReadOnly SnapPointTypesOnByDefault_PointConstructor As Integer = 4096
Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 8192
Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 32768
Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536

#Region "Block Styler Dialog Designer generator code"
'------------------------------------------------------------------------------
'Constructor for NX Styler class
'------------------------------------------------------------------------------
Public Sub New()
      Try

         theSession = Session.GetSession()
         theUI = UI.GetUI()
         theDlxFileName = "D:\LIS_ug\TOOL1\PRESS-A01.dlx"
         theDialog = theUI.CreateDialog(theDlxFileName)
         theDialog.AddApplyHandler(AddressOf apply_cb)
         theDialog.AddOkHandler(AddressOf ok_cb)
         theDialog.AddUpdateHandler(AddressOf update_cb)
         theDialog.AddInitializeHandler(AddressOf initialize_cb)
         theDialog.AddEnableOKButtonHandler(AddressOf enableOKButton_cb)
         theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)

      Catch ex As Exception

         Throw ex
      End Try
End Sub
#End Region

Public Shared Sub Main()
      Dim thepress As press = Nothing
      Try

         thepress = New press()
         thepress.Show()

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      Finally
         If thepress IsNot Nothing Then
            thepress.Dispose()
            thepress = Nothing
         End If
      End Try
End Sub
Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
      'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
      Return CType(Session.LibraryUnloadOption.Immediately, Integer)
      ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
End Function
Public Shared Sub UnloadLibrary(ByVal arg As String)
      Try

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
End Sub

'------------------------------------------------------------------------------
'This method shows the dialog on the screen
'------------------------------------------------------------------------------
Public Sub Show()
      Try

         theDialog.Show()

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
End Sub

'------------------------------------------------------------------------------
'Method Name: Dispose
'------------------------------------------------------------------------------
Public Sub Dispose()
      If theDialog IsNot Nothing Then
         theDialog.Dispose()
         theDialog = Nothing
      End If
End Sub

'------------------------------------------------------------------------------
'Callback Name: initialize_cb
'------------------------------------------------------------------------------
Public Sub initialize_cb()
      Try

         group0 = CType(theDialog.TopBlock.FindBlock("group0"), NXOpen.BlockStyler.Group)
         linear = CType(theDialog.TopBlock.FindBlock("linear"), NXOpen.BlockStyler.LinearDimension)
         string01 = CType(theDialog.TopBlock.FindBlock("string01"), NXOpen.BlockStyler.StringBlock)
         string02 = CType(theDialog.TopBlock.FindBlock("string02"), NXOpen.BlockStyler.StringBlock)
         string03 = CType(theDialog.TopBlock.FindBlock("string03"), NXOpen.BlockStyler.StringBlock)
         string06 = CType(theDialog.TopBlock.FindBlock("string06"), NXOpen.BlockStyler.StringBlock)
         string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
         string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)
         string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
         string09 = CType(theDialog.TopBlock.FindBlock("string09"), NXOpen.BlockStyler.StringBlock)
         string010 = CType(theDialog.TopBlock.FindBlock("string010"), NXOpen.BlockStyler.StringBlock)
         string011 = CType(theDialog.TopBlock.FindBlock("string011"), NXOpen.BlockStyler.StringBlock)
         string012 = CType(theDialog.TopBlock.FindBlock("string012"), NXOpen.BlockStyler.StringBlock)
         list_box0 = CType(theDialog.TopBlock.FindBlock("list_box0"), NXOpen.BlockStyler.ListBox)

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
End Sub

'------------------------------------------------------------------------------
'Callback Name: dialogShown_cb
'------------------------------------------------------------------------------
Public Sub dialogShown_cb()
      Try

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
End Sub

'------------------------------------------------------------------------------
'Callback Name: apply_cb
'------------------------------------------------------------------------------
Public Function apply_cb() As Integer
      Dim errorCode As Integer = 0
      Try

      Catch ex As Exception

         errorCode = 1
         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
      apply_cb = errorCode
End Function

'------------------------------------------------------------------------------
'Callback Name: update_cb
'------------------------------------------------------------------------------
Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
      Try

         Dim num As Single = CType(linear.Value, Single) '转浮点数
         Dim aa3 As Decimal = Math.Round((num * string01.Value * string02.Value * 0.001), 3) '3位小数
         string03.Value = aa3
         Dim aa4 As Decimal = Math.Round((string03.Value * 0.8), 3) '3位小数
         string04.Value = aa4
         Dim aa5 As Decimal = Math.Round((string04.Value * 1 / 6), 3) '3位小数
         string05.Value = aa5
         Dim aa6 As Decimal = Math.Round((string03.Value * 0.06), 3) '3位小数
         string06.Value = aa6

         Dim a3 As Single = CType(string03.Value, Single) '转浮点数
         Dim a4 As Single = CType(string04.Value, Single)
         Dim a5 As Single = CType(string05.Value, Single)
         Dim a6 As Single = CType(string06.Value, Single)

         Dim b3 As Decimal = Math.Round(a3, 3) '3位小数
         Dim b4 As Decimal = Math.Round(a4, 3)
         Dim b5 As Decimal = Math.Round(a5, 3)
         Dim b6 As Decimal = Math.Round(a6, 3)

         Dim d1 As Decimal = Math.Round((b3 * 1.3 + b6 * 1.3), 3) '2位小数
         Dim d2 As Decimal = Math.Round((b4 * 1.3 + b5 * 1.3), 3)

         string07.Value = d1
         string09.Value = d2

         Dim a As Single = CType(string010.Value, Single) '转浮点数
         Dim b As Single = CType(string011.Value, Single)
         string012.Value = a + b

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
      update_cb = 0
End Function

'------------------------------------------------------------------------------
'Callback Name: ok_cb
'------------------------------------------------------------------------------
Public Function ok_cb() As Integer
      Dim errorCode As Integer = 0
      Try

         errorCode = apply_cb()

      Catch ex As Exception

         errorCode = 1
         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
      ok_cb = errorCode
End Function

'------------------------------------------------------------------------------
'Callback Name: enableOKButton_cb
'------------------------------------------------------------------------------
Public Function enableOKButton_cb() As Boolean
      enableOKButton_cb = True
      Try

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
End Function

'------------------------------------------------------------------------------
'Function Name: GetBlockProperties
'Returns the propertylist of the specified BlockID
'------------------------------------------------------------------------------
Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
      GetBlockProperties = Nothing
      Try

         GetBlockProperties = theDialog.GetBlockProperties(blockID)

      Catch ex As Exception

         theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
      End Try
End Function

End Class

zeporbm · 发表于 2022-9-11 21:41

string07.Value = d1
string09.Value = d2
不报错吗？

		自动登录	找回密码
密码			注册

[原创] 用VB.NET在UG中算冲压力

浏览过的版块