用VB.NET在UG中算冲压力

tqtgmm163com

'==============================================================================
'  WARNING!!  This file is overwritten by the Block UI Styler while generating
'  the automation code. Any modifications to this file will be lost after
1 y3 y9 G' r+ P' n. {4 }7 F'  generating the code again.
) G) Y# B, R" Z'
7 W% q- d2 m+ U'       Filename:  C:\dlx\press.vb
'
! s# R# s! F6 c5 ~2 V'        This file was generated by the NX Block UI Styler
'        Created by: Administrator
& D6 i) k2 W1 g4 D/ X, U'              Version: NX 8.5
3 ?& U2 C2 `3 ?6 @'              Date: 01-06-2020  (Format: mm-dd-yyyy)
/ a6 \  V' |# s1 }  j$ O'              Time: 16:31 (Format: hh-mm)
  s/ Z$ f7 v' D2 N8 p3 ~'
'==============================================================================
5 k  @: @# |% ^  `& S7 b/ Y
'==============================================================================
'==============================================================================
6 ?! m+ |* h; d3 `
'------------------------------------------------------------------------------
' _" [2 v  g: f9 N/ q'These imports are needed for the following template code
& j7 p$ r: ^) j) Z" ~# q'------------------------------------------------------------------------------
2 s% p2 I& j3 q  z) x" `% KOption Strict Off
Imports System
Imports NXOpen
; ?0 g, l, C" p7 }/ U& xImports NXOpen.BlockStyler
1 Q: P" D  ?/ f9 _( F
'------------------------------------------------------------------------------
7 R# I2 s/ B2 c3 l; A'Represents Block Styler application class
'------------------------------------------------------------------------------
Public Class press
    'class members
  r/ N( I) h( D7 L: N7 u    Private Shared theSession As Session
    Private Shared theUI As UI
( u4 O2 W, ]. _4 ?4 G2 g; \    Private theDlxFileName As String
4 q& J3 K( A- g; R* \; t    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
+ h* f7 ~( I9 t5 F7 u! ?& ~7 z    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
( N* A5 R) u" Z" i    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
7 G/ Y  n' R* O7 J5 D! h    Private string011 As NXOpen.BlockStyler.StringBlock ' Block type: String
( h) Q! I& k" K* Z/ f    Private string012 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private list_box0 As NXOpen.BlockStyler.ListBox ' Block type: List Box
. {2 |2 k2 k& b    Public Shared ReadOnly SnapPointTypesOnByDefault_UserDefined As Integer = 1
    Public Shared ReadOnly SnapPointTypesOnByDefault_Inferred As Integer = 2
3 D9 G; ]4 ]7 q) _8 J% R    Public Shared ReadOnly SnapPointTypesOnByDefault_ScreenPosition As Integer = 4
( t8 X! y# _( {- I' a    Public Shared ReadOnly SnapPointTypesOnByDefault_EndPoint As Integer = 8
" H7 J" t3 e0 }9 l7 g7 z/ b    Public Shared ReadOnly SnapPointTypesOnByDefault_MidPoint As Integer = 16
    Public Shared ReadOnly SnapPointTypesOnByDefault_ControlPoint As Integer = 32
3 Y& y& b! r8 }9 u1 O* u2 j    Public Shared ReadOnly SnapPointTypesOnByDefault_Intersection As Integer = 64
    Public Shared ReadOnly SnapPointTypesOnByDefault_ArcCenter As Integer = 128
    Public Shared ReadOnly SnapPointTypesOnByDefault_QuadrantPoint As Integer = 256
. Z4 Y$ C% {  r  c/ o. @    Public Shared ReadOnly SnapPointTypesOnByDefault_ExistingPoint As Integer = 512
3 L  _7 f3 h0 u3 M    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonCurve As Integer = 1024
1 g. ^$ b. ~: ~    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonSurface As Integer = 2048
    Public Shared ReadOnly SnapPointTypesOnByDefault_PointConstructor As Integer = 4096
    Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 8192
) U* Y5 I6 Z% l$ U$ E" N. B    Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
    Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 32768
    Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536
# B0 z% [7 [' ~- f5 R6 ?
4 ~! S. Y3 n' v# K/ o/ g" ^2 n3 L#Region "Block Styler Dialog Designer generator code"
& R2 Q- k4 l( p) v4 D. }    '------------------------------------------------------------------------------
    'Constructor for NX Styler class
    '------------------------------------------------------------------------------
    Public Sub New()
& X$ V0 R( S' f9 X0 F" u1 K# N        Try

! u& Y4 q& p; r6 t/ o2 c            theSession = Session.GetSession()
. F4 d" `$ p# V- C9 x  H7 C            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)
. D' [, T8 t4 \3 Y9 V            theDialog.AddEnableOKButtonHandler(AddressOf enableOKButton_cb)
            theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)
- k( R; w, }4 `
        Catch ex As Exception
5 l9 n" ^6 X# r3 I  C
, c% V/ N1 n- @  m# X: H            Throw ex
, Y* _' n8 C  e        End Try
5 I- N+ b& K  S    End Sub
#End Region

    Public Shared Sub Main()
1 b) X; x1 M' q/ k! l3 B, v        Dim thepress As press = Nothing
        Try

            thepress = New press()
            thepress.Show()

4 X; ?! V8 e5 s, ?) F0 M5 x        Catch ex As Exception
8 o4 w/ C% _, Z. I
, g) [/ }# d/ p+ D8 S( d; _            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
5 M, L$ B- M) [& ^0 p        Finally
            If thepress IsNot Nothing Then
                thepress.Dispose()
                thepress = Nothing
            End If
        End Try
4 ^( ?( h  ?6 o6 R    End Sub
    Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
3 P* @( X; Y7 a- q        'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
        Return CType(Session.LibraryUnloadOption.Immediately, Integer)
        ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
' R; t, d2 C$ O6 b* c    End Function
    Public Shared Sub UnloadLibrary(ByVal arg As String)
+ ~: n3 X" q2 Z8 o6 T! F: ?3 k        Try
7 c- k* F" u: I
/ y7 S" t9 ~0 C
        Catch ex As Exception

$ k7 F$ A9 ~) _            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
' F, f) C- z3 K8 x, E! j        End Try
7 b  d$ ~3 \8 H7 @2 p    End Sub

* d3 ?1 b! w4 B: S1 a4 T* }    '------------------------------------------------------------------------------
9 Z- A, N4 M5 b( l: K    'This method shows the dialog on the screen
    '------------------------------------------------------------------------------
! \; g3 F. v  R4 n  X% f7 W8 X    Public Sub Show()
        Try
* H7 }0 ?; m" ]. X; z# Y
4 I. l+ I( r( p& ^% {' ^            theDialog.Show()
6 [; W$ r8 v0 o# o
$ o& w2 F! q$ e4 ?# `# u        Catch ex As Exception
( q! s9 B% y0 X: v1 f
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
4 J8 A1 d7 d# \3 [8 U% V2 e        End Try
    End Sub
1 _' a: y& r3 w4 V9 {  V( ?
    '------------------------------------------------------------------------------
    'Method Name: Dispose
    '------------------------------------------------------------------------------
  i3 e% K4 s5 v! W    Public Sub Dispose()
( |" B1 b5 E: W+ h9 s0 |9 a        If theDialog IsNot Nothing Then
            theDialog.Dispose()
* w. g9 f' ]5 V& ^! F            theDialog = Nothing
        End If
+ }  z3 [1 m- c( R! F6 u    End Sub
) @( Y; f: B) S

    '------------------------------------------------------------------------------
# U- U1 T3 B" r7 U8 v' L# k    'Callback Name: initialize_cb
5 Y, {+ E5 M4 w) l* M. ?    '------------------------------------------------------------------------------
6 o/ F: V# O8 v5 }7 M: M8 D: W% x+ _    Public Sub initialize_cb()
        Try

0 J' V4 u  s! @$ |. s0 q            group0 = CType(theDialog.TopBlock.FindBlock("group0"), NXOpen.BlockStyler.Group)
. ]& i* @) x; i            linear = CType(theDialog.TopBlock.FindBlock("linear"), NXOpen.BlockStyler.LinearDimension)
& _2 K5 W6 H8 P( X6 z2 {            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)
6 P) @; x2 P, y5 g$ \) p5 t- |3 V1 a2 c            string06 = CType(theDialog.TopBlock.FindBlock("string06"), NXOpen.BlockStyler.StringBlock)
9 U& \; f  }- d9 Z. R0 e9 w            string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
8 y, c& j% M6 B# j            string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)
  D" G' Y$ K5 J) d( Q# x" `  y            string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
  _: H  G& D- }% v            string09 = CType(theDialog.TopBlock.FindBlock("string09"), NXOpen.BlockStyler.StringBlock)
            string010 = CType(theDialog.TopBlock.FindBlock("string010"), NXOpen.BlockStyler.StringBlock)
# h5 q$ t' [% K$ E% u1 A            string011 = CType(theDialog.TopBlock.FindBlock("string011"), NXOpen.BlockStyler.StringBlock)
5 c9 }4 `. W' N0 A% G            string012 = CType(theDialog.TopBlock.FindBlock("string012"), NXOpen.BlockStyler.StringBlock)
            list_box0 = CType(theDialog.TopBlock.FindBlock("list_box0"), NXOpen.BlockStyler.ListBox)
; Y$ a- J( m, Q7 h2 D
" _2 u- J, H, _; V* d

        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
" Z% e! r: y# R* z- p( Q        End Try
& l/ ^# X; p2 L! _6 h. m    End Sub
+ Q: j4 ]/ l3 h+ P  S' v4 ]
5 f/ I" a9 ]) ~. |$ q+ T5 }    '------------------------------------------------------------------------------
    'Callback Name: dialogShown_cb
5 `5 J* P5 C5 ^7 Y& b/ L/ K    '------------------------------------------------------------------------------
* W% v2 M" U4 [+ n2 W/ G5 S7 M    Public Sub dialogShown_cb()
% R, q6 Y0 |. X2 j- K) N) x        Try
/ A. R; Z; f$ k! [
% X4 K- Q/ g' F" N
, {- `* E! j0 C5 u. e0 `        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
7 z1 F: h* n( R  Q  R$ N7 R* a$ V        End Try
    End Sub
" W1 |: K* B  H3 q/ C
- D5 n' [/ K, x) D0 J2 l8 w    '------------------------------------------------------------------------------
    'Callback Name: apply_cb
    '------------------------------------------------------------------------------
+ ~6 s" a$ i4 r    Public Function apply_cb() As Integer
( G- L/ m8 a( L6 E& }( b) k        Dim errorCode As Integer = 0
        Try


! Q5 o+ C2 U3 a3 M        Catch ex As Exception

1 S4 d( V. y( m            errorCode = 1
' i$ U) U' `$ a! T$ l5 B1 t            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
( x+ m) y1 u5 j& A5 ~' p        apply_cb = errorCode
' V8 k& ~* z* d! O# H    End Function
. T8 m: n. f3 x. r+ }4 [
8 V8 }" J' Z$ ^. ]    '------------------------------------------------------------------------------
    'Callback Name: update_cb
    '------------------------------------------------------------------------------
( e8 F. Y/ \3 M; k& d    Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
        Try
0 Y) b- J" O" F$ Y4 t) v
* M' ?% H# b8 E, }2 V# n            Dim num As Single = CType(linear.Value, Single) '转浮点数
            Dim aa3 As Decimal = Math.Round((num * string01.Value * string02.Value * 0.001), 3) '3位小数
  a/ H7 O# w$ q6 [            string03.Value = aa3
            Dim aa4 As Decimal = Math.Round((string03.Value * 0.8), 3) '3位小数
            string04.Value = aa4
$ \  b9 Y1 q5 ^+ {1 E7 J            Dim aa5 As Decimal = Math.Round((string04.Value * 1 / 6), 3) '3位小数
9 q6 E/ |! ?6 z3 \7 r1 R) f            string05.Value = aa5
0 [$ B* }4 w% `            Dim aa6 As Decimal = Math.Round((string03.Value * 0.06), 3) '3位小数
3 F" k4 w2 \3 ~            string06.Value = aa6
/ _- h( o9 t: g4 |# E$ Q$ j
5 ?5 Y( Q5 z0 `5 Q0 O3 @: I& ~; E            Dim a3 As Single = CType(string03.Value, Single) '转浮点数
* k+ S5 t# V9 u8 n& M            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)
/ Q: ?& K8 k9 x+ H& d6 O            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
' h: x3 o9 ^. |8 _2 \2 X            string09.Value = d2

) s& }2 N+ P* K- h  g2 F
  b; g5 a- l3 @% a2 X: }            Dim a As Single = CType(string010.Value, Single) '转浮点数
            Dim b As Single = CType(string011.Value, Single)
3 ^( b  ^& Z; w( U7 A% y4 F            string012.Value = a + b

1 }$ u" q  O: v( U3 B1 j0 e

+ h# N- F) v: Y/ q

# _- q$ }# `  I6 \1 q6 B8 F2 _        Catch ex As Exception

. \$ G( y% ~3 |+ n& W. s! g            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
. _8 s. r1 y6 {" }2 h8 d        update_cb = 0
    End Function

) ~8 h0 r* k# M    '------------------------------------------------------------------------------
) a( h' N' D  h+ \, S2 C    'Callback Name: ok_cb
6 @. |" H' N! q, v    '------------------------------------------------------------------------------
    Public Function ok_cb() As Integer
6 a8 I! h$ Q2 b        Dim errorCode As Integer = 0
        Try

6 W( Z( e! S- G0 H. `+ F: [4 j            errorCode = apply_cb()

        Catch ex As Exception

: t" m: O" M0 j5 K5 w. P            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
; @- d* H6 u6 {: q: p7 S5 Q) K        End Try
: E! l5 H6 O  M        ok_cb = errorCode
    End Function
, N5 e4 W6 ]6 o0 k& d3 N
9 P$ @( u+ \; G8 k) G7 U    '------------------------------------------------------------------------------
    'Callback Name: enableOKButton_cb
    '------------------------------------------------------------------------------
    Public Function enableOKButton_cb() As Boolean
0 S+ H9 n2 Z2 s9 x0 b2 a' I        enableOKButton_cb = True
  ~9 ]( H1 G- ^4 U9 q& ]3 a( c1 N        Try
; _' u0 i7 s  d% T) h

        Catch ex As Exception
$ ?3 a4 [" _+ Z/ f; K2 [
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Function
, y6 g  a, L1 Y0 i. g


    '------------------------------------------------------------------------------
    'Function Name: GetBlockProperties
+ @- h- C  W# t6 x' O; \3 l# l    'Returns the propertylist of the specified BlockID
0 v5 D9 w8 K+ T; P2 u/ S    '------------------------------------------------------------------------------
4 A, x: t* T/ n    Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
        GetBlockProperties = Nothing
        Try

+ a5 [" J% ?9 e2 Y% T            GetBlockProperties = theDialog.GetBlockProperties(blockID)

. }4 H" n7 v4 X* P8 |* C        Catch ex As Exception

% s9 _: l* i; H3 T& y8 R1 `            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Function

' E- l) u  u- H2 OEnd Class


( _) V7 \" F! x; R) A; n0 W

zeporbm

       string07.Value = d1
* _* ]/ ?/ o7 z7 l2 A4 I% C        string09.Value = d2
- {: p0 U0 L% I% ?, A2 H+ d% L: \% i8 s不报错吗？