Presentations multiples : Automatisation

ACAD666 · le 15 octobre 2009

Bonjour à tous.

Impossible pour moi de retrouver sur ce forum un sujet dans lequel Bred (je crois) avait fait un lisp formidable qui permettait de créer automatiquement des présentations selon des blocs "cadres"

est-ce-que quelqu'un pourrait m'indiquer ou c'est?

Merci!

PHILPHIL · le 15 octobre 2009

hello

ca doit etre ca que tu cherches

http://www.cadxp.com/sujetXForum-19988.htm

a+

phil

[Edité le 15/10/2009 par PHILPHIL]

ACAD666 · le 15 octobre 2009

En plein dans le mille émile!

Merci!

lili2006 · le 9 février 2021

Bonjour à toutes et tous,

Je suis à la recherche du programme "CEP" de Bred et voulait savoir si quelqu'un l'utilise encore aujourd'hui sur une version 2021 (et surtout si il fonctionne encore,..)

A moins qu'il n'existe une autre routine ?

Je voudrais en effet lié mes blocs "cadres" de format A3 directement sur une page de présentation.

De mémoire, CEP faisait parfaitement l'affaire,...

Merci d'avance,

PHILPHIL · le 9 février 2021

hello LILI

voici la version que j'ai

cep1 de BRED

cep2 de BRED

cep de BRED modifie a ma sauce

code obsolète effacé

a+

PHil

lili2006 · le 9 février 2021

Grand merci PHLPHL,

Et quelles sont les différences entre ces trois versions ?

Que me conseilles tu ?

D'avance, merci,

lili2006 · le 9 février 2021

Re,

J'ai testé CEP1 sans succès,

CEP 2 s'est arrêté à la premier planche =>

Commande: CEP2
Choix du cadre (Bloc) :
Sélectionner des objets: 1 trouvé(s)
Sélectionner des objets: 1 trouvé(s), 2 au total
Sélectionner des objets: 1 trouvé(s), 3 au total
Sélectionner des objets: 1 trouvé(s), 4 au total
Sélectionner des objets: 1 trouvé(s), 5 au total
Sélectionner des objets:
Nom des Onglets à Créer :P_
Copie configuration traceur d'onglet Existant.
Plusieurs Présentations détectées.
Plan1 * TEST A SALLES *
Présentation d'où la configuration du traceur sera récupérée :Plan1
Restauration des fenêtres enregistrées en mémoire cache - Régénération de la présentation.
Régénération de la présentation.
Régénération de la présentation.
Commande: Régénération du modèle.
Commande: Régénération du modèle.
Commande:
Commande: ; erreur: Erreur Automation Entrée incorrecte
Commande:

ET CEP3

Commande inconnue "CEP3". Appuyez sur F1 pour obtenir de l'aide.

Une idée ?

Encore merci,

Luna · le 10 février 2021

Coucou,

lili, il me semble que CEP3 n'existe en effet pas, en revanche CEP vouih ^^"

voici la version que j'ai

cep1 de BRED
cep2 de BRED
cep de BRED modifie a ma sauce

Bisous,

Luna

PHILPHIL · le 10 février 2021

HELLO lili

je reteste les lisp

pour comprendre comment ils marchent

mon souci avec "CEP" est que je bosse en Cm et que mes présentations sont MM

est ce que tu dois faire des presentations qui sont toutes pareilles, style que des A3 ou A4 ?

phil

lecrabe · le 10 février 2021

Hello

Je pense que la routine NOG de notre regrette Patrick_35 est LA SOLUTION !

Elle fonctionne parfaitement meme sur un AutoCAD 2021

Par contre je ne maitrise plus du tout ses parametres / prerequis !

Actuellement la routine genere des Pres A3 paysage ... Avec une Echelle = 1.8 (donc du 555.6 eme) !?

Que faut il changer DEDANS pour etre par exemple en A3 (Portait ou Paysage) sur chaque Presentation generee ...

Et si on veut du A4 (ou autre format) ?

Et comment on maitrise l'Echelle des Fenetres (FMULT) generees ?

Je pense qu il y a un truc a faire du genre :

;; (vla-put-customscale fen 2.0)

ou

;; (vla-put-standardscale fen 2.0)

AU BON Endroit ! (Pour avoir du 500eme)

Mais je n'y arrive pas !!

Dans tous les cas, je reste avec cette foutue Échelle = 1.8

---- SVP si qq'un peut aider, ca serait SYMPA !

---- VDH-Bruno, Fraid, Luna, Bonuscad, Gilles, etc ...

SVP veuillez changer le nom du bloc "cadre" dans le Lisp : (setq nom "RECT")

Et apres vous avez N Blocs "cadre" insere un peu partout dans l onglet Objet ...

LA SANTE, Bye, lecrabe "fatigue"

;; 
;; Routine: NOG par Patrick_35
;;
;; Generation de N Presentations depuis N Blocs dans Onglet OBJET
;;
;;   (setq nom "RECT")   avec un Bloc de dimension 42.0 x 29.7 metres
;; 

(defun c:NOG (/ bg doc ent fen fol hd lay lst nom sel tot txt)

;;;;;;;;;;;;;; Nom du bloc ;;:::::;;;;;;; 
;; 
 (setq nom "RECT") 
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

 (vl-load-com) 

 (setq doc (vla-get-activedocument (vlax-get-acad-object))
lay (vla-get-layouts doc)
tot 1
 )
 (vla-startundomark doc)
 (and (ssget "x" (list (cons 0 "insert") (cons 2 nom)))
   (progn
     (vlax-for ent (setq sel (vla-get-activeselectionset doc))
(vla-getboundingbox ent 'bg 'hd)
(setq lst (cons (list (vlax-safearray->list bg) (vlax-safearray->list hd)) lst))
     )
     (vla-delete sel)
     (setq lst (vl-sort lst '(lambda(a B)(if (eq (cadar a) (cadar B))
				    (< (caar a) (caar B))
				    (< (cadar a) (cadar B))
				  )
		     )
	)
     )
     (while lst
(setq txt (itoa tot)
      tot (1+ tot)
)
(while (< (strlen txt) 3) (setq txt (strcat "0" txt)))
(if (vl-catch-all-error-p (setq fol (vl-catch-all-apply 'vla-item (list lay txt))))
  (setq fol (vla-add lay txt))
  (and (ssget "x" (list (cons 410 txt)))
    (progn
      (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) 'vla-delete)
      (vla-delete sel)
    )
  )
)
(vla-put-activelayout doc fol) 

;;;;;;;;;; Dimensions ;;;;;;;;;; 
;; 
;; (setq fen (vla-addpviewport (vla-get-block fol) (vlax-3d-point '(210.0 148.5 0.0)) 420. 297.)) 

;; ---- FMULT A3 correcte ---- 
  (setq fen (vla-addpviewport (vla-get-block fol) (vlax-3d-point '(204.0 137.0 0.0)) 404. 270.)) 

;; (setq fen (vla-addpviewport (vla-get-block fol) (vlax-3d-point '(420.0 297.0 0.0)) 840. 594.)) 
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

(vla-put-layer fen "0")
(vla-put-color fen "256")
(vla-put-viewporton fen :vlax-true)
(vla-zoomextents (vlax-get-acad-object))
(vla-display fen :vlax-false)
(vla-display fen :vlax-true)
(vla-put-mspace doc :vlax-true)
(vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point (caar lst)) (vlax-3d-point (cadar lst)))
(vla-put-mspace doc :vlax-false)
(vla-put-displaylocked fen :vlax-true)
(setq lst (cdr lst))
     )
   )
 )
 (vla-endundomark doc)
 (princ)
)

PHILPHIL · le 10 février 2021

HELLO LILI

Voici le bloc que j'implante sur mon fichier *.dwg pour utilisé "CEP"

RENOMMER LE BLOC "CADRE IMAGE.TXT3 en "CADRE IMAGE.DWG"

en renseignant les attributs ca permet de nommé les présentations

donc il faut que les series des 6 attributs soient toutes differentes sinon le lisp s'arrete

mettre les dimensions du cadre adapté a la présentation voulu

présentation A3 en millimettres

LARGEUR CADRE = 420

HAUTEUR CADRE = 297

dans mon lisp "CEP" il faut que tu renseignes au moins un nom de présentation présente sur ton fichier

à a modifier suivant ton nom désir

 (prompt "\n 3 : JPG570x800")

(if (= typecadre "3")
   (setq ong-base "JPG570x800")
 )

sachant que je bosse en cm et que mes présentation sont en mm, il peut y avoir des différences d'échelle chez toi a adapter

a+

Phil

CADRE IMAGE.txt

lili2006 · le 10 février 2021

Bonjour à toutes et tous,

Salut Luna,

Merki, je teste dés que possible,..

Salut PHILPHIL,

est ce que tu dois faire des presentations qui sont toutes pareilles, style que des A3 ou A4 ?

Oui, en m dans l'espace objet, et bien entendu, mm dans l'espace papier,..Je ne genererai que des formats A3H

Salut Patrice,

Je regarde dés que possible, merci (Et soignes toi bien surtout !!)

PHILPHIL · le 10 février 2021

hello LILI

une précision : implanter le bloc "CADRE IMAGE" dans le calque "T_FENETRE IMAGE"

sinon ils ne seront jamais sélectionner par

(setq sel   (ssget (list '(0 . "INSERT") (cons 8 "T_FENETRE IMAGE")))

Phil

lili2006 · le 10 février 2021

Re,

Alors CEP ne reconnait pas les autres blocs,...

Commande: CEP
Initialisation...
CHOIX DU CADRE SOURCE (Bloc) :
SELECTIONNER LES BLOCS CADRES POUR LA CREATION DES PRESENTATIONS :
Sélectionner des objets: 0 trouvé(s)
Sélectionner des objets: 0 trouvé(s), 0 au total
Sélectionner des objets: 0 trouvé(s), 0 au total
Sélectionner des objets: 0 trouvé(s), 0 au total
Sélectionner des objets:
type d'argument incorrect: lselsetp nil
Commande:

CEP1 =>

Commande: CEP1
Choix du cadre (Bloc) :
Sélectionner des objets: 1 trouvé(s)
Sélectionner des objets: 1 trouvé(s), 2 au total
Sélectionner des objets: 1 trouvé(s), 3 au total
Sélectionner des objets: 1 trouvé(s), 4 au total
Sélectionner des objets: 1 trouvé(s), 5 au total
Sélectionner des objets:
Nom des Onglets à Créer :01_
Restauration des fenêtres enregistrées en mémoire cache - Régénération de la présentation.
Régénération de la présentation.
Régénération de la présentation.
Commande: Régénération du modèle.
Commande: Régénération du modèle.
Commande:
Commande: ; erreur: Erreur Automation Entrée incorrecte
Commande:

ET CEP2 =>

Commande: CEP2 =>

Choix du cadre (Bloc) :
Sélectionner des objets: 1 trouvé(s)
Sélectionner des objets: 1 trouvé(s), 2 au total
Sélectionner des objets: 1 trouvé(s), 3 au total
Sélectionner des objets: 1 trouvé(s), 4 au total
Sélectionner des objets: 1 trouvé(s), 5 au total
Sélectionner des objets:
Nom des Onglets à Créer :01_
Restauration des fenêtres enregistrées en mémoire cache - Régénération de la présentation.
Régénération de la présentation.
Régénération de la présentation.
Commande: Régénération du modèle.
Commande: Régénération du modèle.
Commande:
Commande: ; erreur: Erreur Automation Entrée incorrecte
Commande:

lili2006 · le 10 février 2021

Re PHILPHIL,

Je vais essayer de finir avec ce que j'ai besoin puis éventuellement l'adapter à ta méthode,..

J'avais déjà utilisé CEP il y a quelques années et j'avais réussit à faire ce dont j'avais besoin,donc, y'a pas de raison pour ici,..

Je regarde le lisp de notre regretté PATRICK_35 pointé par Patrice et reviens vers vous,

Merci encore,

lili2006 · le 10 février 2021

Arf, en effet, toutes les questions de Patrice sont les bonnes,...

Par contre je ne maitrise plus du tout ses parametres / prerequis !
Actuellement la routine genere des Pres A3 paysage ... Avec une Echelle = 1.8 (donc du 555.6 eme) !?

Que faut il changer DEDANS pour etre par exemple en A3 (Portait ou Paysage) sur chaque Presentation generee ...
Et si on veut du A4 (ou autre format) ?
Et comment on maitrise l'Echelle des Fenetres (FMULT) generees ?

lili2006 · le 10 février 2021

Re,

J'ai suivi tes conseils PHILPHIL mais je n'arrive à rien ...

J'utilise ce FICHIER de test avec la présentation "00" que j'aimerai reproduire depuis la sélection de mon bloc "CADRE IMAGE" dans le calque "T_FENETRE IMAGE",..

Si quelqu'un peut me dire ce qui cloche ?

D'avance, merci,

lecrabe · le 10 février 2021

Hello

Bon j ai progresse UN POIL !

Car maintenant j'impose le facteur d echelle de la Fenetre FMULT ...

(vla-put-CustomScale fen VPScale ) ;;;; AJOUT par Patrice ;;;; Mise A l Echelle VPORT/FMULT

Mais franchement il faudrait un VRAI Lispeur sur cette routine !

Car "je plane" pour le reste !!

LA SANTE, Bye, lecrabe "fatigue"

;; 
;; Routine: NOG par Patrick_35
;;
;; Generation de N Presentations depuis N Blocs dans Onglet OBJET
;;
;;   (setq nom "RECT")   avec un Bloc de dimension 42.0 x 29.7 metres
;; 

(defun c:NOG (/ bg doc ent fen fol hd lay lst nom sel tot txt VPScale )

;;;;;;;;;;;;;; Nom du bloc ;;:::::;;;;;;; 
;; 
 (setq nom "RECT") 
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

;; ---- DWG en Metre ---- 

;  (setq VPScale    0.5) ;;; 2000eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale  0.667) ;;; 1500eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    0.8) ;;; 1250eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    1.0) ;;; 1000eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale  1.333) ;;;  750eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    2.0) ;;;  500eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    2.5) ;;;  400eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    4.0) ;;;  250eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    5.0) ;;;  200eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale  6.667) ;;;  150eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale    8.0) ;;;  125eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale   10.0) ;;;  100eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale 13.333) ;;;   75eme  - Scale Factor for VPORTs into Layouts
;  (setq VPScale   20.0) ;;;   50eme  - Scale Factor for VPORTs into Layouts

  (setq VPScale    4.0) ;;;  250eme  - Scale Factor for VPORTs into Layouts


 (vl-load-com) 

 (setq doc (vla-get-activedocument (vlax-get-acad-object))
lay (vla-get-layouts doc)
tot 1
 )
 (vla-startundomark doc)
 (and (ssget "x" (list (cons 0 "insert") (cons 2 nom)))
   (progn
     (vlax-for ent (setq sel (vla-get-activeselectionset doc))
(vla-getboundingbox ent 'bg 'hd)
(setq lst (cons (list (vlax-safearray->list bg) (vlax-safearray->list hd)) lst))
     )
     (vla-delete sel)
     (setq lst (vl-sort lst '(lambda(a B)(if (eq (cadar a) (cadar B))
				    (< (caar a) (caar B))
				    (< (cadar a) (cadar B))
				  )
		     )
	)
     )
     (while lst
(setq txt (itoa tot)
      tot (1+ tot)
)
(while (< (strlen txt) 3) (setq txt (strcat "0" txt)))
(if (vl-catch-all-error-p (setq fol (vl-catch-all-apply 'vla-item (list lay txt))))
  (setq fol (vla-add lay txt))
  (and (ssget "x" (list (cons 410 txt)))
    (progn
      (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) 'vla-delete)
      (vla-delete sel)
    )
  )
)
(vla-put-activelayout doc fol) 

;;;;;;;;;; Dimensions ;;;;;;;;;; 
;; 
;; (setq fen (vla-addpviewport (vla-get-block fol) (vlax-3d-point '(210.0 148.5 0.0)) 420. 297.)) 

;; ---- FMULT A3 correcte ---- 
    (setq fen (vla-addpviewport (vla-get-block fol) (vlax-3d-point '(204.0 137.0 0.0)) 404. 270.)) 

;;   (setq fen (vla-addpviewport (vla-get-block fol) (vlax-3d-point '(420.0 297.0 0.0)) 840. 594.)) 
;; 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

(vla-put-displaylocked fen :vlax-false)  ;;;; AJOUT par Patrice par Securite ;;;;

(vla-put-layer fen "0")
(vla-put-color fen "256")

(vla-put-viewporton fen :vlax-true)
(vla-zoomextents (vlax-get-acad-object))
(vla-display fen :vlax-false)
(vla-display fen :vlax-true)

(vla-put-mspace doc :vlax-true)
(vla-zoomwindow (vlax-get-acad-object) (vlax-3d-point (caar lst)) (vlax-3d-point (cadar lst)))
(vla-put-mspace doc :vlax-false) 

   (vla-put-CustomScale   fen VPScale )  ;;;; AJOUT par Patrice ;;;; Mise A l Echelle VPORT/FMULT
;   (vla-put-StandardScale fen VPScale )

       (vla-put-displaylocked fen :vlax-true) 

(setq lst (cdr lst))
     )
   )
 )
 (vla-endundomark doc)
 (princ)
)

philsogood · le 10 février 2021

lecrabe : change de signature, t'es plus expert, t'es retraité mtn!! :P

lili2006 · le 10 février 2021

Car "je plane" pour le reste !!

!! HIHI !!

Ben tout de même tu es allé bien plus loin que moi !!???!!

Commande: (LOAD "C:/Users/lili2006/Desktop/NOG.lsp") C:NOG
Commande: NOG
Commande:

PHILPHIL · le 10 février 2021

hello LILI

voici le nouveau lisp

CEP2 de BRED

CEP de BRED que j'ai modifie ( utilise les attributs de mon bloc pour nommer les présentation )

j'ai utilisé les deux sur ton fichier pour créer les onglets de présentation

et copier avec "CPP" ton cartouche sur les onglets

le scu de l'onglet "00" est en bas a gauche

le scu des onglets créer avec CEP et CEP2 est au centre du cadre

je te renvoie ton fichier en version 2018 ZIPPER

attention j'ai changé le sens horaire et l'angle de base dans les parametre dessin

il te faut utiliser mon bloc "CADRE IMAGE" qui est en cm

j'ai rajouter dans le lisp les données d'entrée d'échelle de l'espace PAPIER et OBJET

la difficulte est de jouer avec : l'echelle de l'espace OBJET

l'echelle de l'espace PAPIER

l'echelle du bloc implanté CADRE IMAGE

l'echelle dans laquelle le bloc a été dessinner

si tu changes ces parametres le résultat sera différent je pense

TEST CEP.zip

lili2006 · le 11 février 2021

Bonjour à toutes et tous,

MErci PHILPHIL d'avoir adapté le prog à mes besoins,..

Que se passe t'il passé les 6 présentations de prévu ?

PHILPHIL · le 11 février 2021

hello LILI

Que se passe t'il passé les 6 présentations de prévu ?

on doit pouvoir aller jusqu'a 256 onglet de présentations par fichiers je crois

tu implantes autant de fois que tu veux le bloc "CADRE IMAGE" en faisant attention que la concatenation des textes d'attributs soit tous differents

sinon ca fera deux onglets avec le meme nom et le lisp s’arrêtera

a+, phil

lecrabe · le 11 février 2021

Hello

YES 256 Présentations / Layouts maximum !

Mais il me semble avoir vu déjà PLUS par la fonction Atlas de MAP (A vérifier ?) ?!

La Santé, Bye, lecrabe "fatigué"

lili2006 · le 11 février 2021

Re,

tu implantes autant de fois que tu veux le bloc "CADRE IMAGE" en faisant attention que la concatenation des textes d'attributs soit tous differents

D'accord, comme je n'avais vu que 6 attributs "IMAGES",..

A priori, la fonction "GETATT" n'est pas reconnu sur mon MAp 3D2021,.., non ?

Commande: GETatt
Commande inconnue "GETATT". Appuyez sur F1 pour obtenir de l'aide.

Je viens de tester, j'ai ce message =>

Commande:
Commande: (LOAD "C:/Users/lili2006/Desktop/TEST CEP/cep2.lsp") C:CEP
Commande: CEP
ENTRER L'ECHELLE DE L'ESPACE OBJET EN METRE :
ENTRER L'ECHELLE DE L'ESPACE PAPIER EN METRE <.001>:
CHOIX DU CADRE SOURCE (Bloc) :-calque
Calque courant: "T_FENETRE IMAGE"
Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher/Xréf]: ac
Entrez la liste des noms de calque à activer: .T_FENETRE Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher/Xréf]: ch
Entrez le nom du calque à rendre courant ou : T_FENETRE Entrez une option [?/Etablir/CHoisir/Nouv/Renommer/ACtif/INactif/COuleur/TLigne/EPaisseurl/TRANsparence/MAtériau/Tracé/Geler/Libérer/Verrouiller/Déverrouiller/étAt/deScription/RApprocher/Xréf]:
SELECTIONNER LES BLOCS CADRES POUR LA CREATION DES PRESENTATIONS :
Sélectionner des objets: 1 trouvé(s)
Sélectionner des objets: 1 trouvé(s), 2 au total
Sélectionner des objets: 1 trouvé(s), 3 au total
Sélectionner des objets: 0 trouvé(s), 3 au total
Sélectionner des objets: 1 trouvé(s), 4 au total
Sélectionner des objets: 1 trouvé(s), 5 au total
Sélectionner des objets:
1 : JPG1188x1680
2 : PNG1188x1680
3 : JPG570x800
4 : A3H RDC 1-50 PL001-
5 : 00
SELECTIONNER LE TYPE DE CADRE A RECRER (1 2 3 4 5) : 5
Régénération de la présentation.
; erreur: no function definition: GETATT
Commande:
Commande: *Annuler*
Commande: *Annuler*
Commande:
Restauration des fenêtres enregistrées en mémoire cache.
Commande: *Annuler*
Commande: *Annuler*
Commande:
Restauration des fenêtres enregistrées en mémoire cache - Régénération de la présentation.
Commande: *Annuler*
Commande: *Annuler*
Commande:
Restauration des fenêtres enregistrées en mémoire cache.

surement à remplacer par GESTATTB, non ?

Presentations multiples : Automatisation

Messages recommandés

Meilleurs contributeurs dans ce sujet

Jours populaires

Meilleurs contributeurs dans ce sujet

Jours populaires

Messages populaires

PHILPHIL

Jérém

Créer un compte ou se connecter pour commenter

Créer un compte

Se connecter

Information importante