|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法9 k8 |4 h; k" j/ Q$ u! X
Dim block1 As Features.BlockFeatureBuilder
% j! ?% N5 _" F3 X& t8 D+ B+ U/ f Dim point1 As Double = 6
6 {* |. F* H2 U' C1 \* G* l/ F block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
" P6 ?) {7 Q( n" m( m' A block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")2 q& o& t8 T- e4 v* v
Dim feature1 As Features.Feature
0 _. R4 b1 n+ w2 ?% s feature1 = block1.CommitFeature() q: z; b% g- ]7 [( ~/ a ~
8 {" G) n- e2 S3 ~) b, p
, e1 p6 G" o" J5 I Z '以下是移动体8 z# F# j6 @. h
Dim block2 As Features.MoveObjectBuilder2 T# J) a) l L! ^' [& A$ X
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
- L/ H2 B: M" ]7 W( m
0 x1 g* b8 O8 m/ p& p block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance) p4 I" E, w9 f( x0 D, o/ j
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离, C# z" E5 `3 ^9 w* Q: p0 Q. W7 S- Y1 d. I
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal2 G7 p* F4 n, W/ {+ r% z( E8 B. p
. c7 w; [/ B$ A& D
block2.ObjectToMoveObject = Add(block1) '要移动的体
4 |2 w, M! @" s8 g8 f w. c* l8 d' K( L) C
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)8 E# ?$ y/ B4 @1 d
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)/ P- M' r# d9 K6 z/ X: C8 C
Dim direction1 As Direction8 Y1 p/ I$ ?% g
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)/ U2 o6 U4 M. q) u( D# m( F! N
block2.TransformMotion.DistanceVector = direction1 '移动方向
' X) m1 Z0 F; t. z/ \2 }0 D. ]1 @5 Y
block2.NumberOfCopies = "3" '移动数量
/ N/ P# k) |# J4 d% R$ i0 F( Z
7 L& \) Q! N2 [- Q. L K1 i0 x Dim nXObject1 As NXObject% x# k" T2 |" E2 S2 ^
nXObject1 = block2.Commit()
D: ?; \5 X% E& X! v5 B: o0 s) R& _
; O: ]" e: x* ^$ f5 D上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
' j( j7 y% F5 P) C- y; v* q- V" r5 i
|
|
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
