|
|
请使用QQ关联注册PLM之家，学习更多关于内容，更多精彩原创视频供你学习！
您需要 登录 才可以下载或查看，没有账号？注册
x
'NXOPEN创建方块体的方法' h# h8 m9 }0 g- B# i8 K
Dim block1 As Features.BlockFeatureBuilder: f9 A# h4 W: k; H1 J
Dim point1 As Double = 6$ K- I' f \7 B( c: Y+ h. i
block1 = workpart.Features.CreateBlockFeatureBuilder(Nothing)9 @3 E! {+ v$ L; e: h# U( }
block1.SetOriginAndLengths(New Point3d(-6, point1, 0), "12", "12", "6")
, p0 P. ^$ \4 G7 W! A( R Dim feature1 As Features.Feature& H* W; W3 C- u" z+ J4 D$ `* q
feature1 = block1.CommitFeature()
, e, J# G. u0 y% A: |2 K V1 o- Y6 g: B! a0 P4 N( o
7 ?3 i0 U# g3 B4 [7 e0 q$ `
'以下是移动体
8 }% [/ z# }+ Z$ u R. m# d) B x/ C Dim block2 As Features.MoveObjectBuilder
6 o# [* q" ~) a: |# y' j1 ]+ O5 g block2 = workpart.BaseFeatures.CreateMoveObjectBuilder(Nothing)
* t: {. r4 ~, f; B1 J- [# D& U, q$ p' {
block2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance* X( b6 h+ ~$ e
block2.TransformMotion.DistanceValue.RightHandSide = "50" '移动距离/ w- I1 B. ^; G4 F7 C
block2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
/ Q3 s9 n3 R5 q6 S- w- H- I" n' D7 P$ t \
block2.ObjectToMoveObject = Add(block1) '要移动的体. i! q- }3 ^" k. \2 f8 E
% y0 W. [! S `. l; I$ ^
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
* k' {0 t, a/ ^ Dim vector1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
9 o4 A- c |# n v0 r) r: w! ~ Dim direction1 As Direction
' R$ d1 d- `2 n3 \' e direction1 = workpart.Directions.CreateDirection(origin1, vector1, SmartObject.UpdateOption.WithinModeling)
7 U" r( N7 Z9 \, U block2.TransformMotion.DistanceVector = direction1 '移动方向5 e# u0 N: J. \. [( ]8 c0 v& r: V
1 }9 ~* h: z# B! r' p; g9 R
block2.NumberOfCopies = "3" '移动数量
* T5 H3 }1 _. G5 x% ~- Z6 P' W1 u# C9 Q1 {6 \5 d" H0 _
Dim nXObject1 As NXObject9 M; e) z* J8 B0 a# k6 q+ R H
nXObject1 = block2.Commit()5 b% Z) y$ l0 ~' o# j2 \* J
1 D9 j2 {5 {6 O: P Z. @
上面红色那段代码怎么改写。请指教。（这是用JA录制的VB代码）8 Q# s# u$ U. v# z. B
- j9 ~9 @/ o3 D# r |
|
|小黑屋|手机版|PLM之家-企业数智化转型工业软件学习平台
