@bibleje
You are a hard man to please and I have way too much free time on my hands.
The next code will get the X position of the first view and align the rest according to it. Views on drawing are positioned by Center so you need to get the Width of the view and divide it by 2 but it’s all in the code.
You need to take care of the vertical Y position of the view and the code will align on X.

Now you have to agree I have a working solution here.
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
Dim oView As DrawingView
Dim oSheet As Sheet
oSheet = oDrawDoc.ActiveSheet
' Process the rule, wrapping it in a transaction so the
' entire process can be undone with a single undo operation.
Dim trans As Transaction
trans = ThisApplication.TransactionManager.StartTransaction( _
oDrawDoc, "Alig Views")
oFirstView = oSheet.DrawingViews.Item(1)
'views are processed by center so we need to get center X and substract half view
Dim XPos As Double
XPos = oFirstView.Position.X - (oFirstView.Width/2)
Dim oPoint2D As Inventor.Point2D
'view position is XPos + half of each view
For Each oView In oSheet.DrawingViews
oPoint2D = ThisApplication.TransientGeometry.CreatePoint2D(XPos + (oView.Width/2),oView.Position.Y)
oView.Position = oPoint2D
Next
'finish the transaction
trans.End
Test this solution out please.
Adrian S.
blog.ads-sol.com
AIP2012-2020 i7 6700k AMD R9 370
Did you find this reply helpful ?
If so please use the Accepted Solutions or Like button - Thank you!