PLM之家PLMHome-工业软件践行者

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

  [复制链接]

2014-1-19 08:44:16 38326 125

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

积分
9784
发表于 2013-12-2 20:33:45 | 显示全部楼层 |阅读模式

请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!

您需要 登录 才可以下载或查看,没有账号?注册

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能
- ^2 h. o8 v$ j5 L. W内容:7 h3 {9 X1 t. K$ L# [
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改% N7 e. }. l& ^4 A2 P) W" b$ e: O% j
目的:
" T$ l7 Z1 z5 `8 E使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。5 j) u7 z; k5 ^% {2 ^

" |8 Y; q$ y# V7 w2 [+ ]3 p8 Z

20 完善JA的选择功能

20 完善JA的选择功能
. p+ e8 u' `* W( l' b, ~: Q$ L

: P' u/ g% s7 r7 W5 c8 r高清教程见楼下:( @$ `8 a- V( V1 e9 u! O: q; b0 B
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject: ]2 |1 [: E7 ?6 J/ ~6 T# y- `2 }; ^9 b
  2. Dim  ui  As  UI  =  ui.GetUI
    6 |' \9 c6 z# m- O
  3. Dim  message  As  String  =  "Select  face"' l) ~; w* d8 ]; g
  4. Dim  title  As  String  =  "Selection"8 c' Y' f" S4 W  A
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
    ( p8 U1 G( V" }% c
  6. SelectionScope.WorkPart
    + |+ o+ P2 A. j$ M; L
  7. Dim  keepHighlighted  As  Boolean  =  True! j2 g4 Q5 m! ~9 J+ a
  8. Dim  includeFeatures  As  Boolean  =  True
    2 G5 C, p6 P' j9 ^5 Q' {2 \! w
  9. Dim  response  As  Selection.Response: U7 u) n) k& n) f2 ^
  10. Dim  selectionAction  As  Selection.SelectionAction  = 1 O; I' P3 U" @; r' z& G' A
  11. Selection.SelectionAction.ClearAndEnableSpecific
    ) [/ D% x0 h3 p$ n4 G( B5 {1 e
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple# R2 P1 ?& ~0 ~
  13. With  selectionMask_array(0)# m, L* n, E' p/ z) D! T+ n
  14. .Type  =  UFConstants.UF_face_type
    9 y  F) [/ t, I3 S
  15. .Subtype  =  0& O  Z4 |( K# F* A
  16. .SolidBodySubtype  =  0
    ( z" G) j8 `% K5 p: ?$ p
  17. End  With" E  a% [, r3 f- e3 U
  18. Dim  cursor  As  Point3d
    . n3 z1 R' H% K. y* }
  19. response  =  ui.SelectionManager.SelectObject(message,  _
    ( a  B8 r0 {8 M# C
  20. title,  scope,  selectionAction,  _5 m3 F( O/ G* k/ }
  21. includeFeatures,  keepHighlighted,  _
    3 [& C9 B) k# j
  22. selectionMask_array,  selectedObject,  cursor)+ \9 X3 @9 d6 Q# K9 @0 M/ S
  23. If  response  =  Selection.Response.Cancel  Or  response  _+ F0 T7 k: z* ?3 ]6 q# H
  24. =  Selection.Response.Back  Then( F, E0 N. ^# r
  25. Return  Nothing3 \$ w6 |6 Q( H
  26. End  If
    5 B* @7 B2 o3 n/ {
  27. End  Function( v# Z' P( r& k
复制代码

$ t# H9 O  Q; _, @  ^( v6 K) L2 p; b/ g4 a! c  \* v+ `5 v; ?$ A2 d

' Q% M1 ^3 `1 l7 c* Q' a
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

320

主题

226

回帖

9784

积分

管理员

PLM之家NX|TC专家

积分
9784
 楼主| 发表于 2013-12-2 20:33:57 | 显示全部楼层
1 s- k8 p9 Z4 S* o% F' n5 v. A1 [" U0 p- U PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能, ^, [& {8 i% {+ a. P$ V# ^ ' [2 M* r2 T! a5 w6 v [flash] ) R' e' L; T8 R: Y1 l- o& g [/flash]
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

0

主题

64

回帖

358

积分

中级会员

积分
358
发表于 2013-12-7 22:41:11 | 显示全部楼层
赠人玫瑰,手有余香
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

7

回帖

18

积分

新手上路

积分
18
发表于 2013-12-23 00:41:30 | 显示全部楼层
一定要看看
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

30

回帖

72

积分

注册会员

积分
72
发表于 2014-1-5 16:33:09 | 显示全部楼层
谢谢螺柱分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

18

回帖

56

积分

注册会员

积分
56
发表于 2014-1-12 01:05:45 | 显示全部楼层
之持支持~~~來挖寶
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

0

主题

28

回帖

93

积分

注册会员

积分
93
发表于 2014-1-12 09:02:25 | 显示全部楼层
$ |) H- R: h' J; k% R; Q
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

2

主题

204

回帖

2322

积分

PLM之家NX VIP

积分
2322
发表于 2014-1-18 12:43:57 | 显示全部楼层
楼主辛苦了,谢谢分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

1

主题

15

回帖

82

积分

注册会员

积分
82
发表于 2014-1-19 08:44:16 | 显示全部楼层
谢谢高手的分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.doteam.tech
回复 支持 反对

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 注册

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

    本网站(plmhome.com)为PLM之家工业软件学习官网站

    展示的视频材料全部免费,需要高清和特殊技术支持请联系 QQ: 939801026

    PLM之家NX CAM二次开发专题模块培训报名开始啦

    我知道了