用VB.NET在UG中算冲压力

tqtgmm163com

1 U0 H. i+ d% o9 Q" a2 G
8 m& f( ~- U& i$ @" ], ^'==============================================================================
'  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 X1 g) X* q; m. o'  generating the code again.
4 B* c2 U6 j/ |. E'
% n& ?* Z, C; q'       Filename:  C:\dlx\press.vb
9 ~( y; o, `* b1 x; R0 j& W'
'        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)
$ y4 j! U0 @0 j'              Time: 16:31 (Format: hh-mm)
" t' `# q# S" |5 L5 g'
& h3 \1 P; h; k; P'==============================================================================
8 t+ V! {" |) ~5 r7 l  N, Z
- e7 N. P+ W- D4 u5 ]3 J7 m- W'==============================================================================
% n8 B4 q) o, _, q" v: K. Y. @. A'==============================================================================

'------------------------------------------------------------------------------
'These imports are needed for the following template code
$ ]) J( }2 J. b, R'------------------------------------------------------------------------------
Option Strict Off
; C$ F' H: ]; a/ R: V9 T% ]0 ]9 p. mImports System
Imports NXOpen
Imports NXOpen.BlockStyler

'------------------------------------------------------------------------------
8 k) M4 T" W% ?' O'Represents Block Styler application class
+ [  L& ~$ G' G& d$ W4 |8 o2 k'------------------------------------------------------------------------------
Public Class press
2 p2 L# i; l5 W$ u. w: h1 [    'class members
    Private Shared theSession As Session
* V8 P8 H) m7 R1 c. z' Y    Private Shared theUI As UI
    Private theDlxFileName As String
9 H! A  d: w4 h( E    Private theDialog As NXOpen.BlockStyler.BlockDialog
    Private group0 As NXOpen.BlockStyler.Group ' Block type: Group
% K* m7 n$ B3 n4 U* |    Private linear As NXOpen.BlockStyler.LinearDimension ' Block type: Linear Dim
: N% C  s! I+ n" w    Private string01 As NXOpen.BlockStyler.StringBlock ' Block type: String
+ {% t6 [( v- L  ]7 j# M) v9 F    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
- Y* [8 y7 a; o4 P2 m    Private string012 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private list_box0 As NXOpen.BlockStyler.ListBox ' Block type: List Box
1 a0 r! m1 s& w) L    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
/ c- L: v  S; N' |7 Y* d$ E    Public Shared ReadOnly SnapPointTypesOnByDefault_MidPoint As Integer = 16
. c3 m8 [- o+ F    Public Shared ReadOnly SnapPointTypesOnByDefault_ControlPoint As Integer = 32
: S1 @1 M' i3 `, l    Public Shared ReadOnly SnapPointTypesOnByDefault_Intersection As Integer = 64
# v3 Q8 D+ A( f    Public Shared ReadOnly SnapPointTypesOnByDefault_ArcCenter As Integer = 128
    Public Shared ReadOnly SnapPointTypesOnByDefault_QuadrantPoint As Integer = 256
    Public Shared ReadOnly SnapPointTypesOnByDefault_ExistingPoint As Integer = 512
" F! Q9 n, X6 t. Z2 t    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonCurve As Integer = 1024
* _3 O% v4 u# ~" ~; t' A$ ^    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonSurface As Integer = 2048
4 \5 M8 D' V: ?2 j! }2 ]  \    Public Shared ReadOnly SnapPointTypesOnByDefault_PointConstructor As Integer = 4096
6 A2 _1 _  m2 [; }3 S! S- w9 Y7 H    Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 8192
    Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
5 A$ u5 ~% @, D% j5 J    Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 32768
8 G# ?4 z# _; b% d2 J6 t3 T8 c' J; S    Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536
# N5 d3 U' m. E* A- o  q! u4 k
, ?& s$ [! L& h1 x9 j" \+ r* g2 a#Region "Block Styler Dialog Designer generator code"
    '------------------------------------------------------------------------------
    'Constructor for NX Styler class
    '------------------------------------------------------------------------------
    Public Sub New()
" U) r& W0 q* E6 L8 W) j7 ~, _        Try
6 p' ], u( v/ Q: V
            theSession = Session.GetSession()
! [1 m3 S% `8 l2 F5 I: K' ^            theUI = UI.GetUI()
' U( j) r1 \5 N- U            theDlxFileName = "D:\LIS_ug\TOOL1\PRESS-A01.dlx"
            theDialog = theUI.CreateDialog(theDlxFileName)
            theDialog.AddApplyHandler(AddressOf apply_cb)
8 h( o" r0 i/ C            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)
8 B. r8 i+ ~- @' U
        Catch ex As Exception

            Throw ex
6 p0 ]3 {) H2 E6 H" n7 ?        End Try
    End Sub
#End Region

) P  i/ @8 r; K9 c: Z  k8 l$ v/ G    Public Shared Sub Main()
. l' S: K1 ?- t. T8 n        Dim thepress As press = Nothing
        Try
0 V& F" A8 u& d0 u! M5 N
2 S9 w- ~4 E1 i7 G' T, r$ m            thepress = New press()
) A$ t2 Y% Z5 K: j0 V3 Z; w            thepress.Show()
2 z& a* ?" I% f
        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
; j- q: T4 H& @+ T        Finally
$ s/ X" C+ n$ r, c! {6 G            If thepress IsNot Nothing Then
+ W" {1 x5 _6 A. r* r  o  a                thepress.Dispose()
                thepress = Nothing
            End If
9 S0 V, C+ B% p+ N- n        End Try
    End Sub
: X. J+ W0 T( t1 t" I, m) J: G    Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
/ S# \: O4 [4 g6 L+ }/ ?$ y+ t        'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
        Return CType(Session.LibraryUnloadOption.Immediately, Integer)
' A! {/ ~, J' A+ C        ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
    End Function
1 i! w$ ]; H' W    Public Shared Sub UnloadLibrary(ByVal arg As String)
' E3 \/ l" A0 @) l8 F        Try

* P  V6 ]; h; R: d, Z
        Catch ex As Exception

; Y) H! n! y1 T3 Q            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Sub

    '------------------------------------------------------------------------------
5 u* Y, v9 l; M$ S    'This method shows the dialog on the screen
    '------------------------------------------------------------------------------
    Public Sub Show()
3 [8 B( v) q" ~& M+ O        Try
+ T4 S* A: [& v, e+ P
: Q. \2 B. n8 R            theDialog.Show()

2 e; g7 E. }- Z        Catch ex As Exception
' q: w/ Y  N) l- U" }
2 w! b. L4 R1 ?, W' K9 _            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Sub
# J& V5 q1 P  G1 {$ e) u/ K8 ~; w
    '------------------------------------------------------------------------------
) H% R) ^3 H1 B1 X5 A    'Method Name: Dispose
! b8 R& ?: z. u, z2 ]0 |  m    '------------------------------------------------------------------------------
    Public Sub Dispose()
        If theDialog IsNot Nothing Then
            theDialog.Dispose()
8 |( ^3 ~- ^0 Y$ _# \4 A' H- k            theDialog = Nothing
        End If
; T( Z2 l% X. `    End Sub

1 c/ o/ r* I" p1 Z
4 T4 e% j8 R- g" X! {  F    '------------------------------------------------------------------------------
! t6 |7 _2 u2 _# J    'Callback Name: initialize_cb
8 S- x3 ]! |$ l5 z* p; T7 I    '------------------------------------------------------------------------------
0 C- h! B) b- g: O* W2 a" r    Public Sub initialize_cb()
* u) N3 w5 F- o0 R        Try
: g8 S) R  z+ M7 Y+ P' d
            group0 = CType(theDialog.TopBlock.FindBlock("group0"), NXOpen.BlockStyler.Group)
            linear = CType(theDialog.TopBlock.FindBlock("linear"), NXOpen.BlockStyler.LinearDimension)
9 h, v* A+ w4 L            string01 = CType(theDialog.TopBlock.FindBlock("string01"), NXOpen.BlockStyler.StringBlock)
% [( @7 u9 _, k& b2 V            string02 = CType(theDialog.TopBlock.FindBlock("string02"), NXOpen.BlockStyler.StringBlock)
% {$ \. b8 h# @7 M& c8 C            string03 = CType(theDialog.TopBlock.FindBlock("string03"), NXOpen.BlockStyler.StringBlock)
            string06 = CType(theDialog.TopBlock.FindBlock("string06"), NXOpen.BlockStyler.StringBlock)
: H  s' }+ P" D; I4 @% `! L& X/ E9 M1 v            string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
' i$ ^0 e5 p/ w- B8 L% X            string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)
) a) }2 l; L( ]1 f            string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
            string09 = CType(theDialog.TopBlock.FindBlock("string09"), NXOpen.BlockStyler.StringBlock)
3 V- S* D6 _1 Q) [            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)
# t9 N1 J7 E1 ^2 H6 z: X            list_box0 = CType(theDialog.TopBlock.FindBlock("list_box0"), NXOpen.BlockStyler.ListBox)
! g$ e$ u. Z8 p( [; L3 p3 h8 L+ B
3 R. K& n) h. L  m

        Catch ex As Exception
- x3 l. ^0 c2 U* L0 A7 ?% f
% `5 E2 v. ~2 D  I2 F& P0 c4 P            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
/ Q+ c* a4 u  H, d' R2 h        End Try
    End Sub

    '------------------------------------------------------------------------------
    'Callback Name: dialogShown_cb
& n# U) z4 y' j  |3 x    '------------------------------------------------------------------------------
    Public Sub dialogShown_cb()
        Try


4 k6 B) Z0 E; O        Catch ex As Exception

" W4 U! c$ Q" F& X) O            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
; a9 ~: C% s' A    End Sub
. j6 _' b! S6 B- [8 v8 A
    '------------------------------------------------------------------------------
7 n& k8 h- A; ]% t" y    'Callback Name: apply_cb
    '------------------------------------------------------------------------------
    Public Function apply_cb() As Integer
        Dim errorCode As Integer = 0
0 {* |0 c) d' V" v) K* P0 p. a5 X        Try
+ n  I" e* y  d6 R$ D; Y- D: o7 L

  K9 h7 T9 v1 K" `: P        Catch ex As Exception

; j; ~! s: s3 Q) u6 z3 l: w            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
8 Y+ W& l5 e& n! O4 }  ^        apply_cb = errorCode
    End Function

7 Q: f2 _8 v9 _6 v" F& }    '------------------------------------------------------------------------------
3 k7 C" Z; ?: l* _1 r  J: M+ q( B    'Callback Name: update_cb
4 {; D8 [7 K2 c2 S) x    '------------------------------------------------------------------------------
    Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
9 J, t6 _" k1 ?) i9 M1 g1 _& y        Try
( a; f% H; C  j
            Dim num As Single = CType(linear.Value, Single) '转浮点数
* J9 S. q- R/ x2 n            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位小数
! J3 ^4 x- l! t! z' N            string04.Value = aa4
            Dim aa5 As Decimal = Math.Round((string04.Value * 1 / 6), 3) '3位小数
            string05.Value = aa5
. o6 }8 P7 u/ m$ V! w            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)
, Y" U: D7 O5 [8 u$ x, {! f! l            Dim a5 As Single = CType(string05.Value, Single)
1 p1 ?+ F% e; {1 |# D. R            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)
6 D+ L+ s4 o( N            Dim b5 As Decimal = Math.Round(a5, 3)
            Dim b6 As Decimal = Math.Round(a6, 3)


+ e: x, X$ p  y3 S            Dim d1 As Decimal = Math.Round((b3 * 1.3 + b6 * 1.3), 3) '2位小数
# D/ u8 l7 A; I/ e" F            Dim d2 As Decimal = Math.Round((b4 * 1.3 + b5 * 1.3), 3)
% v% v$ X# W2 R. A. d
5 L( i* T. y) i2 ]- N' ]% z            string07.Value = d1
            string09.Value = d2

0 v! u1 j. p* A/ V8 {
, b; {1 P" c9 f& n# |            Dim a As Single = CType(string010.Value, Single) '转浮点数
            Dim b As Single = CType(string011.Value, Single)
            string012.Value = a + b
: U; U( a; Q$ V$ V% J2 E
; Y" L4 E% o3 K# |
; f3 J0 F2 _- w# K. Q0 I& E3 l
3 _/ }6 l, O8 s1 Z0 }
" q& o% a' n9 T8 a9 {# x9 C' s
        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
6 S+ M8 i8 z# Z4 E- t        End Try
        update_cb = 0
    End Function
, s+ j+ q6 d, O) F% [% ?; K: d, r
    '------------------------------------------------------------------------------
$ q5 U. z6 E, p! G5 |4 n    'Callback Name: ok_cb
# d% ?* A" a, w    '------------------------------------------------------------------------------
. w2 v) C6 {" G0 S    Public Function ok_cb() As Integer
        Dim errorCode As Integer = 0
, J1 @, W& y8 t8 q9 Y4 [        Try
1 v5 w/ ^! I: W5 e
7 v5 L( p5 ~. o" `            errorCode = apply_cb()
6 \- @* W7 `5 Q) A
# ~$ u" S( m1 j8 H        Catch ex As Exception

) e% u/ X5 V2 ?3 [3 B            errorCode = 1
  v. ~$ H* ]' _. f            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
3 `+ O4 B2 c# W7 m- m5 \        End Try
        ok_cb = errorCode
    End Function

. O9 d1 T; u2 ], Y4 ^7 U/ {# K    '------------------------------------------------------------------------------
    'Callback Name: enableOKButton_cb
9 P% y6 I7 w( W  ~3 k    '------------------------------------------------------------------------------
  r# M/ o  o' z  Z    Public Function enableOKButton_cb() As Boolean
        enableOKButton_cb = True
        Try


' B) O) t! L  e        Catch ex As Exception
( r4 ~. Y) i: {1 J: G
1 f4 j1 U, z  Z3 T0 U0 f" K5 X) j            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
1 ^  g! D. D" e/ d* S2 {- ]        End Try
    End Function
+ }. ?9 G  [' T7 ~


    '------------------------------------------------------------------------------
    'Function Name: GetBlockProperties
1 E$ @/ E& @+ ?5 r4 d& ^    'Returns the propertylist of the specified BlockID
! }4 E+ \& w7 C. t. I! f$ g    '------------------------------------------------------------------------------
. n: S9 v. n' d6 O: ?' a    Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
, L) u, H' N, q( L3 h) b. x        GetBlockProperties = Nothing
        Try
- ]4 K+ g5 z& |
            GetBlockProperties = theDialog.GetBlockProperties(blockID)

" @  T* o/ N5 I0 K4 b% X6 f' f: ~        Catch ex As Exception

) H+ V4 R4 {+ ]9 K7 c3 c- }) v            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
. d  Y. }3 Q. P% O- R7 b        End Try
    End Function
/ w$ d5 r. L1 ?' o
End Class

! ~: J/ R0 k9 K$ b! W/ x8 U) {

zeporbm

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