|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法1 d0 b1 P) x! Z1 ~9 Q
Dim block1 As Features.BlockFeatureBuilder
$ S8 e) i% r4 Q; @, P/ Y. G Dim point1 As Double = 6
8 O# |* R7 V/ B4 H b; A" @9 w block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
7 z! Z Q& I0 Y" m5 { M0 q block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
3 M! P/ y( y7 j$ f Dim feature1 As Features.Feature
$ l9 M7 p0 X" Y8 y3 l! q2 c( J4 N feature1 = block1.CommitFeature()7 N, r6 ^& f" ~; K, K; K3 H; d: z
; j" p( v/ A' N' T3 `
/ R* U0 y; ^" Y( K '以下是移动体
' Z+ h* p6 Q" |- D% } Dim block2 As Features.MoveObjectBuilder1 k! |7 p+ P) r) I ^" B" r _
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)0 X& D5 L* `& s( R- e- ^% G+ [
3 J, t; V- G L/ v1 ?$ s% h7 M# c& S block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance, l- B' f3 x4 {- f5 |
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离" @* H( Z6 [5 B% u( t
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
9 x, X6 o( y7 c. n) M q
9 b1 P6 ]: i% ?0 _, H# [8 Y block2.ObjectToMoveObject = Add(block1) '要移动的体
# H/ H" y3 ]0 d9 {4 q
) \+ c) g# r) ]$ T. a- u Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)5 @# ?- d( z# M6 l$ E8 Y
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)5 v1 u+ L8 `4 z7 c( ]
Dim direction1 As Direction' i2 A1 _9 c" Q
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling); b9 Q& H5 @1 a# D% T8 e7 X
block2.TransformMotion.DistanceVector = direction1 '移动方向: I0 U( q6 f4 ^' u* }2 m" S; G/ W) C
" K; T; B" p7 p- h3 P block2.NumberOfCopies = "3" '移动数量
4 I$ N$ I+ r4 M& Z$ k( |3 m' \
& |+ h% B$ ]2 `9 I/ E& D( N Dim nXObject1 As NXObject- z, Q& W9 q2 f" e) P) d
nXObject1 = block2.Commit()( b% F4 }8 d3 N/ m# n$ M# M) g
/ Q' H: k1 i$ X p上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
5 O1 E9 ?: d3 C8 c7 \- p# e/ Z" J
|
|
|小黑屋|手机版|PLM之家-专注工业软件生态建设，大模型CAD创新生态
( 沪ICP备2026005248号 )
