Répertoire projet par défaut pour le contre de contenu

[stephd]

Bonjour,

 

Je souhaiterai savoir quel est l'astuce qui permette, quand on crée un nouveau projet, de faire en sorte que les pièces générées avec le centre de contenu soient stockées dans le projet et non dans celui définit par défaut par Inventor

 

Par défaut Inventor propose: %USERPROFILE%\Documents\Inventor\Content Center Files\R2010\

 

Ce qui serait bien c'est de pouvoir remplacer ce chemin, par une variable d’environnement qui pointerait directement dans le dossier du projet actif.

 

merci d'avance de votre aide.

[Guillaume MASSART]

Dans le gestionnaire de projet, dans les options de dossier tu peux préciser "Fichiers du centre de contenu"

Mets un lien relatif avec un "."

exemple "./centre de contenu"

Je n'arrive pas à attacher de pièces jointes sinon j'avais une capture d'écran

Idéalement, prépare un fichier projet "type" que tu copieras par la suite avec sa structure complète, j'avais fait ce code en vbs pour me faciliter le travail si tu veux:

'Script de création automatique d'un nouveau projet pour INVENTOR
'Cela permet d'éviter les erreurs de copie lors de la création d'un nouveau projet à partir d'un projet type
dim chemin, oFSO, projet_nom
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Récupération du chemin du script'
chemin= left(WScript.ScriptFullName,len(WScript.ScriptFullName)-len(WScript.ScriptName))
'Demande du nom du nouveau projet
projet_nom=inputbox("Quel est le nom du nouveau projet?")
'Vérification que l'utilisateur a bien mis un nom de projet'
if projet_nom="" then
msgbox "Nous n'avez pas donné de nom, ce programme va être fermé",vbCritical
WScript.Quit
end if

'choix du répertoire de destination
set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire de destination", RETURNONLYFSDIRS,chemin)
If oFolder is Nothing Then 
MsgBox "Nous n'avez pas sélectionner de répertoire de destination, ce programme va être fermé",vbCritical
 WScript.Quit
Else
 Set oFolderItem = oFolder.Self
End If

'test du nom du projet pour savoir s'il n'existe pas déjà'
if oFSO.FolderExists(oFolderItem & "\" & projet_nom) then
msgbox "Ce projet existe déjà"
WScript.Quit
else
'Copie du projet type vers le répertoire du projet'
oFSO.CopyFolder chemin & "projet type",oFolderItem.path & "\" & projet_nom,false ' True : pour copier en "écrasant" destination si existe..
oFSO.CopyFile oFolderItem.path & "\" & projet_nom & "\projet type.ipj",oFolderItem.path & "\" & projet_nom & "\" & projet_nom & ".ipj",True ' True : pour copier en "écrasant" destination si existe..
oFSO.DeleteFile oFolderItem.path & "\" & projet_nom & "\projet type.ipj",True  ' Le paramétre "Force" à true permet d'effacer les fichiers en lectures seules.
end if
msgbox "Le projet est disponible dans le répertoire suivant : " & oFolderItem.path & "\" & projet_nom

Dans le code il faut avoir un répertoire "projet type" au même endroit avec dedans un fichier ipj nommé "projet type.ipj" et tout ça à la racine de ton dossier qui contient tous les projets