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

mildcat

PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
5 f: {. u; J, b$ I# Q( e内容：
4 [, }: u6 ?; ]/ h$ [% i; h默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改
目的：
使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。
$ s1 p8 V# u9 S. U/ c
/ a. O% B- X4 k5 u) \' U

20 完善JA的选择功能

高清教程见楼下：
4 h3 p7 N+ G* [7 H3 m

1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
   ( d- |5 @" p( T7 R- @
2. Dim  ui  As  UI  =  ui.GetUI
   2 |$ \& D- x8 B% T6 M2 E* }
3. Dim  message  As  String  =  "Select  face"
   7 T- W, z6 W4 _# @/ W( H3 t
4. Dim  title  As  String  =  "Selection"
   
5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
   7 F8 Y5 j. [" f& C
6. SelectionScope.WorkPart
   , N2 _1 j1 p5 x; J8 g& o7 \6 H
7. Dim  keepHighlighted  As  Boolean  =  True
   
8. Dim  includeFeatures  As  Boolean  =  True
   
9. Dim  response  As  Selection.Response
   + t# A+ {/ ]) _% e- ]
10. Dim  selectionAction  As  Selection.SelectionAction  =
    
11. Selection.SelectionAction.ClearAndEnableSpecific
    
12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    
13. With  selectionMask_array(0)
    6 x1 ~2 K  R5 |7 m
14. .Type  =  UFConstants.UF_face_type
    
15. .Subtype  =  0
    
16. .SolidBodySubtype  =  0
    
17. End  With
    0 ]5 o- g3 S7 p" I2 Z) O2 {& o8 F
18. Dim  cursor  As  Point3d
    
19. response  =  ui.SelectionManager.SelectObject(message,  _
    6 \# k" T9 X$ T0 X  R
20. title,  scope,  selectionAction,  _
    
21. includeFeatures,  keepHighlighted,  _
    1 s' R1 o+ a* J% d9 W% f2 V
22. selectionMask_array,  selectedObject,  cursor)
    
23. If  response  =  Selection.Response.Cancel  Or  response  _
    
24. =  Selection.Response.Back  Then
    ( _2 `  G, F4 }" X: y
25. Return  Nothing
    ' x7 Q" `6 i# J; d) t9 E
26. End  If
    
27. End  Function
    

复制代码

! R( {( O" D3 [% w
' N4 Z- ~: d& @* h" ^3 T9 q
# ^& n- d3 ~% c

mildcat

% o! y4 o0 U* W( D" G. G # J& R: K) z. ?6 I+ q% V* x6 l PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 & m( T* l/ _: b+ X$ j[flash]

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

$ C% M4 A% |; ?# {" T8 k [/flash]

东沟恋君

赠人玫瑰,手有余香

江东

一定要看看

C_X_J

学习学习。。

逐日

谢谢螺柱分享

student

之持支持~~~來挖寶

ONE

4 z7 ]. m* p8 I7 f* Q楼主辛苦啦.谢谢楼主

C_X_J

楼主辛苦了，谢谢分享

不是哥干的

谢谢高手的分享