|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
×
'NXOPEN创建方块体的方法
7 Q( _4 K% r- \- K: K Dim block1 As Features.BlockFeatureBuilder
: [& y- Y4 v/ b( q Dim point1 As Double = 66 { J2 b/ G, n* m0 C
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
1 Q( ?% L4 p/ m' J, C block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
j9 m+ F; m; g# |, E3 R; o) ] Dim feature1 As Features.Feature
8 a6 x' ?9 {/ E7 H5 I8 X feature1 = block1.CommitFeature()0 u! d3 u' Y! p- Y2 t3 [+ f
5 H* n2 o) n% G/ {$ C- i6 c
: w; W; C, q3 Z4 y: Y+ [: ~ '以下是移动体6 ?2 s! b1 [; m( |9 ]6 p; L9 M
Dim block2 As Features.MoveObjectBuilder" G# A: n8 B% x/ g5 c/ b4 p5 o
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)6 I: L. {$ U3 d6 g# l0 t* l1 s; [
8 T' k3 J+ E' P: `2 M
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance5 N1 C2 k- A, _0 {: J! O2 }
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离7 r; K+ @8 A8 n, D7 s
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal6 ]6 D. e' t! j9 ~. D
- L+ i v5 n, ?2 m$ r7 }3 Y
block2.ObjectToMoveObject = Add(block1) '要移动的体) h* a' a* g* Q* C x4 p
) ^ v/ U4 X0 }1 P* h; d2 x2 Z Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)( Y9 i; {3 ~0 w; ]7 Q
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)6 c1 `( V: q5 C) m6 ?: ]! m8 ` r
Dim direction1 As Direction
2 r3 B5 u6 N! N5 Z2 K1 H6 d direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)* t o( x4 j9 W ?
block2.TransformMotion.DistanceVector = direction1 '移动方向
5 h0 S6 U& h; L- T! s( G( X4 ?' F5 j6 l
block2.NumberOfCopies = "3" '移动数量
: K5 f) h- M6 g8 j: t6 u+ T
1 h3 p6 q0 s$ @ Dim nXObject1 As NXObject
9 [/ `7 z, J8 t6 h# j% B& r1 ` nXObject1 = block2.Commit()
# I* M/ m( z' G5 e
' y( S C* U7 f" @2 |$ s) C上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
k) K0 g) r+ I" x6 ~
1 n+ U# ~/ @) K7 q& W7 C) d |
|
发表于 2015-10-18 19:21:26
