|
本帖最后由 tqtgmm163com 于 2020-1-17 17:13 编辑 & C0 e7 `: Z$ `2 F% Y) ~
3 o& B1 R% z( s2 {0 I& n5 _
'==============================================================================. b- {6 J& O7 y7 P6 O! K8 S+ W
' WARNING!! This file is overwritten by the Block UI Styler while generating' F3 I8 L7 z, m6 \
' the automation code. Any modifications to this file will be lost after, `; W( n7 ?5 [. h0 P+ Q! w
' generating the code again.& B) p- _; x3 Z( o
'' c; S5 o# T; r. C; w
' Filename: C:\dlx\press.vb8 n& f' w$ z. H# q( B
'+ z; H# E6 F) M* a7 u
' This file was generated by the NX Block UI Styler
5 n+ `4 F$ T% |; M' Created by: Administrator9 K' w5 l5 X9 d* ^
' Version: NX 8.5& Y& G% ] L) ?0 m
' Date: 01-06-2020 (Format: mm-dd-yyyy)
1 t. M! o. d% g9 K, c1 \; C' Time: 16:31 (Format: hh-mm)
; `( E0 F3 z5 E- R& T+ D/ q'" q \. \) {: e. q
'==============================================================================
/ H6 w1 x" K% h) n7 c
+ }0 T4 G6 K F. l* ]1 D. t'==============================================================================
1 H! y: s0 n9 ?/ y1 Z9 @2 l'==============================================================================* P2 T+ E3 ?: l2 e
! ^& M$ D9 D- ^- p9 |1 X
'------------------------------------------------------------------------------
( [* Q: O j7 H; M: n$ f'These imports are needed for the following template code9 O# i* F7 C8 Q) F, A3 U' w% h
'------------------------------------------------------------------------------
. m8 m& E9 B" XOption Strict Off
5 ^3 ?7 }, w$ a7 ^: DImports System9 P4 X# r; X0 Z- ?& P
Imports NXOpen
* Q( s, f: r0 o4 k" l4 ?; L7 [Imports NXOpen.BlockStyler
" T5 |, q! r* c p! [; d% v
4 j- J: x8 N% Y9 ['------------------------------------------------------------------------------4 {0 `$ Y- d8 |# t! t5 @" i' K. i2 g
'Represents Block Styler application class
; a9 E0 M. S1 t0 a) W3 ['------------------------------------------------------------------------------* m) R4 p+ e. b, m% G
Public Class press
5 R: T3 k4 I% _/ n0 O 'class members. C' L" w; @9 r" d: y1 A! |$ Z
Private Shared theSession As Session
. F2 l { a" I! z Private Shared theUI As UI
6 l- Y: z: C V( F$ Z Private theDlxFileName As String4 V% C! `5 ]& h Z8 d+ W O
Private theDialog As NXOpen.BlockStyler.BlockDialog
; t8 q: y* _9 s# l Private group0 As NXOpen.BlockStyler.Group ' Block type: Group
/ h, m; ]* f: u/ A0 [2 ^4 [ Private linear As NXOpen.BlockStyler.LinearDimension ' Block type: Linear Dim
1 u: {6 C' b4 v& r/ E Private string01 As NXOpen.BlockStyler.StringBlock ' Block type: String( a8 C8 z. a7 H4 A
Private string02 As NXOpen.BlockStyler.StringBlock ' Block type: String- k% m; Y" l, E5 x
Private string03 As NXOpen.BlockStyler.StringBlock ' Block type: String" g$ ^8 v4 B- h/ i0 o0 S, r
Private string06 As NXOpen.BlockStyler.StringBlock ' Block type: String4 a/ A1 ?' w$ M0 M% D4 u
Private string04 As NXOpen.BlockStyler.StringBlock ' Block type: String
$ j6 R1 u4 T/ \% @7 {& V* u! m Private string05 As NXOpen.BlockStyler.StringBlock ' Block type: String
6 O& b2 _4 w2 ?0 r C4 U! ] Private string07 As NXOpen.BlockStyler.StringBlock ' Block type: String
; k& @3 @1 V5 w1 A$ \. h' k3 P3 o Private string09 As NXOpen.BlockStyler.StringBlock ' Block type: String3 S4 o( W2 Q; N/ S" J; r* i
Private string010 As NXOpen.BlockStyler.StringBlock ' Block type: String
) Z& W% i) v: a% N Private string011 As NXOpen.BlockStyler.StringBlock ' Block type: String
5 a2 U) x- F) r; h/ o: V% b6 P Private string012 As NXOpen.BlockStyler.StringBlock ' Block type: String
# P; C# h0 ]6 B. S3 G! b Private list_box0 As NXOpen.BlockStyler.ListBox ' Block type: List Box
7 Q4 }1 H" C9 F- y3 L Public Shared ReadOnly SnapPointTypesOnByDefault_UserDefined As Integer = 12 m3 `! n+ r+ T9 R
Public Shared ReadOnly SnapPointTypesOnByDefault_Inferred As Integer = 26 ?% A7 t# g9 _9 T) |+ b9 Z
Public Shared ReadOnly SnapPointTypesOnByDefault_ScreenPosition As Integer = 47 y. k2 U" u, p& E
Public Shared ReadOnly SnapPointTypesOnByDefault_EndPoint As Integer = 8" S9 y! G% n4 f4 `
Public Shared ReadOnly SnapPointTypesOnByDefault_MidPoint As Integer = 16
- I9 p7 F8 x4 k Public Shared ReadOnly SnapPointTypesOnByDefault_ControlPoint As Integer = 328 |% _2 N7 ~) @
Public Shared ReadOnly SnapPointTypesOnByDefault_Intersection As Integer = 64
! n; G" n( E8 K. |; H- q0 M Public Shared ReadOnly SnapPointTypesOnByDefault_ArcCenter As Integer = 128
8 q% F- ~/ {7 A+ t Public Shared ReadOnly SnapPointTypesOnByDefault_QuadrantPoint As Integer = 256
$ l% P" f @" ~: a% e Public Shared ReadOnly SnapPointTypesOnByDefault_ExistingPoint As Integer = 512
4 D9 A8 E# c- P; X Public Shared ReadOnly SnapPointTypesOnByDefault_PointonCurve As Integer = 1024& z' N' S9 |; E
Public Shared ReadOnly SnapPointTypesOnByDefault_PointonSurface As Integer = 2048
/ X) i5 ]7 h' D/ L8 a Public Shared ReadOnly SnapPointTypesOnByDefault_PointConstructor As Integer = 4096, u& }: D% z. J2 j$ V
Public Shared ReadOnly SnapPointTypesOnByDefault_TwocurveIntersection As Integer = 81926 m& q' H z Q2 y( m, f2 \
Public Shared ReadOnly SnapPointTypesOnByDefault_TangentPoint As Integer = 16384
7 R1 J9 p3 G: P: O) V+ r0 b Public Shared ReadOnly SnapPointTypesOnByDefault_Poles As Integer = 327688 k5 T8 [. C! {- t8 |
Public Shared ReadOnly SnapPointTypesOnByDefault_BoundedGridPoint As Integer = 65536: W5 S; a* L: _0 ~( }
* F( x% |! J& _* r) ^#Region "Block Styler Dialog Designer generator code"! k9 B& @; A+ f: I8 m+ a! K
'------------------------------------------------------------------------------* Z, s1 B9 h7 j! ]$ X! L2 S
'Constructor for NX Styler class0 U: Q1 r- B: [: _% y
'------------------------------------------------------------------------------
: v S4 S! S( h- ^ Public Sub New()
: E0 l1 H0 v1 U% J0 [: a6 G Try& m4 V1 v+ ]" n0 U" h
' `2 y( J! i6 c
theSession = Session.GetSession()4 b( Q5 i& o$ }) K* b
theUI = UI.GetUI()5 y$ j& q2 ?5 \9 F5 j6 ~4 K% c3 `
theDlxFileName = "D:\LIS_ug\TOOL1\PRESS-A01.dlx"
+ q5 K- n0 g" O3 {) i1 D theDialog = theUI.CreateDialog(theDlxFileName)% u' c1 @" O, o
theDialog.AddApplyHandler(AddressOf apply_cb)! ?2 O; \/ F! u2 B8 Z+ L+ Z9 t- b& v! W
theDialog.AddOkHandler(AddressOf ok_cb)
( A, C. m1 v6 g% ]1 L- m3 F. C/ t* T theDialog.AddUpdateHandler(AddressOf update_cb)
! A0 u2 Y: b( A theDialog.AddInitializeHandler(AddressOf initialize_cb)! F0 H- Z) o+ A& K% y ?) S: Q
theDialog.AddEnableOKButtonHandler(AddressOf enableOKButton_cb)0 a: H, [; q5 ?/ _9 f) [
theDialog.AddDialogShownHandler(AddressOf dialogShown_cb)2 N6 f5 [+ Q' Y
$ z4 I" T1 ?" a$ P
Catch ex As Exception0 |9 O4 Q. [5 q6 {
: Y/ I, `, d" a" A2 T
Throw ex
& l6 G9 g3 @7 m' B End Try
! p+ d" _5 ?; ?: {' n, L) C End Sub2 [7 X9 N$ E* X0 }! k
#End Region; d* ]3 ] ^2 ^; }) }
- H7 X# V4 y0 B T5 U/ V: ?6 }- {1 g! c
Public Shared Sub Main()
! p3 z7 ]. s4 U/ R& m Dim thepress As press = Nothing
5 W- c6 z: L1 W Try% _* R% q. {0 |0 o6 ]
' T6 [: a8 \! R, l) K. y
thepress = New press()
) B+ ?$ q" ^/ s z( c thepress.Show() [, T, S0 g# T5 B" y
2 Z g( U g) S8 u% {
Catch ex As Exception
7 a. o+ f k7 F' c
. q ^5 ]3 L* i5 R# V theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
* ~3 K( t8 R2 }6 ^) F/ C Finally9 \0 y& Y( X, [+ Q6 e
If thepress IsNot Nothing Then. i! e0 |/ g9 N4 W
thepress.Dispose()$ M0 n4 P8 b4 @% I+ q
thepress = Nothing
7 K6 G7 E( C" w! y2 `" U- k. X7 T End If
" x1 U% B/ D7 }: _ End Try
- x! w4 w0 @/ [, ^" e End Sub
. ~0 D( w8 H1 } Public Shared Function GetUnloadOption(ByVal arg As String) As Integer
) }- B e! K5 G9 [7 |' z, R 'Return CType(Session.LibraryUnloadOption.Explicitly, Integer)0 ], T6 c, K* ?+ L; B' A% s
Return CType(Session.LibraryUnloadOption.Immediately, Integer)* D9 `* O! R% b; C: z$ G6 z
' Return CType(Session.LibraryUnloadOption.AtTermination, Integer)
. p$ p, M% u0 C+ o( F End Function- o; S# R" u6 i9 y
Public Shared Sub UnloadLibrary(ByVal arg As String)
% `+ u/ v% L( F/ j" G S% u Try
, s: S7 z2 j2 r, _
# x0 k' o8 `. E9 c1 Q
4 M" Y% Z9 N2 Z# K) L4 }% F Catch ex As Exception6 M( r4 Y& m& U/ d1 p9 ]
% L/ C7 {. T0 u ? theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
2 T: |$ ~2 \* ? d End Try/ }: r+ G3 b1 F8 ]2 |' g
End Sub
$ Q$ T) T g6 g$ z! d" A0 ?7 L
9 k( e; h: e# G0 ?# ^/ d3 Q, t '------------------------------------------------------------------------------
$ r$ D5 j2 E2 z2 I6 e4 m5 | 'This method shows the dialog on the screen% m) B6 r! M# T) \
'------------------------------------------------------------------------------
5 S) W# v* @5 d7 P6 n$ K/ k Public Sub Show()
3 c/ s) ?$ E3 o3 C- p- ^6 X4 L+ l Try, f6 d4 E% Y& Q v; C
7 m: @6 b X2 U7 {; Y
theDialog.Show()! R4 v# H9 u0 i# J, S8 N
1 q: j* {7 ~- b7 @ Catch ex As Exception9 [! D- ~3 D! H5 F A
; q& k& p; Y* h2 a, r* m7 X
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
5 L" x* U6 }- C% I" b End Try5 `* f- i3 h/ S2 }
End Sub% Y9 i4 b! ~6 b
0 H9 ?9 t, d0 k$ E/ q3 u+ {% _ '------------------------------------------------------------------------------
, R3 A( T6 ], i% D% p6 A 'Method Name: Dispose
$ O! _2 c% O; G8 q) B" Q '------------------------------------------------------------------------------' Y# r. `% V5 f' b, I
Public Sub Dispose()" {( I9 f3 D4 p5 l
If theDialog IsNot Nothing Then
* }8 |! T/ V7 C; \1 W7 b theDialog.Dispose()/ s! p% v+ p/ n: G
theDialog = Nothing! I- _$ e8 H0 `* G G2 f5 q
End If
7 K6 |8 e7 _7 d( a9 k+ b: f4 r End Sub
, R$ H2 n- m1 y. L/ N" x' E
7 o/ P' S! {# B# {" b9 e& k& m) G! ?
' C/ W `; W2 d- F t7 p+ G6 E% V& B2 i& k '------------------------------------------------------------------------------8 j4 Q/ O/ y& a; q' J+ I6 R
'Callback Name: initialize_cb
" m! T" \+ w8 }4 Z; X '------------------------------------------------------------------------------4 U, O1 p. f5 X. M; A0 j
Public Sub initialize_cb()& S, e! @; w$ U
Try
) S2 [8 P! t* o9 n, d
( |& P! w3 Y5 ?9 ^ group0 = CType(theDialog.TopBlock.FindBlock("group0"), NXOpen.BlockStyler.Group) B1 {- H8 B1 I5 v( z! w
linear = CType(theDialog.TopBlock.FindBlock("linear"), NXOpen.BlockStyler.LinearDimension)
1 v' f @: f! [( t0 _6 Y5 B2 P string01 = CType(theDialog.TopBlock.FindBlock("string01"), NXOpen.BlockStyler.StringBlock)
4 O( Y2 |7 `; c/ X w+ u string02 = CType(theDialog.TopBlock.FindBlock("string02"), NXOpen.BlockStyler.StringBlock)0 X+ u" U7 R) f- Y, ^! d
string03 = CType(theDialog.TopBlock.FindBlock("string03"), NXOpen.BlockStyler.StringBlock)
, u) j5 R- b0 M, H: u string06 = CType(theDialog.TopBlock.FindBlock("string06"), NXOpen.BlockStyler.StringBlock)
; h/ o. z, X+ w) e string04 = CType(theDialog.TopBlock.FindBlock("string04"), NXOpen.BlockStyler.StringBlock)
W* ~6 W5 q" w- H( J string05 = CType(theDialog.TopBlock.FindBlock("string05"), NXOpen.BlockStyler.StringBlock)7 s- R7 X) z0 p& C( l, _+ _# ^
string07 = CType(theDialog.TopBlock.FindBlock("string07"), NXOpen.BlockStyler.StringBlock)
9 k2 T/ [. Z S2 r" p" Z y% { string09 = CType(theDialog.TopBlock.FindBlock("string09"), NXOpen.BlockStyler.StringBlock)
; I# _* a* [- V/ ]4 B; X string010 = CType(theDialog.TopBlock.FindBlock("string010"), NXOpen.BlockStyler.StringBlock)9 V9 q& Y, A( F* H8 ~
string011 = CType(theDialog.TopBlock.FindBlock("string011"), NXOpen.BlockStyler.StringBlock)1 K1 d: ^/ @& X
string012 = CType(theDialog.TopBlock.FindBlock("string012"), NXOpen.BlockStyler.StringBlock)
& \. @- C( k* ^- r( c9 w list_box0 = CType(theDialog.TopBlock.FindBlock("list_box0"), NXOpen.BlockStyler.ListBox)9 F. z5 D0 W4 Y, c* f
% U. D: m# `4 A8 x8 o
/ [. t! N2 [) z2 ^$ j8 S/ J n# R% q% V, y
Catch ex As Exception: ~5 x7 q. Y+ T% v* d. M T
9 `- H; P7 g4 v: l: T8 o
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)' x! F/ Y4 q* Z8 R
End Try1 Q" {, S9 s( r
End Sub" A# _9 u, @$ i; \- T/ `/ q0 }: K
! J1 i# z6 H3 U
'------------------------------------------------------------------------------. S1 i u* {- ^5 D9 O/ B
'Callback Name: dialogShown_cb6 Z9 y/ o0 B& [
'------------------------------------------------------------------------------
! E- P' |9 D* X2 S4 M9 x, i Public Sub dialogShown_cb()7 N3 [, b4 f" ?- d- m) P1 [
Try6 S2 m( X1 {$ x8 z+ m2 q
8 ~6 k* L( f1 N0 R# N/ Z) g
. [/ F/ t( r( f
Catch ex As Exception n. [( |( X$ E* t
( T' W5 q" q/ {5 O X6 o/ V theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
- D5 L! B$ Y, T' B) p End Try4 Y$ x: G$ y& O. |% h; f
End Sub
5 P. ^# j4 A2 E! X2 f' T: W/ i9 I0 m
9 V4 n6 T* e0 w/ i( ^8 M" c '------------------------------------------------------------------------------
1 q; [ {! z0 Z1 j* @! `/ H* i$ F 'Callback Name: apply_cb
0 U: Q& V T; X" l '------------------------------------------------------------------------------
, }( N: d& {/ V1 o' i# Q Public Function apply_cb() As Integer) W2 `7 z9 D9 G: k' X3 S
Dim errorCode As Integer = 0
$ c! R* c: }+ w' r4 V# { Try
, a! O. R: [. ^
# t, w$ V+ z2 r- N' n1 @0 Q( X' g) k2 V' C
Catch ex As Exception# ~0 v6 q# ?! A: K: b9 c: W
9 N. e. p4 ]+ m, x( g$ w3 n7 m errorCode = 1
7 N4 `7 l, l; V" G5 N/ o! O theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
1 ]8 G1 L! i! K" x: V End Try
0 J3 Y& F+ U6 c7 M apply_cb = errorCode
1 k# a3 z# M/ G8 a. u5 I End Function
! e/ ?8 b6 z8 K$ W7 ~/ A' ~/ d+ X5 V# x/ q1 J2 a( F( ?2 q
'------------------------------------------------------------------------------7 v( \6 v# g3 C# _( M4 v
'Callback Name: update_cb g/ v1 H% y5 B. M
'------------------------------------------------------------------------------
3 X( Q: O; k% V7 N# E6 Q Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
2 z' }, [. `5 J* f. i5 ?# M2 U& @ Try9 o; r0 `" J1 T; s D
7 [7 L$ Q1 D! G* P; ^5 M9 N# ^ Dim num As Single = CType(linear.Value, Single) '转浮点数
$ y7 _' I$ B# v) Y( v Dim aa3 As Decimal = Math.Round((num * string01.Value * string02.Value * 0.001), 3) '3位小数' W& U8 U) c# N6 H
string03.Value = aa3
/ e6 h, a$ G, W Dim aa4 As Decimal = Math.Round((string03.Value * 0.8), 3) '3位小数' j9 B8 R' \, p. R6 Y& Y' I6 v+ f
string04.Value = aa4$ n5 t A: X7 l; {9 A
Dim aa5 As Decimal = Math.Round((string04.Value * 1 / 6), 3) '3位小数
8 P$ y$ b9 m u# b/ G) Y! t string05.Value = aa5
$ R/ g$ i% x9 G, ]! V* s Dim aa6 As Decimal = Math.Round((string03.Value * 0.06), 3) '3位小数
, @3 y, u8 [7 O2 M( w string06.Value = aa6- `! S' J, O5 ^0 |8 Y( c
9 r3 W: F2 Q, ?; C7 k Dim a3 As Single = CType(string03.Value, Single) '转浮点数' s0 _6 U( C% ^# n* k8 h6 e4 m
Dim a4 As Single = CType(string04.Value, Single)
7 S9 _$ P _: p, b9 X' o* C I) S Dim a5 As Single = CType(string05.Value, Single)" T2 f8 l5 \: X5 T3 s6 a- I% s% V
Dim a6 As Single = CType(string06.Value, Single)
. `1 w# N( @1 O9 L T/ w& p! y) T: |
Dim b3 As Decimal = Math.Round(a3, 3) '3位小数
: n' E; M8 j3 A! w1 j& [ Dim b4 As Decimal = Math.Round(a4, 3)3 P# k. K5 v0 r) ] A+ z9 d0 c) y( ^
Dim b5 As Decimal = Math.Round(a5, 3)
3 a4 \; _, u5 M" L8 K/ P5 {4 D Dim b6 As Decimal = Math.Round(a6, 3)
+ R3 ^9 F5 W# s! g1 J1 f: d) k
1 G1 x; h0 u1 n2 H6 s- `! h
% p0 C( K$ a5 Y: X, Z* {% k8 K: N Dim d1 As Decimal = Math.Round((b3 * 1.3 + b6 * 1.3), 3) '2位小数1 ]( j* p! ]) D5 M$ m
Dim d2 As Decimal = Math.Round((b4 * 1.3 + b5 * 1.3), 3)
& n' N. l# ]" S: r; w
4 h- N0 @0 y) C! A- y! m% v string07.Value = d1
/ n+ ~: e% o3 l( \2 H: C' G: H4 c* V string09.Value = d25 s' t) P1 [1 G, k. S$ E2 w! r: u
# I! h( `9 t4 }0 M2 q& _+ y4 x
) o7 t- S4 m! b; j; V8 w1 f Dim a As Single = CType(string010.Value, Single) '转浮点数
/ k& [4 }: g0 o% S& W Dim b As Single = CType(string011.Value, Single)( y ~" A, H! c& d" K
string012.Value = a + b# U0 f# ]* g- W7 k) S% ?, i- _8 _
o5 g+ ~1 P2 B. B( t
. E4 O X' s2 F+ `" u+ o3 h
, Y; `& F- c7 h8 E; u9 t2 l' k+ {- B* l
, H/ F9 t! x5 l$ q
Catch ex As Exception# z$ s3 z6 n* p6 ?. s
' C% y/ [% ]3 `$ g; ~ theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
. l2 c/ g3 W8 D2 ^# b End Try/ s7 R( F. m7 x! @9 I; A
update_cb = 0
' H% t5 S- x, u0 w. ~ End Function8 h& h1 y0 L8 l, ]! A* k# s* r- {
. S8 b# p2 w, [8 j% `7 @1 W8 ]# b
'------------------------------------------------------------------------------( H3 ~) a' P9 {7 C% W! m; S
'Callback Name: ok_cb: @$ r6 D J! v1 F% R7 I
'------------------------------------------------------------------------------
5 }2 ^, ~$ ]6 n! }* |: r Public Function ok_cb() As Integer9 Q+ F- k) c i6 D5 w* p
Dim errorCode As Integer = 0
! G/ M1 R+ {3 T. e, a. B3 w Try* {0 n; b2 {) p& C# ~4 q2 d5 {/ t* {6 X+ k
; ?2 P# U7 l X) y' B3 |$ o7 T' B$ T$ }
errorCode = apply_cb()
: n. G* _) i b, u' r7 @; ]/ @0 y
# o- F' ~$ }$ E! K: M Catch ex As Exception |7 U8 Q$ w! V5 n! p
# J2 \ j- v# U) r3 r W% } errorCode = 1& J" u- h# Y0 d5 C' [; w2 q0 J
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
4 K, \2 t! U- E' {' Q1 `8 K0 E \1 K End Try! H0 ^; a" {. i# G9 n$ }+ J! T4 l
ok_cb = errorCode3 N @& T* e& { a J! O
End Function) X" i6 h' Q- \0 w J0 E
$ a/ U( [6 ~$ v, d( v, L '------------------------------------------------------------------------------ p9 h- o% A; ^/ T4 a
'Callback Name: enableOKButton_cb
8 o! d7 F8 D3 ~. d: U '------------------------------------------------------------------------------9 O" x& h* P4 r0 y3 B& t
Public Function enableOKButton_cb() As Boolean
* W4 X0 S) Z; E% |5 P+ T enableOKButton_cb = True
5 F" ~: W7 R& E Try
% c" \; X' j2 r# [+ Q6 l" \% x- J) N. w( E; ]) o; ]
/ Q# b) n& z1 \# g% ]" T
Catch ex As Exception
$ g2 n4 ]( M7 G" g1 w, v# P3 f8 ^, Z) \' `8 A+ U: ?
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString) t+ {( g# \6 f2 w$ G
End Try
6 ?4 z# d1 H" o- q5 g End Function0 M8 j( l! p p/ K2 i# t( \8 b% W
" [' G9 o+ p: G' d* Z z0 Z, S
K+ q; h* N0 f! x6 B
6 Y; c: {6 V- H '------------------------------------------------------------------------------5 P& V- ?- p7 B, V/ O
'Function Name: GetBlockProperties
, P' p9 Z' ~ a* e* z 'Returns the propertylist of the specified BlockID
( E C' T1 M$ }' P, `" R7 s+ W '------------------------------------------------------------------------------
6 k, b2 S% y o( u- i) Y Public Function GetBlockProperties(ByVal blockID As String) As PropertyList* H) V6 D3 r' n3 M8 p4 \' X8 V
GetBlockProperties = Nothing
7 O2 ^) i! |. d3 F, ` Try& x O. f% S \2 B
2 V/ @3 \0 ^2 j5 `4 j2 J
GetBlockProperties = theDialog.GetBlockProperties(blockID); k* z b$ V% W
# j3 `- [6 ?* [+ z- M
Catch ex As Exception) s; M1 L, a% T+ x7 ~1 s3 u
" v! t( P, q- Z6 B$ t* t) b1 O1 e
theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)7 T, ]# E& G* v# J: k$ z; \; y3 A
End Try! n7 n5 L g# r4 \ t9 Z
End Function
9 Z! `( y' N1 g4 u7 Q" n7 i* f5 n% L, i" _' p# Z( C
End Class
0 P7 N9 L: f: l2 S+ Z7 X9 O: ]8 T0 U# c. l" g4 d
0 t, X8 n- P4 V' D3 s |
|