Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

Anonymous
en respuesta a: klaus.gibbe

I still cant get anything to rotate. See simple code below:

Sub Main

	Dim app As Application
	Dim doc As FMDocument

	Set app = Application
	Set doc = app.ActiveDocument

	'made a simple curve within the turning document for rotation around Y axis
	doc.curves.Item(1).Select(True, True)
	doc.curves.XFormRotate(False, False, 0, 90, eXFT_RotateCenterYAxis)


End Sub

The select in this case works. I tried multiple variations of the xFormRotate method including:

doc.curves.Selected.XFormRotate(....)
doc.Features.XFormRotate(...)
doc.Features.Selected.XFormRotate(...)

No such luck.