|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
×
'NXOPEN创建方块体的方法
( Y0 s: k& G+ T) N" T2 r Dim block1 As Features.BlockFeatureBuilder
; N* d; }+ @0 _& E! D Dim point1 As Double = 6
( ?; z) z8 u) d, w2 G- z6 g0 G0 [2 } block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)$ ]/ @2 O- o- [ u4 i
block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
0 J+ z0 S7 L& `* H0 g, l# s# K Dim feature1 As Features.Feature- e6 v2 D3 l. C
feature1 = block1.CommitFeature()4 S1 A: L- i$ R( b! R2 M
2 u( Q& B7 y( L, m
t4 {0 `/ Q' \, W0 O2 A2 O '以下是移动体+ w; v% @5 X" w; N9 s+ W8 T" k9 X. i
Dim block2 As Features.MoveObjectBuilder
, t% l" C0 U' Q' q block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)) p0 Q2 H6 E+ ~$ q7 Q
6 t: G2 a$ B5 g" [" V: k
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance, U; u1 j$ s% f) }$ k7 ^
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离7 `0 p8 w/ M/ f1 f8 c- f( {+ l
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
9 B8 ^/ q9 |# u3 P C. u, a2 b' U% }& p$ C) ?4 T5 X' |# T( H
block2.ObjectToMoveObject = Add(block1) '要移动的体
$ ?/ h# W* E5 I& z2 l3 K, @8 G1 q* f. k0 H% o5 U
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
& \' C2 X- P7 ]- h7 `% F, K S8 V# d$ i Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)$ e, w4 G3 f1 k7 w w! M
Dim direction1 As Direction
% n+ V" R+ f9 y: t% Q direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
7 [" m1 Y [/ W1 I: J- } block2.TransformMotion.DistanceVector = direction1 '移动方向. ~3 e0 E. x) G' q9 _
A$ T: o* f5 \0 u' E block2.NumberOfCopies = "3" '移动数量" i) y1 K' l4 M. S v1 @
% N0 v! W1 c; h- W5 `+ ~; R8 N
Dim nXObject1 As NXObject
' W6 ?5 M0 ~, v0 ^. [ nXObject1 = block2.Commit()
/ r k+ ^1 o2 V3 K5 W2 d, i, g: S3 _% R5 J9 ~5 v
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）3 D; T3 l1 A1 G& u- j
6 k0 M) K& N+ \+ z @- t |
|
发表于 2015-10-18 19:21:26
