PLM之家PLMHome-国产软件践行者

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

  [复制链接]

2014-1-19 08:44:16 36348 129

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

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能* ^  s# u) E. N$ _
内容:) ^# |- {) z& w. S5 i7 s
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改
7 [/ P4 E- `, |目的:5 R" |0 v1 {; r' z1 S1 J; W4 {- h
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。4 E6 U( |; V7 V; h6 w

! \$ Z0 }! Z/ i  }! J

20 完善JA的选择功能

20 完善JA的选择功能
' r! @: v# d8 T

+ I. A/ ?6 B0 C! m4 j) _# \高清教程见楼下:$ N& {9 d& D* L4 H1 a
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject
    & b, i+ {0 j- J! o4 z0 A
  2. Dim  ui  As  UI  =  ui.GetUI9 m/ T( c) k: V7 e  W0 c
  3. Dim  message  As  String  =  "Select  face"
    " X7 u) Z( S  [1 t8 C' c/ h
  4. Dim  title  As  String  =  "Selection"
    6 j% \# V  x; J+ E1 O
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _2 k/ M9 ?1 b7 }( C3 ?: }8 R8 G
  6. SelectionScope.WorkPart: u/ w  D; f/ u$ K. X: l  a; x, B$ s
  7. Dim  keepHighlighted  As  Boolean  =  True
    ) L6 L9 S( s) `2 [2 F, F" l
  8. Dim  includeFeatures  As  Boolean  =  True
    ; z, c2 L9 l* U( E: [4 m7 K
  9. Dim  response  As  Selection.Response1 l+ U5 x- W7 V( h$ m
  10. Dim  selectionAction  As  Selection.SelectionAction  = . I1 H! I& }3 P6 T
  11. Selection.SelectionAction.ClearAndEnableSpecific
    ) ~+ J! T6 V2 n  E
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    0 d) N  f2 z1 A% V! n' {
  13. With  selectionMask_array(0)
    : A& t# O/ ]- a# O7 W' T2 \
  14. .Type  =  UFConstants.UF_face_type
    4 s" v! I  z- L
  15. .Subtype  =  06 O/ N4 e) f) @& ?" v3 z% t
  16. .SolidBodySubtype  =  03 |6 F9 x3 ^0 ?5 c/ |
  17. End  With
    : F5 k* R2 x4 i8 [
  18. Dim  cursor  As  Point3d1 z5 ~7 [3 ^( I7 h7 j* R1 N" }
  19. response  =  ui.SelectionManager.SelectObject(message,  _5 m: o  W* A4 Q6 e5 ^; H
  20. title,  scope,  selectionAction,  _' f. R/ R9 \- e( M
  21. includeFeatures,  keepHighlighted,  _
    ) E5 \7 E8 O3 y" p: N% P- P
  22. selectionMask_array,  selectedObject,  cursor)7 c, l! G! p: V2 W$ y9 E, r1 g" |
  23. If  response  =  Selection.Response.Cancel  Or  response  _
    + ?' J3 B( _" }9 U; r; B6 b6 A6 X/ t9 h
  24. =  Selection.Response.Back  Then9 d% g7 R" C/ f( `2 n
  25. Return  Nothing
    8 U  \+ W( y3 K& }* x
  26. End  If+ Q( w6 I: h" R' o% \2 |4 G. b7 H& ~
  27. End  Function
    & b  k' Z! Y3 T7 C8 B+ U1 q2 I
复制代码

  C& ^: U+ n  a+ R9 u" v( A. W1 }0 `2 f
$ h5 p- d' x- q# m! X/ \: ?8 f: B) m$ k9 Y
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

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

mildcat 沙发

2013-12-2 20:33:57

0 z$ k6 R2 d* J' G( b5 Q7 |4 \5 t4 Y2 n# } PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 + |7 K6 x3 l# z$ I9 G: U% r9 k+ r! r- s3 T [flash] ) {* e+ _! S1 }1 X [/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


2 ^& z5 K( i' X, U) R4 ?楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了