Group Views based on Stock number
Just to clarify the details of this task a bit more. How many views are we talking about here on one sheet? How do you want them grouped (each group is 1 vertical line of views ; each group is 1 horizontal line of views ; each group is rectangular with x number of columns and x number of rows ; other ; don't care)? On the subject of knowing how to know which stock numbers to group together, do you mean that there may be multiple view which are using the same stock number, then only group views of that same stock number together, or are there stock numbers that are somehow similar to each other that you want grouped together? If they are just similar, then how do we know which ones to group together? How much space do you want between these views & groups of views? What sheet size and orientation are you using? Is there a Border & TitleBlock that we need to avoid when placing these views on the sheet? Where is the TitleBlock on the sheet, and does it span the full width of the sheet, or just partial?
When doing it manually, with all of it in front of us is one thing, but trying to do this completely on a code screen, having never seen the drawing or the views to reference is quite another.
Some screen captured images of examples might help here, because as they say, "A picture is worth a thousand words."
Wesley Crihfield
(Not an Autodesk Employee)
Is this what you are looking for?
Sub Main() Dim doc As DrawingDocument = ThisDoc.Document Dim sheet As Sheet = doc.ActiveSheet Dim viewDic As Dictionary(Of DrawingView, String) = New Dictionary(Of DrawingView, String)() For Each view As DrawingView In sheet.DrawingViews viewDic.Add(View, GetStockNumber(View)) Next Dim viewDicOrderd = viewDic.OrderBy(Function(item) item.Value) Dim curentX As Double = 0 Dim curentY As Double = 0 Dim previousStockNumber As String = viewDicOrderd.First.Value Dim nextY As Double = 0 For Each item In viewDicOrderd Dim view = item.Key Dim stockNumber = item.Value If (view.Parent IsNot sheet) Then view.CopyTo(sheet) End If If (stockNumber <> previousStockNumber) Then curentX = 0 curentY = curentY + nextY + 0.5 End If MoveView(item.Key, curentX, curentY) curentX = curentX + view.Width + 0.5 nextY = Math.Max(nextY, view.Height) previousStockNumber = stockNumber Next End Sub Public Sub MoveView(view As DrawingView, X As Double, Y As Double) Dim oTg As TransientGeometry = ThisApplication.TransientGeometry X = X + view.Width / 2 Y = Y + view.Height / 2 Dim pos As Point2d = oTg.CreatePoint2d(X, Y) view.Position = pos End Sub Public Function GetStockNumber(view As DrawingView) Try Dim doc As Document = view.ReferencedDocumentDescriptor.ReferencedDocument Dim propSet As PropertySet = doc.PropertySets.Item("Design Tracking Properties") Dim prop As [Property] = propSet.Item("Stock Number") Return prop.Value Catch ex As Exception Return "" End Try End Function
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com
Thank you for the coffee and have a good night!
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com
you can try this:
Sub Main() Dim doc As DrawingDocument = ThisDoc.Document Dim sheet As Sheet = doc.ActiveSheet Dim viewDic As Dictionary(Of DrawingView, String) = New Dictionary(Of DrawingView, String)() For Each view As DrawingView In sheet.DrawingViews viewDic.Add(View, GetStockNumber(View)) Next Dim viewDicOrderd = viewDic.OrderBy(Function(item) item.Value) Dim curentX As Double = 0 Dim curentY As Double = 0 Dim previousStockNumber As String = viewDicOrderd.First.Value Dim nextY As Double = 0 Dim newSheet As sheet = doc.Sheets.Add() newSheet.Name = previousStockNumber For Each item In viewDicOrderd Dim view = item.Key Dim stockNumber = item.Value If (stockNumber <> previousStockNumber) Then curentX = 0 curentY = 0 ' curentY + nextY + 0.5 newSheet = doc.Sheets.Add() newSheet.Name = stockNumber End If view = view.CopyTo(newSheet) MoveView(view, curentX, curentY) curentX = curentX + view.Width + 0.5 nextY = Math.Max(nextY, view.Height) previousStockNumber = stockNumber Next ' uncomment this next line if you want to delete the first sheet. ' sheet.Delete() End Sub Public Sub MoveView(view As DrawingView, X As Double, Y As Double) Dim oTg As TransientGeometry = ThisApplication.TransientGeometry X = X + view.Width / 2 Y = Y + view.Height / 2 Dim pos As Point2d = oTg.CreatePoint2d(X, Y) view.Position = pos End Sub Public Function GetStockNumber(view As DrawingView) Try Dim doc As Document = view.ReferencedDocumentDescriptor.ReferencedDocument Dim propSet As PropertySet = doc.PropertySets.Item("Design Tracking Properties") Dim prop As [Property] = propSet.Item("Stock Number") Return prop.Value Catch ex As Exception Return "" End Try End Function
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com
