|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
×
'NXOPEN创建方块体的方法8 ^# g# w& N0 B! I! j( S
Dim block1 As Features.BlockFeatureBuilder
7 j: v) ^4 G% z Dim point1 As Double = 6
# U/ L8 Y: m( V' b+ W block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)1 B7 e' Y/ D- D/ _
block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")7 T J7 x" [; Y( W/ V
Dim feature1 As Features.Feature1 r1 p% z B$ r6 }& ~. a- |" W
feature1 = block1.CommitFeature()% [' K/ N/ S& a* B% ]$ |& M
: V" z- k. D$ ]0 y! E
: c# e. X- Z/ A8 X# F* F, a '以下是移动体; x6 h0 l' S$ H8 l6 K9 m
Dim block2 As Features.MoveObjectBuilder {3 |: P2 U' B- L" n; D) A* [ p$ ^
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)' l' G* `/ I& w/ B8 M* ]( I
4 {/ y3 k5 O0 g0 s# \' _. A5 f block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance# x4 d" V+ Z. _% P8 J) a% S
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离/ q. A+ _) r. c1 O3 l. Z( D
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
; {, T1 t" }& f" y$ k1 J
4 r; R* Q; m3 ~6 A: ^* B S/ Z block2.ObjectToMoveObject = Add(block1) '要移动的体4 H( P& W, @- z# l
! s. ^% ~- `2 _2 e. w Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
( h1 L4 M, j# k$ ?* c Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
& s' Y# d9 T x* U( o3 D1 |% X: s Dim direction1 As Direction& `7 P( W, @- ^
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)7 b- n2 v* T: B, u1 a
block2.TransformMotion.DistanceVector = direction1 '移动方向3 @5 l0 g4 R+ e0 w+ w
+ ?& o ^: j7 o' k5 ^, r0 w
block2.NumberOfCopies = "3" '移动数量% S/ }4 B" B( z* _ j- c* a
2 h" h1 E0 x+ ^' @
Dim nXObject1 As NXObject. d. w3 M4 B6 x
nXObject1 = block2.Commit()
b% m( t5 ]8 a8 U7 f/ I) N% S# J& J8 A! T2 p; R/ j. q1 m
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
8 ]: O! j6 k5 p6 l0 \ I
( _( e0 s8 v; H S8 T. F% e |
|
发表于 2015-10-18 19:21:26
