用VB.NET在UG中算冲压力

tqtgmm163com

5 @6 t. S' ]) x9 v  {% i2 U
+ |# m6 x" U7 k: F'==============================================================================
6 J; _$ U# L" Y6 N; `9 H' e/ u'  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
0 g: |9 b( X5 e9 z/ q: P5 y7 u. a" v'
'        This file was generated by the NX Block UI Styler
'        Created by: Administrator
% Z& x8 d; H" Z'              Version: NX 8.5
  ^: n! Z4 b3 X5 o% |# a' P- ?'              Date: 01-06-2020  (Format: mm-dd-yyyy)
'              Time: 16:31 (Format: hh-mm)
'
3 A8 m8 v3 \8 ^$ S'==============================================================================

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

1 v) w1 t! D9 I5 n. F/ x'------------------------------------------------------------------------------
'These imports are needed for the following template code
* E5 X. W* p) i, f0 G'------------------------------------------------------------------------------
; p) Y( `" ~% jOption Strict Off
& \# j" \9 W! {9 Z2 k; U$ i! dImports System
9 h, g0 X" i7 K" |( P3 l5 p( pImports NXOpen
Imports NXOpen.BlockStyler

) \- t2 m5 L, g0 s+ D: t9 l0 Q'------------------------------------------------------------------------------
'Represents Block Styler application class
( e3 \  t2 [( T. S'------------------------------------------------------------------------------
Public Class press
    'class members
  X) d3 V/ K8 _! o$ @+ [( l6 P9 q    Private Shared theSession As Session
    Private Shared theUI As UI
( L9 s8 z5 F9 r( ?1 v! k    Private theDlxFileName As String
) K: L6 B, @# Y! i    Private theDialog As NXOpen.BlockStyler.BlockDialog
+ [6 i. Z5 B- V5 u+ e8 p4 M' A) D    Private group0 As NXOpen.BlockStyler.Group ' Block type: Group
$ m) \  ]5 V4 v# Q3 O, ]: `3 C) b* u    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
+ I- M) s' o2 H( `" y    Private string06 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private string04 As NXOpen.BlockStyler.StringBlock ' Block type: String
9 m0 J8 U3 E0 V7 R) I4 B4 F6 F    Private string05 As NXOpen.BlockStyler.StringBlock ' Block type: String
    Private string07 As NXOpen.BlockStyler.StringBlock ' Block type: String
- ]. L$ [) W# b- ?) W* \    Private string09 As NXOpen.BlockStyler.StringBlock ' Block type: String
. `! T2 T; ]1 k  @/ A9 Y( {    Private string010 As NXOpen.BlockStyler.StringBlock ' Block type: String
2 Z+ N, m- @5 P& p4 j* [5 G    Private string011 As NXOpen.BlockStyler.StringBlock ' Block type: String
4 x, e6 b. m/ U: q0 ^    Private string012 As NXOpen.BlockStyler.StringBlock ' Block type: String
. A, N! w2 n  p) e    Private list_box0 As NXOpen.BlockStyler.ListBox ' Block type: List Box
+ i; H% U5 U0 g* D" _0 d/ G    Public Shared ReadOnly SnapPointTypesOnByDefault_UserDefined As Integer = 1
    Public Shared ReadOnly SnapPointTypesOnByDefault_Inferred As Integer = 2
. H. a1 M0 f( p* @4 \6 F    Public Shared ReadOnly SnapPointTypesOnByDefault_ScreenPosition As Integer = 4
5 A% G$ U) N& [6 _' D4 I1 _    Public Shared ReadOnly SnapPointTypesOnByDefault_EndPoint As Integer = 8
  I& M, J. Q' N( X' @  ?    Public Shared ReadOnly SnapPointTypesOnByDefault_MidPoint As Integer = 16
/ I. T8 U( Y5 P! o( v    Public Shared ReadOnly SnapPointTypesOnByDefault_ControlPoint As Integer = 32
) z6 \# f& B+ I/ R, k    Public Shared ReadOnly SnapPointTypesOnByDefault_Intersection As Integer = 64
" ]* i9 A) W, s& @, t    Public Shared ReadOnly SnapPointTypesOnByDefault_ArcCenter As Integer = 128
    Public Shared ReadOnly SnapPointTypesOnByDefault_QuadrantPoint As Integer = 256
& t& v/ B. d+ g, `, u6 e    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
% D+ y2 K/ Y8 U) B. ^/ w, p: j    Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 8192
    Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
6 I9 S3 |. X9 a" a: l    Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 32768
    Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536

- b! F  r+ ]+ l* b. @0 k#Region "Block Styler Dialog Designer generator code"
    '------------------------------------------------------------------------------
6 f  L$ a; V4 {, Y    'Constructor for NX Styler class
* N6 I' G8 G8 f. |    '------------------------------------------------------------------------------
1 s6 X! A* |* l8 V+ {9 I0 A. l4 a3 s    Public Sub New()
        Try

            theSession = Session.GetSession()
            theUI = UI.GetUI()
            theDlxFileName = "D:\LIS_ug\TOOL1\PRESS-A01.dlx"
            theDialog = theUI.CreateDialog(theDlxFileName)
" M3 ~9 n+ e) s& h: @( o            theDialog.AddApplyHandler(AddressOf apply_cb)
9 p/ d6 C5 j( ~' T, g            theDialog.AddOkHandler(AddressOf ok_cb)
" R9 k, k9 h5 b! Y5 I            theDialog.AddUpdateHandler(AddressOf update_cb)
            theDialog.AddInitializeHandler(AddressOf initialize_cb)
" X9 A: ^- y- y1 ?$ b$ m5 B9 L            theDialog.AddEnableOKButtonHandler(AddressOf enableOKButton_cb)
6 m' \* T( N% }. K0 u9 S            theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)
' ]7 ?- Z" H7 k, Y+ e
        Catch ex As Exception

            Throw ex
5 u3 c, q7 c9 M/ g: Z        End Try
: _- I& M. n( S    End Sub
#End Region

  p" l, L" f$ G# g    Public Shared Sub Main()
+ b0 M2 ~' ?  f# d- u0 D        Dim thepress As press = Nothing
! \6 \% h) q4 c9 ?        Try

            thepress = New press()
: U0 a. A# z5 |            thepress.Show()

4 g; M! I+ u; j* U" R: }% ^/ X        Catch ex As Exception
. P; K0 z) k" O! Y2 [: G- V
7 t$ [( M1 w# D            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        Finally
8 f: F7 D) Y+ f" m: c7 u            If thepress IsNot Nothing Then
                thepress.Dispose()
  o, A; m8 o7 J/ C% I; y                thepress = Nothing
            End If
" t* i. n6 w) L; L; E- H) ]        End Try
    End Sub
    Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
3 m8 I$ R+ i. V+ P: @) ^        'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)
, Z) [* |+ }) l( U# }- k) `1 x0 T        Return CType(Session.LibraryUnloadOption.Immediately, Integer)
3 @1 e' @; A& u& Z  o        ' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
    End Function
    Public Shared Sub UnloadLibrary(ByVal arg As String)
# o/ d+ ?* \7 h        Try

6 d1 G: T4 |  Z1 b: e0 o
        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
6 y8 L4 B/ W" @' Q: Z$ v) `3 }        End Try
, {4 v9 y8 W9 e) _    End Sub

    '------------------------------------------------------------------------------
2 G: s# B! W- x) v    'This method shows the dialog on the screen
    '------------------------------------------------------------------------------
, t0 K" z  Z9 ?1 q, j  G( g* h    Public Sub Show()
- U  k. p  Y. j7 k; c2 ?" }        Try
& j4 z( [4 C4 N+ C* W
            theDialog.Show()
: \+ s7 u; R4 j# m6 S: ^
        Catch ex As Exception

            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
( w5 V( e9 Q% j5 Q        End Try
& R* r3 }. I5 o, j$ Q/ H* b# K    End Sub

    '------------------------------------------------------------------------------
    'Method Name: Dispose
    '------------------------------------------------------------------------------
  }  |( S7 G' x0 k  b! y* F    Public Sub Dispose()
        If theDialog IsNot Nothing Then
( i- i4 S2 z7 Z0 v6 X- I            theDialog.Dispose()
, u' `  u4 U. h6 r( T: K5 e5 C            theDialog = Nothing
, k; g, Q) _( g5 w0 Y+ T        End If
    End Sub
3 [4 f# D9 R; t, u0 h& D1 n/ L
+ C! L! ?( x# N, y+ n
    '------------------------------------------------------------------------------
$ S  V7 e. K. R; V    'Callback Name: initialize_cb
) t* f* Q8 R6 c. Z    '------------------------------------------------------------------------------
) B( ~3 R6 _- B% h$ J2 u    Public Sub initialize_cb()
- |7 L" _9 j/ K2 s        Try

$ J, S( c) ~, y) d, b% L            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)
- Q4 \* i: l4 o2 \+ ^            string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
  I$ z0 A+ c4 K; Y4 J4 o: i            string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)
            string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
; k- M  M) [! Y$ U0 M            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)

$ K3 g- C8 K4 B6 Y1 H
. {1 W) E' {( _8 q8 j* S
        Catch ex As Exception
& _9 f/ {/ y+ S3 X: T- B/ e% s
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
. c: R2 U8 h9 E( J& \) @% x0 E    End Sub

    '------------------------------------------------------------------------------
; q6 z( ~$ s$ H# r    'Callback Name: dialogShown_cb
5 T& U% v. h0 N0 P7 g3 {    '------------------------------------------------------------------------------
7 }  q4 A( c- k3 Q    Public Sub dialogShown_cb()
        Try
- z+ [' }( t6 ]  m" l* Z

  h5 q1 p4 h" A) }5 [- g7 b        Catch ex As Exception
8 f, ?- s" B- W; u. B" A# d
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
    End Sub

    '------------------------------------------------------------------------------
    'Callback Name: apply_cb
$ p% D2 C+ n8 r; o    '------------------------------------------------------------------------------
    Public Function apply_cb() As Integer
        Dim errorCode As Integer = 0
0 n7 C: p* P4 t        Try


# k: N. S' c2 p5 f        Catch ex As Exception

$ f* C$ f, _3 v            errorCode = 1
5 g8 d( K$ o5 f* C$ i            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
        apply_cb = errorCode
  H# c1 M5 l9 C1 D3 U5 P1 y# _' z    End Function

    '------------------------------------------------------------------------------
    'Callback Name: update_cb
    '------------------------------------------------------------------------------
! [& x* U) s6 V6 q0 O1 {2 C6 [    Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
        Try

% }: Y+ u/ n! E. m2 x' D8 x4 `            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
' R: Z# b  O* d; q            Dim aa4 As Decimal = Math.Round((string03.Value * 0.8), 3) '3位小数
) a- o+ [0 |: E  j) U% G4 [            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位小数
6 E6 \/ a  E' l9 ?% z( u            string06.Value = aa6

            Dim a3 As Single = CType(string03.Value, Single) '转浮点数
            Dim a4 As Single = CType(string04.Value, Single)
# j$ x0 ?+ X! j; j            Dim a5 As Single = CType(string05.Value, Single)
            Dim a6 As Single = CType(string06.Value, Single)

: z" L/ u8 `/ _. w1 c! ]            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)


3 a' l( h* F) r; p0 c* l# `            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)

) l" K1 a1 W6 b* U            string07.Value = d1
            string09.Value = d2

4 ]5 e7 N7 f2 u: |& q4 B7 {: t% v
3 d9 ]) m1 g4 n' \( r& I. ^2 z            Dim a As Single = CType(string010.Value, Single) '转浮点数
            Dim b As Single = CType(string011.Value, Single)
            string012.Value = a + b
( {) w3 \4 e4 R& d5 ]4 N
7 U, V/ N0 J4 w, P% T

+ P( }! Q5 j7 N8 W% B
/ D: n7 g& C2 L+ c$ \
        Catch ex As Exception

& l' ?6 F. g. ?4 [) {  H            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
3 H! d; U4 ^* \/ C/ K* d- @        End Try
        update_cb = 0
3 k- I. k, `! K- W+ q" I    End Function
6 R1 j4 u" ]( v' r9 h: c
( X/ Z, X# H# _- r* b% r7 V8 q% v    '------------------------------------------------------------------------------
    'Callback Name: ok_cb
    '------------------------------------------------------------------------------
1 z! }6 E2 L/ i4 W$ a    Public Function ok_cb() As Integer
: y# g3 D3 ]7 c* `        Dim errorCode As Integer = 0
0 q* R' z1 ~% S0 k$ m        Try

            errorCode = apply_cb()

0 \; N0 E! A# T        Catch ex As Exception
  w: j5 {6 A8 t8 T* B! ^
+ a  Q2 a' h( a4 }9 D            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
        End Try
        ok_cb = errorCode
& i, k# ~1 E) Q3 T) D, `" j3 s    End Function
  V! x) ^9 J  s9 g" ~+ o$ \
9 J$ R: w4 ?% M$ Z    '------------------------------------------------------------------------------
    'Callback Name: enableOKButton_cb
' r) E% O, d; z' p( f$ ^    '------------------------------------------------------------------------------
    Public Function enableOKButton_cb() As Boolean
        enableOKButton_cb = True
0 n$ Z5 Q! ], |' U) f        Try


        Catch ex As Exception
  z5 U6 v8 L- R% [9 D; N. d" T8 A' y" b
  j3 _) I% r3 {% ]* i% a4 k            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
0 |1 j7 e+ O7 k1 g7 w        End Try
    End Function
2 `  \2 m$ i; o+ }9 f/ t
  Z- O# e7 {5 Q' I* `  `- a

3 S# O2 W2 p. v    '------------------------------------------------------------------------------
    'Function Name: GetBlockProperties
    'Returns the propertylist of the specified BlockID
    '------------------------------------------------------------------------------
) ?: A# \+ t2 v- Y2 [    Public Function GetBlockProperties(ByVal blockID As String) As PropertyList
        GetBlockProperties = Nothing
- X3 V) Q$ H3 i8 ], N        Try
0 {( X$ [, V. G% {2 D
            GetBlockProperties = theDialog.GetBlockProperties(blockID)

3 t* w* O/ k" m; K        Catch ex As Exception
4 y; ^, n7 O6 w9 a' c" F
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
- a7 U1 ~0 {' P6 c! o        End Try
    End Function

) x- M' m+ G5 h' wEnd Class
3 c! H& T' n( N
* G; J& V9 P; Y. V: ]

zeporbm

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