Hello everybody,
can this macro be changed so that it only outputs the tools in the active folder?
Many Thanks
//
// Ouvre un fichier pour écrire le tableau outil (Type HTML)
// Liste tous les outils
//
// Modif 06/06/2016 : Export via ecriture fichier
//
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
//Check the name of the project and if it have been already save
STRING $projectName = project_pathname(1)
STRING Msg = ""
STRING Cmd = ""
IF $projectName == "" {
$Msg = "Impossible de créer les documents pour l'export, vous devez d'abord sauver le projet !"
MESSAGE ERROR $Msg
MACRO ABORT
}
//Création d'un répertoire Export_ExportTool dans le Projet en cours
// Répertoire Export ExportTool
STRING $ExportToolTempDir = project_pathname(0) + "/Werkzeugliste"
MKDIR $ExportToolTempDir
STRING $ExportToolImg = ''
STRING $ToolName = ''
// Definition Fichier Html
STRING $Ligne=''
STRING $Fichier=$ExportToolTempDir+'/Werkzeugliste.html'
//Ouverture fichier
FILE OPEN $Fichier FOR WRITE AS filename
$Ligne = "<html>"
FILE WRITE $Ligne TO filename
$Ligne = "<head>"
FILE WRITE $Ligne TO filename
$Ligne = "<title>Export outil</title>"
FILE WRITE $Ligne TO filename
$Ligne = "</head>"
FILE WRITE $Ligne TO filename
$Ligne = "<body lang=DE>"
FILE WRITE $Ligne TO filename
$Ligne = "<H1>Werkzeugliste $project.orderno $projectName </H1>"
FILE WRITE $Ligne TO filename
$Ligne = "<table border=1 cellspacing=1 cellpadding=1>"
FILE WRITE $Ligne TO filename
// Première ligne
$Ligne = "<TR>"
FILE WRITE $Ligne TO filename
$Ligne = "<H2><TD>Bild</TD><TD>Name</TD><TD>Nummer</TD><TD>Durchmesser</TD><TD>Typ</TD><TD>Eckenradius</TD><TD>Ausspannlänge</TD><TD>Werkzeughalter</TD></H2>"
FILE WRITE $Ligne TO filename
$Ligne = "</TR>"
FILE WRITE $Ligne TO filename
/// Liste tous les outils
FOREACH tp IN folder('Tool') {
// Depuis les Outils
$Ligne = "<TR>"
FILE WRITE $Ligne TO filename
// Image
$Ligne = "<TD>"
FILE WRITE $Ligne TO filename
$Ligne = '<div align="' + 'center"' + '>'
FILE WRITE $Ligne TO filename
// CREATION IMAGE
$ToolName = $tp.name
$ExportToolImg = $ExportToolTempDir + "/" + $ToolName + ".jpg"
$ExportToolImg = REPLACE($ExportToolImg," ","_")
$Cmd='FORM RAISE TOOLASSPREVIEWFORM "' + $ToolName + '"'
DOCOMMAND $Cmd
/// WAIT FORM Indispensable car sinon la Macro plante
// Il faut attendre la forme pour executer la suite
/// MACRO PAUSE "Outil $ToolName : $ExportToolImg"
WAIT FORM
// Generation Tool Preview
$Cmd="EXPORT TOOLASSEMBLYPREVIEW FILE " + $ExportToolImg
DOCOMMAND $Cmd
YES
FORM CANCEL TOOLASSPREVIEWFORM
//<img style="margin: -4px 400px -4px 5px" src="c:/Temp/vue.jpg" alt="ScreenShot" height="70%" />
$Ligne = '<img src="' + $ExportToolImg + '" alt="' + $ToolName + '"' + 'height="' + '10%"' +' />'
FILE WRITE $Ligne TO filename
$Ligne = "</div>"
FILE WRITE $Ligne TO filename
$Ligne = "</TD>"
FILE WRITE $Ligne TO filename
// Infos Outils
$Ligne = "<TD>"+$tp.name + "</TD><TD>" +$tp.Number.Value + "</TD><TD>" + round($tp.Diameter,3) + "</TD><TD>" + $tp.Type+ "</TD><TD>" + round($tp.TipRadius,3)+"</TD><TD>" + round($tp.Overhang,3) + "</TD><TD>" + $tp.HolderName + "</TD>"
FILE WRITE $Ligne TO filename
$Ligne = "</TR>"
FILE WRITE $Ligne TO filename
}
$Ligne = "</table>"
FILE WRITE $Ligne TO filename
$Ligne = "</body>"
FILE WRITE $Ligne TO filename
$Ligne = "</html>"
FILE WRITE $Ligne TO filename
FILE CLOSE filename
MESSAGE INFO "Export fichier : $Fichier"
// Ouverture fichier avec application associée
ole fileaction 'open' $Fichier