|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法' s0 e3 x6 }3 f4 k4 A
Dim block1 As Features.BlockFeatureBuilder
, f0 X! o$ |- |8 P$ f Dim point1 As Double = 6
4 N1 t" d; f1 d- j+ O# T block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)# x1 i0 R# k8 X o- P4 s0 k
block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")- x. r1 d" f6 ^5 S7 U& _# h
Dim feature1 As Features.Feature
, l9 r) [ q1 _5 @3 ]6 X feature1 = block1.CommitFeature()
/ D9 q0 k& z9 G
2 j2 ~# J5 R+ N2 x# Z$ D5 p) [/ Y
'以下是移动体: y1 X; }( T7 W* z9 d9 V; d$ o0 h
Dim block2 As Features.MoveObjectBuilder
6 M' b* S: l1 z' f3 ?% o* a8 ` block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
! v S% U5 y% o/ ^# h/ U1 z" M1 I( j6 `9 C2 x
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance+ }' X ?7 `5 F4 l' P4 x
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离
- j. J- H; j; [1 k$ b3 l' a4 B block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal, n3 }/ _4 P% M
9 ]5 H7 N; `$ l* y1 x0 D block2.ObjectToMoveObject = Add(block1) '要移动的体& d- f% C0 A, U& Z# E
4 G2 p! O% R* U4 G
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
9 p; [6 Q2 @' E2 O# b( ~ Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
9 d; M; {% S( Q W$ y4 P# x Dim direction1 As Direction
* z% r7 ^$ [! p* b7 @ direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)7 D$ @- H0 P" u* `+ S
block2.TransformMotion.DistanceVector = direction1 '移动方向2 K2 P: l; t: X/ ~9 V P# B
O9 z/ X5 c$ D: T' p# i* f9 Y3 j2 t block2.NumberOfCopies = "3" '移动数量
& E. |/ }( p: h! T( {/ j% [3 w( v! z" t" }9 R9 S
Dim nXObject1 As NXObject3 X9 O% E3 C* L5 X9 G& S/ }
nXObject1 = block2.Commit(): A* E* E. o* g4 A' v( R, H+ D
7 y7 N4 o# K" ^5 K
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）- q n6 ?' B/ k1 h, g! } j
# S, D% ` y, j% ^, \# A
|
|
|小黑屋|PLM之家-专注工业软件生态建设，大模型CAD创新生态
( 沪ICP备2026005248号-1 )
发表于 2015-10-18 19:21:26
