Move and Copy Body by Setting Transforms Example (VBA)
This example shows how to move and copy bodies by setting transforms.
'----------------------------------------------------------
'
' Preconditions:
' (1)
Part document is open.
' (2)
Body-Move/Copy1 feature exists.
'
' Postconditions: Body is moved and copied as per transform
settings.
'
'-----------------------------------------------------------
Option Explicit
Sub main()
Dim
swApp As SldWorks.SldWorks
Dim
part As SldWorks.PartDoc
Dim
component As SldWorks.Component2
Dim
moveCopyFeat As SldWorks.feature
Dim
moveCopy_featData As SldWorks.MoveCopyBodyFeatureData
Dim
boolstatus As Boolean
Set
swApp = Application.SldWorks
Set
part = swApp.ActiveDoc
Set
moveCopyFeat = part.FeatureByName("Body-Move/Copy1")
Set
moveCopy_featData = moveCopyFeat.GetDefinition
boolstatus
= moveCopy_featData.AccessSelections(part,
component)
moveCopy_featData.TransformType = swTransformType_Translation
moveCopy_featData.TransformX = 0.02
moveCopy_featData.TransformY = 0.03
moveCopy_featData.TransformZ = 0.04
boolstatus
= moveCopyFeat.ModifyDefinition(moveCopy_featData,
part, Nothing)
moveCopy_featData.ReleaseSelectionAccess
End Sub