|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
×
'NXOPEN创建方块体的方法
s) d& E! \/ m! I h8 @ Dim block1 As Features.BlockFeatureBuilder- v5 `4 e. b( N, z, ~
Dim point1 As Double = 6) a( C$ Z' ?2 y+ ]1 t7 G( ]
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
1 o' Z, k O# O1 l( W block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
2 A r4 H1 J) y% w Dim feature1 As Features.Feature
! `# F1 L' g6 x feature1 = block1.CommitFeature()- T. n8 u+ l" ^7 W
, D: c) Y% `2 t' P/ x
+ {- ]* w9 ~( b* I$ }+ ^/ h( I0 K" E
'以下是移动体
+ o, I% Y/ P3 n* f+ `7 L Dim block2 As Features.MoveObjectBuilder! w. ~# Z6 w, M) ]: [
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)* B# g& ]; J1 D) O* I: V8 h
* v' a. s) Y! g- M1 c+ ^ block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
7 k, ]$ S4 c, S; B- q; w block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离
$ @1 W2 m3 q& H% H block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
+ e8 {* ^8 ~: i/ e7 S: B, `3 |
/ o' ~2 f3 {- ^ block2.ObjectToMoveObject = Add(block1) '要移动的体
: f( u0 p9 }0 d. X7 a* L
8 ~9 a8 K1 M6 q2 A, @. v. V7 I Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)0 X) N" N' Q7 Q) r: Z, E! A
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
0 I' \! H. G$ j! ~. _( C. ~ Dim direction1 As Direction& A6 {* {2 e* B( ~8 f2 G }
direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
* d& R$ D+ q2 [0 n7 Z. ^, Y block2.TransformMotion.DistanceVector = direction1 '移动方向
0 x- p' z) W( J1 B: v# h
. {4 \3 t3 W+ ^3 g3 _0 W block2.NumberOfCopies = "3" '移动数量9 g1 ?% W" ], T2 ?, D* a) U
8 \6 M: P j+ O6 d& q2 V1 m
Dim nXObject1 As NXObject
: I8 a/ B5 G+ }9 E5 l4 S: B# b nXObject1 = block2.Commit()
, A3 h" A2 z2 h# B
" }6 p- A( y; O9 z- k( ^上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
3 n7 P! U- N b. k- R; P) w" V0 m. M7 i8 U& l" k8 y3 {
|
|
发表于 2015-10-18 19:21:26
