用VB.NET在UG中算冲压力

tqtgmm163com

( [" M8 l0 f  Y, V) B
) r5 T, _% H: r' `, T'==============================================================================
* i9 K1 D8 F7 G4 ~'  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.
'
% z, `* x6 P2 e, i$ x% l: Z( W'       Filename:  C:\dlx\press.vb
'
; a& t1 M  g/ T  L'        This file was generated by the NX Block UI Styler
1 S- g# o$ r; E6 ~" _'        Created by: Administrator
'              Version: NX 8.5
  g: A' N0 g" |. M$ c* X6 o- r'              Date: 01-06-2020  (Format: mm-dd-yyyy)
# z; d( l& K3 {- ~. x'              Time: 16:31 (Format: hh-mm)
'
8 o  p) \; j" Q'==============================================================================
7 r: m* P# P' I9 a
'==============================================================================
4 r8 a5 o+ c8 @0 {8 K% H7 O'==============================================================================

'------------------------------------------------------------------------------
'These imports are needed for the following template code
'------------------------------------------------------------------------------
+ o3 _6 e' x. M4 p/ F' m8 d3 n% cOption Strict Off
- L4 g! N9 Q2 M& |! nImports System
Imports NXOpen
Imports NXOpen.BlockStyler
: \4 L  H# r" k& j' {+ T8 ~3 s
'------------------------------------------------------------------------------
! H7 p/ }7 W; [+ Y+ N'Represents Block Styler application class
'------------------------------------------------------------------------------
# i! ^4 d- r5 g- {3 |Public Class press
    'class members
    Private Shared theSession As Session
    Private Shared theUI As UI
    Private theDlxFileName As String
9 D* p7 F( _1 a+ `" k    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
! b3 C% S! U$ K    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
$ i) J: b- T, @. o% Z    Private string05 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private string07 As NXOpen.BlockStyler.StringBlock ' Block type: String
, U5 ^4 F. C" M. _  W    Private string09 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private string010 As NXOpen.BlockStyler.StringBlock ' Block type: String
1 A) T) J+ T! y& b+ m% I3 I    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
' `" v; b& f3 x4 Y    Public Shared ReadOnly SnapPointTypesOnByDefault_Inferred As Integer = 2
    Public Shared ReadOnly SnapPointTypesOnByDefault_ScreenPosition As Integer = 4
    Public Shared ReadOnly SnapPointTypesOnByDefault_EndPoint As Integer = 8
, P7 g2 T+ {2 j( q) @6 c    Public Shared ReadOnly SnapPointTypesOnByDefault_MidPoint As Integer = 16
4 t+ \( Z/ M0 H1 k' v    Public Shared ReadOnly SnapPointTypesOnByDefault_ControlPoint As Integer = 32
& Y2 u. a. e0 k, I# T4 m! Z& O    Public Shared ReadOnly SnapPointTypesOnByDefault_Intersection As Integer = 64
    Public Shared ReadOnly SnapPointTypesOnByDefault_ArcCenter As Integer = 128
, D. S% }. m6 B9 X9 X    Public Shared ReadOnly SnapPointTypesOnByDefault_QuadrantPoint As Integer = 256
    Public Shared ReadOnly SnapPointTypesOnByDefault_ExistingPoint As Integer = 512
    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonCurve As Integer = 1024
$ J* r8 q- b8 u0 t    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonSurface As Integer = 2048
2 X" g- j9 U1 B: `! v- B    Public Shared ReadOnly SnapPointTypesOnByDefault_PointConstructor As Integer = 4096
    Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 8192
+ W+ }0 D7 K  m8 g" N    Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
- d) Z+ A9 j; B    Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 32768
    Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536
6 L9 J2 p/ l  e( D
1 w- s1 x6 l2 y8 q  S* a9 p7 N( x#Region "Block Styler Dialog Designer generator code"
7 c( O7 R1 i  F7 U8 i9 Y! D# W    '------------------------------------------------------------------------------
- t- h+ x2 j* t. I& |" I    'Constructor for NX Styler class
9 |; ]& {/ T  Z" T    '------------------------------------------------------------------------------
    Public Sub New()
' V1 k. r. t5 ?+ ?- a2 \  g  V        Try
( @" g& D, s" o  a' }0 H! C
            theSession = Session.GetSession()
1 Y3 p( O$ O/ ~/ x8 [            theUI = UI.GetUI()
  T. ^/ T& i" X7 w/ `3 x+ n            theDlxFileName = "D:\LIS_ug\TOOL1\PRESS-A01.dlx"
" I* v7 y7 Z0 E$ ~0 U+ R$ d: T            theDialog = theUI.CreateDialog(theDlxFileName)
            theDialog.AddApplyHandler(AddressOf apply_cb)
) a8 S  Y6 ~3 U1 h! M( ^( _0 \            theDialog.AddOkHandler(AddressOf ok_cb)
5 D9 l& s8 E* j8 K: Y2 c            theDialog.AddUpdateHandler(AddressOf update_cb)
; ^  g, r7 y. \            theDialog.AddInitializeHandler(AddressOf initialize_cb)
            theDialog.AddEnableOKButtonHandler(AddressOf enableOKButton_cb)
7 t3 H. y$ j0 e            theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)

% w1 ~5 Q5 M/ S: i, B        Catch ex As Exception
: h2 i! N, B( p6 k% L, g( s% z3 W
1 \/ W8 p8 H- T" c* `            Throw ex
, B# x8 v: {9 N% d' _8 P        End Try
2 ?; }0 z7 Y( f; r- i2 y    End Sub
#End Region

8 p6 E) ?  r" `* z; Z) G1 W; D    Public Shared Sub Main()
8 U1 e* `) w! @' g% \$ P  B        Dim thepress As press = Nothing
        Try
2 }2 t: l4 _7 f  r# Z
2 n3 A$ |7 k# W2 H$ e: t4 F            thepress = New press()
            thepress.Show()
- p% d/ [3 ^6 l4 L7 k
        Catch ex As Exception

2 c$ c: M" l$ e" K            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
% _* H1 O3 D' j- C        Finally
! E% I4 |+ [! |7 n            If thepress IsNot Nothing Then
; C$ q7 I( A6 Q9 z; N7 B# G1 E6 b, }                thepress.Dispose()
                thepress = Nothing
- d- Z, n5 |# y            End If
: Z! Q" m' _  e1 t: p        End Try
    End Sub
# ]% m( A. h6 x6 O2 Q    Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
        'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
, K' g, Y9 p, n: J& C# c        Return CType(Session.LibraryUnloadOption.Immediately, Integer)
$ I5 Y: a1 e* q5 Q" N9 C# p& `) ]        ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
    End Function
    Public Shared Sub UnloadLibrary(ByVal arg As String)
        Try
- \" ^5 }/ ~/ f6 R. K( m) h  {8 ~6 g
# \# t# e5 \6 f- a: W" k
        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
+ e  \. I3 C2 v    End Sub

    '------------------------------------------------------------------------------
  r' f0 w. Q5 \$ n, R    'This method shows the dialog on the screen
" O  p% |' e# z: q    '------------------------------------------------------------------------------
# B- C: U9 V/ M# \3 Y+ R    Public Sub Show()
) o1 F" }: K* W, Q% X# X        Try

: Q1 H; b, P% z, ]+ J; B            theDialog.Show()

! I6 w6 s% d. H' M5 b- K2 }        Catch ex As Exception
. O' y7 {  ]9 e: H4 H+ n7 t
" S4 b! N: C7 V# M; m- s            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
% X7 T+ _$ D% d( h" l" N* A7 A5 }    End Sub

2 J; H2 ?6 g9 _$ f    '------------------------------------------------------------------------------
9 A& `. \- f! ?2 [# C& ?    'Method Name: Dispose
- `8 G4 \) u# A& w) Y0 O6 C    '------------------------------------------------------------------------------
    Public Sub Dispose()
        If theDialog IsNot Nothing Then
            theDialog.Dispose()
            theDialog = Nothing
5 ~5 a0 P7 x  [) R8 [" W        End If
- I- v3 b+ q6 H7 ^4 m' N" t: I    End Sub

: S2 @  T( N- [
    '------------------------------------------------------------------------------
    'Callback Name: initialize_cb
    '------------------------------------------------------------------------------
    Public Sub initialize_cb()
1 I8 _* ^5 _. P4 f) Q- A        Try
+ W' C, p) z0 s9 X- \
: \5 f- ^! L! o& N; p7 D; ^% {            group0 = CType(theDialog.TopBlock.FindBlock("group0"), NXOpen.BlockStyler.Group)
: L9 w0 [$ [$ f  o; B; ~' k            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)
$ s; d# a6 O" \* ?, K            string06 = CType(theDialog.TopBlock.FindBlock("string06"), NXOpen.BlockStyler.StringBlock)
5 g2 W9 a( \) O8 e; f            string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
: c2 N; J/ W: o$ n1 F4 U; w            string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)
# q6 F5 p( ~4 c% O* c3 ]1 O            string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
            string09 = CType(theDialog.TopBlock.FindBlock("string09"), NXOpen.BlockStyler.StringBlock)
, R7 o' c& g  n/ i& o) Z            string010 = CType(theDialog.TopBlock.FindBlock("string010"), NXOpen.BlockStyler.StringBlock)
$ c9 g2 n: v: ]3 Q+ |) b( ]            string011 = CType(theDialog.TopBlock.FindBlock("string011"), NXOpen.BlockStyler.StringBlock)
3 k; x4 c$ q' G( W1 x4 f! {. L            string012 = CType(theDialog.TopBlock.FindBlock("string012"), NXOpen.BlockStyler.StringBlock)
6 x9 H) W' M  A6 t! d: s8 a            list_box0 = CType(theDialog.TopBlock.FindBlock("list_box0"), NXOpen.BlockStyler.ListBox)
" B6 K3 i% Y! @" E0 G

6 o9 ?) E* G. x' @& N# K
        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
, ~; L6 `9 c- d& v; L        End Try
    End Sub
, M; B, o: |3 H, B
, t6 J$ ^( ^& U  U! y7 r    '------------------------------------------------------------------------------
6 P4 f8 I6 g. m8 d1 v. C- {    'Callback Name: dialogShown_cb
    '------------------------------------------------------------------------------
    Public Sub dialogShown_cb()
, I& J" C" Q# V, e        Try
. n. @/ m6 K* b# c
8 I3 W) ?9 C/ I* x
        Catch ex As Exception

0 a6 ~, b/ F) I" ^( T% c1 n            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Sub

" f3 u# \# z6 a* y1 Y! S' I    '------------------------------------------------------------------------------
6 [! e$ e% u4 O    'Callback Name: apply_cb
0 U8 h( `4 z' v% K+ g1 U8 \  |: m0 @    '------------------------------------------------------------------------------
    Public Function apply_cb() As Integer
' C$ n4 i; {. J: o* C. J2 y8 v# l        Dim errorCode As Integer = 0
        Try


  r- @: m3 B9 D; b4 N        Catch ex As Exception

% p" ~/ U) Y* R  a: F            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
% h" q6 M" ^% Z7 l2 u        apply_cb = errorCode
    End Function
- A5 K) a5 s8 s# D& y! U  ]# j+ N& K
5 D. N' m  H: ^* z+ q; g6 G1 H    '------------------------------------------------------------------------------
    'Callback Name: update_cb
# Y, x; Q. m2 {( \) x& e    '------------------------------------------------------------------------------
8 s4 Q1 K1 Y- P1 ]* m  _    Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
        Try
/ r: d8 F1 O6 |  ^8 F/ Z
            Dim num As Single = CType(linear.Value, Single) '转浮点数
            Dim aa3 As Decimal = Math.Round((num * string01.Value * string02.Value * 0.001), 3) '3位小数
9 w' O+ d1 P+ ]$ E& D( |, m# `. x            string03.Value = aa3
9 R: [, C! z: f8 N9 \( r+ V            Dim aa4 As Decimal = Math.Round((string03.Value * 0.8), 3) '3位小数
            string04.Value = aa4
" D( D$ S, A& _  \- @: q6 `% `6 q/ z$ j            Dim aa5 As Decimal = Math.Round((string04.Value * 1 / 6), 3) '3位小数
) s; i4 ^/ S& u% @" l3 w( `            string05.Value = aa5
            Dim aa6 As Decimal = Math.Round((string03.Value * 0.06), 3) '3位小数
* V0 }7 z$ Z7 \9 \2 h1 w            string06.Value = aa6
0 h+ k' r/ C) g% x& \
: T: @4 w: x4 q* A2 q! ^6 w/ N            Dim a3 As Single = CType(string03.Value, Single) '转浮点数
5 I3 l% }( A% Q7 G1 m3 ~            Dim a4 As Single = CType(string04.Value, Single)
" ~: e1 ]3 q: b7 s) Z- N( h, ]            Dim a5 As Single = CType(string05.Value, Single)
- }6 E9 P" V2 @/ s% [) j7 Y            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)
0 S# ?; T: |+ {0 c$ t- ]/ B
8 J, Z, V( e% y& q4 G: t) W/ L
            Dim d1 As Decimal = Math.Round((b3 * 1.3 + b6 * 1.3), 3) '2位小数
$ U$ a: S" _2 u$ ^- D: q            Dim d2 As Decimal = Math.Round((b4 * 1.3 + b5 * 1.3), 3)

            string07.Value = d1
            string09.Value = d2

4 V4 e/ y: w# ~7 ~3 a
            Dim a As Single = CType(string010.Value, Single) '转浮点数
            Dim b As Single = CType(string011.Value, Single)
            string012.Value = a + b
8 J$ P# h7 z( \: Y) k/ v



& [, z9 D- {( W' A
& c) E* ?( U8 s9 ]% O1 h9 n        Catch ex As Exception
/ o6 n, Y7 c8 _/ N
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
6 n& I% P: }+ {        End Try
        update_cb = 0
    End Function

0 H% s" @& t. \( M. F    '------------------------------------------------------------------------------
$ _8 M* N* l! J# j& b, j- }    'Callback Name: ok_cb
    '------------------------------------------------------------------------------
) ~8 r% @8 _% F) _1 i+ @$ d    Public Function ok_cb() As Integer
# |$ U& o9 E* S' c2 E        Dim errorCode As Integer = 0
3 l6 N4 M" L/ |# P7 r9 j        Try

* Z6 L0 z& T8 \/ ^. t4 e8 `            errorCode = apply_cb()
8 {: r+ t( h; l  i" M( b' t
        Catch ex As Exception

6 n4 H4 D6 A: Z0 b" S            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
        ok_cb = errorCode
- Y/ F# P0 j- p: v, m* I7 G    End Function

0 w6 f# d* J- K    '------------------------------------------------------------------------------
; M" D3 u0 d( g% F7 C3 A; ]    'Callback Name: enableOKButton_cb
6 C  A  X$ M( A    '------------------------------------------------------------------------------
+ V4 ?: }* u, ?: U% w    Public Function enableOKButton_cb() As Boolean
        enableOKButton_cb = True
        Try
% n. W* |% P0 I, O& ^
! r3 D, t* J1 @" x- U' @
6 T! H  r- W' s; p1 F- V) B, G        Catch ex As Exception

# y, P- P3 R" l  o+ N            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
: w/ U4 p& \2 p  @% N+ c  V/ u! [' M- B        End Try
    End Function

* l+ E6 [) r6 X$ K

    '------------------------------------------------------------------------------
6 K. c# I7 y2 j% `- k0 |    'Function Name: GetBlockProperties
    'Returns the propertylist of the specified BlockID
. r8 x) d, i6 z    '------------------------------------------------------------------------------
# g+ M$ _* J8 E4 T    Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
# f. ]4 D4 M1 ^4 Y2 k. O  o7 c+ G        GetBlockProperties = Nothing
        Try

            GetBlockProperties = theDialog.GetBlockProperties(blockID)

( [2 g0 A0 f- i0 _( }        Catch ex As Exception

8 i5 H$ i" c( Y7 \            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
+ L  _# ^0 g* ?6 C4 E$ U% Y        End Try
    End Function
, T" L6 G, z3 o. s
( \  R& A! P0 R7 {  sEnd Class

6 q1 g# R. t, ?/ \1 A% t
5 K3 x; Q# W# N

zeporbm

       string07.Value = d1
2 w7 V: ~' K" `+ n; F9 F" l        string09.Value = d2
! e6 p1 S) ^# n  u不报错吗？