|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法
% o- l8 d B( l8 m; W/ e6 N g' G Dim block1 As Features.BlockFeatureBuilder
$ }# X. ~. D& P3 I Dim point1 As Double = 6
2 {' p: J( H/ v6 k: S F block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
8 V) m a0 u! {5 v* D' T block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
: o, j' A. D3 r* |1 J, y# Z( g+ a& N- l Dim feature1 As Features.Feature5 C+ K% o2 `. h" T
feature1 = block1.CommitFeature()9 \4 f |+ K, J+ A4 o/ Z. G$ ?+ ]
$ h K6 y# o& n) p" k, E9 z2 @) ~3 t% o6 g
'以下是移动体
: H6 `% h0 m: a8 j5 F2 i Dim block2 As Features.MoveObjectBuilder2 q% y3 c) m6 E e4 a& D8 w
block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
! g6 `4 e' H2 t! S6 N4 x- n0 P2 |9 J( ^
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance( h# b6 V1 N& s! D+ S- B9 e
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离
7 B( x$ b/ r$ p8 `/ \% W block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal' S' d$ I, p8 Z8 B8 E( i
- p: @: A! ]2 N, f block2.ObjectToMoveObject = Add(block1) '要移动的体+ |* j; ]4 J1 u& B7 ]
- ?% [1 {# B$ M1 }5 P$ o Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)3 ~0 m3 X9 C* R6 y
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)' f- ~. W3 I M) k4 A& o
Dim direction1 As Direction
4 p+ G6 [! L, O9 p direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
9 E4 t9 V. E$ _" ] block2.TransformMotion.DistanceVector = direction1 '移动方向. n3 ~ J7 T. j0 }, J$ I
5 l2 k. O. v2 V$ q+ p$ `
block2.NumberOfCopies = "3" '移动数量7 F8 F! q( a. q9 m2 j
& N; G3 D8 b( T( a: ~ Dim nXObject1 As NXObject( r5 V/ T9 D: u2 ]5 L7 I4 G
nXObject1 = block2.Commit()- u- h: S3 Q _( g* y. R
7 l- C4 m; h; @上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）
: c0 @7 l8 T7 e0 y. ^8 E: [1 D3 u4 l- w" L* R) _, s
|
|
|小黑屋|PLM之家-专注工业软件生态建设，大模型CAD创新生态
( 沪ICP备2026005248号-1 )
发表于 2015-10-18 19:21:26
