imposer un traceur

[Didier-AD]

Bonjour,

Je crois avoir compris comment récupérer la liste des traceurs possibles mais

Comment fait on pour imposer un traceur précis pour une présentation; en effet les marges sont différentes pour un même format de papier il me faut donc récupérer la taille exacte de la zone imprimable ; l'idée est donc de choisir le traceur et de l'imposer avant de générer la mise en page.

Merci.

 

[Edité le 25/1/2007 par Didier-AD]

[Patrick_35]

Salut

Je ne comprends pas ta recherche. Il est possible de définir un grand format papier et de configurer le tracé avec l'option "surface encrée"

 

Sinon, deux routines pour t'aider

 

Rechercher les imprimantes

(defun liste_imprimantes(/ esp)
 (if (zerop (getvar "tilemode"))
   (setq esp (vla-get-paperspace (vla-get-ActiveDocument (vlax-get-acad-object))))
   (setq esp (vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object))))
 )
 (vl-remove "Aucun" (vlax-invoke (vla-get-layout esp) 'getplotdevicenames))
)

 

Rechercher les formats papier d'une imprimante

(defun liste_formats_papier(imp / def esp n lay lst paps)(setq aa imp)
 (if (zerop (getvar "tilemode"))
   (setq esp (vla-get-paperspace (vla-get-ActiveDocument (vlax-get-acad-object))))
   (setq esp (vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object))))
 )
 (setq lay (vla-get-layout esp)
       def (vla-get-configname lay))
 (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-configname (list lay imp))))
   (progn
     (vla-RefreshPlotDeviceInfo lay)
     (setq paps (vlax-invoke lay 'GetCanonicalMediaNames))
     (foreach n paps
       (setq lst (append lst (list (vla-GetLocaleMediaName lay n))))
     )
     (vl-catch-all-apply 'vla-put-configname (list lay def))
   )
   (setq lst '(""))
 )
 lst
)

 

@+

[Didier-AD]

Merci pour ces routines mais il me manque l'essentiel

je souhaite pouvoir afficher la liste des traceurs, dans une boite de dialogue DCL ou ODCL pour que que l'utilisateur choisisse l'un d'entre eux

ensuite, je veux pouvoir créer une présentation qui soit prête pour ce traceur

il me faut donc pouvoir imposer le traceur sur une présentation

 

Merci

[Patrick_35]

No problemo ;)

 

Le lisp MIM sur cette page impose sur les présentations sélectionnées l'imprimante ou le traceur choisis.

Tu peux t'en inspirer.

 

@+

[Didier-AD]

Merci beaucoup

En plus, je l'avais vu il y a quelques temps en parcourant la liste des routines que tu proposes

mais Elsheimer doit me guetter.....

 

Merci encore