|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法
- Z9 J6 n! t m/ c' Q% K Dim block1 As Features.BlockFeatureBuilder
0 q. ~, [; ?. m# d8 Y; _ Dim point1 As Double = 6& H8 K+ S3 ]9 s. H" w
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing). V+ p, l" t; b& T3 L0 _
block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")$ y9 ^1 M i5 F2 c2 g
Dim feature1 As Features.Feature
* q) N- U1 v5 k, h' p6 v, J S feature1 = block1.CommitFeature()9 V6 i: F, ]' a6 O5 E7 v M8 u
$ y2 l! ~& q# N9 R/ G
* r( P. y1 l. P) T& f/ v* P '以下是移动体" j' l6 J, x, R* q) f k
Dim block2 As Features.MoveObjectBuilder
8 f. \7 z( n' d6 h# P: a block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)4 _( n8 }* _7 `, z% v* q
/ ]/ y/ B0 X$ l( Q block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
0 T, C+ m# g6 s, v block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离
/ C/ e2 l* \ z K block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal! t8 r) ~ n# w3 W4 C! A* @6 P/ V
l* B* i5 B4 @: J& d
block2.ObjectToMoveObject = Add(block1) '要移动的体2 H$ }& \, I4 q6 @+ J) L( w- U
2 d. Z9 T9 G, b4 _7 c+ r
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)2 E* r3 r) P) u$ z; x0 I' ]; D5 ^
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
, d% u S+ X# u# ~" u: b Dim direction1 As Direction" T) R( q4 h- V8 T4 j
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)% J, X+ ?. U6 z& q& M& }. C% K
block2.TransformMotion.DistanceVector = direction1 '移动方向3 ^, o) T" i. l& j* ^
, d) \( x! n' z7 S* W6 w block2.NumberOfCopies = "3" '移动数量1 Z& v' z1 K! c( I, ?# v
Y& l! R; l3 y& X Dim nXObject1 As NXObject! |) @4 _- n- _: e! K1 w
nXObject1 = block2.Commit()" b3 P* k+ ?1 u# ~2 t& l
. B! [* n( M9 R1 i2 y$ _) K上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）/ Y7 }9 H' w R( S& U* D
5 b, J& {4 v! U: e( ^1 w |
|
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
