Impression d'un ensemble de A4 dans l'espace objet

[crashray]

Bonjour,

 

Je me souviens avoir fait ça une fois mais impossible de retrouver la manipulation.

J'ai dans mon espace objet un ensemble de rectangle 21x29.7 les uns à côtés des autres. J'ai un 40 comme un tableau.

Je voudrais pouvoir imprimer sur un A4 chaque rectangle mais de manière assez rapide.

Sinon je peux faire Tracer et sélectionner les rectangles un par un mais ça va être long.

Je crois qu'il existe une fonction pour imprimer des "réseaux" de plans.

 

Si quelqu'un a déjà fait ça.

 

Merci

[x_all]

on utilise chez nous un petit lisp qui imprime les cadres. ces cadres doivent etre des rectangles, et ça serai à perfectionner mais il commence par le dernier (donc si tu veux les pages dans l'odre il faut tracer le 1er cadre sur la dernière page)

 

(defun c:impa4()
(setq pl(cdr (assoc 8 (entget (car (entsel "\nChoix du cadre imprime ?"))))))
 (setq sel (ssget "x" (list(cons 0  "LWPOLYLINE")(cons 8  pl)(cons 70  1))))
		 	


 (setq i 0)
 
(repeat (sslength sel)
(setq ent (ssname sel i))
 		(setq ent(entget ent))
 		 (setq j 0)
 		(setq l_cadre (list ))
 			(setq nb_sommets 0)
	 (repeat (length ent)
			(setq entit (nth j ent))
			(setq code_entit (car entit))
			(if (= code_entit 10)
				(progn
				  (setq l_cadre (cons (list (car (cdr entit))(cadr (cdr entit))) l_cadre))
				  (setq nb_sommets(+ nb_sommets 1))	
				);fin du progn
			);fin du if
		(setq j (+ j 1))
		)
 		 (if (= nb_sommets 4)
	   (progn
		(setq p1 (car l_cadre))
	    	(setq p2 (caddr l_cadre))


	 	(setq fichier (strcat "c:/temp/" (rtos (+ i 1) 2 0) ".pdf"))
(command "-traceur" "o" "" "PDFCreator 1.pc3" "A4" "M" "A" "N" "F" p1 p2 "P" "C" "O" "BA-Fer.ctb" "o" "F" "N" "N" "O")

; parametres M=mm, A pAysage P Portrait, N pas de symetrie verticale, F fenetre
; P pour ajuster au format ou "1=0.028" pour une echelle,C centrer,N Style de tracé o/n, nom de la table
; N épaisseur de lignes o/n, tracé de l'ombrage au format Affiché/Filaire/Masqué/Style visuel/Rendu
; N et O fo pas toucher

	   ))
   	(setq i (+ i 1))
 )

 )

(defun c:ok()
 (princ "ok")
 (princ )
 
 )

 

regarde bien les commentaires de la commande traceur pour régler le truc comme tu veux dans l'état, c'est sur pdfcréator avec notre fichier de plume et une échelle bâtarde qui va bien pour les carnet de ferraillage.

Il faut les modifier pour ta config sinon ça arrète de lisp.

 

Il y a d'autres solution, fait une recherche, il y en a qui passent par un générateur de présentation, c'est peut etre plus propre.... mais ce lisp une fois adapté ça va super vite

[tiphon]

Bonjour

Sinon, comme tu as Covadis :

Covadis 3d -> Profils en travers par polylignes 3d -> Impression automatisée

 

Cordialement