.net做UG NX二次开发（VB.net） / NX Secondry Dev. with .net using VB.net Code

用.net语言（C#、VB等）开发UG NX二次开发，一定要弄清楚NXOpen和NXOpen.UF的区别。可以看看我以前发的帖子。

以下内容来自与http://bbs.icax.cn/491598p1p1

真的要特别感谢名叫“苏州人”的网友贴了这么多代码。不过这些代码的也是属于NXOpen.UF的使用，不是真正的NXOpen。操作录制的才是真正的NXOpen形式（参见我以前的帖子）

不过，广告部分我就不贴了，呵呵。

view plaincopy to clipboardprint?

1. 第一个例子：怎样用VB.NET在UG中创建一个点?  
2. Option Strict Off  
4. Imports System  
5. Imports NXOpen  
6. Imports NXOpen.UF  
7. Imports NXOpen.UI  
8. Imports NXOpen.Utilities  
10. Module CreatePoint  
12. Dim s As Session = Session.GetSession()  
13. Dim ufs As UFSession = UFSession.GetUFSession()  
15. Sub Main()  
17. Dim sp As New Point3d(0, 0, 0)  
18. Dim thePoint As Point = s.Parts.Work.Points.CreatePoint(sp)  
20. End Sub
21. Public Function GetUnloadOption(ByVal dummy As String) As Integer
23.         GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
25. End Function
26. End Module第二个例子：怎样用VB.NET在UG中创建一个条线?  
27. Option Strict Off    
28. Imports System  
29. Imports NXOpen  
30. Imports NXOpen.UF  
31. Imports NXOpen.UI  
32. Imports NXOpen.Utilities  
34. Module template_code  
35. Dim s As Session = Session.GetSession()  
36. Sub Main()  
38. Dim sp As New Point3d(0, 0, 0)  
39. Dim ep As New Point3d(10, 10, 0)  
41. Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)  
44. End Sub
45. Public Function GetUnloadOption(ByVal dummy As String) As Integer
46.       GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
47. End Function
49. End Module
50. 第三个例子：怎样用VB.NET在UG中创建一个圆柱，然后更改它的颜色?  
52. Option Strict Off    
53. Imports System  
54. Imports NXOpen  
55. Imports NXOpen.UF  
56. Imports NXOpen.UI  
57. Imports NXOpen.Utilities  
58. Module create_a_cylinder_and_set_color  
60. Sub Main()  
61. Dim s As Session = Session.GetSession()  
62. Dim ufs As UFSession = UFSession.GetUFSession()  
63. Dim wp As Part = s.Parts.Work()  
65. Dim cyl_feat_tag As NXOpen.Tag  
66. Dim orig() As Double = {1, 1, 0}  
67. Dim dir() As Double = {1, 1, 1}  
69.         ufs.Modl.CreateCylinder(FeatureSigns.Nullsign, Nothing, orig, "50", _  
70. "25", dir, cyl_feat_tag)  
72. Dim cyl_body_tag As NXOpen.Tag  
73.         ufs.Modl.AskFeatBody(cyl_feat_tag, cyl_body_tag)  
74. Dim cyl_body As Body = CType(NXObjectManager.Get(cyl_body_tag), Body)  
76.         MsgBox("Color change", MsgBoxStyle.Information, "Current Operation:")  
77.         cyl_body.Color = 3  
78.         cyl_body.RedisplayObject()  
80.         s.Preferences.ScreenVisualization.FitPercentage = 95  
81.         wp.Views.WorkView.Fit()  
82.   end Sub
83. Public Function GetUnloadOption(ByVal dummy As String) As Integer
85.         GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
86. End Function
87. End Module
88. 第四个例子：怎样用VB.NET在UG中创建注释?  
89. Option Strict Off    
90. Imports System  
91. Imports NXOpen  
92. Imports NXOpen.UF  
93. Imports NXOpen.UI  
94. Imports NXOpen.Utilities  
96. Module create_note  
97. Dim s As Session = Session.GetSession()  
98. Dim ufs As UFSession = UFSession.GetUFSession()  
99. Sub Main()  
100. Dim theNote As NXOpen.Tag  
101. Try
102. Dim workPart As Part = s.Parts.Work  
103. Dim workPartTag As NXOpen.Tag = workPart.Tag  
105. Catch ex As Exception  
106.     ufs.Ui.OpenListingWindow()  
107.     ufs.Ui.WriteListingWindow(ex.GetBaseException.ToString())  
108.     ufs.Ui.WriteListingWindow(vbCrLf & "+++ Work Part Required" & vbCrLf)  
109. Return
110. End Try
113. Dim num_lines As Integer = 2  
114. Dim textString As String() = {"This is the first line.", _  
115. "This is the second line."}  
116. Dim origin_3d() As Double = {6, 6, 0}  
117. Dim orientation As Integer = 0 ' zero is Horizontal, 1 is Vertical
118. Try
120.     ufs.Drf.CreateNote(num_lines, textString, origin_3d, _  
121.                     orientation, theNote)  
123. Catch ex As Exception  
124.     ufs.Ui.OpenListingWindow()  
125.     ufs.Ui.WriteListingWindow(ex.GetBaseException.ToString())  
126.     ufs.Ui.WriteListingWindow(vbCrLf & "+++ Note not created" & vbCrLf)  
127. End Try
128. End Sub
129. Public Function GetUnloadOption(ByVal dummy As String) As Integer
131.       GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
132. End Function
133. End Module
134. 第五个例子：怎样用VB.NET在UG中创建两个体然后做布尔加操作?  
135. Imports System  
136. Imports NXOpen  
137. Imports NXOpen.UF  
138. Imports NXOpen.UI  
139. Imports NXOpen.Utilities  
140. Module template_code  
142. Sub Main()  
144. Dim s As Session = Session.GetSession()  
145. Dim ufs As UFSession = UFSession.GetUFSession()  
147. '
148. ' ------------------------------------------------- make sure we have a part
149. Dim this_part As NXOpen.Tag  
150. Try
151.   this_part = s.Parts.Work.Tag  
152. Catch ex As Exception  
154. If this_part = NXOpen.Tag.Null Then
155.     MsgBox("You need an open part to run this program.", MsgBoxStyle.OKOnly)  
156. ' no part, so exit program gracefully
157. Exit Sub
158. End If
160. End Try
161. '
162. ' ------------------------------------------------- first solid: a block
164. Dim corner_pt(2) As Double
165. Dim block_feat_tag As NXOpen.Tag  
166. Dim edge_lengths(2) As String
167. ' This is an alternate way to set the string value:
168. '
169. 'Dim lengths(2) As Double
170. 'lengths(0) = 150.1234
171. 'edge_lengths(0) = lengths(0).ToString
172. ' 
173. ' but setting it this way, we get the expression to boot:
175.   edge_lengths(0) = "xlen=150.1234"
176.   edge_lengths(1) = "ylen=65.4321"
177.   edge_lengths(2) = "thickness=25."
179. Dim sign As FeatureSigns  
180.   sign = FeatureSigns.Nullsign  
181.   corner_pt(0) = 20  
182.   corner_pt(1) = 30  
183.   corner_pt(2) = -10  
184.   ufs.Modl.CreateBlock1(sign, corner_pt, edge_lengths, block_feat_tag)  
185. If block_feat_tag <> NXOpen.Tag.Null Then
186.     ufs.View.FitView(NXOpen.Tag.Null, 1.0)  
187.     MsgBox("First Solid Body tag is: " & block_feat_tag.ToString)  
188. End If
190. '
191. ' ------------------------------------------------- second solid: a cylinder
192. Dim height As String
193. Dim diameter As String
194. Dim direction(2) As Double
195. Dim cyl_feat_tag As NXOpen.Tag  
196.   height = "cyl_height=90"
197.   diameter = "cyl_dia=40"
199.   direction(0) = 0.707  
200.   direction(1) = 0.707  
201.   direction(2) = 0.707  
202.   ufs.Modl.CreateCyl1(sign, corner_pt, height, diameter, direction, cyl_feat_tag)  
204. If cyl_feat_tag <> NXOpen.Tag.Null Then
205.     ufs.View.FitView(NXOpen.Tag.Null, 1.0)  
206.     MsgBox("Second Solid Body tag is: " & cyl_feat_tag.ToString)  
207. End If
209. '
210. ' ------------------------------------------------- unite the two solids
211. Dim block_body_tag As NXOpen.Tag  
212. Dim cyl_body_tag As NXOpen.Tag  
213.   ufs.Modl.AskFeatBody(block_feat_tag, block_body_tag)  
214.   ufs.Modl.AskFeatBody(cyl_feat_tag, cyl_body_tag)  
216.   ufs.Modl.UniteBodies(block_body_tag, cyl_body_tag)  
217. '
218. ' ------------------------------------------------- report count of solids
220. Dim all_bodies() As Body = s.Parts.Work.Bodies.ToArray()  
221. Dim body_count As Integer
223.   body_count = all_bodies.Length  
224.   MsgBox("Count of Bodies now in Work Part: " & body_count)  
226. End Sub
227. Public Function GetUnloadOption(ByVal dummy As String) As Integer
229.       GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
230. End Function
232. End Module第六个例子：怎样用VB.NET在UG中选择一个体?  
233. Option Strict Off  
234. Imports System  
235. Imports NXOpen  
236. Imports NXOpen.UI  
237. Imports NXOpen.Utilities  
238. Imports NXOpen.UF  
240. Module select_a_body_demo  
242. Dim s As Session = Session.GetSession()  
243. Dim ufs As UFSession = UFSession.GetUFSession()  
245. Sub Main()  
246. Dim body As NXOpen.Tag  
247. While select_a_body(body) = Selection.Response.Ok  
248.         MsgBox("Body Tag:" & body.ToString())  
250.         ufs.Disp.SetHighlight(body, 0)  
252. End While
253. End Sub
254. Function select_a_body(ByRef body As NXOpen.Tag) As Selection.Response  
256. Dim message As String
257. Dim title As String = "Select a body"
258. Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY  
259. Dim response As Integer
260. Dim obj As NXOpen.Tag  
261. Dim view As NXOpen.Tag  
262. Dim cursor(2) As Double
263. Dim ip As UFUi.SelInitFnT = AddressOf init_proc  
264.     ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
265. Try
266.         ufs.Ui.SelectWithSingleDialog(message, title, scope, ip, _  
267. Nothing, response, body, cursor, view)  
268. Finally
269.          ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
270. End Try
272. If response <> UFConstants.UF_UI_OBJECT_SELECTED And _  
273.        response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then
274. Return Selection.Response.Cancel  
275. Else
276. Return Selection.Response.Ok  
277. End If
278. End Function
280. Function init_proc(ByVal select_ As IntPtr, _  
281. ByVal userdata As IntPtr) As Integer
283. Dim num_triples As Integer = 1  
284. Dim mask_triples(0) As UFUi.Mask  
285.     mask_triples(0).object_type = UFConstants.UF_solid_type  
286.     mask_triples(0).object_subtype = UFConstants.UF_solid_body_subtype  
287.     mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_BODY  
288.     ufs.Ui.SetSelMask(select_, _  
289.                        UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _  
290.                        num_triples, mask_triples)  
291. Return UFConstants.UF_UI_SEL_SUCCESS  
293. End Function
294. Public Function GetUnloadOption(ByVal dummy As String) As Integer
295.     GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
297. End Function
299. End Module
300. 第七个例子：怎样用VB.NET在UG中选择一个面?  
301. Option Strict Off  
303. Imports System  
304. Imports NXOpen  
305. Imports NXOpen.UI  
306. Imports NXOpen.Utilities  
307. Imports NXOpen.UF  
308. Module select_a_face_demo  
310. Dim s As Session = Session.GetSession()  
311. Dim ufs As UFSession = UFSession.GetUFSession()  
312. Sub Main()  
313. Dim face As NXOpen.Tag  
314. While select_a_face(face) = Selection.Response.Ok  
316.         MsgBox("Face Tag:" & face.ToString())  
317.         ufs.Disp.SetHighlight(face, 0)  
318. End While
320. End Sub
322. Function select_a_face(ByRef face As NXOpen.Tag) As Selection.Response  
323. Dim message As String
324. Dim title As String = "Select a FACE"
325. Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY  
326. Dim response As Integer
327. Dim obj As NXOpen.Tag  
328. Dim view As NXOpen.Tag  
329. Dim cursor(2) As Double
330. Dim mask_face As UFUi.SelInitFnT = AddressOf mask_for_faces  
332.     ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
333. Try
334.         ufs.Ui.SelectWithSingleDialog(message, title, scope, mask_face, _  
335. Nothing, response, face, cursor, view)  
336. Finally
337.          ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
338. End Try
339. If response <> UFConstants.UF_UI_OBJECT_SELECTED And _  
340.        response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then
341. Return Selection.Response.Cancel  
342. Else
343. Return Selection.Response.Ok  
344. End If
345. End Function
346. Function mask_for_faces(ByVal select_ As IntPtr, _  
347. ByVal userdata As IntPtr) As Integer
349. Dim num_triples As Integer = 1  
350. Dim mask_triples(0) As UFUi.Mask  
351.     mask_triples(0).object_type = UFConstants.UF_solid_type  
352.     mask_triples(0).object_subtype = UFConstants.UF_solid_face_subtype  
353.     mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_FACE  
355.     ufs.Ui.SetSelMask(select_, _  
356.                        UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _  
357.                        num_triples, mask_triples)  
358. Return UFConstants.UF_UI_SEL_SUCCESS  
359. End Function
360. Public Function GetUnloadOption(ByVal dummy As String) As Integer
361.     GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
362. End Function
364. End Module
365. Option Strict Off    
367. Imports System  
368. Imports NXOpen  
369. Imports NXOpen.UF  
370. Imports NXOpen.UI  
371. Imports NXOpen.Utilities  
373. Module select_curves_or_edges  
375. Dim s As Session = Session.GetSession()  
376. Dim ufs As UFSession = UFSession.GetUFSession()  
377. Sub Main()  
379. Dim curves() As NXOpen.Tag  
380. Dim num_curves As Integer
381. Dim n As String = vbCrLf  
383.     num_curves = select_curves_or_edges("Select Curves or Edges:", curves)  
385. If (num_curves) > 0 Then
386.         ufs.Ui.OpenListingWindow()  
387.         ufs.Ui.WriteListingWindow("Selected count: " & num_curves.ToString & n)  
388. End If
390. End Sub
391. Function select_curves_or_edges(ByVal prompt As String, _  
392. ByRef curves() As NXOpen.Tag) As Integer
394. Dim cnt As Integer = 0  
395. Dim response As Integer
396. Dim inx As Integer = 0  
397. Dim mask_crvs As UFUi.SelInitFnT = AddressOf mask_for_curves  
398.     ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
400. Try
401.         ufs.Ui.SelectWithClassDialog(prompt, "Curves:", _  
402.             UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY, _  
403.             mask_crvs, Nothing, response, cnt, curves)  
404. Finally
405.         ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
406. End Try
407. For inx = 0 To curves.Length - 1  
408.         ufs.Disp.SetHighlight(curves(inx), 0)  
409. Next
410. Return cnt  
412. End Function
413. Function mask_for_curves(ByVal select_ As IntPtr, _  
414. ByVal userdata As IntPtr) As Integer
415. Dim num_triples As Integer = 6  
416. Dim mask_triples(5) As UFUi.Mask  
417.     mask_triples(0).object_type = UFConstants.UF_line_type  
418.     mask_triples(0).object_subtype = 0  
419.     mask_triples(0).solid_type = 0  
421.     mask_triples(1).object_type = UFConstants.UF_circle_type  
422.     mask_triples(1).object_subtype = 0  
423.     mask_triples(1).solid_type = 0  
424.     mask_triples(2).object_type = UFConstants.UF_conic_type  
425.     mask_triples(2).object_subtype = 0  
426.     mask_triples(2).solid_type = 0  
427.     mask_triples(3).object_type = UFConstants.UF_spline_type  
428.     mask_triples(3).object_subtype = 0  
429.     mask_triples(3).solid_type = 0  
431.     mask_triples(4).object_type = UFConstants.UF_point_type  
432.     mask_triples(4).object_subtype = 0  
433.     mask_triples(4).solid_type = 0  
434.     mask_triples(5).object_type = UFConstants.UF_solid_type  
435.     mask_triples(5).object_subtype = 0  
436.     mask_triples(5).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE  
438.     ufs.Ui.SetSelMask(select_, _  
439.                        UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _  
440.                        num_triples, mask_triples)  
442. Return UFConstants.UF_UI_SEL_SUCCESS  
444. End Function
445. Public Function GetUnloadOption(ByVal dummy As String) As Integer
447.       GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
449. End Function
451. End Module

第一个例子：怎样用VB.NET在UG中创建一个点? Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpen.UI Imports NXOpen.Utilities Module CreatePoint Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Sub Main() Dim sp As New Point3d(0, 0, 0) Dim thePoint As Point = s.Parts.Work.Points.CreatePoint(sp) End Sub Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module第二个例子：怎样用VB.NET在UG中创建一个条线? Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpen.UI Imports NXOpen.Utilities Module template_code Dim s As Session = Session.GetSession() Sub Main() Dim sp As New Point3d(0, 0, 0) Dim ep As New Point3d(10, 10, 0) Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep) End Sub Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module 第三个例子：怎样用VB.NET在UG中创建一个圆柱，然后更改它的颜色? Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpen.UI Imports NXOpen.Utilities Module create_a_cylinder_and_set_color Sub Main() Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Dim wp As Part = s.Parts.Work() Dim cyl_feat_tag As NXOpen.Tag Dim orig() As Double = {1, 1, 0} Dim dir() As Double = {1, 1, 1} ufs.Modl.CreateCylinder(FeatureSigns.Nullsign, Nothing, orig, "50", _ "25", dir, cyl_feat_tag) Dim cyl_body_tag As NXOpen.Tag ufs.Modl.AskFeatBody(cyl_feat_tag, cyl_body_tag) Dim cyl_body As Body = CType(NXObjectManager.Get(cyl_body_tag), Body) MsgBox("Color change", MsgBoxStyle.Information, "Current Operation:") cyl_body.Color = 3 cyl_body.RedisplayObject() s.Preferences.ScreenVisualization.FitPercentage = 95 wp.Views.WorkView.Fit() end Sub Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module 第四个例子：怎样用VB.NET在UG中创建注释? Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpen.UI Imports NXOpen.Utilities Module create_note Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Sub Main() Dim theNote As NXOpen.Tag Try Dim workPart As Part = s.Parts.Work Dim workPartTag As NXOpen.Tag = workPart.Tag Catch ex As Exception ufs.Ui.OpenListingWindow() ufs.Ui.WriteListingWindow(ex.GetBaseException.ToString()) ufs.Ui.WriteListingWindow(vbCrLf & "+++ Work Part Required" & vbCrLf) Return End Try Dim num_lines As Integer = 2 Dim textString As String() = {"This is the first line.", _ "This is the second line."} Dim origin_3d() As Double = {6, 6, 0} Dim orientation As Integer = 0 ' zero is Horizontal, 1 is Vertical Try ufs.Drf.CreateNote(num_lines, textString, origin_3d, _ orientation, theNote) Catch ex As Exception ufs.Ui.OpenListingWindow() ufs.Ui.WriteListingWindow(ex.GetBaseException.ToString()) ufs.Ui.WriteListingWindow(vbCrLf & "+++ Note not created" & vbCrLf) End Try End Sub Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module 第五个例子：怎样用VB.NET在UG中创建两个体然后做布尔加操作? Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpen.UI Imports NXOpen.Utilities Module template_code Sub Main() Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() ' ' ------------------------------------------------- make sure we have a part Dim this_part As NXOpen.Tag Try this_part = s.Parts.Work.Tag Catch ex As Exception If this_part = NXOpen.Tag.Null Then MsgBox("You need an open part to run this program.", MsgBoxStyle.OKOnly) ' no part, so exit program gracefully Exit Sub End If End Try ' ' ------------------------------------------------- first solid: a block Dim corner_pt(2) As Double Dim block_feat_tag As NXOpen.Tag Dim edge_lengths(2) As String ' This is an alternate way to set the string value: ' 'Dim lengths(2) As Double 'lengths(0) = 150.1234 'edge_lengths(0) = lengths(0).ToString ' ' but setting it this way, we get the expression to boot: edge_lengths(0) = "xlen=150.1234" edge_lengths(1) = "ylen=65.4321" edge_lengths(2) = "thickness=25." Dim sign As FeatureSigns sign = FeatureSigns.Nullsign corner_pt(0) = 20 corner_pt(1) = 30 corner_pt(2) = -10 ufs.Modl.CreateBlock1(sign, corner_pt, edge_lengths, block_feat_tag) If block_feat_tag <> NXOpen.Tag.Null Then ufs.View.FitView(NXOpen.Tag.Null, 1.0) MsgBox("First Solid Body tag is: " & block_feat_tag.ToString) End If ' ' ------------------------------------------------- second solid: a cylinder Dim height As String Dim diameter As String Dim direction(2) As Double Dim cyl_feat_tag As NXOpen.Tag height = "cyl_height=90" diameter = "cyl_dia=40" direction(0) = 0.707 direction(1) = 0.707 direction(2) = 0.707 ufs.Modl.CreateCyl1(sign, corner_pt, height, diameter, direction, cyl_feat_tag) If cyl_feat_tag <> NXOpen.Tag.Null Then ufs.View.FitView(NXOpen.Tag.Null, 1.0) MsgBox("Second Solid Body tag is: " & cyl_feat_tag.ToString) End If ' ' ------------------------------------------------- unite the two solids Dim block_body_tag As NXOpen.Tag Dim cyl_body_tag As NXOpen.Tag ufs.Modl.AskFeatBody(block_feat_tag, block_body_tag) ufs.Modl.AskFeatBody(cyl_feat_tag, cyl_body_tag) ufs.Modl.UniteBodies(block_body_tag, cyl_body_tag) ' ' ------------------------------------------------- report count of solids Dim all_bodies() As Body = s.Parts.Work.Bodies.ToArray() Dim body_count As Integer body_count = all_bodies.Length MsgBox("Count of Bodies now in Work Part: " & body_count) End Sub Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module第六个例子：怎样用VB.NET在UG中选择一个体? Option Strict Off Imports System Imports NXOpen Imports NXOpen.UI Imports NXOpen.Utilities Imports NXOpen.UF Module select_a_body_demo Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Sub Main() Dim body As NXOpen.Tag While select_a_body(body) = Selection.Response.Ok MsgBox("Body Tag:" & body.ToString()) ufs.Disp.SetHighlight(body, 0) End While End Sub Function select_a_body(ByRef body As NXOpen.Tag) As Selection.Response Dim message As String Dim title As String = "Select a body" Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY Dim response As Integer Dim obj As NXOpen.Tag Dim view As NXOpen.Tag Dim cursor(2) As Double Dim ip As UFUi.SelInitFnT = AddressOf init_proc ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) Try ufs.Ui.SelectWithSingleDialog(message, title, scope, ip, _ Nothing, response, body, cursor, view) Finally ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) End Try If response <> UFConstants.UF_UI_OBJECT_SELECTED And _ response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then Return Selection.Response.Cancel Else Return Selection.Response.Ok End If End Function Function init_proc(ByVal select_ As IntPtr, _ ByVal userdata As IntPtr) As Integer Dim num_triples As Integer = 1 Dim mask_triples(0) As UFUi.Mask mask_triples(0).object_type = UFConstants.UF_solid_type mask_triples(0).object_subtype = UFConstants.UF_solid_body_subtype mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_BODY ufs.Ui.SetSelMask(select_, _ UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _ num_triples, mask_triples) Return UFConstants.UF_UI_SEL_SUCCESS End Function Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module 第七个例子：怎样用VB.NET在UG中选择一个面? Option Strict Off Imports System Imports NXOpen Imports NXOpen.UI Imports NXOpen.Utilities Imports NXOpen.UF Module select_a_face_demo Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Sub Main() Dim face As NXOpen.Tag While select_a_face(face) = Selection.Response.Ok MsgBox("Face Tag:" & face.ToString()) ufs.Disp.SetHighlight(face, 0) End While End Sub Function select_a_face(ByRef face As NXOpen.Tag) As Selection.Response Dim message As String Dim title As String = "Select a FACE" Dim scope As Integer = UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY Dim response As Integer Dim obj As NXOpen.Tag Dim view As NXOpen.Tag Dim cursor(2) As Double Dim mask_face As UFUi.SelInitFnT = AddressOf mask_for_faces ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) Try ufs.Ui.SelectWithSingleDialog(message, title, scope, mask_face, _ Nothing, response, face, cursor, view) Finally ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) End Try If response <> UFConstants.UF_UI_OBJECT_SELECTED And _ response <> UFConstants.UF_UI_OBJECT_SELECTED_BY_NAME Then Return Selection.Response.Cancel Else Return Selection.Response.Ok End If End Function Function mask_for_faces(ByVal select_ As IntPtr, _ ByVal userdata As IntPtr) As Integer Dim num_triples As Integer = 1 Dim mask_triples(0) As UFUi.Mask mask_triples(0).object_type = UFConstants.UF_solid_type mask_triples(0).object_subtype = UFConstants.UF_solid_face_subtype mask_triples(0).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_FACE ufs.Ui.SetSelMask(select_, _ UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _ num_triples, mask_triples) Return UFConstants.UF_UI_SEL_SUCCESS End Function Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpen.UI Imports NXOpen.Utilities Module select_curves_or_edges Dim s As Session = Session.GetSession() Dim ufs As UFSession = UFSession.GetUFSession() Sub Main() Dim curves() As NXOpen.Tag Dim num_curves As Integer Dim n As String = vbCrLf num_curves = select_curves_or_edges("Select Curves or Edges:", curves) If (num_curves) > 0 Then ufs.Ui.OpenListingWindow() ufs.Ui.WriteListingWindow("Selected count: " & num_curves.ToString & n) End If End Sub Function select_curves_or_edges(ByVal prompt As String, _ ByRef curves() As NXOpen.Tag) As Integer Dim cnt As Integer = 0 Dim response As Integer Dim inx As Integer = 0 Dim mask_crvs As UFUi.SelInitFnT = AddressOf mask_for_curves ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) Try ufs.Ui.SelectWithClassDialog(prompt, "Curves:", _ UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY, _ mask_crvs, Nothing, response, cnt, curves) Finally ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM) End Try For inx = 0 To curves.Length - 1 ufs.Disp.SetHighlight(curves(inx), 0) Next Return cnt End Function Function mask_for_curves(ByVal select_ As IntPtr, _ ByVal userdata As IntPtr) As Integer Dim num_triples As Integer = 6 Dim mask_triples(5) As UFUi.Mask mask_triples(0).object_type = UFConstants.UF_line_type mask_triples(0).object_subtype = 0 mask_triples(0).solid_type = 0 mask_triples(1).object_type = UFConstants.UF_circle_type mask_triples(1).object_subtype = 0 mask_triples(1).solid_type = 0 mask_triples(2).object_type = UFConstants.UF_conic_type mask_triples(2).object_subtype = 0 mask_triples(2).solid_type = 0 mask_triples(3).object_type = UFConstants.UF_spline_type mask_triples(3).object_subtype = 0 mask_triples(3).solid_type = 0 mask_triples(4).object_type = UFConstants.UF_point_type mask_triples(4).object_subtype = 0 mask_triples(4).solid_type = 0 mask_triples(5).object_type = UFConstants.UF_solid_type mask_triples(5).object_subtype = 0 mask_triples(5).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE ufs.Ui.SetSelMask(select_, _ UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _ num_triples, mask_triples) Return UFConstants.UF_UI_SEL_SUCCESS End Function Public Function GetUnloadOption(ByVal dummy As String) As Integer GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY End Function End Module

view plaincopy to clipboardprint?

1. 第八个例子：怎样用VB.NET在UG中选择曲线和边?  
2. Option Strict Off    
4. Imports System  
5. Imports NXOpen  
6. Imports NXOpen.UF  
7. Imports NXOpen.UI  
8. Imports NXOpen.Utilities  
9. Module select_curves_or_edges  
11. Dim s As Session = Session.GetSession()  
12. Dim ufs As UFSession = UFSession.GetUFSession()  
14. Sub Main()  
15. Dim curves() As NXOpen.Tag  
16. Dim num_curves As Integer
17. Dim n As String = vbCrLf  
19.     num_curves = select_curves_or_edges("Select Curves or Edges:", curves)  
20. If (num_curves) > 0 Then
21.         ufs.Ui.OpenListingWindow()  
22.         ufs.Ui.WriteListingWindow("Selected count: " & num_curves.ToString & n)  
23. End If
25. End Sub
26. Function select_curves_or_edges(ByVal prompt As String, _  
27. ByRef curves() As NXOpen.Tag) As Integer
28. Dim cnt As Integer = 0  
29. Dim response As Integer
30. Dim inx As Integer = 0  
31. Dim mask_crvs As UFUi.SelInitFnT = AddressOf mask_for_curves  
32.     ufs.Ui.LockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
34. Try
35.         ufs.Ui.SelectWithClassDialog(prompt, "Curves:", _  
36.             UFConstants.UF_UI_SEL_SCOPE_ANY_IN_ASSEMBLY, _  
37.             mask_crvs, Nothing, response, cnt, curves)  
38. Finally
39.         ufs.Ui.UnlockUgAccess(UFConstants.UF_UI_FROM_CUSTOM)  
40. End Try
41. For inx = 0 To curves.Length - 1  
42.         ufs.Disp.SetHighlight(curves(inx), 0)  
43. Next
45. Return cnt  
46. End Function
48. Function mask_for_curves(ByVal select_ As IntPtr, _  
49. ByVal userdata As IntPtr) As Integer
51. Dim num_triples As Integer = 6  
52. Dim mask_triples(5) As UFUi.Mask  
53.     mask_triples(0).object_type = UFConstants.UF_line_type  
54.     mask_triples(0).object_subtype = 0  
55.     mask_triples(0).solid_type = 0  
57.     mask_triples(1).object_type = UFConstants.UF_circle_type  
58.     mask_triples(1).object_subtype = 0  
59.     mask_triples(1).solid_type = 0  
60.     mask_triples(2).object_type = UFConstants.UF_conic_type  
61.     mask_triples(2).object_subtype = 0  
62.     mask_triples(2).solid_type = 0  
63.     mask_triples(3).object_type = UFConstants.UF_spline_type  
64.     mask_triples(3).object_subtype = 0  
65.     mask_triples(3).solid_type = 0  
67.     mask_triples(4).object_type = UFConstants.UF_point_type  
68.     mask_triples(4).object_subtype = 0  
69.     mask_triples(4).solid_type = 0  
71.     mask_triples(5).object_type = UFConstants.UF_solid_type  
72.     mask_triples(5).object_subtype = 0  
73.     mask_triples(5).solid_type = UFConstants.UF_UI_SEL_FEATURE_ANY_EDGE  
75.     ufs.Ui.SetSelMask(select_, _  
76.                        UFUi.SelMaskAction.SelMaskClearAndEnableSpecific, _  
77.                        num_triples, mask_triples)  
78. Return UFConstants.UF_UI_SEL_SUCCESS  
80. End Function
81. Public Function GetUnloadOption(ByVal dummy As String) As Integer
82.       GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY  
83. End Function
85. End Module

原文：http://blog.csdn.net/begtostudy/archive/2009/10/30/4750017.aspx