|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
) p& h$ N4 N- K) N& r5 b4 vNX二次开发源码： 装配中选点，并报告父对象+ |/ a9 N! w7 v! x- U
- / X- |% s$ L: w8 \
- <P>Option Strict Off
0 N+ c5 h& f+ P2 U7 |' d: _ - Imports System/ H; H; q' i& x0 @
- Imports NXOpen
( m1 L( A# s: O! B/ \ - Imports NXOpen.UF) a* X. o- J5 O: u# `8 r! V
- " L6 h- B" F( ^: _5 ~
- Module Module1
: V6 e* [& m: P- P( f - v/ x6 n3 V# u) h
- Dim theSession As Session = Session.GetSession()4 @ ]# P7 _' O% E9 s- x
- Dim theUI As UI = UI.GetUI()
0 q! Z: k$ R5 K) m/ k - Dim theUfSession As UFSession = UFSession.GetUFSession()/ p2 \' y3 @+ {' p/ a
- Dim lw As ListingWindow = theSession.ListingWindow
; A/ t H% k8 A- o# b - Dim pickedPoint As Point
* S1 E! p+ L3 |' l6 [. @: I- A$ t - Dim myModelingTolerance As Double2 ^, V/ o% g1 z: r
-
3 S0 w/ d* V% U0 |% S1 A; @# p( L - Sub Main()
# X( b7 O4 ~3 q3 i - # F1 F9 m* y$ @: T& m& l- U; r
- theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
( p9 t* n+ \$ i( V4 X! L! O+ M' |" k -
$ }3 L% C- f! h+ e - Dim workPart As Part = theSession.Parts.Work
2 F% \8 _: `# \ w. F: T2 b - lw.Open()
# G c9 O/ ~& W8 ]& ^ -
, Y; R; l- ]9 j: P - Dim myPointTag As Tag
3 [+ u( Y/ h0 T5 d - 7 b8 U/ Y n( }' B& Z/ z; U$ ]
- If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then8 U" ^! B, r" s8 ]4 N3 X6 Z4 S
- Exit Sub
* S* i# l$ [8 w; P4 j6 @6 X" k2 b - End If
* B& j0 ]1 S& E5 d* G - $ r3 a) ^" y5 u" K' L$ z
- lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
# h9 v p9 f6 G$ ~5 Y3 G ` - % G+ @, w% a, D; n2 q5 d) [
- AskParents(myPointTag)) U7 S; r7 ]& ~
-
0 S" \) N6 I5 l! X- M - End Sub
* Y! x" B# v( a. f2 e# s: [ -
, K7 X" J0 ?( ?: E+ C& n# S/ S - Sub AskParents(ByVal objTag As Tag)
9 X. P" _6 ]( D7 h; E7 k! {! ` - % B9 x, S( G0 {5 b( y: F5 J7 E! b
- Dim n_parents As Integer7 H5 \5 O4 Q- I4 S7 [8 }
- Dim parentTags As Tag()4 k; G+ A' f/ {- w* k
- Dim myPoint As Point
1 ?/ Q) S: D, m! ^5 t, @- K o - Dim myEdge As Edge$ n4 L# i3 |4 m
- Dim myXform As Xform, ?3 I, V" x1 a7 q
- Dim myTaggedObject As TaggedObject
: g6 \! Z4 N- @+ c* j- N - myTaggedObject = Utilities.NXObjectManager.Get(objTag)1 \( }2 b( m! z' L: Y, U1 X
- `2 K! p8 {% u$ X: j+ r/ c: q
- If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
" c& Y1 U% D& f8 g1 l. v* Y - myPoint = myTaggedObject' U( c. K0 N, ~. i1 E7 b& Z- M
- lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
, M& e5 w1 D% v5 v/ V7 l% g - lw.WriteLine("")
( O& a2 J/ s. |8 \' X D k -
, u: K- `% f, W) e9 W& Z# g+ w/ A - Try
6 m: l2 n+ ~8 Y' z" S; }- b - theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
" K$ X2 G1 s3 C - lw.WriteLine("num parents: " & n_parents.ToString)
1 A. `/ C0 x6 |4 h$ C8 e - For Each parentTag As Tag In parentTags
7 B. D' B" C" y* x7 n - Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)% w- i9 L0 c: ^0 K. k8 k
-
; Z! w& Q2 I' r; Q. H7 R | - AskParents(parent_object.Tag)
& Q) f% t+ {+ H: k( D -
, ^3 s0 q4 f7 N - If parent_object.ToString.ToLower.Contains("edge") Then
* N) y+ R) u/ c6 p - myEdge = parent_object; p+ p6 g% x! { `7 s) {: d
- lw.WriteLine("")
+ K1 K- P% C" @9 o. v1 T% Y - lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)# @) g0 m- L- Q1 B1 R
- lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
+ V. {, R7 z+ ]$ M1 [! ~1 x- x/ E& t - lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
a% W0 N! O# e# M; x8 e( V2 M - & ?9 G% a% @$ z$ x
- Dim partTag As Tag = myEdge.OwningPart.Tag" [7 _: z+ G, F) X; i# `' T
- Dim occTags() As Tag
4 p5 a+ q% y* }& i- S( D5 ~ - theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)) i/ Z& Q% X& ~5 @! R) V# K
- lw.WriteLine("number of occurences: " & occTags.Length.ToString)- G5 r5 d1 l2 c4 X# O
- For Each temp As Tag In occTags
' m# t# B% u0 d& d! s; l1 B& z - Dim myComp As Assemblies.Component
. U0 C R# x0 t" f7 R; s - myComp = Utilities.NXObjectManager.Get(temp)0 ~" A) y! _( }. X6 i% K3 V# U
- Dim myCompPos As Point3d
9 W7 Q% Z( F$ U& I9 \ - Dim myCompOrientation As Matrix3x3
- l* i1 w) A/ @+ [ - myComp.GetPosition(myCompPos, myCompOrientation)
; H" W1 w( q" K -
2 J' C7 W' c1 [& s* ` - lw.WriteLine("")7 K5 f1 E, \# Q( p7 C7 ^
- lw.WriteLine("component name: " & myComp.Name)
% e% t3 e' u I8 g R7 d - lw.WriteLine("component display name: " & myComp.DisplayName)% u: y7 {6 n- q3 g/ b v. b3 I
- lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
1 i! O! c- Z2 Y Z: e* U7 x; S) z -
/ @% V, K* Y9 M' m+ z3 h+ m - If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then/ D6 \+ m1 g8 L
- lw.WriteLine("** This is the component that was picked **")
5 v& ]5 N" E0 p; A8 t - End If1 V5 E+ d/ Q# ]( i8 {
- % [# |/ u' \+ y2 ~1 ]2 t2 i
- lw.WriteLine("")# ]3 z6 T5 @: x5 [
- Next; S1 [3 G. p& e2 {: \# L: q
- ) A9 d' g! V7 {. V6 W
- lw.WriteLine("")
' n# {: S! S" [8 I" m - End If0 q) o, i/ U2 N: _3 l
- Next" o- ~% r0 U" S$ H, w# e
-
) ?& P6 E; P. _ L5 A$ g - CaTCh ex As Exception* ]" p& I* P$ ?
- ' NXOpen.NXException: Current object is not smart7 i L0 }) m8 S. _4 _3 @
- lw.WriteLine(" Error: " + ex.Message)
2 v( Z K7 f& W& M9 L% e1 c - lw.WriteLine(" " & myTaggedObject.GetType.ToString)
7 w( E/ ~) \9 k - End Try" U/ Y/ p) F2 G2 T% O+ i9 i2 h% A
-
$ M! y. M. m. N7 y# `; G -
T2 c3 i, W8 y3 O7 X$ W - End If2 T$ e+ ]+ l% [& u5 b* O. m# W% B
-
/ s. S, X ^+ A. i! R- Q) c6 |, p - ' x8 W! o- |& |" @
- End Sub
) Q+ a$ J$ L* u' e - - b% o, @9 x7 B5 O
- Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer2 f! I+ ]# s" C$ U# E; R
-
. O( L# `" _. g0 C, T, v. Y" |0 j - Dim base_pt As Double() = New Double(2) {}
8 W" b/ }: e4 k( } F# F1 y - 'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
# k1 G5 V& F8 T' v+ o0 B - Dim response As Integer = 0
& g; y! D/ |' R1 R N - Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
' k$ ?4 U' ?) } - ) C, j& C- @, R4 L [
- theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
$ m8 S" A1 s" X6 C* k7 Y+ A - theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
, u6 `' A9 C9 F w2 p8 F) e# n - theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
+ ~+ h# X! T3 G( u, r -
3 }. c8 _1 _! j: x - Dim pointLocation As Point3d! e2 T" K4 r: b- z. N1 p7 K: R
- pointLocation.X = base_pt(0)
) z- w: R9 S1 c2 ~! [3 s' S - pointLocation.Y = base_pt(1)
) U7 S, A( O6 c8 m$ k& C& a - pointLocation.Z = base_pt(2)
/ ]. L6 }& B& p0 E0 [* U - pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation), ^, H9 y" F, N0 g
- 'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)+ e7 _! F$ o0 x" ~9 j6 {/ t
- + O; f4 m, \8 r' h J1 a
- Return response- F$ G: B3 D' s2 O( L3 T+ A; R
- , j1 D+ r) \/ T5 ?6 }
- End Function
/ X/ [; m# o* q5 H8 p -
e7 H" [; v( u# q, o R2 V - Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
$ u9 m0 j" G2 ]& z! \4 B -
3 s% b6 q7 r! n, l/ |. m1 f - Dim selObj As TaggedObject! m. L" w* ?8 j; @ `- k% ~
- Dim theUI As UI = UI.GetUI
8 b h1 W0 i0 ^, x$ ~8 L$ f - Dim title As String = "Select a Point"3 k. X% ~" h9 N5 \! `; R
- Dim includeFeatures As Boolean = False
% E) x S0 m8 ]% C& U; G - Dim keepHighlighted As Boolean = False, E1 D3 y% q, O1 S
- Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific3 o: z, P/ {3 I7 s3 e# T2 W
- Dim cursor As Point3d
/ R8 Z. E6 N7 k5 L: } G - Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
0 y' Y% m$ j" I6 \$ }& ?0 m8 l - Dim selectionMask_array(0) As Selection.MaskTriple
3 L4 b) W% Q9 Q0 |; k - : O' P t7 C! C/ s( |. R
- With selectionMask_array(0)
c5 R* K5 m1 \ - .Type = UFConstants.UF_point_type
' T9 K& Q; L7 V8 r: K2 l- D. i - .Subtype = UFConstants.UF_all_subtype
. ?0 @4 _% |! e* h! K - End With1 o( i5 V H! \3 g
- 6 G+ q7 v- N g. `5 l! Q( X
- Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _9 a" n7 ^2 [; N! h* F
- title, scope, selAction, _' n1 U% W; L# S% _$ V: p
- includeFeatures, keepHighlighted, selectionMask_array, _
* l: f; T- }5 }% Y - selobj, cursor)
4 w2 c! J9 E# U2 H3 J6 a - If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
7 g8 E1 {. \3 [. [7 z* l' t+ { - selPoint = selObj
* z; @9 U5 R# K2 F i, U" O7 W5 J - Return Selection.Response.Ok
, I( O& s o8 Z+ l! J+ | - Else' d6 C6 T6 S7 G; A
- Return Selection.Response.Cancel0 W1 N& {$ ^7 R* d$ k: l
- End If: I* `- N7 ~9 S7 _6 v3 \
- 4 l! `7 N7 K' p8 A) G% u8 }+ O
- End Function' x# n8 _$ R! W) U, J+ t, z. t
- 3 |: T; {0 W. U4 m/ ]" D2 V( F# r) _
- Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
7 n" x7 u5 T& O9 Y+ s, r- b -
; U- G) C# }1 }1 k5 A - Dim result As Double$ `7 v0 g% V/ Y% E' b' V
- ) [" A" j# z* [( `
- Try# u$ d" ~9 F. p5 c& x
- Dim nullNXObject As NXObject = Nothing! B9 m. W' I3 y9 c8 y9 e+ d* |7 M
-
V+ A3 t& Z' A: C - Dim measureDistanceBuilder1 As MeasureDistanceBuilder
8 }: c* M3 Z I; _) R5 A: E! Z - measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)* U9 d( ]/ v$ F. |. W7 b) @. x4 f* S
- 5 k$ A+ x2 T9 e+ d
- measureDistanceBuilder1.InfoWindow = False
% k' a) _4 _8 F1 w - / i6 J# Z& h( p: o
- measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
1 z6 {) G W A5 m; K# k% ~+ B - . N4 | q) k5 ?) j
- Dim nullUnit As Unit = Nothing# @- T1 U1 k3 d+ T
-
7 D% ^* P* V! |" B5 R; K1 ` - Dim measureDistance1 As MeasureDistance
' x* S3 t! P Y5 A) [+ m - measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)5 ?2 y' W2 ]/ }% ]0 v* k
-
# {0 A. q' X" P$ h: [/ j0 J - result = measureDistance1.Value
; o$ L7 s/ [/ M" e - . }0 U4 a! k: ~; z# b# p `
- 'measureDistance1.Information()* s% ~; v% p& C) W/ A/ Z* u
-
( s( M4 P/ f9 Q - measureDistance1.Dispose()
% n5 ^! ~! v9 ?, d -
- ]# |1 ^; o1 X7 N k - Catch ex As NXException
) I E1 I4 m. E* M - MsgBox(ex.Message)
" ?+ o+ I# Q! E6 p1 u1 q - Return Nothing) I2 ]6 U8 R" v; m
-
, P( h+ Q, p2 n- B! { - End Try
$ T7 k d7 Z; h -
4 N1 U9 N1 I* M6 t( E' U -
6 ~7 l4 e$ \' M* ~" i9 `7 K - Return result( W% [. s1 C1 E! O2 \1 A
- 0 i& s. T) B1 m, O+ x$ g
- End Function
& d9 Y1 w3 p/ h$ [5 O3 _" D" | -
6 @0 Q# |, K/ Y -
" j+ e' F o" O& F* P; ^7 G! H - Public Function GetUnloadOption(ByVal dummy As String) As Integer
+ E! ?( [# h; l h Q - w3 R+ k7 U b
- 'Unloads the image when the NX session terminates
" o+ e2 k# F; d% U) ~: f' h - GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination/ p/ Q9 N3 f3 _4 `+ P) a$ G% l! t& K
-
; m: M3 B+ Y5 h& W - End Function* M/ x! m) t$ `* b
- , q* t. X2 M- _% [; s
- End Module7 k# b8 y0 {1 k2 F
- </P>
|
|
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
