PDF avec des Hyperliens

[GEGEMATIC]

Salut à tous,

Je poursuit ici une conversation initiée dans feu le newsgroup NNTP d'Autodesk, quitte à poster en html, autant que ce soit ici ....

 

Le constat est que la publication PDF d'Autocad ne garde pas les hyperliens, alors que la publication DWFx (compatible XPS) les garde.

Mais le Dwf, comme format, c'est pas des plus standards.

 

En fait, les imprimantes PDF n'exportent pas les liens internes aux entité, mais sont capable de reconnaitre les textes représentant des Hyperlien.

 

Pour que ça marche, il faut :

1 : Que votre texte soit une police True Type

2 : Que dans les parametres de votre imprimante PDF, sous Graphique, Texte true Type,

la case à cocher doit être "texte true type"

 

A partir de là, Acrobat reader reconnait vos hyperliens, mais seulement si ce sont des URL :

pour le liens vers des fichier locaux, ça ne marchera pas

 

Pour aller plus loin :

Pour pouvoir faire des liens vers des fichier locaux, il faut utiliser la version trial de Pdf995, ou pdffactory :

 

si votre lien est ./photos/maPhoto.jpg

transformez en www.bidon/photos/maPhoto.jpg

Imprimez avec pdf995

avec pdfedit, transformez vos URL en Hyperliens (menu links)

 

A partir de ce moment, les liens sont en clair dans le fichier pdf :

Ouvrez le pdf avec un editeur de texte, remplacez www.bidon par .

enregistrez et le tour est joué !

 

Pour vous aider à convertir vos hyperliens existant en texte :

 

 

 

;***********************************************************************
;;§/hyperliens/retourne tous les hyper-lien sur un objet/ ename
;
(defun retourne_hyperliens ( ename  / vlaobj vlahyp id nb i lurl)
 (setq vlaobj (vlax-ename->vla-object ename))
 (setq vlahyp (vlax-get-property vlaobj 'Hyperlinks))
 (setq nb (vlax-get-property vlahyp 'Count)); compte le nombre d'hyperliens
 ;;parcours les hyperliens pour les supprimer
 (setq i 0)
 (while (< i nb)
   (setq lurl (cons (vla-get-url (vlax-invoke-method vlahyp 'Item i )) lurl))
   ;(vlax-invoke-method id 'Delete )
   (setq i (+ 1 i))
 )
 (reverse lurl)
)
; ****************************************************************************
;;§/plugg/ convertir l'Hyperlien en texte d'hyperliens/none
; Utile pour l'export d'hyperliens lors de la publication PDF
;
;(pw_pluggin_register '( "Extract_hyperlink2text" ( "*" )("Créer un texte True Type contenant le ;texte original du lien" )))

(defun Extract_hyperlink2text ()
 (setq ht (getreal "\nHauteur de texte ?"))
 (setq sel (ssget "_p"))
 (setq	n (sslength sel)
i 0
 )
 (while (< i n)
   (setq l (ssname sel i))
   (setq i (+ 1 i))
   (setq eg (entget l))
   (setq tlink (retourne_hyperliens l))
   (setq pt (cdr (assoc 10 eg)))
   (command "_text" pt ht 0.0 (car tlink))
 )
)

[FormaBois]

Merci pour ce partage ;)