|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法
8 R5 T0 g2 Y; T& u1 _2 O+ b8 N Dim block1 As Features.BlockFeatureBuilder) w% D$ D9 o$ M
Dim point1 As Double = 6
% i) a9 j/ m r7 Y7 v& z block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
5 n# U N9 @# D9 j% c3 m block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
/ b: a+ f6 j, K, t1 I6 [ Dim feature1 As Features.Feature! l- [4 A5 H$ u9 u6 ~, z3 }3 h) f
feature1 = block1.CommitFeature(); R" Q3 L1 a9 Q, n& K3 _
a8 }3 d& m; x8 U$ M) h9 z0 i# o3 R" {: ^% K& @& y- E& D1 w
'以下是移动体
" [8 u9 g' K0 s5 l, B* | Dim block2 As Features.MoveObjectBuilder
9 p6 F; X( g0 h9 \7 c block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)! m/ \# I# |/ b* `+ x6 ]; Q
) c( H. M! W$ C
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
; P6 Y9 }/ E, \6 I block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离
, ?4 v+ ]5 @( r# t3 s block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal% D( \: ~6 E. C4 t
7 R; U" ^6 P; I" ~3 o" v
block2.ObjectToMoveObject = Add(block1) '要移动的体6 u7 h9 F$ p5 \
! A+ h4 { ]1 C* a& z6 U* @ Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)/ U$ C2 m2 J3 u% q/ e4 H+ c; [
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)+ Q% A- `6 [( @+ ]6 m; v4 O
Dim direction1 As Direction- K9 y, O! u/ _- S
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)& ]' S" v% ]3 |$ ?& ^ H6 u
block2.TransformMotion.DistanceVector = direction1 '移动方向+ E+ c8 w. f4 q1 C' O
& j0 g. n& ~4 Q; h block2.NumberOfCopies = "3" '移动数量
& L$ o8 S6 {( `- ?' A. K! p* Y2 f3 p: P/ V* s) F7 |- C
Dim nXObject1 As NXObject' Q A& q* D5 y* j% n$ p; F- d
nXObject1 = block2.Commit()
8 I) m7 n) v$ }5 C* l9 N+ r. _& |% M* {) D* ^
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）, R- `- z$ b6 g: N
9 P8 G$ A- H. o8 T6 }; q8 }
|
|
|小黑屋|手机版|PLM之家-专注工业软件生态建设，大模型CAD创新生态
( 沪ICP备2026005248号 )
