PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能

mildcat

PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
( e4 m3 J3 y0 I2 C内容：
7 ~2 ~% y: w% A9 O: |4 M+ Q默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改
8 W0 u/ F- y: Q, O) G目的：
使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。

8 A9 z+ J! j! m8 k8 m4 T+ B, S

20 完善JA的选择功能

高清教程见楼下：
" m) D" @7 R3 t6 E

1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
   9 o9 {2 I# d. c$ S- X6 i/ U/ J
2. Dim  ui  As  UI  =  ui.GetUI
   
3. Dim  message  As  String  =  "Select  face"
   ! Q5 q/ a! l0 j6 _
4. Dim  title  As  String  =  "Selection"
   
5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
   
6. SelectionScope.WorkPart
   3 b& x0 t* C  M, O3 \0 W
7. Dim  keepHighlighted  As  Boolean  =  True
   5 A4 i8 ]6 A" L- F
8. Dim  includeFeatures  As  Boolean  =  True
   & b- X; N) L& s4 p! R
9. Dim  response  As  Selection.Response
   
10. Dim  selectionAction  As  Selection.SelectionAction  =
    ' M  k* O5 C6 j  Q# T6 U  ~1 x
11. Selection.SelectionAction.ClearAndEnableSpecific
    
12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    7 q. k+ W3 E0 c5 O% ]7 e) Q
13. With  selectionMask_array(0)
    8 M! \- [  @: n# l* m
14. .Type  =  UFConstants.UF_face_type
    
15. .Subtype  =  0
    
16. .SolidBodySubtype  =  0
    ; G0 u9 o9 V  X9 B1 A: y: J* }
17. End  With
    & b) ^$ H/ m7 W+ }$ Z; K
18. Dim  cursor  As  Point3d
    / s) N$ K$ p2 g7 D; b! J" ^" _" l
19. response  =  ui.SelectionManager.SelectObject(message,  _
    & @& H- T9 _9 v- x) J# R, {7 R
20. title,  scope,  selectionAction,  _
    
21. includeFeatures,  keepHighlighted,  _
    
22. selectionMask_array,  selectedObject,  cursor)
    
23. If  response  =  Selection.Response.Cancel  Or  response  _
    
24. =  Selection.Response.Back  Then
    3 r9 Q1 O9 d' u. {/ _3 ?1 J
25. Return  Nothing
    
26. End  If
    
27. End  Function
    & M- O* k; o# ~, a

复制代码

1 Z! a/ w( \( m

0 r; C% `8 u+ W

mildcat

6 G4 I+ _- X& j) D3 M7 e8 a: \ . y" [7 ?9 t# f PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 & L$ M' t M* X8 z! ~2 I! j / t" V+ @; ^. H[flash]

如果无法播放，请点击此处在新窗口打开

[/flash]

东沟恋君

赠人玫瑰,手有余香

江东

一定要看看

C_X_J

学习学习。。

逐日

谢谢螺柱分享

student

之持支持~~~來挖寶

ONE

/ c( u+ x3 K3 f+ y: b楼主辛苦啦.谢谢楼主

C_X_J

楼主辛苦了，谢谢分享

不是哥干的

谢谢高手的分享