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

admin

' P7 V/ Y) Y2 {& f- NNX二次开发源码： 装配中选点，并报告父对象

1. 
   
2. <P>Option Strict Off
   & C9 A1 U5 o' G9 {; u  d
3. Imports System
   
4. Imports NXOpen
   , r  \7 R3 E1 m9 w8 `3 z
5. Imports NXOpen.UF
     {6 I# d* i; t/ U. I
6. 
   / o$ G! O. `2 P
7. Module Module1
   
8. 
   4 U# _5 F, U; n' O( l
9.     Dim theSession As Session = Session.GetSession()
   
10.     Dim theUI As UI = UI.GetUI()
    / N. z3 R" F7 k0 k/ f$ H% I
11.     Dim theUfSession As UFSession = UFSession.GetUFSession()
    
12.     Dim lw As ListingWindow = theSession.ListingWindow
    0 @8 `; d; b% u( P4 {8 T% R
13.     Dim pickedPoint As Point
    4 l6 {2 m0 l/ H8 _7 B
14.     Dim myModelingTolerance As Double
    / X% ^; m, t, t2 y+ P6 k6 j  d1 ?
15. 
    
16.     Sub Main()
    % z$ S8 `" n" c  N
17. 
    
18.         theUfSession.Modl.AskDistanceTolerance(myModelingTolerance)
    ! B* E9 @$ j7 R9 u$ r
19. 
    9 T  y* t; x; \* D( a2 I" z6 g
20.         Dim workPart As Part = theSession.Parts.Work
    ! O4 m$ c! \* C- o0 {
21.         lw.Open()
    
22. 
    
23.         Dim myPointTag As Tag
    2 C% b" T+ k: e0 x; G
24. 
    
25.         If Not select_point("Select Point", myPointTag) = UFConstants.UF_UI_OK Then
    * P! a0 x5 L9 q" H! K, Q4 y
26.             Exit Sub
    
27.         End If
    
28. 
    % B" s6 s" K3 Y: u& R4 b5 D( k
29.         lw.WriteLine("pickedPoint: " & pickedPoint.Coordinates.ToString)
    7 U: v  z2 O0 S5 ~0 W. O6 [
30. 
    
31.         AskParents(myPointTag)
    , m  @* o8 z! P& Y
32. 
    / c, {  S8 S2 T
33.     End Sub
    
34. 
    3 @! j% w0 J1 e* N8 S5 S
35.     Sub AskParents(ByVal objTag As Tag)
    
36. 
    
37.         Dim n_parents As Integer
    
38.         Dim parentTags As Tag()
      N3 A2 y3 b7 J/ Q9 m9 d2 Z& @
39.         Dim myPoint As Point
    5 y- c4 ]  [+ N' K
40.         Dim myEdge As Edge
    
41.         Dim myXform As Xform
    2 P. v; `+ i1 Z) h3 }
42.         Dim myTaggedObject As TaggedObject
    
43.         myTaggedObject = Utilities.NXObjectManager.Get(objTag)
    9 o, l1 }' ^! |: [2 e  J
44. 
    ; `$ f  j! _7 y+ d  A6 b6 y& C
45.         If myTaggedObject.GetType.ToString.ToLower.Contains("point") Then
    ; V" _1 H3 ]; I# Q
46.             myPoint = myTaggedObject
    
47.             lw.WriteLine("the tagged object: " & myTaggedObject.GetType.ToString)
    # A( E9 \/ p" t5 u- s
48.             lw.WriteLine("")
    ) |4 |  ], ]$ j" @- R6 L+ L
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
    ( d% S  w: z/ t+ \
54.                     Dim parent_object As TaggedObject = Utilities.NXObjectManager.Get(parentTag)
    + n" ]6 ^1 v& h* G7 }9 r! U( R
55. 
    % T0 G; i7 N( C
56.                     AskParents(parent_object.Tag)
    7 s5 @1 _" e5 Z, {0 ?1 r8 E
57. 
    
58.                     If parent_object.ToString.ToLower.Contains("edge") Then
    
59.                         myEdge = parent_object
    8 W, q$ h/ _" J
60.                         lw.WriteLine("")
    
61.                         lw.WriteLine("edge type: " & myEdge.SolidEdgeType.ToString)
    
62.                         lw.WriteLine("edge length: " & myEdge.GetLength.ToString)
    0 l" M  D0 P4 ~
63.                         lw.WriteLine("edge owning part: " & myEdge.OwningPart.FullPath.ToString)
    
64. 
    $ r$ b2 M7 b6 H
65.                         Dim partTag As Tag = myEdge.OwningPart.Tag
    
66.                         Dim occTags() As Tag
    6 K- D7 `) a# V' X9 l/ W, M* n
67.                         theUfSession.Assem.AskOccsOfPart(Tag.Null, partTag, occTags)
    ( m% x! e# l$ V2 g9 U
68.                         lw.WriteLine("number of occurences: " & occTags.Length.ToString)
    
69.                         For Each temp As Tag In occTags
    ) X% V% v, s4 m  ^. m5 |; l
70.                             Dim myComp As Assemblies.Component
    
71.                             myComp = Utilities.NXObjectManager.Get(temp)
    
72.                             Dim myCompPos As Point3d
    
73.                             Dim myCompOrientation As Matrix3x3
    
74.                             myComp.GetPosition(myCompPos, myCompOrientation)
    
75. 
    0 [2 w" o# k# E
76.                             lw.WriteLine("")
    
77.                             lw.WriteLine("component name: " & myComp.Name)
    
78.                             lw.WriteLine("component display name: " & myComp.DisplayName)
    ! r  r8 p  N. a; h) b2 M
79.                             lw.WriteLine("distance from picked point: " & MeasureDistance(pickedPoint, myComp).ToString)
    
80. 
    
81.                             If MeasureDistance(pickedPoint, myComp) < myModelingTolerance Then
    
82.                                 lw.WriteLine("** This is the component that was picked **")
    0 l! h- D: D, {* k8 X2 G8 t# \
83.                             End If
    $ r# r5 T% F& Y1 j' t  T8 Q- Y/ b$ L
84. 
    
85.                             lw.WriteLine("")
    6 ?: m5 g$ U  l" f5 Z7 n
86.                         Next
    $ w& V+ ~3 a# K* S
87. 
    3 a6 y: G: W6 Q9 R& I& F' P
88.                         lw.WriteLine("")
    : s2 a$ a4 K( G" t' ^  d: e
89.                     End If
    
90.                 Next
    $ o; B1 [4 Y/ O. u( \/ T( a
91. 
    ) o; o7 Y4 B" Y6 b7 R+ @
92.             CaTCh ex As Exception
    % W  T8 _; a% g4 g- N- @1 u% p
93.                 ' NXOpen.NXException: Current object is not smart
    
94.                 lw.WriteLine(" Error: " + ex.Message)
    
95.                 lw.WriteLine("    " & myTaggedObject.GetType.ToString)
    " y4 K1 ^7 m8 n) S
96.             End Try
    
97. 
    , J+ K# ]8 \% E/ S
98. 
    ) p+ v( u0 Z7 Y1 l
99.         End If
    
100. 
     2 x& P+ _/ f* V! ~7 z% M
101. 
     / n$ L/ M$ c' c: s, {9 {
102.     End Sub
     3 B- R) {2 [" k3 ?4 P
103. 
     % F; |0 w0 d4 r
104.     Function select_point(ByVal cue As String, ByRef pt_tag As Tag) As Integer
     , B; M. r5 {* ]4 @+ h/ r
105. 
     
106.         Dim base_pt As Double() = New Double(2) {}
     0 S( o; i5 n& h- P
107.         'Dim point_tag As NXOpen.Tag = NXOpen.Tag.Null
     
108.         Dim response As Integer = 0
     / H6 w. v4 T+ d2 n( t' T
109.         Dim base_method As UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt
     4 u: P& `/ N2 B7 S
110. 
     ! h6 p3 W. [4 _+ m4 k
111.         theUfSession.Ui.LockUGAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     
112.         theUfSession.Ui.PointConstruct(cue, base_method, pt_tag, base_pt, response)
     
113.         theUfSession.Ui.UnlockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
     9 h% a) ~3 \* W) r# p# M! p! l
114. 
     
115.         Dim pointLocation As Point3d
     
116.         pointLocation.X = base_pt(0)
     
117.         pointLocation.Y = base_pt(1)
     
118.         pointLocation.Z = base_pt(2)
     
119.         pickedPoint = theSession.Parts.Display.Points.CreatePoint(pointLocation)
     
120.         'pickedPoint.SetVisibility(SmartObject.VisibilityOption.Visible)
     & \( |! f* z) n  H3 r' @
121. 
     
122.         Return response
       _0 x7 X7 @9 m  @
123. 
     3 q; y% e# q1 P: @% F7 G9 R
124.     End Function
     
125. 
     
126.     Function SelectPointObject(ByVal prompt As String, ByRef selPoint As Point) As Selection.Response
     
127. 
     7 }: a& W& J/ b  \
128.         Dim selObj As TaggedObject
     % m' N: _# a! I5 V
129.         Dim theUI As UI = UI.GetUI
     
130.         Dim title As String = "Select a Point"
     3 v! o/ |3 n) T* H
131.         Dim includeFeatures As Boolean = False
     
132.         Dim keepHighlighted As Boolean = False
     / ^4 O" `% M4 ]" ~) U
133.         Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
     
134.         Dim cursor As Point3d
     6 I" W) K' s5 R9 d8 |1 Q+ ^
135.         Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
     / {& W0 `# N( H; X, ^
136.         Dim selectionMask_array(0) As Selection.MaskTriple
     
137. 
     
138.         With selectionMask_array(0)
     
139.             .Type = UFConstants.UF_point_type
     
140.             .Subtype = UFConstants.UF_all_subtype
     
141.         End With
     * d5 f3 r" V0 v$ J
142. 
     ; ^: ?( e; L/ m' m: _! @  M
143.         Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, _
     
144.          title, scope, selAction, _
     0 J6 N3 ]" w7 X- g
145.          includeFeatures, keepHighlighted, selectionMask_array, _
     5 P# r" O7 P" s( O# D1 @' w
146.          selobj, cursor)
     
147.         If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
     ' q! m! \- _& ]" z6 C' b
148.             selPoint = selObj
     3 |% k) m: Q: \1 }5 V. @+ F$ q
149.             Return Selection.Response.Ok
     
150.         Else
     
151.             Return Selection.Response.Cancel
     
152.         End If
     
153. 
     
154.     End Function
     : ^/ Q& K! _  r- n7 Z7 z& n
155. 
     
156.     Function MeasureDistance(ByVal obj1 As DisplayableObject, ByVal obj2 As DisplayableObject) As Double
     9 K2 K. Z8 _4 A' B) P# K$ j8 @6 u
157. 
     
158.         Dim result As Double
     ' r% J6 ?" e, p" I" E8 w6 h6 w0 f; z
159. 
     
160.         Try
     
161.             Dim nullNXObject As NXObject = Nothing
     4 a8 }+ J% I( H
162. 
     , O8 {, G: X+ R
163.             Dim measureDistanceBuilder1 As MeasureDistanceBuilder
     
164.             measureDistanceBuilder1 = theSession.Parts.Display.MeasureManager.CreateMeasureDistanceBuilder(nullNXObject)
     
165. 
     ! T& g7 t6 R1 ~' j1 `" {* }+ j
166.             measureDistanceBuilder1.InfoWindow = False
     ' w' z- W$ ]' _  b
167. 
     . j% r  B! h$ i# q$ E
168.             measureDistanceBuilder1.Mtype = MeasureDistanceBuilder.MeasureType.Minimum
     
169. 
     2 p+ A1 u# Y8 h  n" H1 n
170.             Dim nullUnit As Unit = Nothing
     
171. 
     5 k2 t/ O) J8 ~6 ^7 }* ?- c. J
172.             Dim measureDistance1 As MeasureDistance
     
173.             measureDistance1 = theSession.Parts.Display.MeasureManager.NewDistance(nullUnit, MeasureManager.MeasureType.Minimum, obj1, obj2)
     
174. 
     ) f! |9 ?8 @% r) x( z" m
175.             result = measureDistance1.Value
     
176. 
     ' v9 z: I. r$ T4 C& E
177.             'measureDistance1.Information()
     
178. 
     5 V9 d: L+ n0 X
179.             measureDistance1.Dispose()
     
180. 
     ' ?+ N$ S0 f# u6 P
181.         Catch ex As NXException
     , n) ]& c$ @  ~, Q" K3 ^0 S; }9 Y
182.             MsgBox(ex.Message)
     
183.             Return Nothing
     
184. 
     
185.         End Try
     ! _9 x$ x! B# n+ a5 q! v
186. 
     
187. 
     $ K6 s( @/ o: V7 v' @) o
188.         Return result
     5 ]: `' `0 I+ y" K6 R( z) n, W
189. 
     9 e& |' ~+ A- |; V7 P
190.     End Function
     0 W1 m3 M) X1 K# N) B/ E
191. 
     8 ^+ k5 v2 ]* L, A# z4 n
192. 
     ! F2 T: k+ m) ]* z" m% S7 i
193.     Public Function GetUnloadOption(ByVal dummy As String) As Integer
     , n! J/ Z" r. ~
194. 
     
195.         'Unloads the image when the NX session terminates
     6 a+ u; b' o6 T
196.         GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
     
197. 
     
198.     End Function
     8 ~  e/ j0 Q# R7 O  q. q6 f/ @
199. 
     . T: g  `: X0 O3 j. F4 D7 n
200. End Module
     
201. </P>

复制代码

admin

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