Macro qui permet d’importer par un simple clic droit des pdf au dossier du patient (ie : dans la base de donnée) et de les afficher dans drtux. Macro en cours de développement mais elle fonctionne.

1. Télécharger GhostScript sur le site du projet et l'installer. (choisir en bas de la liste l’exécutable Windows 32 bits ou 64 bits selon votre architecture système)
2. Télécharger ImageMagick sur le site du projet et l'installer.
3. Dans drTux :

• Ouvrir la fenêtre Documents
• Touche F8
• Rechercher le menu Gestion des Documents
• Clic droit sur le menu Gestion des Documents
• Créer et ajouter un nouvel élément à une liste
• Mettre un nom à votre macro (exemple: Import PDF)

Dans la partie droite de la fenêtre coller le texte suivant :

script

$start_titleNumérisation d’image$end_title{{:: SET_VAR ( cheminW,C:/Program Files/ImageMagick-6.7.2-Q16/Magickcmd)}}\
{{:: SET_VAR ( cheminL,/usr/bin/xsane)}}\
{{:: SET_VAR ( chemin, »)}}\
{{:: SET_VAR ( chemin,{{:: TEST(S,{{OS}},=,W,{{VAR=cheminW}},{{VAR=chemin}})}})}}\
{{:: SET_VAR ( chemin,{{:: TEST(S,{{OS}},=,L,{{VAR=cheminL}},{{VAR=chemin}})}})}}\
{{:: SET_VAR ( options, »)}}\
{{:: SET_VAR ( options,{{:: TEST (S,{{OS}},=,L,–save,{{VAR=options}})}})}}\
{{:: SET_VAR ( options,{{:: TEST(S,{{OS}},=,W,{{VAR=options}})}})}}\
{{::SET_VAR(Fichier,{{:: OPEN_FILE_NAME( Fichiers PDF \(*.pdf\);;Tous les fichiers \(*\))}})}}
 
{{::Intitule ( Image scannée ) }} {{::exe_process (WaitEnd, {{VAR=chemin}}, convert, -density, 150, {{VAR = Fichier}} , C:/temp/import_pdf.png)}}}\
{{::insert_image (c:/temp/import_pdf.png , 700 , 700)}}

Voici la macro pour Linux.

script

{{:: SET_VAR ( cheminW,C:/Program Files/ImageMagick-6.7.2-Q16/Magickcmd)}}\
{{:: SET_VAR ( cheminL,/usr/bin/convert)}}\
{{:: SET_VAR ( chemin, »)}}\
{{:: SET_VAR ( chemin,{{:: TEST(S,{{OS}},=,W,{{VAR=cheminW}},{{VAR=chemin}})}})}}\
{{:: SET_VAR ( chemin,{{:: TEST(S,{{OS}},=,L,{{VAR=cheminL}},{{VAR=chemin}})}})}}\
{{:: SET_VAR ( options, »)}}\
{{:: SET_VAR ( options,{{:: TEST (S,{{OS}},=,L,–save,{{VAR=options}})}})}}\
{{:: SET_VAR ( options,{{:: TEST(S,{{OS}},=,W,{{VAR=options}})}})}}\
{{::SET_VAR(Fichier,{{:: OPEN_FILE_NAME( Fichiers PDF \(*.pdf\);;Tous les fichiers \(*\))}})}}\
{{::Intitule ( Image scannée ) }} {{::exe_process (WaitEnd, {{VAR=chemin}}, convert, -density, 150, {{VAR = Fichier}} , ../../tmp/import_pdf.png)}}\
{{::insert_image (../../tmp/import_pdf.png , 700 , 700)}}

Problème : les pdf multipages génèrent des png multiples numerotes 0,1,2,etc. Je ne trouve pas pour les récupérer, autrement qu’en les important à la main