'
' RotateFeatures.bas - Rotate all of the features in the part by 135 degrees.
'
' Author: Tom McCollough
' Organization: Engineering Geometry Systems
' Date: 7/31/02
' Copyright (c) 2002, Engineering Geometry Systems
'
' General Description
'
' - A sample written for to illustrate how to transform features.
'

Public Sub RotateFeatures
	Dim fm_doc As FMDocument
	Dim active_setup As FMSetup
	Dim feat As FMFeature

	Set fm_doc = Application.ActiveDocument
	Set active_setup = fm_doc.ActiveSetup

	' For each feature in the document
	For Each feat In active_setup.Features
		' Select the feature
		fm_doc.Select(feat, True, True)
		' Rotate it
		fm_doc.XFormRotate(True, False, 1, 135, eXFT_RotateCenterZAxis, 0, 0, 0 )
	Next feat
End Sub