topic Re: iLogic save to directory in Inventor Programming Forum

iLogic save to directory

b.ziegler — Wed, 02 Sep 2020 12:59:48 GMT

Good Morning,

I have two questions here. The first pertains to actual coding help.

I have inherited an iLogic program that exports dxfs of all of the sheet metal parts in an assembly. it currently exports them to a subfolder that it creates under the assembly folder.

What we would like to do now is have it save to a different folder.

So currently it saves to <project folder>\assemblies\<asm name> DXF Files

We would like it to save to <project folder>\DXFs\<asm names> DXFs

The section of the code that saves the files is:

oFolder = oPath & "\" & oAsmName & " DXF Files"
' Create DXF Folder
If Not System.IO.Directory.Exists(oFolder) Then
	System.IO.Directory.CreateDirectory(oFolder)
End If

I would be perfectly happy if a dialog box popped up and we had to navigate to the new directory.

Thank you for any help you can provide here.

The second question is: how does one go about learning iLogic?

Re: iLogic save to directory

JhoelForshav — Wed, 02 Sep 2020 13:35:33 GMT

Hi @b.ziegler

try changing the code you just posted to this 🙂

Dim oDialog As New FolderBrowserDialog
oDialog.Description = "Select directory to save DXF files"
oDialog.RootFolder = System.Environment.SpecialFolder.MyComputer
Dim oRes As DialogResult = oDialog.ShowDialog()
If oRes = DialogResult.OK Then
	oFolder = oDialog.SelectedPath
Else
	MessageBox.Show("No folder selected!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
	Exit Sub
End If

Re: iLogic save to directory

b.ziegler — Wed, 02 Sep 2020 13:41:32 GMT

Very Nice

Thank you, I appreciate your help

Re: iLogic save to directory

b.ziegler — Wed, 02 Sep 2020 15:33:16 GMT

I tweaked the code Slightly so that the folder location dialog defaults to the root directory of the project. This makes it much more convenient and less clicking through our file system.

The added line is in bold

' Folder Location
Dim oDialog As New FolderBrowserDialog
oDialog.Description = "Select directory to save DXF files"
oDialog.RootFolder = System.Environment.SpecialFolder.MyComputer
oDialog.SelectedPath = oPath
Dim oRes As DialogResult = oDialog.ShowDialog()
If oRes = DialogResult.OK Then
	oFolder = oDialog.SelectedPath
Else
	MessageBox.Show("No folder selected!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
	Exit Sub
End If

Thank you for your help @JhoelForshav

Re: iLogic save to directory

rdsmith8R6TS — Fri, 10 Mar 2023 15:21:24 GMT

I have this bit of code running inside another code that I have compiled from other sources. This code has an option to save the current file or all open files. I want to keep this feature but this new bit of code asks for the save directory of each file. Is there anyway to just choose the save directory for all files at once?

Re: iLogic save to directory

rdsmith8R6TS — Fri, 17 Mar 2023 14:43:44 GMT

I managed to fix my own issue. If anyone is interested please feel free to use this code.