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

mildcat

PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
  S7 i8 `# G% q( M, F. U- ~3 E内容：
) M2 d- _/ Q3 n9 f" p5 c默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改
目的：
# Y, Z/ `3 c, F使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。

20 完善JA的选择功能

1 T5 b. v$ v! R高清教程见楼下：
! K  k. N5 N' ~% V6 @

1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
   
2. Dim  ui  As  UI  =  ui.GetUI
   0 O) V/ @5 N1 y
3. Dim  message  As  String  =  "Select  face"
   ( Y2 t# n* z9 B9 T. ?  D
4. Dim  title  As  String  =  "Selection"
   5 J% C/ v" X4 x& Q* E/ z) B
5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
   & U7 h5 f, P, ^, f: a
6. SelectionScope.WorkPart
   ' K; r' V% V: e% M7 Y3 d& i0 a
7. Dim  keepHighlighted  As  Boolean  =  True
   
8. Dim  includeFeatures  As  Boolean  =  True
   
9. Dim  response  As  Selection.Response
   . ^; K! [8 M5 Q' {+ B. J
10. Dim  selectionAction  As  Selection.SelectionAction  =
    ! @" z9 q0 C; ^: k' L! |/ {; E$ ^. n
11. Selection.SelectionAction.ClearAndEnableSpecific
    2 H( U2 h% p8 k/ d' _6 c" J" X
12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    
13. With  selectionMask_array(0)
    & \, T4 d: f/ @
14. .Type  =  UFConstants.UF_face_type
    ) E: N) J2 E- R7 s' c# D6 O
15. .Subtype  =  0
    2 ~1 F- \: ~: i0 q. t, D* H6 ~
16. .SolidBodySubtype  =  0
    
17. End  With
    - D& |  f  C* u4 _! }6 E# R. O
18. Dim  cursor  As  Point3d
    
19. response  =  ui.SelectionManager.SelectObject(message,  _
    0 Q$ K8 ?: l6 a' K9 N' j
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
    : J- C$ T0 f) t6 F
25. Return  Nothing
    6 N5 v7 w0 h( J7 _& q* d
26. End  If
    , m7 [" _3 k4 {( Z% l* L3 {1 X
27. End  Function
    

复制代码

" V( i- V4 b* O6 g3 Z* b

mildcat

$ e+ v6 Q1 T1 b+ H E2 a( r% _ PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 ! O, M$ T) h) u' m% M8 t [8 c[flash] [/flash]

东沟恋君

赠人玫瑰,手有余香

江东

一定要看看

C_X_J

学习学习。。

逐日

谢谢螺柱分享

student

之持支持~~~來挖寶

ONE

) \" ~& M) `8 j3 X3 ~楼主辛苦啦.谢谢楼主

C_X_J

楼主辛苦了，谢谢分享

不是哥干的

谢谢高手的分享