用VB.NET在UG中算冲压力

tqtgmm163com

) u# j! ?( k0 K* y/ ^; `$ X
'==============================================================================
6 r. \2 R5 e9 Q'  WARNING!!  This file is overwritten by the Block UI Styler while generating
'  the automation code. Any modifications to this file will be lost after
9 }( b: Z0 {/ Y; Y$ ~1 g'  generating the code again.
- y+ v+ Z3 S6 F4 Z- ?4 J. o) r( D'
'       Filename:  C:\dlx\press.vb
7 z" N; N- U* F  f  @1 Z; N# A, }: M'
'        This file was generated by the NX Block UI Styler
'        Created by: Administrator
* K% K8 Z0 y: b) {% d'              Version: NX 8.5
'              Date: 01-06-2020  (Format: mm-dd-yyyy)
/ l% I* Y0 A, q' _'              Time: 16:31 (Format: hh-mm)
'
/ s/ A- T1 w6 m7 t7 p$ b4 g'==============================================================================

/ C& _4 P3 y" r'==============================================================================
  }' t$ T  ]/ b'==============================================================================
: p+ }2 l$ l5 ]' d" n. |% l
& _& X: Z- }9 G'------------------------------------------------------------------------------
; L) R# s2 E6 I, \& _  c- }'These imports are needed for the following template code
( b, F' y/ M+ a- {'------------------------------------------------------------------------------
' ]/ n4 n2 f, fOption Strict Off
Imports System
  _% U  K2 l; R/ S" j2 lImports NXOpen
3 F6 |& j0 o- @. `& s7 j9 ]Imports NXOpen.BlockStyler

'------------------------------------------------------------------------------
8 I1 d8 W7 x3 H8 Y, L3 z5 g- n4 y'Represents Block Styler application class
'------------------------------------------------------------------------------
Public Class press
7 P4 l) F7 h. F# i) k" G7 M    'class members
    Private Shared theSession As Session
/ m2 L% @* z* }& \    Private Shared theUI As UI
    Private theDlxFileName As String
/ N6 D, r, K' z0 D* m$ d7 G    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
/ d" R  u$ v" Z! _( }    Private string01 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private string02 As NXOpen.BlockStyler.StringBlock ' Block type: String
$ Z+ L0 ~& i  Y8 q# n9 \: X3 ~# c    Private string03 As NXOpen.BlockStyler.StringBlock ' Block type: String
+ U' p" V9 r8 t. u( |8 |    Private string06 As NXOpen.BlockStyler.StringBlock ' Block type: String
' H7 X# _) b8 }- A9 n    Private string04 As NXOpen.BlockStyler.StringBlock ' Block type: String
: g' O$ k, g4 b    Private string05 As NXOpen.BlockStyler.StringBlock ' Block type: String
) A: c; e6 X0 Y    Private string07 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private string09 As NXOpen.BlockStyler.StringBlock ' Block type: String
/ e2 C, f' V' i0 q' c$ j6 j    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
1 |& D$ G/ {) @    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
/ [$ ^) Q7 e3 s# w    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonCurve As Integer = 1024
    Public Shared ReadOnly SnapPointTypesOnByDefault_PointonSurface As Integer = 2048
) ?- d" U# R3 g4 v7 u: l0 Y    Public Shared ReadOnly SnapPointTypesOnByDefault_PointConstructor As Integer = 4096
    Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 8192
' O& U" Z) C3 O7 C- ?    Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
    Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 32768
) F3 {. `, S. L/ D* n+ V) m    Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536

0 @: Z- e2 u+ @- E0 @- s! I  u#Region "Block Styler Dialog Designer generator code"
    '------------------------------------------------------------------------------
    'Constructor for NX Styler class
. O3 B8 d+ m$ |, ]8 W/ H    '------------------------------------------------------------------------------
    Public Sub New()
5 {6 D1 X9 s+ {) b0 m        Try
7 i1 H# w; J2 K. I. _7 z8 S
4 h; s/ d3 q$ B! G4 }            theSession = Session.GetSession()
            theUI = UI.GetUI()
% X; R3 _' e. C& W/ }9 Q) X            theDlxFileName = "D:\LIS_ug\TOOL1\PRESS-A01.dlx"
            theDialog = theUI.CreateDialog(theDlxFileName)
" P% \! W7 u* R( ?7 F/ z            theDialog.AddApplyHandler(AddressOf apply_cb)
            theDialog.AddOkHandler(AddressOf ok_cb)
            theDialog.AddUpdateHandler(AddressOf update_cb)
' }% X$ {7 [* |0 B: ~1 i0 t  V0 i# p            theDialog.AddInitializeHandler(AddressOf initialize_cb)
            theDialog.AddEnableOKButtonHandler(AddressOf enableOKButton_cb)
4 z+ W* G1 r7 e2 z: n' G! J9 f, Z            theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)
( V* Q6 [1 r; E/ o
        Catch ex As Exception

            Throw ex
        End Try
, ]7 k2 `; a( y' Y4 Q4 ]    End Sub
7 U3 l6 N6 b  F& |7 ^* P#End Region
; s  |& B0 q' E) x/ o; o; s! ^
7 r; p7 M  D  T5 a3 n/ H/ M' `    Public Shared Sub Main()
2 Y% y# }* f' A4 {+ B7 S& X* n# E0 x        Dim thepress As press = Nothing
        Try

. u+ w0 X7 M4 D; I            thepress = New press()
            thepress.Show()
; c1 z# f7 |! e) e# t
        Catch ex As Exception
2 y& Z3 R! `$ R1 A; B9 h8 ^
9 [( Z0 u1 v! \! `7 Q            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        Finally
! C6 Y' ]% ~# R; c" g            If thepress IsNot Nothing Then
                thepress.Dispose()
6 U6 |! @' r) ?5 h+ p                thepress = Nothing
; ^$ [6 Y' e3 {, z; d. D            End If
        End Try
    End Sub
5 }- z3 Y% N+ B, u    Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
% m* p# E3 [8 D" x5 o& }        'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
        Return CType(Session.LibraryUnloadOption.Immediately, Integer)
7 ?2 w' B. q3 }+ y* u9 t        ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
! e% f' p+ s- i5 ^8 F! u  ~0 Y& v) _    End Function
    Public Shared Sub UnloadLibrary(ByVal arg As String)
( o+ v# |- Z% j' n; e. f( P        Try
5 ]8 |# m# Z1 x: z* L7 U  q# f4 D+ k) w
# K8 r) t0 \: [) M: B- r
& }# b2 A9 a' _+ v! M        Catch ex As Exception

% @% x0 E+ {0 z2 I            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Sub
! n0 b% d% @) h& o0 Y: t
    '------------------------------------------------------------------------------
    'This method shows the dialog on the screen
' ]8 U9 G! N- }$ K. p9 i  V    '------------------------------------------------------------------------------
    Public Sub Show()
* ]% Q0 l8 ]3 n% L& Y- ]        Try

            theDialog.Show()

        Catch ex As Exception
2 c6 Z' b" Y4 {5 S
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
/ [( j) G6 E  H        End Try
    End Sub

6 G& c' y+ s' w3 _' d# V( t    '------------------------------------------------------------------------------
6 R0 l6 y) Q+ t2 U, j0 `) Y0 c    'Method Name: Dispose
  Z/ u  N6 u' X    '------------------------------------------------------------------------------
2 f/ h  o  A4 u/ N' U    Public Sub Dispose()
- ?) |# ?; X" G        If theDialog IsNot Nothing Then
            theDialog.Dispose()
  D5 o- b/ Y% v1 l, {8 ?4 j            theDialog = Nothing
- B3 X! e5 q0 M3 G        End If
    End Sub

7 B* ]; h* v# \) T+ B! D% k4 v
    '------------------------------------------------------------------------------
0 t* q; w) ?! i; G& a1 P    'Callback Name: initialize_cb
    '------------------------------------------------------------------------------
4 ~- W: s- [' ]8 g) D1 @  E: B    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)
/ l. p5 L; P8 a+ g/ Z* P. H+ q8 \, _            string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
' U# w7 A, @, X" F; i7 P8 C" }; ^            string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)
+ [2 m& K% Q# N# O            string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
            string09 = CType(theDialog.TopBlock.FindBlock("string09"), NXOpen.BlockStyler.StringBlock)
7 r# S* \9 S( W            string010 = CType(theDialog.TopBlock.FindBlock("string010"), NXOpen.BlockStyler.StringBlock)
9 P1 k* f: F% T  \6 b            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)



7 i5 s, k* d0 ~* f- Y        Catch ex As Exception

0 V& I( x( U. e, m            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
3 ~( g% {+ v0 k    End Sub

: T6 k6 F1 y: k( q2 [9 \( z# N" o; w    '------------------------------------------------------------------------------
    'Callback Name: dialogShown_cb
    '------------------------------------------------------------------------------
9 A- n- f6 v4 l3 i+ N- d    Public Sub dialogShown_cb()
9 \2 `6 p% [( B. e: e; c7 K        Try


        Catch ex As Exception
! I2 X* u: `" ?/ g. z1 r
9 e( ~- g: N+ y8 q/ v            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Sub

- |% ^& z6 }" N: S' B* S    '------------------------------------------------------------------------------
    'Callback Name: apply_cb
) t& w& k( f9 F    '------------------------------------------------------------------------------
8 k  s+ {  f2 }6 t& d    Public Function apply_cb() As Integer
/ f# J& E* K. K        Dim errorCode As Integer = 0
5 q0 \6 u: _! {' w1 Z        Try
# v3 x% n/ [0 C) t4 }) ^
9 Y+ S. D2 V# c- L, W4 O
        Catch ex As Exception
$ p1 ]  _# w0 H) d3 w
            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
/ r2 k5 C/ L5 H- r% s  k6 \* a5 w; \        End Try
* ]. p( c! l; ]4 I$ M0 B        apply_cb = errorCode
' f, J1 A( J9 \, p. Y0 Y    End Function
* J8 X1 n2 c% k6 Z) P& T; P+ J: g
8 ?; j: b' g8 m5 Y    '------------------------------------------------------------------------------
    'Callback Name: update_cb
    '------------------------------------------------------------------------------
6 b& s1 _  g! n' Z; I0 A    Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
        Try
8 j# T, C; o$ D
& l5 t9 q+ E! n+ J! h            Dim num As Single = CType(linear.Value, Single) '转浮点数
& o: h' F5 Q$ j( H            Dim aa3 As Decimal = Math.Round((num * string01.Value * string02.Value * 0.001), 3) '3位小数
- V- q, }2 M& {            string03.Value = aa3
$ r+ C( N! J" u) [  f9 P( L0 m% L            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
& d" G8 ~! i0 G& o  h( H, M! p            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)
( F# d- z/ E: l! M/ V/ |& G            Dim a6 As Single = CType(string06.Value, Single)
6 i9 Z! y2 E/ M+ S0 K
$ y2 J; ^7 K% ?) K0 K. P' Q            Dim b3 As Decimal = Math.Round(a3, 3) '3位小数
            Dim b4 As Decimal = Math.Round(a4, 3)
# _) F  H3 ^1 ?1 K6 L2 B$ X            Dim b5 As Decimal = Math.Round(a5, 3)
            Dim b6 As Decimal = Math.Round(a6, 3)

4 F( q) ?$ W' `6 S$ c# o( i; J& M
            Dim d1 As Decimal = Math.Round((b3 * 1.3 + b6 * 1.3), 3) '2位小数
/ }* \  v3 T) D/ I& g/ W            Dim d2 As Decimal = Math.Round((b4 * 1.3 + b5 * 1.3), 3)

) j9 V$ J5 S1 M( y! k& w- z4 X            string07.Value = d1
6 z& O* S7 X1 F% n' P            string09.Value = d2
7 F7 U. _; I' R2 q7 I

4 w9 a$ a) F: M# T) w8 Z( Y5 X            Dim a As Single = CType(string010.Value, Single) '转浮点数
            Dim b As Single = CType(string011.Value, Single)
            string012.Value = a + b
8 w7 x  g" `' c% S! e9 C  c
! c2 }# F! H: S  @$ m7 X5 E2 k
/ c4 |$ j( x4 l" K* G( S/ V& C

( m# U5 z" J) r0 m+ @: r  g! k" J
        Catch ex As Exception
& r& P) F- z$ D+ `
4 u2 m6 a4 V! n# f            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
( Z7 }7 B' Z" i        update_cb = 0
    End Function

    '------------------------------------------------------------------------------
    'Callback Name: ok_cb
1 \6 n7 z# U* \6 ]7 j& ?6 V( L/ ~    '------------------------------------------------------------------------------
    Public Function ok_cb() As Integer
. m" T- D- a! s3 ]' O        Dim errorCode As Integer = 0
        Try

/ y5 _2 G3 H+ }; f7 k* K8 |) E5 x            errorCode = apply_cb()
2 w+ l; A3 P+ ?+ d& M- }
        Catch ex As Exception

: a/ W1 Z1 ^9 E- }            errorCode = 1
. Q2 n2 z! P* k- r, f3 B% J5 S            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
        ok_cb = errorCode
    End Function
# B& O  b; [9 I0 E6 {. [
    '------------------------------------------------------------------------------
    'Callback Name: enableOKButton_cb
1 E/ `4 c- F0 ~2 `1 ]% Q) t5 q    '------------------------------------------------------------------------------
    Public Function enableOKButton_cb() As Boolean
) R, ~3 v: |, {& [% {        enableOKButton_cb = True
        Try
, g1 s& g! y$ D

        Catch ex As Exception

( S. R! F8 C# D* K            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
; P/ m( t2 C& W1 e        End Try
    End Function
% h% S3 z/ u' h0 b

& `0 N* [2 I5 n- |+ e) |
, Y* U% l9 }* x, A) D" K) v' u2 {    '------------------------------------------------------------------------------
    'Function Name: GetBlockProperties
    'Returns the propertylist of the specified BlockID
5 U7 x, F+ u* d1 s) ?6 n    '------------------------------------------------------------------------------
* `' y3 _9 p7 q    Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
6 R/ _% O1 V: W        GetBlockProperties = Nothing
        Try
1 N6 K* O) E2 V/ a
            GetBlockProperties = theDialog.GetBlockProperties(blockID)
* A4 n9 D" _$ ^( l) h5 F
2 }/ V' m  g* c        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Function
# `  {- t3 Y( O- I6 z$ T
! S7 B- _0 {0 ^2 Z1 r$ y& S, sEnd Class
* Y- j( G. a0 |& ]1 |/ |: b

$ R6 Q! `- |8 L/ p9 e

zeporbm

       string07.Value = d1
. v- e3 }" a1 _! B6 i        string09.Value = d2
; w. {. v6 j" L% c  ]不报错吗？