impression de plusieurs plans dans le meme fichiers

[Invité adri7786]

Salut

 

Un truc vite fait en partant sur la config de base de l'imprimante.

 

Les folios partent du coin bas gauche puis vers la droite.

 

Ne pas oublier de redéfinir la variable nom_fplan pour rechercher le bon fond de plan des folios.

 

(defun c:impr(/ 2d-point doc nom_fplan bl bg hd lst res lay plt)

 (defun 2d-point (pt)
   (vlax-make-variant
     (vlax-safearray-fill
(vlax-make-safearray vlax-vbdouble '(0 . 1))
(list (car pt) (cadr pt))
     )
   )
 )

 (setq doc (vla-get-activedocument (vlax-get-acad-object))
nom_fplan "[b][surligneur]FOND_DE_PLAN[/surligneur][/b]"
 )
 (and (ssget "x" (list (cons 0 "insert") (cons 2 nom_fplan)))
   (progn
     (vlax-for bl (setq sel (vla-get-activeselectionset doc))
(vla-getboundingbox bl 'bg 'hd)
(setq lst (cons (list (vlax-safearray->list bg) (vlax-safearray->list hd)) lst))
     )
     (vla-delete sel)
     (setq res (vl-sort lst '(lambda (a b) (< (caadr a) (caadr b))))
    res (vl-sort res '(lambda (a b) (< (cadadr a) (cadadr b))))
    lay (vla-get-activelayout doc)
    plt (vla-get-plot doc)
     )
     (foreach fen res
(vla-put-plottype lay acwindow)
(vlax-invoke-method lay 'setwindowtoplot (2d-point (trans (car fen) 0 3)) (2d-point (trans (cadr fen) 0 3)))
(vlax-invoke plt 'plottodevice)
     )
   )
 )
 (princ)
)

 

@+

 

Bonjour a tous,

je suis nouveau sur ce site, je m'excuse d'avance si je commet des erreurs quelquonques.

je sui en formation CAO DAO, et donc m'interesse depuis peut a la programation,

 

le programme cité si dessu met tres utiles, mais j'aurai voulus savoir ce quil faut modifier pour que cela fonctionne avec un bloc dynamique, car jai créer met cartouche en dynamique a differente echelle, mais le programe ne fonctionne pas contrairement au bloc standar.

 

et si ce n'est pas trop demander...:) que faut t'il faire pour que cela ce base sur une mise en page defini, et non sur la mise en page standar, ou est t'il possible de crée une boite de dialogue entre le lancement du programme et limpression pour choisir une imprimante et une mise en page...

 

je ne c'est pas mes explication son asser precise, je remercie d'avance toute les personne qui ce penche sur cette etude de cas.

 

merci bcp et bon courage..., je pense qu'il en faut...;)