Hi @ngtatsang98
So if I remember this forum post this code was in is about 100 messages long so this code for sure has major functionality but it really is specific to that users workflow and so is very specific. Can you edit the first post and add the forum post link to where you found the code as it is always good practice to reference the original authors.
If your only starting out automating drawings I would suggest to start off small and just keep it simple.
I have modified the original rule to just do the basics. You can add and modify it later if you know what the next task you need is.
Option Explicit On
Sub Main()
'Ask to Create Drawing
Dim AskCreateDrawing As MsgBoxResult = MessageBox.Show("Would you like to Create Drawings for the Current Model?", "Drawing Automation",MessageBoxButtons.YesNo)
'If the User Presses YES
If AskCreateDrawing = vbYes Then
'Set the View Scales
Dim DrawingViewScale As Double = 1/10
Dim oBaseView,oView2,oView3,oView4 As DrawingView
Dim sAssyFileName As String = ThisDoc.FileName(False) 'without extension
Dim oDrawDoc As DrawingDocument = CreateDrawing_PlaceViews (sAssyFileName, DrawingViewScale, "Right_Project", True)
'Save As oDrawingDoc (Path and File Name)
Dim sPath As String = ThisDoc.Path
Dim sDrawFullFileName As String = sPath & "\" & sAssyFileName & ".dwg"
oDrawDoc.SaveAs(sDrawFullFileName, False)
End If
End Sub
Function CreateDrawing_PlaceViews (PartNumber As String, DrawingViewScale As Double, ViewsToPlace As String, AssemblyDrawing As Boolean)
Dim oDrawDoc As DrawingDocument
Dim oPartDoc As Document
Dim oSheet As Sheet
Dim oTG As TransientGeometry
Dim oPoint1,oPoint2,oPoint3,oPoint4 As Point2d
Dim oBaseView,oView2,oView3,oView4 As DrawingView
'If this is the Assembly View, then use this Document as reference and open Drawing Template
'Otherwise use the given Part Number And invisibly open the part, Use the active drawing
If AssemblyDrawing = True Then
oPartDoc = ThisDoc.Document
oDrawDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\Users\Public\Documents\Autodesk\Inventor 2018\Templates\standard.dwg", True)
Else If AssemblyDrawing = False
Dim sPartDocPath As String = ThisDoc.Path & "\" & PartNumber & ".ipt"
oPartDoc = ThisApplication.Documents.Open(sPartDocPath, False)
oDrawDoc = ThisApplication.ActiveDocument
End If
oSheet = oDrawDoc.Sheets.Item(1)
oTG = ThisApplication.TransientGeometry
'Set points in order to get wanted View (ie. if 'Y' is the same and 'X' is greater or less, you will get a Side View)
oPoint1 = oTG.CreatePoint2d(5, 5)
oPoint2 = oTG.CreatePoint2d(5, 30)
oPoint3 = oTG.CreatePoint2d(30, 5)
oPoint4 = oTG.CreatePoint2d(30, 30)
'Create the Base View
oBaseView = oSheet.DrawingViews.AddBaseView(oPartDoc, oPoint1, DrawingViewScale, kFrontViewOrientation, kHiddenLineDrawingViewStyle, "Default")
oBaseView.ShowLabel = True
'//////// Place the rest of the Projected Views According to the Parameter String Specified ////////////
oView2 = oSheet.DrawingViews.AddProjectedView(oBaseView, oPoint3, kHiddenLineDrawingViewStyle, DrawingViewScale)
oView2.ShowLabel = True
oView3 = oSheet.DrawingViews.AddProjectedView(oBaseView, oPoint4, kHiddenLineDrawingViewStyle, DrawingViewScale)
oView3.ShowLabel = True
'Return the Drawing Document
Return oDrawDoc
End Function
If this solved a problem, please click (accept) as solution.
Or if this helped you, please, click (like)
Regards
Alan
