Simple Conversion - VBA To Vb.Net

[isocam]

Can anybody help?

I have the following Inventor VBA script that exports a sheet metal part to a "flat pattern" dwg file. It works great!!

Dim oDataIO As DataIO

Set oDataIO = oDoc.ComponentDefinition.DataIO

Dim sOut As String

sOut = "FLAT PATTERN DWG?AcadVersion=2000&OuterProfileLayer=Outer"

oDataIO.WriteDataToFile sOut, DwgFileName

Can anybody tell me if the above code needs to be converted to work using a Vb.Net AddIn?

Many thanks in advance!

Darren

[Dev_rim]

Hello there,

Yes you have to change a couple things. Parameters of functions should be written between "()" at VB.net

Here you go 

Dim oDataIO As DataIO
oDataIO = oDoc.ComponentDefinition.DataIO
Dim sOut As String
sOut = "FLAT PATTERN DWG?AcadVersion=2000&OuterProfileLayer=Outer"
oDataIO.WriteDataToFile(sOut, DwgFileName)

Regards

Devrim