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

admin

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

1. 
   
2. <P>Option Strict Off
   ( I! _: u& q: {8 h8 _( e+ T
3. Imports System
   7 |- ~. J; s% ^$ _
4. Imports NXOpen
   
5. Imports NXOpen.UF
   1 E. [/ Y2 c0 v6 x. W
6. 
   3 X  v' u2 Y% G3 ]3 v
7. Module Module1
   " S; h; B+ g* q7 d  r6 f
8. 
   
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    
13.     Dim pickedPoint As Point
    + t# \- }, P" |4 A1 [% J
14.     Dim myModelingTolerance As Double
    
15. 
    $ K5 X1 T. e7 z; s
16.     Sub Main()
    
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    
19. 
    " \5 q6 {9 L; r, j
20.         Dim workPart As Part = theSession.Parts.Work
    ; _1 W1 i' t% t& B
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    & W" n$ W) g% J; |  s
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    
26.             Exit Sub
    5 C! E6 ~7 O4 A) r: v1 {
27.         End If
    7 u  e) r. z; ?
28. 
    
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    
30. 
    2 ^% p: X2 U. L- F$ }- ~8 ^
31.         AskParents(myPointTag)
    
32. 
    $ |3 x% K1 S' {; q
33.     End Sub
    
34. 
    + p6 S0 M' g! T
35.     Sub AskParents(ByVal objTag As Tag)
    * D& T0 t2 ]  z$ p7 ^$ e
36. 
      T  k& V* z5 K1 f
37.         Dim n_parents As Integer
    ! S8 {: e( B4 O# u
38.         Dim parentTags As Tag()
    / }6 G1 u5 r) l3 G
39.         Dim myPoint As Point
    
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    
42.         Dim myTaggedObject As TaggedObject
    3 l) S; Z4 u& H
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    + N& u8 ?$ X( ?" q
44. 
    0 `) o: G& c# v  x4 T5 U
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    6 y: \/ B1 L" e% t+ O* x; J% h2 i
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    . m2 }6 W. [1 b' i  @+ l
48.             lw.WriteLine("")
    
49. 
    ! `# k: Z6 E) C
50.             Try
    
51.                 theUfSession.So.AskParents(objTag, UFConstants.UF_SO_ASK_ALL_PARENTS, n_parents, parentTags)
    - v8 {" l: O+ f+ d0 q8 b
52.                 lw.WriteLine("num parents: " & n_parents.ToString)
    " j  a1 F, M* q7 a' S( {: E
53.                 For Each parentTag As Tag In parentTags
    
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    : W* Z2 {$ }6 {9 _9 E* M
55. 
    
56.                     AskParents(parent_object.Tag)
    
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    & r- `! x1 t, g9 p
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    9 \2 t# q9 q/ k# o. d9 B& B
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    * b/ Y' Z9 T6 o$ Z# s- t# H/ A
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    , m1 m6 @& a1 r1 o4 q
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    1 O0 V1 p( K& k# `: i7 C
72.                             Dim myCompPos As Point3d
    : p+ P8 J$ f5 o; M" r
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    
76.                             lw.WriteLine("")
    3 h0 W: W) d+ @& |3 c7 f
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    / a8 U1 ^; k  K! h
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    
80. 
      |1 Z+ V! g; i+ K9 Y
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    * j3 {5 H4 n+ N% I
83.                             End If
    
84. 
      E: n, j! R# {( y
85.                             lw.WriteLine("")
    
86.                         Next
    2 E) G2 Q- O( i) ]. H
87. 
    
88.                         lw.WriteLine("")
    * p0 E% u6 h) |6 p$ J, b2 ]
89.                     End If
    - h- p" `  n. B  P# @; j
90.                 Next
    
91. 
    
92.             CaTCh ex As Exception
    ! X- g+ L' R. y9 l% J6 p0 L' d) G: y
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    
96.             End Try
    
97. 
    
98. 
    5 l) d+ @1 _& h) Y
99.         End If
    8 v  g# o8 i" g& `; L& C  J
100. 
     
101. 
     
102.     End Sub
     + }% }4 j4 s: |- Z- i
103. 
     
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     . G5 U0 y( z4 a, Q2 _
108.         Dim response As Integer = 0
     ' _- P1 O0 d+ w( \( f( B" Y& h
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     
110. 
     
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     $ F: B  U% a: S2 f6 s
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     % O: h: v0 g6 Y' N- ~
114. 
     
115.         Dim pointLocation As Point3d
     & m2 I) f$ t# C
116.         pointLocation.X = base_pt(0)
     : n3 Q8 `$ d0 w+ _- L  S
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     5 z& |3 G2 ]1 @
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     
121. 
     
122.         Return response
     - v- X: {3 J0 I7 o# e) X" l
123. 
     ) c6 o* ?/ k' Q7 ~5 t
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     2 v( V& L, @8 j) D6 k3 t& u2 V
128.         Dim selObj As TaggedObject
     
129.         Dim theUI As UI = UI.GetUI
     + @0 J  S6 {" @( `- e/ ], \( A
130.         Dim title As String = "Select a Point"
     1 q5 P' k$ z+ U; W" t' j: S- @# |- Y
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     ! g% S8 C4 K2 M  S
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     9 u: x1 y9 u7 ]# U. n+ G! N6 [' g
140.             .Subtype = UFConstants.UF_all_subtype
     + V8 \" `* ^& }6 o
141.         End With
     
142. 
     & _" y  T. M2 z, D
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     1 q/ s4 Z& {( q0 f7 p: l( p
144.          title, scope, selAction, _
     ! u4 o- ]1 R, l6 Q: @" i6 z% q
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     5 C/ z  h1 v& g
148.             selPoint = selObj
     % J# O1 ~) Y7 T$ w6 y! Y; Y
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     . @! O; I' e+ A. Q/ e  K& s
152.         End If
     ; |; Z  G: f( a$ L0 W1 ?2 {
153. 
     0 a3 k- c' a. C# ]& i
154.     End Function
     
155. 
     ) G  T/ R: X, h. Z" B! Q$ I
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     
157. 
     
158.         Dim result As Double
     9 B$ a& S- ?. B4 }4 r. h$ g. {
159. 
     4 V0 |+ X# H2 n+ {# s
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     
162. 
     
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     ; X2 H2 ^6 k: D" p" [" ?* h$ X
165. 
     
166.             measureDistanceBuilder1.InfoWindow = False
     ( O3 u% X4 ]* I* u' W: W
167. 
     ; Z* @* ]' k: [4 v$ B
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     * D, }! Q1 O* G
169. 
     
170.             Dim nullUnit As Unit = Nothing
     $ e2 S, Z1 r9 A1 m- L( p4 z) q
171. 
     - [9 R- V8 }# U0 i" S+ j. g+ K
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     , B7 I, X: R" D* |$ o7 L0 x$ G- C
175.             result = measureDistance1.Value
     ( |% x  b% r$ t, R
176. 
     
177.             'measureDistance1.Information()
     
178. 
     
179.             measureDistance1.Dispose()
     
180. 
     
181.         Catch ex As NXException
     
182.             MsgBox(ex.Message)
     6 C6 Q6 Z2 ]1 G) T7 ]) l
183.             Return Nothing
     
184. 
     : ^1 f4 h& F, v2 J
185.         End Try
     # i' J1 G% P) ~  I6 @% p1 y6 x9 `
186. 
     
187. 
     
188.         Return result
     
189. 
     1 Y  v; t( @: f0 G
190.     End Function
     
191. 
     
192. 
     
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     
194. 
     
195.         'Unloads the image when the NX session terminates
     + i/ }4 E" r2 E- N
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     5 w$ C/ r/ X0 k
197. 
     
198.     End Function
     * Q, U+ `8 t. {2 \. ?0 ^3 T! D8 }* @0 ^6 a5 w
199. 
     
200. End Module
     $ u% g" ~4 |( i8 m
201. </P>

复制代码

* \! ]4 f8 n" J# Z/ u1 z; V0 U  M2 _

admin

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