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

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

  [复制链接]

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

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

mildcat 楼主

2013-12-2 20:33:45

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

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

x
PLM之家-NX9.0 二次开发实例视频-20 完善JA的选择功能7 L, C* r2 E. Z: ?1 z
内容:) U" H$ b) \+ p7 P
默认录制的JA文件,在选择对象的时候,通过内部的标识去选取,如果改变其他的对象的时候,很可能程序执行失败,这个时候需要手动的进行代码的修改
6 H3 Y8 n  a  j; k5 G目的:
/ k6 t* z9 p& p' k8 l: {使用添加选择功能,让用户交互式的进行选取对象,避免这种录制产生的缺陷。
+ `2 @# M6 w& D+ n3 P0 t5 |! ]7 Z" n0 O/ ?# f9 Y* Y9 D1 I

20 完善JA的选择功能

20 完善JA的选择功能
+ N8 c7 o$ G/ u! c0 @! R( t( O

0 @! e* L3 M/ |1 a0 F高清教程见楼下:/ K& v  M3 b; I+ l9 A, D
  1. Public  Function  Selectface(ByRef  selectedObject)  As  NXObject6 S; P+ V$ t/ s$ r- z6 w
  2. Dim  ui  As  UI  =  ui.GetUI
    1 j$ M- r- o4 K
  3. Dim  message  As  String  =  "Select  face"3 E! C3 s  I$ z. \/ [& s5 q
  4. Dim  title  As  String  =  "Selection"
    : h9 ^' V# u( A6 [- X/ t4 P
  5. Dim  scope  As  Selection.SelectionScope    =  Selection.  _
    8 p( e* q( @( `' U% O3 z5 C
  6. SelectionScope.WorkPart, ~( \; H+ s7 X# s( Z
  7. Dim  keepHighlighted  As  Boolean  =  True4 G! B% {9 P) R; ]0 I  S! a) s
  8. Dim  includeFeatures  As  Boolean  =  True
    ' n- Q3 u+ X! H6 m/ s$ L) B: s9 ~
  9. Dim  response  As  Selection.Response
    ) r7 ~: Q5 `6 r9 z+ j
  10. Dim  selectionAction  As  Selection.SelectionAction  =
    , E( K, r$ j& X/ i. ], k1 X2 ]* U
  11. Selection.SelectionAction.ClearAndEnableSpecific9 p3 R/ N) u. N7 R
  12. Dim  selectionMask_array(1)  As  Selection.MaskTriple
    5 D/ i" O% d# q+ \* w3 J
  13. With  selectionMask_array(0)
    ( D& p- a; o/ d/ W
  14. .Type  =  UFConstants.UF_face_type
    + I& y7 A; I+ z
  15. .Subtype  =  09 _# L7 k0 ]1 g! s
  16. .SolidBodySubtype  =  0. a7 B3 a( n9 t$ Q3 P% F6 S
  17. End  With
    7 @  |2 S1 {8 H* s" f. [  g$ H5 ~
  18. Dim  cursor  As  Point3d  x* f4 R& S1 d; H+ b
  19. response  =  ui.SelectionManager.SelectObject(message,  _) R* U- o- _( M# ]$ T9 [
  20. title,  scope,  selectionAction,  _
    - I' H5 e" R: ^2 ?3 j/ n2 f
  21. includeFeatures,  keepHighlighted,  _& N* q/ l. G" Y, j: k
  22. selectionMask_array,  selectedObject,  cursor)
    - d) K( w: R' J3 H
  23. If  response  =  Selection.Response.Cancel  Or  response  _4 b7 H# B& A& F9 p
  24. =  Selection.Response.Back  Then
    & {9 s! i! r" n. b! b, L& S- ]
  25. Return  Nothing% e1 ^; ]$ s# f( d) j
  26. End  If$ c# ]: D: c3 |0 w$ T
  27. End  Function
    " A/ j/ }2 K! f* p- \! Q: z
复制代码
6 j3 g- x( s1 B9 C4 p/ M: }* }# x& c4 x
% C5 H' _$ t! l% {9 T

/ Q" f' W. V0 a; u! T
该会员没有填写今日想说内容.
回复

使用道具 举报

全部回复125

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

mildcat 沙发

2013-12-2 20:33:57

/ h7 K) \3 h# {' n4 n$ {4 F- M2 G$ k% b' X, v* m& ^6 o: g PLM之家NX9.0二次开发视频教程 20 完善JA的选择功能 $ f7 A7 |0 v5 w6 l* B9 c8 j+ ~6 w- E2 _ [flash] 8 U" J, [/ q3 K [/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 }, h7 p+ E: x; }楼主辛苦啦.谢谢楼主
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了