Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
WCrihfield
in reply to: robertast

I think he's talking about this:

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kDrawingDocumentObject Then
	MsgBox("This rule only works for Drawing Documents.",vbOKOnly, "WRONG DOCUMENT TYPE")
	Exit Sub
End If
Dim oDDoc As DrawingDocument = ThisDrawing.Document
Dim oSheet As Inventor.Sheet = oDDoc.ActiveSheet
Dim oChainDimSet As ChainDimensionSet
For Each oChainDimSet In oSheet.DrawingDimensions.ChainDimensionSets
	oChainDimSet.Arrange(oChainDimSet.Members.Item(1))
Next

The ChainDimensionSet object has its own Arrange method.  When calling this method, it wants you to specify a base (LinearGeneralDimension) as input, so it can use that dimension as the basis to arrange all the other 'Members' of the set.  In my example code, I'm simply specifying the first 'Member' of the set as the input general dimension to base the Arrange method on.  Here's the link to the Help page for this.

 

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click 'LIKE' :thumbs_up:.

If you have time, please... Vote For My IDEAS :light_bulb:and Explore My CONTRIBUTIONS

Inventor 2021 Help | Inventor Forum | Inventor Customization Forum | Inventor Ideas Forum

Wesley Crihfield

EESignature

(Not an Autodesk Employee)