@mallorn Here's also a simple iLogic example of this
Dim oDoc As PartDocument = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oRectPattFeat As RectangularPatternFeature = oDef.Features.RectangularPatternFeatures.Item("Rectangular Pattern1")
If oRectPattFeat.Definition.NaturalXDirection = True Then
oRectPattFeat.Definition.NaturalXDirection = False
ElseIf oRectPattFeat.Definition.NaturalXDirection = False Then
oRectPattFeat.Definition.NaturalXDirection = True
End If
If oRectPattFeat.Definition.NaturalYDirection = True Then
oRectPattFeat.Definition.NaturalYDirection = False
ElseIf oRectPattFeat.Definition.NaturalYDirection = False Then
oRectPattFeat.Definition.NaturalYDirection = True
End If
I hope this helps.
If this solves your problem, or answers your questions, please click 'Accept As Solution".
Or, if this helps you reach your goal, please click 'LIKES" 👍.
Here are a few of the ideas I like.
If you agree, please vote for them, so they might get implemented.
- Options to format contents of MessageBox, InputBox, and InputListBox Click Here
- Ability to fully constrain and dimension to the edjes of images within drawing title block sketches, SketchedSymbol sketches, other drawing sketches, and assembly sketches Click Here
- Save section view status in DesignViewRepresentation, so it can be used in drawing view Click Here
- Add SolidBodies folder to iLogic Rule Editor Model Tab Click Here
- Convert all views to Raster before autosave stores to 'OldVersions' folder Click Here
Wesley Crihfield

(Not an Autodesk Employee)