Here it goes...
Sub RedefineSketch()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition
Set oDef = oDoc.ComponentDefinition
' Get the first sketch in the document
Dim oSketch As PlanarSketch
Set oSketch = oDef.Sketches.Item(1)
' Get the YZ workplane (always the first item in the collection)
Dim oYZPlane As WorkPlane
Set oYZPlane = oDef.WorkPlanes.Item(1)
' Redefine the sketch to be based on YZ plane
oSketch.PlanarEntity = oYZPlane
End Sub
Sanjay-
wrote in message news:5796199@discussion.autodesk.com...
Hello, is there any VBA to redefine first sketch of any part (eg. from XY
plane into XZ or YZ plane)?
Thanks in advance,
Patrick
