Giropode

Dans le bios, la seule option se rapportant à la carte graphique est une case permettant de désactiver la technologie Hybride. Je me suis Banco ! Seulement cette option laisse uniquement active le chipset... (complétement nul comme option !) Bonne journée !

Hello, Le fait de désactiver le chipset Intel n'aide pas. Ca fait planter la CG AMD... :blink: J'ai pour l'instant fait la chose suivante : Désinstallé les deux pilotes de CG.Installé les deux pilotes recommandés par HP (versions antérieures à celle que j'avais ) Bon a savoir Autodesk ne certifie pas la CG que j'ai (d'ailleurs, pas beaucoup de CG AMD... :angry:) Est-ce que ça pourrais être lié à ça ? P.S. : Ex-lyonnais ^^

Bonjour à tous ! Au boulot, je viens d'avoir un nouvel ordi portable. Celui-ci est doté de deux cartes graphiques (un chipset Intel HD Graphic 5500 et une AMD Firepo M4170). Pour s'assurer qu'AutoCAD 2016 et REVIT 2016 utilisent bien la bonne CG (l'AMD), j'ai forcé les deux applications a des performances élevées dans le gestionnaire Catalyst d'AMD. Cependant, REVIT continu de tourner sur le chipset. Résultat, j'ai le droit à quelques plantages aléatoires. Avez-vous une piste pour m'aider ? Merci et bonne journée à tous.

Bonjour à tous, Personne n'a de suggestion ? Bonne journée.

Bonjour, Merci pour la réponse. Par terrassement, j’entends du basique, c'est juste histoire de faire de la représentation. Bonne journée.

Bonjour à tous ! De façon inhabituelle (je suis en BE structure), j'ai du importer le plan de topo du projet pour modéliser une passerelle et des murs de soutènements. Jusque là tout va bien. Seulement j'aimerais pouvoir dans cette surface faire mes plateformes de terrassement (tant qu'à faire). Est-ce que quelqu'un pourrait m'aiguiller sur un tuto, me donner la solution ? Merci par avance et bon après-midi à tous.

onjour à tous, J'ai créé une étiquette d'annotation pour semelles filantes. Je suis parti du modèle de famille "Étiquette générique métrique" que j'ai catégorisé en étiquette de fondations. J'ai bien coché la case "Rotation avec le composant". J'ai fait mon étiquette avec les libellés qui m’intéresses. Je charge la dite étiquette dans mon porjet. Le libellés est correct, seulement l'orientation est soit horizontal soit vertical, mais jamais alignée avec le composant (si celui-ci est en biais, 33.3333° par exemple :P ) Est-ce un oubli de ma part ? Une lacune de Revit ? Existe-t-il une alternative ? Merci par avance.

Bonjour, Merci beaucoup ! Tu viens de me retirer une sacrée épine du pied ! Bonne journée.

Hello, Du coup je n'arrive pas au résultat souhaité. Est-ce que tu peux m'aider sur l'intégration exacte du code en Vlisp ? Je n'ai pas encore abordé le sujet. Merci !

Hello, Du coup, j'ai essayé avec le code dxf 76 (vu que je suis parti pour fonctionner comme ça...) La hachure prend bien en compte la modification, cependant, visuellement parlant, rien ne se passe... Ci-joint mon lisp à jour. xportrvt.lsp

Merci beaucoup ! Je vais m'empresser d’essayer ça ! Je te tiens au jus ! :D

Salut, Ci-joint un lien pour récupérer trois fichiers: Fichier issu de l'export (brut)Fichier après utilisation de la routineFichier souhaitéMerci :(rires forts): Lien pour récupérer les fichiers

Bonjour à tous ! Toujours pas d'âme charitable ? :unsure: Bonne journée à tous !

Bonjour, Il suffit de désinstaller complétement REVIT. De l'installer sans les SP et ensuite d'installer la Release ! Ouf !:blink: Bonne journée à tous !

Bonjour à tous ! Je reviens à a charge concernant ces hachures (non non, je ne suis pas du tout un acharné =D) Et en bonus, j'ai d'autres questions : Est-il possible via la méthode que j'utilise depuis le début de modifier les entités d'un bloc ? Si oui comment ?Peut-on jouer sur l'ordre de tracé des éléments ? Si oui, comment ?Pour modifier l'épaisseur de ligne d'un élément, est-ce bien le code DXF 370 ? Sinon, lequel ?Merci par avance de vos réponse et bon après-midi !

Bonjour à tous, Depuis le mois d'Octobre, l'application manager me propose d'installer la release 2 de Revit 2016 réservée aux clients Subscription. Après vérification, nous sommes dans ce cas de figure au bureau, donc ni une ni deux, je lance l'installation.Et la, un message d'erreur s'affiche ! Il dit texto : Impossible d'installer cette mise à jour car elle n'est pas destinée à la version de Revit 2016 installée sur votre système. :blink: Frustratiiiioooon ! Avez-vous une idée de comment l'installer ? Merci et bonne journée à tous !

Bonjour à tous, Je reviens vers vous pour savoir si quelqu'un parmi vous avez une piste de solution pour le dernier problème que j'ai soulevé. B) Merci et bon après-midi !

Bonjour à tous ! Comme je l'ai indiqué hier soir, le script fonctionne parfaitement. Pas d'erreurs, tous les éléments que je voulais déplacer/modifier, se déplacent/modifient. J'ai seulement une chose qui me pose problème. Comme vous l'aurez peut être remarqué dans le code, je modifie la variable MEASUREMENT de système métrique au système anglo-saxon. En effet, au bureau nous fonctionnons ainsi car cela permet d'avoir des valeurs d'échelles plus "logiques". Or l'export depuis Revit laisse cette variable sur le système métrique. Du coup, avec le Lisp j'ai beau changer la valeur d'échelle, mais les hachures ne s'affichent quand même pas de la façon souhaitée. Or si je le fais manuellement, les hachures s'affichent correctement. Est-ce qu'il y a une valeur que je dois modifier ?? Merci par avance de votre aide. Ci-joint la dernière version du code : [size=2]; Programme lisp permettant d'affiner un export REVIT > DWG chez BETREC[/size] ; Réalisé par Guillaume OJARDIAS - v15.11.17 (defun c:XPORTRVT (/ *error*) (setq XPORTRVT_CMDECHO (getvar 'CMDECHO) ) (setq XPORTRVT_MEASUREMENT (getvar 'MEASUREMENT) ) (setq XPORTRVT_PSLTSCALE (getvar 'PSLTSCALE) ) (setq XPORTRVT_LTSCALE (getvar 'LTSCALE) ) (defun *error* (MsgErreur) (setvar 'CMDECHO XPORTRVT_CMDECHO) (setvar 'MEASUREMENT XPORTRVT_MEASUREMENT) (setvar 'PSLTSCALE XPORTRVT_PSLTSCALE) (setvar 'LTSCALE XPORTRVT_LTSCALE) (princ "\nErreur : ") (princ MsgErreur) (princ "\nLa finalisation de l'export a échouée.") (princ) ); Fin de defun (setvar 'CMDECHO 0) ; Modification des variables selon gabarit BETREC (setvar 'MEASUREMENT 0) (setvar 'PSLTSCALE 0) (setvar 'LTSCALE 50) ; Importation des styles de ligne CACHE et AXES2 (command-s "_LINETYPE" "_LO" "CACHE" "B:/Gabarits/STR/acad.lin" "" "" "" "" "" "" "" "") (command-s "_LINETYPE" "_LO" "AXES2" "B:/Gabarits/STR/acad.lin" "" "" "" "" "" "" "" "") ; Création de la liste des calques BETREC (XPORTRVT_CreationCalque "BA-axes" "AXES2" "0.20" "110") (XPORTRVT_CreationCalque "BA-cartouche" "Continuous" "0.35" "254") (XPORTRVT_CreationCalque "BA-charpente" "Continuous" "0.25" "13") (XPORTRVT_CreationCalque "BA-cot" "Continuous" "0.20" "2") (XPORTRVT_CreationCalque "BA-cot impact" "Continuous" "0.15" "220") (XPORTRVT_CreationCalque "BA-cot reservations" "Continuous" "0.15" "191") (XPORTRVT_CreationCalque "BA-cot dalles escaliers" "Continuous" "0.35" "10") (XPORTRVT_CreationCalque "BA-existant" "CACHE" "0.25" "155") (XPORTRVT_CreationCalque "BA-fenetres" "Continuous" "0.20" "141") (XPORTRVT_CreationCalque "BA-hach" "Continuous" "0.15" "211") (XPORTRVT_CreationCalque "BA-hach dalles" "Continuous" "0.05" "133") (XPORTRVT_CreationCalque "BA-hach pot et cv" "Continuous" "0.15" "9") (XPORTRVT_CreationCalque "BA-md" "CACHE" "0.15" "6") (XPORTRVT_CreationCalque "BA-murs" "Continuous" "0.70" "7") (XPORTRVT_CreationCalque "BA-non porteur" "Continuous" "0.35" "253") (XPORTRVT_CreationCalque "BA-pieux puits" "Continuous" "0.35" "40") (XPORTRVT_CreationCalque "BA-pointillés" "CACHE" "0.15" "4") (XPORTRVT_CreationCalque "BA-poutres" "Continuous" "0.35" "1") (XPORTRVT_CreationCalque "BA-rep arma" "Continuous" "0.20" "82") (XPORTRVT_CreationCalque "BA-reservations" "Continuous" "0.15" "201") (XPORTRVT_CreationCalque "BA-reservations dalle" "Continuous" "0.15" "201") (XPORTRVT_CreationCalque "BA-semelles" "Continuous" "0.35" "30") (XPORTRVT_CreationCalque "BA-textes" "Continuous" "0.20" "3") (XPORTRVT_CreationCalque "BA-xrefs" "Continuous" "0.05" "7") ; Réatribution des élèments dans les bons calques (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "LINE,CIRCLE" 6 "CACHE" "" 256) ; Déplacement des lignes d'impact (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "INSERT" 6 "CACHE" "" 256) ; Déplacement des blocs d'impact (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "HATCH" 6 "" "AR-SAND" 256) ; Déplacement des hachures d'impact de murs (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "HATCH" 6 "" "CROSS" 256) ; Déplacement des hachures d'impact de relevés (XPORTRVT_DeplacementElements "BA-murs" "BA-hach pot et cv" "HATCH" 9 "" "SOLID" 170) ; Déplacement des hachures d'impact de relevés (setvar 'CMDECHO XPORTRVT_CMDECHO) (princ "Modification de l'export terminé !") (princ) ); Fin de la commande XPORTRVT ; -------------------------------------------------- ; Fonction permettant de créer les calques manquants (defun XPORTRVT_CreationCalque ( XPORTRVT_NomCalque XPORTRVT_TypeLigne XPORTRVT_EpLigne XPORTRVT_CouleurCalque / *error*) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ); Fin de defun (if (not (tblsearch "LAYER" XPORTRVT_NomCalque) ) (entmakex (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) (cons 2 XPORTRVT_NomCalque) (cons 62 (atoi XPORTRVT_CouleurCalque) ) (cons 6 XPORTRVT_TypeLigne) (cons 370 (atoi XPORTRVT_EpLigne) ) ); Fin de list ); Fin de entmake ); Fin de if ); Fin de la fonction XPORTRVT_CreationCalque ; -------------------------------------------------- ; ---------------------------------------------------------- ; Fonction permettant de les éléments d'un calque à un autre (defun XPORTRVT_DeplacementElements ( XPORTRVT_CalqueOrigine XPORTRVT_CalqueDestination XPORTRVT_TypeElement XPORTRVT_CouleurElement XPORTRVT_TypeLigne XPORTRVT_MotifHach XPORTRVT_NouvelleCouleur / *error*) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ); Fin de defun ; On créé les filtres de sélection en fonction du type d'élément (cond ((= XPORTRVT_TypeElement "HATCH") (setq XPORTRVT_FiltreSelection (list (cons 0 XPORTRVT_TypeElement) (cons 2 XPORTRVT_MotifHach) (cons 8 XPORTRVT_CalqueOrigine) (cons 62 XPORTRVT_CouleurElement) ) ) ) ((or (= XPORTRVT_TypeElement "LINE,CIRCLE") (= XPORTRVT_TypeElement "INSERT") ) (setq XPORTRVT_FiltreSelection (list (cons 0 XPORTRVT_TypeElement) (cons 6 XPORTRVT_TypeLigne) (cons 8 XPORTRVT_CalqueOrigine) (cons 62 XPORTRVT_CouleurElement) ) ) ) ) (if (setq XPORTRVT_Selection (ssget "_X" XPORTRVT_FiltreSelection ) ) ; On créé le jeu de sélection (progn (setq XPORTRVT_n 0) (while (ssname XPORTRVT_Selection XPORTRVT_n) (setq XPORTRVT_NomEntite (ssname XPORTRVT_Selection XPORTRVT_n) ); On récupére le Entity name de l'objet DXF (setq XPORTRVT_DonneesEntite (entget XPORTRVT_NomEntite)) ; On récupére les infos de l'objet DXF numéro n ; On change le type de ligne de l'élément (setq XPORTRVT_DonneesEntite (subst (cons 6 "Bylayer") (assoc 6 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) ; On change le calque de l'élément (setq XPORTRVT_DonneesEntite (subst (cons 8 XPORTRVT_CalqueDestination) (assoc 8 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) ; On change la couleur de l'élément (setq XPORTRVT_DonneesEntite (subst (cons 62 XPORTRVT_NouvelleCouleur) (assoc 62 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) (if (= XPORTRVT_TypeElement "HATCH") (cond ((= XPORTRVT_MotifHach "AR-SAND") (setq XPORTRVT_DonneesEntite (subst (cons 41 5.0) (assoc 41 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite)) ) ((= XPORTRVT_MotifHach "CROSS") (setq XPORTRVT_DonneesEntite (subst (cons 41 50.0) (assoc 41 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite)) ) ); Fin de cond ); Fin de if (entmod XPORTRVT_DonneesEntite) (setq XPORTRVT_n (1+ XPORTRVT_n)) ; On incrémente le compteur XPORTRVT_n de +1 ); Fin de while ); Fin de progn ); Fin de if ); Fin de la fonction XPORTRVT_DeplacementElements [size=2]; ----------------------------------------------------------[/size]

Merciiiiiiiiiiiiiiiiiiiiiiiiii !!!! Comme quoi ça tenait à pas grand chose ! :(rires forts):

Oh l'erreur de débutant ! :wacko: Ceci dit, j'ai toujours une erreur... :blink:

Arrrrrrrrgggg ! :blink: J'arrive pas à faire fonctionner le Lisp ! Il m'indique l'erreur suivante: Voici le code: (defun c:XPORTRVT (/ *error*) (setq XPORTRVT_CMDECHO (getvar 'CMDECHO) ) (setq XPORTRVT_MEASUREMENT (getvar 'MEASUREMENT) ) (setq XPORTRVT_PSLTSCALE (getvar 'PSLTSCALE) ) (setq XPORTRVT_LTSCALE (getvar 'LTSCALE) ) (defun *error* (MsgErreur) (setvar 'CMDECHO XPORTRVT_CMDECHO) (setvar 'MEASUREMENT XPORTRVT_MEASUREMENT) (setvar 'PSLTSCALE XPORTRVT_PSLTSCALE) (setvar 'LTSCALE XPORTRVT_LTSCALE) (princ "\nErreur : ") (princ MsgErreur) (princ "\nLa finalisation de l'export a échouée.") (princ) ); Fin de defun (setvar 'CMDECHO 0) ; Modification des variables selon gabarit BETREC (setvar 'MEASUREMENT 0) (setvar 'PSLTSCALE 0) (setvar 'LTSCALE 50) ; Importation des styles de ligne CACHE et AXES2 (command-s "_LINETYPE" "_LO" "CACHE" "B:/Gabarits/STR/acad.lin" "" "" "" "" "" "" "" "") (command-s "_LINETYPE" "_LO" "AXES2" "B:/Gabarits/STR/acad.lin" "" "" "" "" "" "" "" "") ; Création de la liste des calques BETREC (XPORTRVT_CreationCalque "BA-axes" "AXES2" "0.20" "110") (XPORTRVT_CreationCalque "BA-cartouche" "Continuous" "0.35" "254") (XPORTRVT_CreationCalque "BA-charpente" "Continuous" "0.25" "13") (XPORTRVT_CreationCalque "BA-cot" "Continuous" "0.20" "2") (XPORTRVT_CreationCalque "BA-cot impact" "Continuous" "0.15" "220") (XPORTRVT_CreationCalque "BA-cot reservations" "Continuous" "0.15" "191") (XPORTRVT_CreationCalque "BA-cot dalles escaliers" "Continuous" "0.35" "10") (XPORTRVT_CreationCalque "BA-existant" "CACHE" "0.25" "155") (XPORTRVT_CreationCalque "BA-fenetres" "Continuous" "0.20" "141") (XPORTRVT_CreationCalque "BA-hach" "Continuous" "0.15" "211") (XPORTRVT_CreationCalque "BA-hach dalles" "Continuous" "0.05" "133") (XPORTRVT_CreationCalque "BA-hach pot et cv" "Continuous" "0.15" "9") (XPORTRVT_CreationCalque "BA-md" "CACHE" "0.15" "6") (XPORTRVT_CreationCalque "BA-murs" "Continuous" "0.70" "7") (XPORTRVT_CreationCalque "BA-non porteur" "Continuous" "0.35" "253") (XPORTRVT_CreationCalque "BA-pieux puits" "Continuous" "0.35" "40") (XPORTRVT_CreationCalque "BA-pointillés" "CACHE" "0.15" "4") (XPORTRVT_CreationCalque "BA-poutres" "Continuous" "0.35" "1") (XPORTRVT_CreationCalque "BA-rep arma" "Continuous" "0.20" "82") (XPORTRVT_CreationCalque "BA-reservations" "Continuous" "0.15" "201") (XPORTRVT_CreationCalque "BA-reservations dalle" "Continuous" "0.15" "201") (XPORTRVT_CreationCalque "BA-semelles" "Continuous" "0.35" "30") (XPORTRVT_CreationCalque "BA-textes" "Continuous" "0.20" "3") (XPORTRVT_CreationCalque "BA-xrefs" "Continuous" "0.05" "7") ; Réatribution des élèments dans les bons calques (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "LINE,CIRCLE" 6 "CACHE" "" 256) ; Déplacement des lignes d'impact (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "INSERT" 6 "CACHE" "" 256) ; Déplacement des blocs d'impact (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "HATCH" 6 "" "AR-SAND" 256) ; Déplacement des hachures d'impact de murs (XPORTRVT_DeplacementElements "BA-poutres" "BA-md" "HATCH" 6 "" "CROSS" 256) ; Déplacement des hachures d'impact de relevés (XPORTRVT_DeplacementElements "BA-murs" "BA-hach pot et cv" "HATCH" 9 "" "SOLID" 170) ; Déplacement des hachures d'impact de relevés (setvar 'CMDECHO XPORTRVT_CMDECHO) (princ "Modification de l'export terminé !") (princ) ); Fin de la commande XPORTRVT ; -------------------------------------------------- ; Fonction permettant de créer les calques manquants (defun XPORTRVT_CreationCalque ( XPORTRVT_NomCalque XPORTRVT_TypeLigne XPORTRVT_EpLigne XPORTRVT_CouleurCalque / *error*) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ); Fin de defun (if (not (tblsearch "LAYER" XPORTRVT_NomCalque) ) (entmakex (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) (cons 2 XPORTRVT_NomCalque) (cons 62 (atoi XPORTRVT_CouleurCalque) ) (cons 6 XPORTRVT_TypeLigne) (cons 370 (atoi XPORTRVT_EpLigne) ) ); Fin de list ); Fin de entmake ); Fin de if ); Fin de la fonction XPORTRVT_CreationCalque ; -------------------------------------------------- ; ---------------------------------------------------------- ; Fonction permettant de les éléments d'un calque à un autre (defun XPORTRVT_DeplacementElements ( XPORTRVT_CalqueOrigine XPORTRVT_CalqueDestination XPORTRVT_TypeElement XPORTRVT_CouleurElement XPORTRVT_TypeLigne XPORTRVT_MotifHach XPORTRVT_NouvelleCouleur / *error*) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ); Fin de defun ; On créé les filtres de sélection en fonction du type d'élément (cond ((= XPORTRVT_TypeElement "HATCH") (setq XPORTRVT_FiltreSelection (list (cons 0 XPORTRVT_TypeElement) (cons 2 XPORTRVT_MotifHach) (cons 8 XPORTRVT_CalqueOrigine) (cons 62 XPORTRVT_CouleurElement) ) ) ) ((or (= XPORTRVT_TypeElement "LINE,CIRCLE") (= XPORTRVT_TypeElement "INSERT") ) (setq XPORTRVT_FiltreSelection (list (cons 0 XPORTRVT_TypeElement) (cons 6 XPORTRVT_TypeLigne) (cons 8 XPORTRVT_CalqueOrigine) (cons 62 XPORTRVT_CouleurElement) ) ) ) ) (if (setq XPORTRVT_Selection (ssget "_X" XPORTRVT_FiltreSelection ) ) ; On créé le jeu de sélection (setq XPORTRVT_n 0) (while (ssname XPORTRVT_Selection XPORTRVT_n) (setq XPORTRVT_n (1+ XPORTRVT_n)) ; On incrémente le compteur XPORTRVT_n de +1 (setq XPORTRVT_NomEntite (ssname XPORTRVT_Selection XPORTRVT_n) ); On récupére le Entity name de l'objet DXF (setq XPORTRVT_DonneesEntite (entget XPORTRVT_NomEntite)) ; On récupére les infos de l'objet DXF numéro n ; On change le type de ligne de l'élément (setq XPORTRVT_DonneesEntite (subst (cons 6 "Bylayer") (assoc 6 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) ; On change le calque de l'élément (setq XPORTRVT_DonneesEntite (subst (cons 8 XPORTRVT_CalqueDestination) (assoc 8 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) ; On change la couleur de l'élément (setq XPORTRVT_DonneesEntite (subst (cons 62 XPORTRVT_NouvelleCouleur) (assoc 62 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) (if (= XPORTRVT_TypeElement "HATCH") (cond ((= XPORTRVT_MotifHach "AR-SAND") (setq XPORTRVT_DonneesEntite (subst (cons 41 5) (assoc 41 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite)) ) ((= XPORTRVT_MotifHach "CROSS") (setq XPORTRVT_DonneesEntite (subst (cons 41 50) (assoc 41 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite)) ) ) ); Fin de if (entmod XPORTRVT_DonneesEntite) ); Fin de while ); Fin de if ); Fin de la fonction XPORTRVT_DeplacementElements ; ---------------------------------------------------------- Et le fichier avec lequel j'essaie de le faire fonctionner : Fichier DWG Merci par avance, je commence à être un poil désespéré ! :blink:

Merci !

Hello, Merci, mais je cherche pour les types de lignes (j'avais réussi à trouvé tant bien que mal pour les couleurs ^^) Merci par avance.

Bonjour, Merci pour l'aide, j'arrive à faire ma sélection désormais. Petite question supplémentaire, comment j'indique un type de ligne "DuCalque" avec les codes DXF ??? Pour l'instant j'ai tapé un truc du genre : (setq XPORTRVT_DonneesEntite (subst (cons 6 "BYLAYER") (assoc 6 XPORTRVT_DonneesEntite) XPORTRVT_DonneesEntite) ) (entmod XPORTRVT_DonneesEntite) Mais clairement je sais que ce n'est pas ByLayer qu'il faut indiquer... Merci d'avance !

Bonjour à tous, Ci-joint une mise à jour du LISP. P.S. : @lili2006, je ne gère toujours pas l'histoire du rectangle. Un jour ! ; Ce LISP permet de dupliquer des présentations en plusieurs exemplaires et de les renommer ; Fonctionnement : Copie de la présentation -> Décalage des fenêtres d'une valeur donnée -> Itération selon le nombre de pages souhaitées ;----------------------------------------------------------------------------- ; Début de la commande permettant de réaliser la duplication des présentations (defun c:FEUILLET (/ *error*) (setq FEUILLET_CMDECHO (getvar 'CMDECHO) ) (defun *error* (MsgErreur) (setvar 'CMDECHO FEUILLET_CMDECHO) (princ "\nErreur : ") (princ MsgErreur) (princ) ) (setvar 'CMDECHO 0) (setq FEUILLET_ListePresentations (FEUILLET_ListerPresentations) ) ; On liste les présentations de l'espace papier (setq FEUILLET_ListePresentationsMsg (vl-string-translate " " "/" FEUILLET_ListePresentations) ) ; On les espaces par des / pour le getkword (setq FEUILLET_ListePresentationsMsg (strcat "\nDonnez le nom de la présentation à dupliquer [" FEUILLET_ListePresentationsMsg "] : ") ) ; On finalise la question pour le getkword (initget 1 FEUILLET_ListePresentations) (setq FEUILLET_NomOriginal (getkword FEUILLET_ListePresentationsMsg) ); On demande le nom de la présentation à dupliquer (initget 1 "Oui Non") (setq FEUILLET_TypeOriginal (getkword "\nS'agit-il de la première page du carnet ? [Oui/Non] : ") ) ; On demande si il s'agit de la première présentation d'un carnet (setq FEUILLET_NumPlan (getstring "\nNuméro du plan (facultatif) ? ") ) ; On propose l'ajout d'un numéro de plan (si plusieurs carnet dans la même fichier) (initget 1) (setq FEUILLET_Nb (getint "\nDonnez le nombre de présentations à créer : ") ) ; On demande le nombre de présenations à créer (setq FEUILLET_NbString (rtos FEUILLET_Nb 2 0) ) (setq FEUILLET_MsgFinal (strcat FEUILLET_NbString " présentation(s) créée(s)")) (initget 1) (setq FEUILLET_DecalageX (getreal "\nDonnez la valeur de décalage entre chaque feuillet suivant X : ") ) ; Distance entre les feuillets dans l'espace objet suivant X (initget 1) (setq FEUILLET_DecalageY (getreal "\nDonnez la valeur de décalage entre chaque feuillet suivant Y : ") ) ; Distance entre les feuillets dans l'espace objet suivant X (setq FEUILLET_NomPrecedent FEUILLET_NomOriginal ) (setq FEUILLET_DecalageX (- FEUILLET_DecalageX) ) (setq FEUILLET_DecalageY (- FEUILLET_DecalageY) ) (setq FEUILLET_Pan (list FEUILLET_DecalageX FEUILLET_DecalageY ) ) (if (= FEUILLET_TypeOriginal "Non") (if (/= FEUILLET_NumPlan "") (progn (setq FEUILLET_PrefixePresentation (strcat FEUILLET_NumPlan "-") ) (setq FEUILLET_NumOriginal (vl-string-trim FEUILLET_PrefixePresentation FEUILLET_NomOriginal ) ) (setq FEUILLET_Num (atoi FEUILLET_NumOriginal) ) (setq FEUILLET_Nb (+ FEUILLET_Num FEUILLET_Nb) ) (setq FEUILLET_Num (+ FEUILLET_Num 1) ) ); fin de progn (progn (setq FEUILLET_Num (atoi FEUILLET_NomOriginal) ) (setq FEUILLET_Nb (+ FEUILLET_Num FEUILLET_Nb) ) (setq FEUILLET_Num (+ FEUILLET_Num 1) ) ); fin de progn ); fin de if (setq FEUILLET_Num 1) ) (while (<= FEUILLET_Num FEUILLET_Nb) (if (= FEUILLET_NomPrecedent FEUILLET_NomOriginal) (progn ; On vérifie le nom du feuillet (setq FEUILLET_NomFinal (FEUILLET_Verif FEUILLET_Num) ) ; On "crée" le feuillet (FEUILLET_Duplique FEUILLET_NomOriginal FEUILLET_NomFinal FEUILLET_Pan) ); fin de progn (progn ; On vérifie le nom du feuillet (setq FEUILLET_NomFinal (FEUILLET_Verif FEUILLET_Num) ) (FEUILLET_Duplique FEUILLET_NomPrecedent FEUILLET_NomFinal FEUILLET_Pan) );fin de progn ); fin de if (setq FEUILLET_NomPrecedent FEUILLET_NomFinal) (setq FEUILLET_Num (1+ FEUILLET_Num) ) ); fin de while (setvar 'CMDECHO 1) (alert FEUILLET_MsgFinal) ); fin de defun ;----------------------------------------------------------------------------- ;--------------------------------------------------------------------------------------------- ; Fonction pour vérifier et corriger, si nécessaire, la disponibilité d'un nom de présentation (defun FEUILLET_Verif (FEUILLET_Verif_Num / *error* FEUILLET_Verif_Nom FEUILLET_Verif_NomFinal FEUILLET_Verif_ListePresentations FEUILLET_Verif_Msg FEUILLET_Verif_Reponse FEUILLET_Verif_n) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ) ; Dans un premier temps on corrige le nom de la présentation (setq FEUILLET_Verif_Nom (FEUILLET_CorrectionInf10 FEUILLET_Verif_Num) ) (if (/= FEUILLET_NumPlan "") (if (= (type FEUILLET_Verif_Nom) 'STR ) (setq FEUILLET_Verif_Nom (strcat FEUILLET_NumPlan "-" FEUILLET_Verif_Nom) ) (setq FEUILLET_Verif_Nom (strcat FEUILLET_NumPlan "-" (rtos FEUILLET_Verif_Nom 2 0) ) ) ); fin de if ); fin de if ; On récupère la liste de présentations existantes (setq FEUILLET_Verif_ListePresentations (layoutlist) ) (if (member FEUILLET_Verif_Nom FEUILLET_Verif_ListePresentations) (progn (setq FEUILLET_Verif_Msg (strcat "La présentation " FEUILLET_Verif_Nom " existe déjà. Souhaitez-vous effacer l'existante ? [Oui/Non]: ") ) (initget 1 "Oui Non") (setq FEUILLET_Verif_Reponse (getkword FEUILLET_Verif_Msg)) ; On propose d'effacer la présentation existante (if (= FEUILLET_Verif_Reponse "Oui") (progn ; Si l'utilisateur accepte, on efface la présentation existante et on la remplace par la nouvelle (command "_layout" "_d" FEUILLET_Verif_Nom) (setq FEUILLET_Verif_NomFinal FEUILLET_Verif_Nom ) ); fin de progn (progn ; Sinon on cherche un nom de substitution (setq FEUILLET_Verif_n 0) (setq FEUILLET_Verif_NomFinal FEUILLET_Verif_Nom ) (while (member FEUILLET_Verif_NomFinal FEUILLET_Verif_ListePresentations) (setq FEUILLET_Verif_n (1+ FEUILLET_Verif_n) ) (setq FEUILLET_Verif_NomFinal (strcat FEUILLET_Verif_Nom " (" (rtos FEUILLET_Verif_n 2 0) ")") ) ); fin du while ); fin de progn ); fin du if ); fin de progn (setq FEUILLET_Verif_NomFinal FEUILLET_Verif_Nom ) ) ); fin de defun ;--------------------------------------------------------------------------------------------- ;------------------------------------------------------------------------ ; Fonction pour ajouter un zéro devant les présentations inférieures à 10 (defun FEUILLET_CorrectionInf10 (FEUILLET_CorrectionInf10_Num / *error* FEUILLET_CorrectionInf10_Nom) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ) ; Si le numéro de la présentation que l'on va créer est inférieure à 10, on ajoute un 0 devant (if (< FEUILLET_CorrectionInf10_Num 10) (setq FEUILLET_CorrectionInf10_Nom (strcat "0" (rtos FEUILLET_CorrectionInf10_Num 2 0) ) ) (setq FEUILLET_CorrectionInf10_Nom FEUILLET_CorrectionInf10_Num) ); fin de if ); fin de defun ;------------------------------------------------------------------------ ;-------------------------------------------------------------------------------------------- ; Fonction servant à dupliquer les présentation est à déplacer l'espace objet dans la fenêtre (defun FEUILLET_Duplique (FEUILLET_Duplique_NomPrecedent FEUILLET_Duplique_NomFinal FEUILLET_Duplique_Pan / *error*) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ) (command "_layout" "_c" FEUILLET_Duplique_NomPrecedent FEUILLET_Duplique_NomFinal) (command "_ctab" FEUILLET_Duplique_NomFinal) (command "_mspace") ; Fonction permettant de modifier plusieurs fenêtres dans l'espace papier, récupérée sur CADXP, je n'arrive pas à la comprendre, mais elle fonctionne ! (if (setq ss (ssget "_X" (list (cons 0 "viewport") (if (getvar "ctab") (cons 410 (getvar "ctab")) (cons 67 (- 1 (getvar "tilemode"))) ); fin de if ); fin de list ); fin de ssget ); fin de setq (foreach n (mapcar 'cdr (mapcar '(lambda (x) (assoc 69 x)) (mapcar 'entget (mapcar 'cadr (ssnamex ss))))) (if (not (eq n 1)) (progn (setvar "cvport" n) (command "_pan" FEUILLET_Duplique_Pan "") ) ); fin de if ); fin de foreach ); fin de if (command "_pspace") ); fin de defun ;-------------------------------------------------------------------------------------------- ;------------------------------------------------------------------ ; Fonction servant à récupérer la liste des présentations du projet (defun FEUILLET_ListerPresentations (/ *error*) (defun *error* (MsgErreur) (princ "\nErreur : ") (princ MsgErreur) (princ) ) (setq FEUILLET_Presentations (layoutlist) ) (setq FEUILLET_ListePresentations "") (foreach FEUILLET_Iteration FEUILLET_Presentations (if (/= FEUILLET_ListePresentations "") (setq FEUILLET_ListePresentations (strcat FEUILLET_ListePresentations " ") ) ); fin de if (setq FEUILLET_ListePresentations (strcat FEUILLET_ListePresentations FEUILLET_Iteration)) ); fin de foreach ); fin de defun ;------------------------------------------------------------------