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 2484 0

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

lzhyi 楼主

2015-10-18 19:21:26

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

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

x
        'NXOPEN创建方块体的方法6 b5 Q' y/ n" m* [3 R" Q
        Dim block1 As Features.BlockFeatureBuilder5 r4 Q5 y4 t3 {
        Dim point1 As Double = 6
: d0 }4 i: o5 k" g0 K, [        block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)4 y" h1 N2 P; b0 Q7 j, G1 U
        block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")" y0 T4 r- D1 ~. ~% Z* V
        Dim feature1 As Features.Feature* d9 D$ K. o  a3 ?
        feature1 = block1.CommitFeature()1 B4 B2 g" R; M8 t+ ]) T

7 I3 k- M7 c. i# O# N, n  e5 c  V- F: s0 S) ]3 n, |
        '以下是移动体7 Z- A+ \) `7 Y" k0 Y
        Dim block2 As Features.MoveObjectBuilder
& ^4 h/ d- C0 q1 c6 `) i/ R; e) j        block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
: G% N( P' H1 W7 P* }+ p
& B: Q0 U: B$ P1 J1 u8 a4 B. s% T        block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
, ]# L+ W4 ]1 }+ h1 B        block2.TransformMotion.DistanceValue.RightHandSide = "50"   '移动距离  {2 A  _6 _' \
        block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal( B: u& f: v! y# V) O9 |

7 p4 n' o+ J3 l7 E+ {( G        block2.ObjectToMoveObject = Add(block1)  '要移动的体( E' m: K: F% ]
4 `- Q9 V  G3 ?  `- O- Q1 I/ u; ?% n
        Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)3 q2 p+ T. x5 H) y
        Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
7 O2 n8 V+ R+ {3 E        Dim direction1 As Direction" ]2 g* Q; l$ ^1 j) H& N
        direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
/ T8 ?9 b6 F; m2 m$ [8 B) [- f        block2.TransformMotion.DistanceVector = direction1  '移动方向
; R4 o( q0 t* l( [
/ `; H& O5 r& ^/ p& W1 C, C+ D        block2.NumberOfCopies = "3"   '移动数量3 C+ V( z, o* \

& I$ s9 ~" Y5 B        Dim nXObject1 As NXObject" |0 m3 h+ j. I5 y! C
        nXObject1 = block2.Commit(); `+ J0 @3 J. @6 ?1 B8 s

" o  P% c- z% \上面红色那段代码怎么改写。请指教。(这是用JA录制的VB代码)
$ ~) L" a% }( O9 P+ @" d7 {1 h
1 B; n2 r# G, M# N
上海点团信息科技有限公司,承接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二次开发专题模块培训报名开始啦

    我知道了