PLM之家PLMHome-工业软件与AI结合践行者

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

  [复制链接]

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

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

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能* {' D! R1 a" T& D0 @" R
内容:
8 B/ w' ^+ l6 F( `* e默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改
* B! W+ I3 e/ n; H9 Y# S, F目的:! A+ K( O4 T. Y5 @5 J! G
使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。5 z3 |6 }  {" o- r! k' t
) I8 S2 j% z4 B/ ~. v

20 完善JA的选择功能

20 完善JA的选择功能
) _6 O, a1 o; U7 i

! L) S3 N6 j7 j. u1 Y. f& t高清教程见楼下:% t) c6 S. {9 q$ t3 Z
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject% H4 F; f+ A: L) ?1 q
  2. Dim  ui  As  UI  =  ui.GetUI* p; L' q$ o, E: J. M. _, w
  3. Dim  message  As  String  =  "Select  face"6 r9 K# v  P% A6 F" l' z4 B) u5 ^
  4. Dim  title  As  String  =  "Selection"
    ! U' i( B/ ^: N6 ]
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _0 X6 M8 t( o9 }+ F
  6. SelectionScope.WorkPart
    : }8 l7 [) r' r0 I- e9 T$ q4 a
  7. Dim  keepHighlighted  As  Boolean  =  True9 \" R. C3 `( q; ]! b
  8. Dim  includeFeatures  As  Boolean  =  True( Z. k- H  G+ w. @4 M4 x" U
  9. Dim  response  As  Selection.Response4 c6 U/ [* I8 w7 L
  10. Dim  selectionAction  As  Selection.SelectionAction  = / E' v$ I0 \/ q! z* L: Y8 A, f
  11. Selection.SelectionAction.ClearAndEnableSpecific' k) x) f4 j5 u( ?# Z2 w0 j' W4 d
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    & i1 o+ x2 T3 n( \7 T) ^
  13. With  selectionMask_array(0)
    0 h& F  o" U) N) {
  14. .Type  =  UFConstants.UF_face_type0 x) C9 W6 ^# a* F# c/ H, Q
  15. .Subtype  =  0
      P  w% j$ o0 [4 }  G" f
  16. .SolidBodySubtype  =  0
    " V6 H# [: E! H7 k1 @
  17. End  With
    ! S, m6 I# ^0 L
  18. Dim  cursor  As  Point3d
    ! f1 M: I1 q3 W" |- y
  19. response  =  ui.SelectionManager.SelectObject(message,  _
    - P6 Z$ c) I" A# H8 j$ }* ]6 A
  20. title,  scope,  selectionAction,  _! _: m5 t& y& D8 _
  21. includeFeatures,  keepHighlighted,  _
    , Y( |, N" O* \% t. J! d
  22. selectionMask_array,  selectedObject,  cursor)
    / S5 J0 y# V+ v9 P5 V% l* m! T
  23. If  response  =  Selection.Response.Cancel  Or  response  _- e+ G! C, \1 n7 @6 i2 j! M
  24. =  Selection.Response.Back  Then3 j* I6 r& f/ w1 u& v8 R$ N2 W
  25. Return  Nothing& k% b, d" d9 g9 p( M$ P
  26. End  If
    ) o! |* O( l9 s5 Z2 `
  27. End  Function
    ! b) O- N/ v) g2 T, J
复制代码
5 q, \* A6 M' d! {% a2 o) U3 X
  `- G  F9 l8 ~) R2 y) `6 m

  q) |# V" G: V2 Z. g* @- E
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

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

mildcat 沙发

2013-12-2 20:33:57

# k( Y) u6 ^6 o- X: h) u9 J - W, Y+ y2 Z! _' ?, U' @% g PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 : L9 F6 T- f* s$ [2 w" z' ~( r6 G2 H [flash] 3 c+ j* h) `3 D# t [/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

, I5 u5 q% L6 W2 q+ f% J
楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了