Newsgroup: it.comp.macintosh
Titolo: [AS]Chi mi fa la prima lezione di applescript? :-)

Salve ragazzi, ho un problema che forse voi ed applescript assieme
potete risolvermi, e cosi forse imparo anche qualcosa di buono...
Ho una cartella con 200 files freehand che devo convertire in pdf.
Ho anche tutto il pacchetto acrobat che mi crea la stampante 'pdf
writer' e ho provato ad usarla ma mi genera pdf non postscipt non so
perché (da Xpress invece nessun problema, purtroppo però i file sono
freehand)
Allora ho provato ad Usare l'opzione esporta PDF da freehand9 che
funziona a meraviglia, solo che ci metto 4 giorni ad aprire 200 files e
risalvarli in PDF..non è che Applescript mi puo dare una mano?
Grazie a tutti
Erik
-- 
webmasterik@"i"
mac.com
 -i di imac per scrivermi

freehand)
Forse perche' i pdf sono pdf e i postscript sono postscript?
E' come dire non salva i files gif in formato Jpeg...
Comuque a me pdf writer ve bene...
Per il resto, no lo so :-(
Scusa.
Ciao
Paolo

 Comuque a me pdf writer ve bene...
Critica di molto aiuto devo dire...
Comunque il pdf ingloba la descrizione postscript di font e tracciati,
utile infatti anche per uscire in fotounità in determinate occasioni.
Prova ad esempio a salvare in pdf direttamente da frehhand e poi da
acrobat ad ingrandire dell'800% e dimmi poi se il file non è descritto
in postscript..
Ciao
un Erik oggi un po polemico


 
Vai a questo indirizzo:
http://www.mix.it/macmag/html/risorse/default.htm
e scaricati "Introduzione ad AppleScript" (e' un PDF in italino
piuttosto ben fatto...).

 risalvarli in PDF..non è che Applescript mi puo dare una mano?
Non conosco il dizionario di Freehand, pero' ti posso postare il codice
per fare il loop sui file contenuti nella cartella di partenza. Copia e
incolla il codice nell'editor di Applescript. Poi seleziona "Apri
dizionario" e seleziona Freehand per vedere i comandi per aprire ed
esportare i file. Dopodiche' scrivili dopo il comando 'tell application
"Freehand"' al posto di quelli inventati e prova lo script magari
iniziando con pochi file. Per qualsiasi domanda sono a disposizione.
set Cart_Inp to "Macintosh HD:Cartella di partenza"
set Cart_Out to "Macintosh HD:Cartella di arrivo"
set lista1 to list folder Cart_Inp
repeat with ind1 from 1 to number of items of lista1
 
        set Nome_File to item ind1 of lista1
        set File_Out  to Cart_Out & ":" & Nome_File
 
        tell application "Freehand"
                --- comandi di freehand inventati
                open file Nome_File
                export file into File_Out with format PDF
                close file
                --- fine comandi inventati
        end tell
end repeat
Ciao, Conan

potete risolvermi, e cosi forse imparo anche qualcosa di buono...
Non ho niente da aggiungere rispetto alla risposta di Conan :-)
(anche io non conosco il dizionario di Freehand)
Per le lezioni di Applescript, io e un olandese stiamo facendo 
un tutorial multimediale (in inglese, ora siamo al numero 5):
http://www.macscripter.net/magazine.html
Ciao,        \+----------+  "La risposta e` dentro di te...
   Vittorio --| : )    o |      ...MA E` SBAGLIATA!!!"
             /+----------+

 Per qualsiasi domanda sono a disposizione.
Molte grazie Conan, sfrutto subito l'occasione :-)
Questo è il tuo codice modificato per le mie esigenze, purtroopo mi da
un errore alla riga del "save" (FreeHand 9 ha incontrato un errore: Si è
verificato un errore di tipo3.)
-----------------------------------------------------
set Cart_Inp to "G4NewPower:fh"
set Cart_Out to "G4NewPower:pdf"
set lista1 to list folder Cart_Inp
repeat with ind1 from 1 to number of items of lista1
 
        set Nome_File to item ind1 of lista1
        set File_Out to Cart_Out & ":" & Nome_File
 
        tell application "FreeHand 9"
                --- comandi di freehand inventati
                open file Nome_File
                save file in File_Out as PDF    <--------qui da l'errore
                close file
                --- fine comandi inventati
        end tell
 
end repeat
----------------------------------------------
Ti posto il dizionare del SAVE di freehand 9, magari ti puo essere utile
save: Save a document.
        save  reference  -- The object to save.
                [in  alias]  -- The file in which to save the object.
                [as
FH7/FH7Template/AI11/AI88/AI3/AI55/ASCII/FH31/FH31TE/FH45/GenericEPS/Mac
EPS/MSDOSEPS/PhotoshopEPS/PDF/BitmapPICT/PICT/PICT2/RTF/TIFF/BMP/JPEG/GI
F/LRG/xResPaths/PNG/TGA]  -- The file type of the document in which to
save the data. This is case-sensitive.
                [IncludeFHDocInEPS  boolean]  -- Include the FreeHand
document in exported EPS files.
                [page  small integer]  -- The page to export. If
omitted, ALL pages will be exported. Does not apply to saving as
FreeHand Document.
                [SelectedOnly  boolean]  -- Output selected objects
only.
Grazie molte per l'interessamento


                [in  alias]  -- The file in which to save the object.
Ciao,        \+----------+  "La risposta e` dentro di te...


 set File_Out to Cart_Out & ":" & Nome_File as alias --**modifica!
ho fatto come mi hai detto e infatti sembra di aver passato un altro
scalino..m aancora qualcosa non va
il codice ora è questo
----------------------------------------------------------
set Cart_Inp to "G4NewPower:fh"
set Cart_Out to "G4NewPower:pdf"
set lista1 to list folder Cart_Inp
repeat with ind1 from 1 to number of items of lista1
 
        set Nome_File to item ind1 of lista1
        set File_Out to Cart_Out & ":" & Nome_File as alias 
        tell application "FreeHand 9"
                --- comandi di freehand inventati
                open file Nome_File
                save file in File_Out as PDF
                close file
                --- fine comandi inventati
        end tell
 
end repeat
-----------------------------------------------------------
l'errore è questo
'Non trovo il documento G4NewPower:pdf:001-to-tr-50'
001-to-tr-50 è il nome del primo file nella cartella 'fh', mi da lo
stesso errore per qualsiasi file metta in quella cartella ovviamente
cambiano nell'errore il nome del file
any ideas?
Grazie ancora
Erik


 prendi trascinando FreeHand sullo ScriptEditor.
Trascinando l'applicazione Freehand sullo script editor non succede
niente
Ho aperto il suo dizionario dall'interno dello script editor e ti posto
la sintassi del save (che avevo postato già, ma magari hai perso)
spero sia la stessa cosa
save: Save a document.
        save  reference  -- The object to save.
                [in  alias]  -- The file in which to save the object.
                [as
FH7/FH7Template/AI11/AI88/AI3/AI55/ASCII/FH31/FH31TE/FH45/GenericEPS/Mac
EPS/MSDOSEPS/PhotoshopEPS/PDF/BitmapPICT/PICT/PICT2/RTF/TIFF/BMP/JPEG/GI
F/LRG/xResPaths/PNG/TGA]  -- The file type of the document in which to
save the data. This is case-sensitive.
                [IncludeFHDocInEPS  boolean]  -- Include the FreeHand
document in exported EPS files.
                [page  small integer]  -- The page to export. If
omitted, ALL pages will be exported. Does not apply to saving as
FreeHand Document.
                [SelectedOnly  boolean]  -- Output selected objects
only.
grazie
ciao
-- 


 save document 1 in alias File_Out as PDF
Niente da fare..stesso errore di prima
Ho scritto giusto?
-------------------------
set Cart_Inp to "G4NewPower:fh"
set Cart_Out to "G4NewPower:pdf"
set lista1 to list folder Cart_Inp
repeat with ind1 from 1 to number of items of lista1
 
        set Nome_File to item ind1 of lista1
        set File_Out to Cart_Out & ":" & Nome_File as alias 
        tell application "FreeHand 9"
 
                open file Nome_File
                save document 1 in alias File_Out as PDF
                close file
 
        end tell
 
end repeat
ciao Erik


 end repeat
Sto programmando a memoria!!! Pero ci avevo quasi azzeccato con i
comandi Freehand :)))
Ciao, Conan

 un tutorial multimediale (in inglese, ora siamo al numero 5):
Grazie, volo a vedere nel sito le ultime novita'...
Ciao, Conan
P.S. Ritengo Applescript uno dei maggiori pregi di MacOS rispetto a Win.
L'unico linguaggio di script che mi piace oltre a AS e' REXX con cui ho
lavorato quando facevo l'operatore su un maoinframe con S.O. VM (tanto
che mi avevano battezzato l'exechista, per il fatto che le procedure
REXX avevano l'estensione EXEC). Con AS ormai faccio tutto e di piu'.
L'unica cosa che non riesco piu' a fare e' calcolare il costo del
collegamento a internet da quando ho aggiornato al 9.1 (colpa di Remote
Access). Qualcuno ha una soluzione? 

 Prova con "window 1" (non ho FH per provare)
putroppo non va


 comandi Freehand :)))
mitico :-)
Ciao


 end repeat
Ho usato questo listato...
L'Errore è
'Mi attendevo end of line, etc. ma ho trovato identifier.'
Sottolineando Cart_Out
Osso duro AS :-)
Grazie


 end open
Stesso errore e sottolineatura di prima...
Io purtroppo non ti posso essere di molto aiuto :-)


 "pdf"?
si si..la cartellla c'é
