Aller au contenu

Lisp pour ajuster la taille du papier du pdf à la taille du dessin


autospeed

Messages recommandés

Bonjour ,

Grace à DWG to PDF , Autocad depuis sa version 2010 permet de générer des PDF ! Le seul problème c'est qu'on doit choisir a chaque impression, une taille de papier en rapport avec le plan à imprimer.

Soit elle est trop petite et le plan est coupé

Soit elle est trop grande et le plan comporte des marges.

Si tous les onglets ont des plans de taille différente , c'est chiant !

Quelqu'un a t'il réalisé un petit lisp qui permettrait d'imprimer en pdf avec un papier de la dimension du plan en espace papier ?

 

Autre question .. quelqu'un utilise t-il ACME CAD CONVERTER pour ça ? et si oui en est il satisfait ... j'ai vu qu'il restait une marge sur la droite sur la version de Démo

Auteur du logiciel Autospeed

Auteur de la théorie du site www.kheops.biz

Auteur de nombreux livres

Lien vers le commentaire
Partager sur d’autres sites

Salut autospeed,

 

On n'utilise pas DWG to PDF mais pdfcreator chez nous.

Mais pour ce qui est des présentations, on travaille de cette façon :

- un rectangle sur un calque non imprimable qui correspond à la dimension totale

- un rectangle sur un calque imprimable avec un décalage de 5mm par rapport au premier

 

en lisp tu peux récupérer alors la dimension du rectangle extérieur et t'en servir pour

l'impression.

Tous pour lisp, Lisp pour tous!

Avec Revit, cela ne vas trop vite...

Lien vers le commentaire
Partager sur d’autres sites

Le problème est le même avec pdfcreator ... tu es a chaque fois obligé de mesurer ton plan avant de créer un format personnalisé. Ce qu'"il faudrait c'est un lisp qui calcule le format du zoom etendu au dessin puis qui s'en sert pour créer le format de papier.

Auteur du logiciel Autospeed

Auteur de la théorie du site www.kheops.biz

Auteur de nombreux livres

Lien vers le commentaire
Partager sur d’autres sites

Le problème est le même avec pdfcreator ... tu es a chaque fois obligé de mesurer ton plan avant de créer un format personnalisé. Ce qu'"il faudrait c'est un lisp qui calcule le format du zoom etendu au dessin puis qui s'en sert pour créer le format de papier.

Salut

 

Et avec les variables EXTMIN et EXTMAX ?

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

Salut

 

Quelques outils

 

(defun liste_imprimantes(/ imp lst)
 (setq lst (vlax-invoke (vla-get-activelayout doc) 'getplotdevicenames))
 (foreach imp (list "Aucun" "None")
   (setq lst (vl-remove imp lst))
 )
 lst
)

(defun liste_papiers(imp / lay lst old)
 (setq lay (vla-get-activelayout doc)
old (vla-get-configname lay)
 )
 (or (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-configname (list lay imp)))
   (vla-refreshplotdeviceinfo lay)
   (setq lst (mapcar '(lambda (x) (vla-getlocalemedianame lay x)) (vlax-invoke lay 'getcanonicalmedianames)))
 )
 (or (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-configname (list lay old)))
   (vla-refreshplotdeviceinfo lay)
 )
 lst
)

 

(setq doc (vla-get-activedocument (vlax-get-acad-object))) ; pointer sur le dessin courant

(setq traceurs (liste_imprimantes)) ; lister les imprimantes

(setq actuel "DWG To PDF.pc3") ; définir l'imprimante

(setq formats (liste_papiers actuel)) ; lister les formats papier de l'imprimante

(setq lay (vla-get-activelayout doc)) ; présentation active

(vla-get-canonicalmedianame lay) ; format papier
(vla-get-paperunits lay) ; unité du papier : 0=acInches, 1=acMillimeters, 2=acPixels 
(vla-getpapersize lay 'largeur 'hauteur) ; taille du papier

 

@+

Les Lisps de Patrick

Le but n'est pas toujours placé pour être atteint, mais pour servir de point de mire.

Joseph Joubert, 1754-1824

Lien vers le commentaire
Partager sur d’autres sites

Salut,

Pour info, il existe un outil qui permer de supprimer tout le blanc qu'il y a autour d'un PDF.

 

Exemple, En espace papier, vous faites un cadre de 10cm par 10cm, vous imprimez ce cadre sur un A0. Vous obtenez un A0 avec une crotte de mouche au milieu.

Et bien en le passant dans cette moulinette, cela enlèvera tout le blanc autour de la crotte pour obtenir que le cadre de 10x10.

 

Mon explication est simplifiée, car il y a plus d'options.

 

Voici le lien (appli in inglish) :-):

http://www.noliturbare.com/pdf-tools/pdf-cropper

 

Du coup, on ne s’embête plus à faire des format PDF personnalisé. On en a un seul grand, et ensuite on passe dans la moulinette (sauf pour les format standards).

 

A plus.

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

Salut,

Pour info, il existe un outil qui permer de supprimer tout le blanc qu'il y a autour d'un PDF.

 

Voici le lien (appli in inglish) :-):

http://www.noliturbare.com/pdf-tools/pdf-cropper

 

Du coup, on ne s’embête plus à faire des format PDF personnalisé. On en a un seul grand, et ensuite on passe dans la moulinette (sauf pour les format standards).

 

A plus.

 

Excellent merci beaucoup !

Lien vers le commentaire
Partager sur d’autres sites

Je ne connais pas ACME CAD CONVERTER. Peux-tu nous en dire un peu plus Autodpeed.

 

Nous on combine PDF cropper avec la publication d'autocad vers PDF créatore. Ce qui permet de faire des carnets de plans avec des formats différents dans un seul fichier PDF.

Et du coup PDF cropper permet de faire le ménage de toutes les pages en une seule manip.

 

De plus, on utilise également PDF sam, outil permettant de compiler - orienter - modifier - etc. des fichier PDF. Voilà pour être complet sur les PDF.

 

A plus.

 

[Edité le 30/8/2011 par adat-btp]

www.cad-is.fr
Autocad Map 2021 - Covadis/Autopiste V18.0c
Pisser sous la douche ne suffira pas
Lien vers le commentaire
Partager sur d’autres sites

http:// http://www.dwgtool.com/cadconvert.htm

Disons que ce programme te fait tout en une seule passe et sans autocad :-) ils sont entrain de corriger un petit bug dans les batch pdf by size car il restait une marge de 5 mm du coté droit .

C'est vraiment un bon logiciel .. en anglais !

Sinon le top en Français mais qui ne marche pas encore sur autocad 2012 64 bits c'est EDPLOT ARCHIVER de DRISS NABIH , c'est celui qu'on utilise depuis plus de 3 ans dans ma boite et ca serait difficile de s'en passer. Tu sélectionne les fichiers et tu obitens tout de suite les pdf croppés ...

 

Auteur du logiciel Autospeed

Auteur de la théorie du site www.kheops.biz

Auteur de nombreux livres

Lien vers le commentaire
Partager sur d’autres sites

Salut,

Pour info, il existe un outil qui permer de supprimer tout le blanc qu'il y a autour d'un PDF.

 

Exemple, En espace papier, vous faites un cadre de 10cm par 10cm, vous imprimez ce cadre sur un A0. Vous obtenez un A0 avec une crotte de mouche au milieu.

Et bien en le passant dans cette moulinette, cela enlèvera tout le blanc autour de la crotte pour obtenir que le cadre de 10x10.

 

Mon explication est simplifiée, car il y a plus d'options.

 

Voici le lien (appli in inglish) :-):

http://www.noliturbare.com/pdf-tools/pdf-cropper

 

Du coup, on ne s’embête plus à faire des format PDF personnalisé. On en a un seul grand, et ensuite on passe dans la moulinette (sauf pour les format standards).

 

A plus.

 

Trés bon logiciel, par contre lors de son lancement j'ai un message d'erreur : "GhostScrpt path not found in registry". J'ai pourtant installé Ghostscript 9.02 pour Win x64, exécuté en mode administrateur PDF Cropper et spécifié le répertoire BIN de Ghostscript dans le menu "Configure" mais rien n'y fait : une idée du problème ?

Lien vers le commentaire
Partager sur d’autres sites

par contre lors de son lancement j'ai un message d'erreur : "GhostScrpt path not found in registry"

 

Bonjour,

 

Sous XP il faut dans les propriété du système, dans l'onglet "Avancé" ajouter les variable d'environnements avec la déclaration appropriée:

 

GS_LIB C:\Program Files\gs\gs9.02\lib

 

et

 

GS_PROG C:\Program Files\gs\gs9.02\bin\gswin32.exe

 

Sous Seven (en 64) cela doit être à peu près la même chose... (gswin64.exe si ça existe?)

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

  • 2 semaines après...

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité