Code not working in 2018

[jletcher]

Looks like some things in ilogic has changed from 2012 to 2018.

without steps in the coding to find the issues I am lost what might have changed.

Here is the code maybe someone already knows and can educate me.

Imports Inventor.ViewOrientationTypeEnum
Imports Inventor.DrawingViewStyleEnum

Dim oDrawDoc as DrawingDocument    
Dim oPartDoc as Document
Dim oSheet As sheet
Dim oTG As TransientGeometry
Dim oBaseView As DrawingView
Dim opath As String
opath = ThisDoc.WorkspacePath()

ViewScale = 1/64

'Make Drawing
    oPartDoc = ThisDoc.Document
    
    'Define IDW Template File Location
	oDrawDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\Users\engineer\Desktop\Inventor 2018 code\625 Temps", False)
    oSheet = oDrawDoc.Sheets.Item(1)
    
    'Define 2d view bottom left corner points
     oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(0, 0)
	 
  
    
	oBaseView = oSheet.DrawingViews.AddBaseView(oPartDoc,oPoint1, 1/64,kFrontViewOrientation, kHiddenLineDrawingViewStyle, "Default")
    
	
	oDrawDoc.SaveAs(opath & "\" & "625A1-" & Letter_Code & Mat_Code & L_1 & ".idw" , False)
	oDrawDoc.Close(False)
	

Thanks

[bradeneuropeArthur]

try this

Scale as Double:

And oPoint1 as Point2d

Imports Inventor.ViewOrientationTypeEnum
Imports Inventor.DrawingViewStyleEnum

Dim oDrawDoc as DrawingDocument    
Dim oPartDoc as Document
Dim oSheet As sheet
Dim oTG As TransientGeometry
Dim oBaseView As DrawingView
Dim opath As String
Dim oPoint1 As Point2d

opath = ThisDoc.WorkspacePath()

Dim ViewScale As Double
ViewScale = 1/64

'Make Drawing
    oPartDoc = ThisDoc.Document
    
    'Define IDW Template File Location
	oDrawDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\Users\engineer\Desktop\Inventor 2018 code\625 Temps", False)
    oSheet = oDrawDoc.Sheets.Item(1)
    
    'Define 2d view bottom left corner points
     oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(0, 0)
	 
  
    
	oBaseView = oSheet.DrawingViews.AddBaseView(oPartDoc,oPoint1, ViewScale,kFrontViewOrientation, kHiddenLineDrawingViewStyle, "Default")
    
	
	oDrawDoc.SaveAs(opath & "\" & "625A1-" & Letter_Code & Mat_Code & L_1 & ".idw" , False)
	oDrawDoc.Close(False)

[jletcher]

No sir still fails

[bradeneuropeArthur]

I have edit the post.

Opoint1 as point2d

[bradeneuropeArthur]

By me it is working now

[bradeneuropeArthur]

Please copy the complete code into your project.

[jletcher]

I did but still fails

Imports Inventor.ViewOrientationTypeEnum
Imports Inventor.DrawingViewStyleEnum

Dim oDrawDoc as DrawingDocument    
Dim oPartDoc as Document
Dim oSheet As sheet
Dim oTG As TransientGeometry
Dim oBaseView As DrawingView
Dim opath As String
Dim oPoint1 As Point2d

opath = ThisDoc.WorkspacePath()

Dim ViewScale As Double
ViewScale = 1/64

'Make Drawing
    oPartDoc = ThisDoc.Document
    
    'Define IDW Template File Location
	oDrawDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\Users\engineer\Desktop\Inventor 2018 code\625 Temps", False)
    oSheet = oDrawDoc.Sheets.Item(1)
    
    'Define 2d view bottom left corner points
     oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(0, 0)
	 
  
    
	oBaseView = oSheet.DrawingViews.AddBaseView(oPartDoc,oPoint1, ViewScale,kFrontViewOrientation, kHiddenLineDrawingViewStyle, "Default")
    
	
	oDrawDoc.SaveAs(opath & "\" & "625A1-" & Letter_Code & Mat_Code & L_1 & ".idw" , False)
	oDrawDoc.Close(False)

[bradeneuropeArthur]

Letter_Code & Mat_Code & L_1 

Is this missing? 

For me the code is working.

But I have disabled this line. Because I don't know what those parameters are.

So till this line it is working.

Try also to disable this line. And then check if it is working 

[jletcher]

The parameter is there but I disabled and tried still fails.

I have 6 rules all work but this one making the drawing.. And that same L_1 is in the part number rule and it makes the part does all right up to making drawing.

I wish I could upload the part but I can't...

I can't get cleared to upload from client...

[bradeneuropeArthur · Accepted solution]

I think I found it.

You define no template idw file

C:\Users\engineer\Desktop\Inventor 2018 code\625 Temps\###.idw

Please check that.

[jletcher]

Yes you did find it I guess when I copied new path I removed the idw call out...

 Nice catch I look at everything and I kept on missing that wow glad I am going on vacation tonight..

I owe you a beer my  friend..

[bradeneuropeArthur]

Send it to Europe...... ha ha ha

Nice Holidays and everything else..

[jletcher]

Where about in Europe my Uncle is there I will have him buy it LOL...

[bradeneuropeArthur]

Where is your uncle from?

Maybe we are neighbours!