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

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

  [复制链接]

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

mildcat 发表于 2013-12-2 20:33:45 |阅读模式

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能2 m" Z; ^4 {/ \+ v' w* E4 R. i* I
内容:, g  i7 S, ~; }5 E  ^  f
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改5 T; J1 _4 N; S$ W4 V/ o  c# l4 t3 A
目的:9 _# X/ _; H- |. v
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
# _7 X) q: M: E
6 ~& y, ~7 g, c

20 完善JA的选择功能

20 完善JA的选择功能
# f0 P  G# t0 z
+ }5 v0 _6 H9 j+ c0 N
高清教程见楼下:/ `0 u3 S% d! R$ r3 e
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
    5 M0 t. Z" A  s! b2 G: T) N$ g  x, d
  2. Dim  ui  As  UI  =  ui.GetUI# f8 q. h; v" p0 L  B5 O
  3. Dim  message  As  String  =  "Select  face"- c$ Y; q. {, g- Q2 U8 a' D" ?
  4. Dim  title  As  String  =  "Selection"- ?- j, v, q! R( L
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _% K3 i' A1 E/ E1 A/ h' q
  6. SelectionScope.WorkPart/ Y9 Q; L6 g" h; l! H  y  B
  7. Dim  keepHighlighted  As  Boolean  =  True
    ) G, t7 G9 i7 N" E& }0 o
  8. Dim  includeFeatures  As  Boolean  =  True# p2 D" y# o# X; w/ N1 r6 h0 B
  9. Dim  response  As  Selection.Response- m! Q6 b4 W4 J  r6 k( r" V
  10. Dim  selectionAction  As  Selection.SelectionAction  = 0 J# W* l# @4 L: k* W# z( K  R/ O
  11. Selection.SelectionAction.ClearAndEnableSpecific
    . p. O/ C: `9 w+ a4 c$ s: [& O
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple+ S/ d: x0 A( @' `
  13. With  selectionMask_array(0); S% e9 e9 ]/ [
  14. .Type  =  UFConstants.UF_face_type
    4 ?2 o8 L( O2 c/ M; M
  15. .Subtype  =  0
    ) T/ ~" _7 V( ?& B* h
  16. .SolidBodySubtype  =  0
    6 K' M$ V) S, v' h7 V
  17. End  With$ ~% O6 A! L) K! Q- I: w
  18. Dim  cursor  As  Point3d
    ( Y+ t# q- n0 V2 z
  19. response  =  ui.SelectionManager.SelectObject(message,  _# B8 s3 p7 m% w- ]5 x# e+ J9 u8 q) I
  20. title,  scope,  selectionAction,  _* A8 r  _$ H/ _/ [- t( R1 x8 M7 C
  21. includeFeatures,  keepHighlighted,  _
    ) ]4 ?3 E8 T# T( e* W4 _! s
  22. selectionMask_array,  selectedObject,  cursor)
    - y4 C* ]* U2 c8 y* _+ H4 f& p4 v
  23. If  response  =  Selection.Response.Cancel  Or  response  _
    ) t. Q& |1 j, R* a
  24. =  Selection.Response.Back  Then
    , m" V5 g( ^7 m. z1 H  n3 H! f, g
  25. Return  Nothing
    4 N9 L' a* O* w( d  @( C
  26. End  If
    + |$ v6 D' R" r
  27. End  Function; s! ?# m. X/ n) {9 G- w' v0 u* G& D
复制代码

2 l/ c, ?) K; @. H& d, q. c& @5 d+ n' P

  m) E+ ^  n, r* J* y& g, H1 r
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

mildcat 发表于 2013-12-2 20:33:57

mildcat 沙发

2013-12-2 20:33:57

# Z7 H: W+ M3 m ) u7 J/ f2 t5 } PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 & {1 H7 @* `7 v 7 U) | b% b2 R8 s/ h8 H" _1 n; ~[flash] , l/ e7 l/ m' l6 L& ]1 G# C( w! ~. V/ { [/flash]
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

东沟恋君 发表于 2013-12-7 22:41:11

东沟恋君 板凳

2013-12-7 22:41:11

赠人玫瑰,手有余香
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

江东 发表于 2013-12-23 00:41:30

江东 地板

2013-12-23 00:41:30

一定要看看
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

逐日 发表于 2014-1-5 16:33:09

逐日 6#

2014-1-5 16:33:09

谢谢螺柱分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

student 发表于 2014-1-12 01:05:45

student 7#

2014-1-12 01:05:45

之持支持~~~來挖寶
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

ONE 发表于 2014-1-12 09:02:25

ONE 8#

2014-1-12 09:02:25

7 {3 G. y3 q1 N2 [  Y; _* ]' W% f
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

C_X_J 发表于 2014-1-18 12:43:57

C_X_J 9#

2014-1-18 12:43:57

楼主辛苦了,谢谢分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

不是哥干的 发表于 2014-1-19 08:44:16

不是哥干的 10#

2014-1-19 08:44:16

谢谢高手的分享
上海点团信息科技有限公司,承接UG NX,CATIA,CREO,Solidworks 等CAx软件,Teamcenter,3D Experience等PLM软件,工业4.0数字化软件的实施\二次开发\培训相关业务,详情QQ 939801026 Tel 18301858168 网址 www.diantuankj.com/ doTeam.tech
回复 支持 反对

使用道具 举报

发表回复

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

返回列表 本版积分规则

  • 发布新帖

  • 在线客服

  • 微信

  • 客户端

  • 返回顶部

  • x
    温馨提示

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

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

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

    我知道了