|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法& y" P2 f+ m* ^$ V3 W
Dim block1 As Features.BlockFeatureBuilder, H$ H; a: _5 k0 h* m& [9 _( m
Dim point1 As Double = 6" i* ]) z2 ]* O( T0 z
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
* }. W' `1 q* z$ s& e& E! v block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
2 i( c9 O, l3 e& `+ U* ] Dim feature1 As Features.Feature
+ {5 ?+ w3 u2 D# F: B/ h7 h feature1 = block1.CommitFeature()# Y$ L4 g+ _2 [$ \3 C4 }+ v) I
1 _0 h/ J+ \8 W2 D1 D7 ~; a
# d e' q) K! f( w% j '以下是移动体
% {" a1 A) j/ ^ Dim block2 As Features.MoveObjectBuilder
6 s0 q% u! S% R/ t5 K/ W1 Y; R block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)1 O# \. `9 H7 s* {6 i& m4 k3 A
! G8 h n1 T: |) C: d' [ block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance/ p( U8 E3 Y: G' K. C& ~$ K+ M
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离' a8 J/ \/ R, [7 k k
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal: _8 W4 J1 ?: O) Y4 K( I* f
9 f6 N' I- o4 z+ t! J
block2.ObjectToMoveObject = Add(block1) '要移动的体
6 r" M( ~6 ~9 k; s' x' _/ M1 i3 s5 B' F2 d: V; ^" f8 Z
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
8 \2 B* J, _9 i Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0). G" P* U" Y T' `9 v6 _2 x
Dim direction1 As Direction h, M& Q4 g: Y+ f1 f
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling), d( [! f4 n6 Z; ^ B
block2.TransformMotion.DistanceVector = direction1 '移动方向
! K' w% A" Y8 o+ z1 ]# x% R2 M0 Y
block2.NumberOfCopies = "3" '移动数量9 y0 v) Y" x3 N2 \' l$ c0 e% P- K
& @# _3 o& I. | Dim nXObject1 As NXObject
; h7 X1 S; Z! X i3 Q6 e nXObject1 = block2.Commit()
$ ?- k0 Y. }( ]1 Y! p9 l! J+ d0 n* C A( Y, Z Q
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
% I7 ~" a; I5 }7 V0 P' D
2 g5 X- @4 ~9 V6 l0 E |
|
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
