|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法
4 j. t6 b; W' W& a Dim block1 As Features.BlockFeatureBuilder
$ v! n% }8 `0 L0 N/ M6 d Dim point1 As Double = 61 O$ ]' @: {1 j, b* b0 J
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)
( E. Y) a7 j" _ block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")/ u5 A! i3 E9 f% N( H
Dim feature1 As Features.Feature- {+ }7 U) h' Q4 N' M/ l
feature1 = block1.CommitFeature()
+ h! o$ G6 l$ E# J. @
9 I/ V I. i5 U# f0 A: f. O$ [! ]' j
'以下是移动体 P1 l. D$ r: P5 h9 s( X. j
Dim block2 As Features.MoveObjectBuilder
! A0 Q- B# C6 A4 q, J5 H8 _ block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)0 f8 ~. K. W* W7 v% [2 r$ B+ o
, v: s8 b; C4 Q: b$ Q2 d. q2 @ block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
- I9 b5 m( B7 R+ |; A block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离' e' O3 U) |' H2 B+ h# O2 h1 |
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
: z4 p" g- J1 q9 s1 Z7 e. m; \5 w% P9 \' @/ e; \
block2.ObjectToMoveObject = Add(block1) '要移动的体" P1 M* @6 l; f2 X* K5 G
; C0 \) G7 J+ ~9 c5 J
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)- w8 M/ l/ u3 O$ \' u
Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
" C$ f! t* X. n! s/ ^ Dim direction1 As Direction
9 b1 J E b; b# d7 |$ u direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)' n: \. ^( e8 w- ~7 K! C, i
block2.TransformMotion.DistanceVector = direction1 '移动方向
. V I4 s* A+ X* A' P9 c$ C* ^* l0 H
block2.NumberOfCopies = "3" '移动数量9 l: D& s# i% K
: \2 k/ J# `& T% N/ m Dim nXObject1 As NXObject
9 A9 r) D' R/ T. K& q' q nXObject1 = block2.Commit()% z( q7 m# W1 }* w
2 B6 L4 C, h& j( t上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）+ q& i+ H7 W. w/ K' L' k
2 A- |( {2 C0 T9 m4 p9 g& V |
|
|小黑屋|手机版|PLM之家-专注工业软件生态建设，大模型CAD创新生态
