|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
×
'NXOPEN创建方块体的方法
* @7 W; C2 \1 c7 V$ T" z3 o Dim block1 As Features.BlockFeatureBuilder
" Q- B. w8 o% P5 V2 F5 B Dim point1 As Double = 6* x" P# l% ^) F
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
& Z7 ~# Q& b) B D; O block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")8 {+ G- A: z" X: }, f( G. y
Dim feature1 As Features.Feature
$ p2 d" z: I9 I' @1 i feature1 = block1.CommitFeature(). @- h Q- L, S5 H$ a" D
& G3 Z5 v5 p! i! y f4 j( N' x/ R! P& n
1 c4 }2 O+ _( T3 G/ X( F '以下是移动体
/ h# v5 D" T) L8 x9 M6 M Dim block2 As Features.MoveObjectBuilder% n8 n" m! Q0 o/ i
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
+ c6 g& e% j; W# H+ E
9 Q* h7 V! o; Q2 M1 |* F" r block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance- G+ ^( p Y6 Q! l
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离# s9 v/ q. M! }$ E9 n G
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal6 W$ A+ ]; N: ^9 z$ ^' j" k
8 m8 G. g& O! O. j: w
block2.ObjectToMoveObject = Add(block1) '要移动的体
& d f) {8 Y! U, b2 }& `5 V
1 D. R. N+ a$ l; M `2 B Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)8 ? _+ y j# d$ F: I& N7 A4 w
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)" ]# {: N8 f+ i7 [
Dim direction1 As Direction( B( H( H. }# Q1 m! S
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling); g& h- Y4 D- d {% X. n% _
block2.TransformMotion.DistanceVector = direction1 '移动方向9 n6 I4 j* ^$ h& x: x6 V
: d8 j1 }- m, x8 p( x; Q/ l block2.NumberOfCopies = "3" '移动数量- m/ u7 H/ A6 g, b$ A8 U; U9 J" O
+ D* k @) ?1 d; S. q Dim nXObject1 As NXObject
! y- A3 ?. m! }8 V5 j6 y nXObject1 = block2.Commit()( |0 P( e% k0 p
2 @3 K9 b' T0 ?6 _& G上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
8 K" X. x$ z7 M! P% {' ~0 U
* f% a9 b, i) w: Q/ B |
|
发表于 2015-10-18 19:21:26
