|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法
/ D* e; Y* O! q K Dim block1 As Features.BlockFeatureBuilder5 w0 j# H; @* J' Y# X
Dim point1 As Double = 6* Y7 F/ ~; W P+ Q, Q% [8 B
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
9 t) B+ d1 E) ~( S3 u block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
+ m( x' Y+ P. W% H" V Dim feature1 As Features.Feature( D# n6 x; o; |/ q
feature1 = block1.CommitFeature()" e' k# J" B1 r7 T2 m+ D
0 a: t. }( K! `$ L
+ t/ K8 f9 u* e '以下是移动体7 h; Y1 J+ t$ f" J* ~& P8 L$ J
Dim block2 As Features.MoveObjectBuilder8 {' M$ W: b) ]3 m
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
3 T Y' s% X0 r- l0 L/ E6 N" `% Z: ]$ G" Z# S! D4 x
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
; z5 G/ }( z, K1 q. Y block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离
& p0 N/ k ]* k5 q0 b! H0 A% } block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal. ^; n/ Y) f3 U* S; ~. ~1 q
0 ^0 a3 a. Q% j+ F5 q+ T+ c block2.ObjectToMoveObject = Add(block1) '要移动的体5 [3 k6 g4 u2 l; T& B/ d
0 Z1 |' O/ f* A# k Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0): {5 {& j3 T) M0 O: U
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)! g& v; O- B. s: L- ?' @
Dim direction1 As Direction0 g- F/ `2 D4 f- i1 R
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
# i0 j% m4 Y+ a0 _ block2.TransformMotion.DistanceVector = direction1 '移动方向( {; v2 ` y+ e6 ^9 k1 Q
+ Y' F: d# V! `2 S! m( [$ G2 ` block2.NumberOfCopies = "3" '移动数量
0 B' d1 Q4 }; s0 O4 _, c
" B3 E9 w# P/ a3 P Dim nXObject1 As NXObject2 t T7 H2 d f$ O$ u
nXObject1 = block2.Commit()
2 ^7 C7 H# x$ @/ h+ y$ O) w: Z( Z3 Y9 m
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
, M' B5 L6 e- A, p: m( C0 ?& j1 z6 {) S4 J
|
|
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
