topic Re: Choose file location in Inventor Programming Forum

Choose file location

Anonymous — Wed, 21 Aug 2019 18:25:29 GMT

I have a macro/Ilogic combination that creates a drawing of a sheet metal part and it saves the new drawing in the same location as the part its being run on. I want to make a box pop up that lets you select the location of the new drawing, but can't seem to figure it out.

To use the code run the macro on a sheet metal part with either the Vendor or Category marked as Laser. The macro then runs the CreateDrawingSingle rule after adding a couple Iproperties. RuleForDrawingSingle is then set up to run on open on the template.

Re: Choose file location

Anonymous — Wed, 21 Aug 2019 18:29:00 GMT

Here's the template. If you want to test it yourself make sure you change the file location in CreateDrawingSingle.

Re: Choose file location

JelteDeJong — Wed, 21 Aug 2019 21:09:57 GMT

hi,

have a look at this page:

https://adndevblog.typepad.com/manufacturing/2012/08/using-inventor-file-dialog-to-opensave.html

I changed the example on that page for use in iLogic

Dim oDLG As FileDialog = Nothing
ThisApplication.CreateFileDialog(oDLG)
oDLG.FileName = "C:\Temp\Temp.ipt"
oDLG.Filter = "Inventor Part Files (*.ipt)|*.ipt"
oDLG.ShowSave() ' to save files
MsgBox(oDLG.FileName)

Re: Choose file location

Anonymous — Thu, 22 Aug 2019 16:02:51 GMT

That's not really helpful, because that lets you select a file not a folder. I got it to save the file in the right location using.

Imports System.Windows.Forms

' Toma la ruta del archivo activo
Dim RutaExport As String = ThisDoc.Path

' Define el cuadro de dialogo de busqueda de carpeta
Dim Dialog = New FolderBrowserDialog()

' Establece opciones del cuadro de dialogo
Dialog.SelectedPath = RutaExport
Dialog.ShowNewFolderButton = True
Dialog.Description = "Elige la carpeta de exportación"

' muestra el cuadro de dialogo
If DialogResult.OK = Dialog.ShowDialog() Then
	' captura la ruta de exportacion seleccionada
	RutaExport = Dialog.SelectedPath & "\"

and changing

'In parts & asemblies - Write new drawing name to temp text file
oWrite = System.IO.File.CreateText("C:\TempPath\" & ThisDoc.FileName & ".txt")
oWrite.WriteLine(RutaExport & ThisDoc.FileName & ".dwg")
oWrite.Close()

but now it doesn't replace the drawing views at all and I can't figure out why.