tracer depuis espace objet

[juju_30]

Bonjour,

 

je travaille sur des plans qui non pas d'onglets de présentations, et il faut que je face des carnets de détails de différents éléments qui sont dans des rectangles situés dans l'espace objet.

 

serait il possible d'avoir une routine LISP qui permettrait, en cliquant sur tous ces rectangles, de publier (ou tracer) en pdf les éléments qu'il y a dedans (en format A3).

 

Merci

[La Lozère]

Salut,

Dans un premier temps, tu peux regarder déjà de CE coté, ou de CELUI-LA....

 

A plus.

[x_all]

on m'avais fait ça a ya un moment

je ne sais plus qui en était l'auteur car il a pas commenter son travail, mais le bétoneux chez nous le remercie au moins 3 fois par semaine..

 

(defun c:impa3()
(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" "A3" "M" "A" "N" "F" p1 p2 "P" "C" "O" "monochrome.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 )
 
 )

 

quelques restrictions

il faut que les cadres soit des rectanges (pas les polyligne close)

il faut etre en scu G

 

tu peux adapter la ligne:

(command "-traceur" "o" "" "PDFCreator 1.pc3" "A3" "M" "A" "N" "F" p1 p2 "P" "C" "O" "monochrome.ctb" "o" "F" "N" "N" "O")

 

à ton imprimante, à si tu veux ajuster à la page ou une échelle...

 

avec pdfcréator, tu met les fichiers en fille d'attente et à la fin tu les compile en un seul carnet.