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

Agreed !!! 

 

I should have provided what I got.

(That people say "Rude" but I call it the "Truth")

 

Some how I missed to post, what I already had.

 

As a NewB (nearly zero) in iLogic, I always struggle to get what I want.

 

but Finally, got here within Forum that works great for all the sheets. to align all dimensions.

 

SyntaxEditor Code Snippet

Dim doc As Inventor.DrawingDocument = ThisDoc.Document
For Each sheet As Sheet In doc.Sheets
'sheet.Activate
Dim dimensions As Inventor.ObjectCollection = ThisServer.TransientObjects.CreateObjectCollection
Dim drawDim As Inventor.DrawingDimension
  For Each drawDim In sheet.DrawingDimensions
    If Not TypeOf drawDim Is Inventor.OrdinateDimensionSet _
      And Not TypeOf drawDim Is Inventor.BaselineDimensionSet _
      And Not TypeOf drawDim Is Inventor.ChainDimensionSet Then
     dimensions.Add(drawDim)
    End If
  Next
  sheet.DrawingDimensions.Arrange(dimensions)
Next