NX二次开发源码： 装配中选点，并报告父对象

admin

8 j# t2 i3 u# ~& s7 WNX二次开发源码： 装配中选点，并报告父对象
; {- `# o$ J/ ~/ h; t- m

1. 
   
2. <P>Option Strict Off
   
3. Imports System
   - B* M5 i; F; }2 H1 `2 ~5 l# q0 g
4. Imports NXOpen
   7 s1 T) T7 ]5 `. V& w* ~3 k) m
5. Imports NXOpen.UF
   
6. 
   0 [# S* R' K' i" b# A0 i1 y
7. Module Module1
   0 X7 E; V+ I$ e- \/ R8 m
8. 
   0 p7 g; Z2 z7 i7 m+ i2 r  {
9.     Dim theSession As Session = Session.GetSession()
   8 {5 c; t- X, @
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    ) S* V+ k) G6 ?' x; p
12.     Dim lw As ListingWindow = theSession.ListingWindow
    $ u0 ]  T9 t5 ?7 \
13.     Dim pickedPoint As Point
    
14.     Dim myModelingTolerance As Double
    2 E6 P& J' n8 u3 Z5 {$ m0 N
15. 
    
16.     Sub Main()
    9 a% g# t# A7 o' z/ H
17. 
    % S) t4 _& v. M
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    ( c* m+ }1 R0 f, M( O
19. 
    
20.         Dim workPart As Part = theSession.Parts.Work
    
21.         lw.Open()
    0 V* P7 z1 m1 f" o+ `$ k9 {4 Q( e
22. 
    
23.         Dim myPointTag As Tag
    
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    3 V7 g3 v$ |# B5 K; `. Q/ e1 W
26.             Exit Sub
    
27.         End If
    7 Z9 D* s( k- v
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    / A7 B! _- f1 N. \( q! I3 Y. \- `, K
30. 
    % G" [2 ~7 a' E  n5 Q
31.         AskParents(myPointTag)
    . @8 k: w- m: f& Y  f
32. 
    
33.     End Sub
    
34. 
    ( A9 p0 v# x; @+ Q: B9 a! {3 g% C/ D5 W0 [
35.     Sub AskParents(ByVal objTag As Tag)
    + o; O  g9 y) ^/ k2 d, U& A. C
36. 
    
37.         Dim n_parents As Integer
    7 B6 f8 L3 p; O: `3 N
38.         Dim parentTags As Tag()
    2 R2 T4 M; f3 k0 B1 [
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    5 S( x. K$ z# k( u2 u3 n
41.         Dim myXform As Xform
      P- u* X* C9 c* Y: x/ t+ ]% I
42.         Dim myTaggedObject As TaggedObject
    . q: q' Z; ]% e2 Y
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    
44. 
    7 e1 U; s# @, u& q0 r
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    ( S2 C2 e% Z3 F) [! I
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    
48.             lw.WriteLine("")
    
49. 
    
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    
53.                 For Each parentTag As Tag In parentTags
    " g$ Y- D: m4 Y
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    6 H/ s( s% x# N& C; c
55. 
    . _8 A. n- P1 ?% f+ c" t  |& s
56.                     AskParents(parent_object.Tag)
    2 v% _/ P# n8 ^2 `* A4 o. _
57. 
    % E3 j9 a% {7 U/ V9 ^4 j% l# q
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    , q6 D0 B. Y* O. w* U
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    2 k9 I' Q8 v" x( X4 }
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    7 K* a9 a/ ^0 Y% L, Y3 e
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    ' i. D1 W; S, P7 ~  g: m/ R
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    5 t7 r( L, S! y2 l- a; L' C3 W
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    + _8 [5 T3 u$ J2 P
75. 
    6 e2 ~4 ^. ~! O3 `
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    . T) \! e3 ]+ k8 r# |1 E) N
80. 
    & |& M8 _, N1 m! c+ i. V
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    & {+ T8 f" v3 _
83.                             End If
    
84. 
    
85.                             lw.WriteLine("")
    
86.                         Next
    % y& k! H* O0 M/ ^+ ?
87. 
    
88.                         lw.WriteLine("")
    
89.                     End If
    9 k( [1 B& p, L
90.                 Next
    
91. 
    . z# R7 S/ w; G- T
92.             CaTCh ex As Exception
    
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    6 \! O3 S, a; O) _2 u% L4 K
98. 
    
99.         End If
    3 Z/ M, E5 r3 a) d) o
100. 
     
101. 
     
102.     End Sub
     2 e, Y! s8 s& U# Y' R
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     0 u/ \; p8 W6 }& M
106.         Dim base_pt As Double() = New Double(2) {}
     ; P3 k2 @- h# x, D% I
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     
108.         Dim response As Integer = 0
     
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     3 y4 p5 u' J8 p0 Q  t
110. 
     6 j( ~6 a5 Y; U
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
       _7 o4 C- K$ l
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
114. 
     
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     0 ^. ~" B* @. V. @. S5 n
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     7 D% g( R9 z' x+ d% r) P
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     & ?5 |- W, ^+ M5 O% r+ z
121. 
     0 f, k8 o5 z5 r( ~, ^" p( `: B
122.         Return response
     
123. 
     ' F) E6 r* [  P# j6 ?0 H
124.     End Function
     
125. 
     : ~$ ]8 h9 ]' }5 [/ a
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     4 ], s& w( v) _7 M  c& y
128.         Dim selObj As TaggedObject
     1 s) x! e& B; a3 Z' M5 V% E7 I
129.         Dim theUI As UI = UI.GetUI
     : t! l$ F" U# o/ m
130.         Dim title As String = "Select a Point"
     
131.         Dim includeFeatures As Boolean = False
     6 C( B- t' l3 n' t, }6 f5 T
132.         Dim keepHighlighted As Boolean = False
     0 d( }1 a% e  ]2 K
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     3 U3 c1 s9 J& N9 T3 C. o/ \& ~
134.         Dim cursor As Point3d
     6 p# a6 E3 f' |9 d7 o6 |' F
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     4 P  A% e6 P0 F6 k
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     , ?8 h' r2 R9 b
137. 
     
138.         With selectionMask_array(0)
     ; u% f4 }7 M, A" E
139.             .Type = UFConstants.UF_point_type
     ' Y- c4 K7 T* g( a5 F- h  `8 i
140.             .Subtype = UFConstants.UF_all_subtype
     ) P$ ^* V" d3 j) o8 g# H+ W- l' b
141.         End With
     9 }% A$ [! ?1 Q0 u; M7 c
142. 
     
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     ( a7 i# t9 O1 t) t
144.          title, scope, selAction, _
     
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     0 l8 s1 p1 x4 p+ S! M5 u' v: x
146.          selobj, cursor)
     3 H$ t3 E' \! {8 W
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     
148.             selPoint = selObj
     
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     8 Q5 m% `4 G5 t, ~/ B9 ~0 d6 V# m
152.         End If
     ! s' k- @8 j: t$ m  A
153. 
     
154.     End Function
     
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     7 n4 {9 r# X4 C
157. 
     8 b- h8 \2 \# }- P- R9 {- o
158.         Dim result As Double
     
159. 
     
160.         Try
     2 Q6 p- z- o# U" M. E+ _6 q
161.             Dim nullNXObject As NXObject = Nothing
     ! z7 _6 z+ J; `1 H0 ?$ [& Y
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     $ F6 O4 V1 i' x1 h+ |7 O8 `* K
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     - m! y! _7 i& M: h/ Z* H+ [! ]- R
165. 
     * D% r6 ~# Q0 H  Z$ J
166.             measureDistanceBuilder1.InfoWindow = False
     ' Z0 B& \+ Z$ w# N
167. 
     
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     ; ^# O. C6 B" x
169. 
     
170.             Dim nullUnit As Unit = Nothing
     . e$ S' z$ g3 _) ?% _! A
171. 
     ' i8 \% m# j3 p, s: i" K5 h
172.             Dim measureDistance1 As MeasureDistance
     7 E" c+ F- D$ X! J; @
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     
175.             result = measureDistance1.Value
     2 |# Z/ z0 l* S* d
176. 
     ( ~5 Z7 w: [6 @3 j% M
177.             'measureDistance1.Information()
     
178. 
     7 G! n8 L$ j, O0 U
179.             measureDistance1.Dispose()
     
180. 
     % s$ g* A  k: E) {- }) F
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     * ^+ Z% p' e. l! F
184. 
     
185.         End Try
     
186. 
     
187. 
     $ u* x5 V3 x0 S0 ]
188.         Return result
     
189. 
     4 `; N/ y: U5 w' ?8 B& E* r
190.     End Function
     
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     - ~/ k1 S; [' v' F1 e8 W" Q- }
194. 
     # V  x4 ^: A! @- M
195.         'Unloads the image when the NX session terminates
     
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     ' A" E: Z5 E; \& H
198.     End Function
     
199. 
     
200. End Module
     
201. </P>

复制代码

( R9 O/ @  K  E) I; I- d) }" `, x

admin

直接 跑下 Journal 就可以看结果了