l'exportation des pièces d'étape ensemble - ilogic to change

[matteostasim]

Buongiorno,
Sono in extensenza, tempi strettissimi (vorrei mandare i files oggi), quindi vado diretto.
devo mandare a lasertubo una marea di tubi tutti simili ma diversi relati a 10 assiemi.
Al laserista van bene i fichier étape par fortuna.
quindi devo esportare dagli Assieme i singoli step delle singole parti.
ho trovato in giro una bella regola ilogic che me lo fa.
Ha solo 1 problèmea: mi salva gli step con il nome del file della parte originaria (orrenda essendo telai).
qualcuno sa cosa devo cambiare per salvarli col numero parte al posto del nome file (in cui ho già cambiato i nomi in caso di lunghezze uguali)?

d'un paio di immagini per far capire cosa vorrei.
Grazie infini

syntaxeditor code snippet'définit le document actif comme un fichier d'assemblage
dim oasmdoc comme document de montage
oasmdoc = cette application.documentactif
oasmname = cedoc.filename(false) 'sans extension

si cette application.activedocument.documenttype <> kassemblydocumentobject alors
messagebox.show("s'il vous plaît exécuter cette règle à partir du fichier d'assemblage.", "illogic")
sortie sous
fin si
'obtenir l'entrée utilisateur
rusure = boîte de message.show ( _
"ceci créera un fichier étape pour tous les composants." _
& vblf & " _
& vblf & « êtes-vous sûr de vouloir créer des dessins d'étape pour tous les composants d'assemblage? » _
& vblf & « Cela pourrait prendre un certain temps. », « ilogic - batch de sortie steps », messageboxbuttons.yesno)
si rusure = vbno alors
retour
Autre
fin si
Déploiement des étapes
opath = cedoc.path
'get step cible folder path
ofolder = opath & "\" & oasmname & " step files"
'vérifiez le dossier étape et créez-le s'il n'existe pas
si pas system.io.directory.exists(ofolder) alors
system.io.directory.createdirectory(ofolder)
fin si


Ensemble
cedoc.document.saveas(dossier & "\" & oasmname &(."stp") , true)

Composantes
'regardez les fichiers référencés par l'assemblage
dim orefdocs comme recenseur de documents
orefdocs = oasmdoc.tous documentsréférencés
dim orefdoc comme document
'travailler les modèles référencés
pour chaque orefdoc dans les orefdocs
dim ocurfile comme document
ocurfile = cette application.documents.open(orefdoc.fullfilename, true)
ocurfilename = ocurfile.fullfilename

'définit backslash comme le séparateur de sous-répertoire
dim strcharsep comme chaîne = system.io.path.directoryseparatorchar

'trouver la postion de la dernière antislash dans le chemin
fnamepos = instrrev(ocurfilename, "\", -1)
'avoir le nom du fichier avec l'extension de fichier
nom = right(ocurfilename, len(ocurfilename) - fnamepos)
'avoir le nom du fichier (sans extension)
shortname = left(name, len(name) - 4)

essayer
ocurfile.saveas(dossier & "\" & shortname & (.stp") , true)
prises
messagebox.show("traitement d'erreur " & ocurfilename, "ilic")
fin de l'essai
ocurfile. fermer
suivant
C'est pas vrai.
messagebox.show("nouveaux fichiers créés dans: " & vblf & ofolder, "illogic")
'ouvrir le dossier où les nouveaux fichiers sont enregistrés
shell("explorer.exe " & ofolder,vbnormalfocus)

 

[Catafratto]

Bonjour.
sont en urgence, temps très serrés (je voudrais envoyer les fichiers aujourd'hui),

Bien sûr que c'est pour aujourd'hui, si c'est pour demain, c'est demain.

D'abord vous faites un test, sur un petit jeu, je n'ai fait qu'un test rapide, j'ai effectué seulement le bla bla bla bla...

Essaie ça, je pense que ça marche.

«définir le document actif comme un fichier d'assemblage
dim oasmdoc comme document de montage
oasmdoc = cette application.documentactif
oasmname = cedoc.filename(false) 'sans extension

si cette application.activedocument.documenttype <> kassemblydocumentobject alors
messagebox.show("s'il vous plaît exécuter cette règle à partir du fichier d'assemblage.", "illogic")
sortie sous
fin si
'obtenir l'entrée utilisateur
rusure = boîte de message.show ( _
"ceci créera un fichier étape pour tous les composants." _
& vblf & " _
& vblf & « êtes-vous sûr de vouloir créer des dessins d'étape pour tous les composants d'assemblage? » _
& vblf & « Cela pourrait prendre un certain temps. », « ilogic - batch de sortie steps », messageboxbuttons.yesno)
si rusure = vbno alors
retour
Autre
fin si
Déploiement des étapes
opath = cedoc.path
'get step cible folder path
ofolder = opath & "\" & oasmname & " step files"
'vérifiez le dossier étape et créez-le s'il n'existe pas
si pas system.io.directory.exists(ofolder) alors
system.io.directory.createdirectory(ofolder)
fin si


Ensemble
cedoc.document.saveas(dossier & "\" & oasmname &(."stp") , true)

Composantes
'regardez les fichiers référencés par l'assemblage
dim orefdocs comme recenseur de documents
orefdocs = oasmdoc.tous documentsréférencés
dim orefdoc comme document
'travailler les modèles référencés
pour chaque orefdoc dans les orefdocs
dim ocurfile comme document
ocurfile = cette application.documents.open(orefdoc.fullfilename, true)
ocurfilename = ocurfile.fullfilename

'définit backslash comme le séparateur de sous-répertoire
dim strcharsep comme chaîne = system.io.path.directoryseparatorchar

'trouver la postion de la dernière antislash dans le chemin
fnamepos = instrrev(ocurfilename, "\", -1)
'avoir le nom du fichier avec l'extension de fichier
nom = right(ocurfilename, len(ocurfilename) - fnamepos)
'avoir le nom du fichier (sans extension)
'shortname = left(name, len(name) - 4)


------------------ Legge iproperty numero parte - Oui.
shortname = ocurfile.propertysets("{32853f0f-3444-11d1-9e93-0060b03c1ca6}").item("part number"). valeur


essayer
ocurfile.saveas(dossier & "\" & shortname & (.stp") , true)
prises
messagebox.show("traitement d'erreur " & ocurfilename, "ilic")
fin de l'essai
ocurfile.close
suivant
C'est pas vrai.
messagebox.show("nouveaux fichiers créés dans: " & vblf & ofolder, "illogic")
'ouvrir le dossier où les nouveaux fichiers sont enregistrés
shell("explorer.exe " & ofolder,vbnormalfocus)

 

[dsw]

pour il y a une copie du script (peut-être l'original?) un peu plus...pulita...

 

[matteostasim]

Merde tout de suite ! Je ne pense à aucune autre bonne réponse.
En effet, oui, je dois comprendre quelle zone de la Vénétie sont (I friuli) que s'ils sont dans vos parties je vous offre au moins pizza et bière.
Parfait !