Hacer una form en ilogic para abrir un archivo ipt .

[Anonymous]

Hola , me gustaría incluir en un formulario un botón que permitiera seleccionar un archivo ipt utilizando el explorador de windows . Para luego abrirlo poder utilizar la información del modelo en otras reglas .

[WCrihfield · Accepted solution]

Cree una regla de iLogic externa, corte y pegue el siguiente código en ella, luego guárdela y ciérrela.

(Es posible que tenga que traducir las palabras dentro del código del inglés al español, si así es como se configura su sistema.)

Dim oFD As Inventor.FileDialog = Nothing  'Not System.Windows.Forms.FileDialog
ThisApplication.CreateFileDialog(oFD)

oFD.CancelError = True
oFD.DialogTitle = "Select a file."
oFD.InitialDirectory = ThisApplication.DesignProjectManager.ActiveDesignProject.WorkspacePath' "C:\Temp\"
oFD.InsertMode = False
oFD.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
'oFD.FilterIndex = 1
oFD.MultiSelectEnabled = False
oFD.OptionsEnabled = True
'oFD.OptionValues
oFD.ShowQuickLaunch = True 'only when opening, not when inserting
oFD.ShowOpen

If Err.Number <> 0 Then
	MsgBox("Dialog was cancelled.", vbOKOnly, " ")
	Return
End If
If oFD.FileName = "" Then
	MsgBox("No file was selected.", vbOKOnly, " ")
	Return
End If
If oFD.FileName <> "" Then
	MsgBox("You selected the following file:" & vbCr & _
	oFD.FileName, vbOKOnly, " ")
End If

Ahora edita tu formulario y en la parte superior izquierda, selecciona la pestaña Reglas, luego arrastra y suelta esa nueva regla en tu formulario, donde quieres que esté.
A continuación, seleccione ese elemento de línea dentro de la sección superior derecha del cuadro de diálogo y, en la sección inferior izquierda, puede definir cómo desea que actúe al hacer clic en ese botón.
Bajo el encabezado Comportamiento, luego Al hacer clic en Acción, luego elige lo que quieres que haga.
A continuación, suero de suero de suero se hace clic en ese botón, debe ejecutar esa regla, que crea el cuadro de diálogo de archivo y lo muestra.

Puede modificar el final del código iLogic para hacer algo diferente con el nombre de archivo, además de mostrarlo en un MsgBox.

Por favor, perdóname si he cometido errores de lenguaje. El español no es mi idioma principal.

[Anonymous]

Funciona muy bien ,gracias ¡¡ 

[Anonymous]

¿hay alguna forma de recuperar solo el nombre del archivo , no toda la ruta?

[WCrihfield]

Sí.
Si desea el nombre de archivo con su extensión de archivo utilizando esto:

Dim oFD As Inventor.FileDialog = Nothing  'Not System.Windows.Forms.FileDialog
ThisApplication.CreateFileDialog(oFD)

oFD.CancelError = True
oFD.DialogTitle = "Select a file."
oFD.InitialDirectory = ThisApplication.DesignProjectManager.ActiveDesignProject.WorkspacePath' "C:\Temp\"
oFD.InsertMode = False
oFD.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
'oFD.FilterIndex = 1
oFD.MultiSelectEnabled = False
oFD.OptionsEnabled = True
'oFD.OptionValues
oFD.ShowQuickLaunch = True 'only when opening, not when inserting
oFD.ShowOpen

If Err.Number <> 0 Then
	MsgBox("Dialog was cancelled.", vbOKOnly, " ")
	Return
End If
If oFD.FileName = "" Then
	MsgBox("No file was selected.", vbOKOnly, " ")
	Return
End If
If oFD.FileName <> "" Then
	oFFN = oFD.FileName
	oFN = IO.Path.GetFileName(oFFN)
	MsgBox(oFN, vbOKOnly, " ")
End If

O bien, si no desea la extensión de archivo, puede utilizar esto:

Dim oFD As Inventor.FileDialog = Nothing  'Not System.Windows.Forms.FileDialog
ThisApplication.CreateFileDialog(oFD)

oFD.CancelError = True
oFD.DialogTitle = "Select a file."
oFD.InitialDirectory = ThisApplication.DesignProjectManager.ActiveDesignProject.WorkspacePath' "C:\Temp\"
oFD.InsertMode = False
oFD.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*"
'oFD.FilterIndex = 1
oFD.MultiSelectEnabled = False
oFD.OptionsEnabled = True
'oFD.OptionValues
oFD.ShowQuickLaunch = True 'only when opening, not when inserting
oFD.ShowOpen

If Err.Number <> 0 Then
	MsgBox("Dialog was cancelled.", vbOKOnly, " ")
	Return
End If
If oFD.FileName = "" Then
	MsgBox("No file was selected.", vbOKOnly, " ")
	Return
End If
If oFD.FileName <> "" Then
	oFFN = oFD.FileName
	oFN = IO.Path.GetFileNameWithoutExtension(oFFN)
	MsgBox(oFN, vbOKOnly, " ")
End If