08-31-2016
05:04 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-31-2016
05:04 AM
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