|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能5 P$ Z5 E" k% V: L0 ~. m
内容：$ v. E) B5 T7 N/ J" W& Q
默认录制的JA文件，在选择对象的时候，通过内部的标识去选取，如果改变其他的对象的时候，很可能程序执行失败，这个时候需要手动的进行代码的修改, _; S, C& P7 D; V" j
目的：
/ l( [' F) U+ Z( _6 p使用添加选择功能，让用户交互式的进行选取对象，避免这种录制产生的缺陷。6 }# [4 d7 b6 {: ?3 t# h# P" J
/ s7 i$ n! D4 k
20 完善JA的选择功能
, e, e' U/ x9 F3 G6 R% a
3 s1 N1 X7 j+ _6 Z$ N) ]
高清教程见楼下：
( ^+ {4 ]/ L8 ~ e- Public Function Selectface(ByRef selectedObject) As NXObject
" C, U: K0 N8 t$ [! s - Dim ui As UI = ui.GetUI5 m# ~4 s, j( d7 |3 z' j
- Dim message As String = "Select face"$ r* ]- m7 j1 D8 o2 g# _& w4 b
- Dim title As String = "Selection"3 H3 @7 T3 F! W8 U. g' n4 Z' }. u y( v! n
- Dim scope As Selection.SelectionScope = Selection. _
# T: z8 {) G2 G4 ~, V - SelectionScope.WorkPart7 K. K. X5 _) F" K) W
- Dim keepHighlighted As Boolean = True$ B0 T+ k4 S1 E8 w
- Dim includeFeatures As Boolean = True% o) c. j4 g0 J
- Dim response As Selection.Response* E+ m, a, D e0 R/ @
- Dim selectionAction As Selection.SelectionAction = + x% h. E+ n A% w& R# D
- Selection.SelectionAction.ClearAndEnableSpecific
6 m- q5 B* z. j9 { E& X9 c - Dim selectionMask_array(1) As Selection.MaskTriple
7 t. W. w3 L. x4 g4 b - With selectionMask_array(0)# j. D, C- {- z5 R' ?
- .Type = UFConstants.UF_face_type
; D- s9 ^, C; ?( T& |2 m3 k - .Subtype = 0
. O5 V9 _& |3 J - .SolidBodySubtype = 0
; A9 h- B0 O- c s1 Y - End With0 }# P n2 s+ p3 i+ k. i6 ]
- Dim cursor As Point3d9 p# U; A- t" V& f9 O, L
- response = ui.SelectionManager.SelectObject(message, _4 {6 \6 \. c( f' P7 u+ h& } S
- title, scope, selectionAction, _, g; @9 k, U; H% h
- includeFeatures, keepHighlighted, _( }! F' E' D+ q6 v& j; o
- selectionMask_array, selectedObject, cursor)
) L6 I6 s2 V# R! v - If response = Selection.Response.Cancel Or response _3 B A/ ?" ]7 O- }
- = Selection.Response.Back Then. l) v# w1 N: h( b
- Return Nothing
7 F$ A7 D1 k$ t- n% Y/ r/ r - End If
" x; ~: v4 u& `5 o3 O - End Function
" N* [$ ]1 }) U# p2 f; I
1 ]! B! c5 ^5 ~! @
0 y- O" _3 e: B4 q1 Q |
|
[复制链接]
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
