PLM之家精品课程培训

PLM之家精品课程培训

联系电话:18301858168   |   QQ咨询:939801026
NX二次开发培训

NX二次开发培训

UFUN/NXOpen C++和实战案例

适合初级入门或想深入了解二次开发的工程师,本培训结合ufun,NXOpen C++,大量的实例及官方内部的开发技术。
公众号二维码

关注公众号

点击扫描二维码免费在线高清教程

课程详情
Catia二次开发培训

Catia二次开发培训

市场需求大,掌握核心技术前景广阔

Catia二次开发的市场需求大,人才稀缺。掌握开发技能潜力巨大,随着经验积累将在汽车、航空等领域有所作为。
B站二维码

在线原创B站视频

点击关注工业软件传道士主页

课程详情
Teamcenter培训

Teamcenter培训

全方位培训,从基础应用到高级开发全覆盖

涵盖用户应用基础培训、管理员基础培训、管理员高级培训及二次开发培训等全方位内容,由多年经验讲师打造。
QQ群二维码

加入同行交流

点击扫描二维码加入QQ群

课程详情
×

PLM之家plmhome公众号

课程涵盖: PLM之家所有原创视频

×

关注B站视频

所有高清视频一览无余,全部在线播放学习

×

加入PLM之家QQ群

同行交流,疑问解答,更多互助

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

[求助] 移动复制体,如何把要复制的体加代码里去

[复制链接]

2015-10-18 19:21:26 2483 0

lzhyi 发表于 2015-10-18 19:21:26 |阅读模式

lzhyi 楼主

2015-10-18 19:21:26

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

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

x
        'NXOPEN创建方块体的方法
4 q# p0 i# {# V, ^8 _        Dim block1 As Features.BlockFeatureBuilder
; Q: |: l4 H3 ]% ~  |        Dim point1 As Double = 6% L$ y) k$ y) }' `& X9 {! Q: b
        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing): c4 U4 d* h6 ~7 i
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6"). d; J: g9 t# K# x4 P, z) n! q
        Dim feature1 As Features.Feature
" _& z' F: G; Q- F; b% a        feature1 = block1.CommitFeature()
' C& z3 Y$ m4 X; Q+ m) d5 t) r. J7 i# T3 Y( ]

$ J3 _( ^& J. @/ ~        '以下是移动体
- N8 ?5 u. Z' n3 a( w8 I  E        Dim block2 As Features.MoveObjectBuilder
4 h2 x- E' |& e0 Z) k* w        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)  F3 V/ N3 ^5 d
9 ?) A( S' W( ]. z- q0 L
        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
1 ~$ k7 O: K1 P( W% }        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离
4 o3 ]  j0 [  r4 C# ^4 S        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal7 W8 f. o) I6 b; I8 g4 u

% X' v; @5 |: p& j  e0 |        block2.ObjectToMoveObject = Add(block1)  '要移动的体
& w  ~7 t. r4 W6 a& w$ T9 g( v7 Z* ]1 T2 J6 H! W! j
        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
8 l5 r8 T( ?) B1 H2 }) k        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)$ ~7 b! e  D+ j2 }0 A
        Dim direction1 As Direction
% _$ Q/ {' d8 l' J4 }- ^/ H; p9 N) n        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
- T: }1 P# o3 t" U6 `- |        block2.TransformMotion.DistanceVector = direction1  '移动方向
! I$ d7 y+ m- n; ]
4 J) _7 b: W5 `# ~! x3 {2 f        block2.NumberOfCopies = "3"   '移动数量0 i7 H: }4 y" C5 i* {

! F6 S! Q7 o. w. M        Dim nXObject1 As NXObject
; V& j2 [* G5 r0 t7 e. E        nXObject1 = block2.Commit()
1 C' ?  I* v& P, ~
1 w% C+ B9 J' ]5 c! B上面红色那段代码怎么改写。请指教。(这是用JA录制的VB代码)# V$ T" N7 E) \6 T; k+ d" B* V

1 @( c2 D( d6 f; q- s1 ~
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了