PHILPHIL

hello dans les proprietes verouiller la fenetre "affichage verrouillé" tout simple doit bien y avoir ca dans la 2007 de memoire phil

HELLO CURCIS ca je l'avais trouve je cherche un peu plus d'information je l'ai integrer dans un LISp qui marche mais en modifiant les options ca "merdouille" soit que la traduction ne marche pas soit qu'il y a des guillement en trop qui se baladent et pas moyen de trouver toutes les commandes _ aec..... bon pas grave merci a+ phil

HELLO as tu essayer la bonne vieille methode avec un cahier et un crayon a cote de la souris tu ecris heure du debut, heure de fin et tu reporte tout ca dans un fichier excel par affaire ton boss n'est pas à 5 minutes pret par affaire bonne nuit "tiens je peut noter fin de travail" phil

bonjour vous savez ou on peut trouver les fichiers de la documentations pour ce genre de fonction dans aa2009 une fichier *.hlp ou *.pdf bien cacher sur le disk dur ou le dvd ?? _AecAnnoScheduleTagAdd bonne soirée merci phil

HELLO patrick je me fais un peu curieux il est comment ton LISP FOG vu la qualite des tes autres lisp je me dit qu'en effet le tiens doit etre nettement plus pratique pour se balader dans les "moults" onglet des fichiers que ce que nous propose autodesk avec une belle grandeeee fenetre sur tout un ecran ouaiiiii lisible quoi a+ "que la CAD soit avec nous" phil

HELLO ma manip ne force pas du tout les cotes car je suis anti voir ANTIIII forcage de cote, de couleur de type de ligne sauf aller une ou deux fois par fichier et encore (defun c:coc () (command "_dimtedit" pause "c") (princ)) texte au centre (defun c:cod () (command "_dimtedit" pause "d") (princ)) texte a droite (defun c:cog () (command "_dimtedit" pause "g") (princ)) texte a gauche (defun c:cocp () (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (prompt "CLIQUER SUR LES OBJETS COTES A MODIFIER, TEXTE AU CENTRE:") (setq entites nil) (while (null entites) (setq entites (ssget))) (setvar "osmode" 0) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq obj (ssname entites compt)) (command "_dimtedit" obj "c") (setq compt (1+ compt))) (setvar "osmode" osm) (princ) ) ) (defun c:codp () (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (prompt "CLIQUER SUR LES OBJETS COTES A MODIFIER, TEXTE INTERIEUR DROIT :") (setq entites nil) (while (null entites) (setq entites (ssget))) (setvar "osmode" 0) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq obj (ssname entites compt)) (command "_dimtedit" obj "d") (setq compt (1+ compt))) (setvar "osmode" osm) (princ) ) ) (defun c:cogp () (setvar "cmdecho" 0) (setq osm (getvar "osmode")) (prompt "CLIQUER SUR LES OBJETS COTES A MODIFIER, TEXTE INTERIEUR GAUCHE :") (setq entites nil) (while (null entites) (setq entites (ssget))) (setvar "osmode" 0) (setq compt 0) (setq com (sslength entites)) (while (< compt com) (progn (setq obj (ssname entites compt)) (command "_dimtedit" obj "g") (setq compt (1+ compt))) (setvar "osmode" osm) (princ) ) ) la gauche et la droite d'une cote dependant du fait quelle est été ou non "miroitee" ou pas a+ phil [Edité le 27/1/2009 par PHILPHIL]

hello pour ca il te suffit de faire comme pas mal d'entre nous je pense de tout jouer sur la mise en page sur ton a4 en horizontale tu fais 3 fenetres 1 fenetre zoomant sur montant gauche 1 fenetre zoomant la partie centrale 1 fenetre sur le montant droit et de mettre le texte de cote a gauche ou a droite suivant s'il doit apparaitre sur la fenetre de gauche ou de droite pour ca il y a une fonction dans autocad a+ phil

hello ca vient peut de la fonction "_imageframe" qui est sur 0 met le sur 2 ca créer un cadre a l'image qui te permet de la selectionner, étirer on peut y acceder par les icones dans la barre d'icone "reference" XREF et IMAGES a+ phil [Edité le 22/1/2009 par PHILPHIL]

hello exist'il un LISP ou une manipe ? pour reinserer plusieurs blocs de nom differents en une seule fois sans vouloir les replacer en un point precis juste pour faire une mise a jour de bloc qui pourrait deja etre places sur le fichier en allant les chercher dans un sous repertoire a+ phil

HELLO GILE ok ca marche il me fallait juste refaire les noms des filtres avec espaces il devait y avoir un souci avec car apres importation je me suis retrouvé avec deux filtre de meme nom et apres suppression d'un des deux tout a plante merci pour le LISP a+ phil [Edité le 26/12/2008 par PHILPHIL]

hello gile ca marche nickel sous version aa2009 juste un petit truc les filtres de propriétées qui sont avec un espace dans leurs nom n'apparaisent pas dans la liste de choix "XREF" "TEMPORAIRE" : oui dans la liste de choix "FAUX PLAFOND" : non ne sont pas dans la liste de choix voili voila bonnes fetes de fin d'année( s ) a tous phil

hello tous vue qu'avec le LISP il y a un fichier DAT fournit le but n'est pas de mettre tous les PRS mais seulement de remplir le fichiers DAT avec les PRS que l'on me demande de dessiner si par chance il est deja dans la base ( fichier DAT) tant mieux sinon je l'ecris et ainsi le DAT augmente a+ bonnes fetes de fin d'année phil

hello bred ca marche justement je le mettais a disposition pour les autres j'ai fait un bloc : un cadre et six attributs "ANI1, ANI2, .... je pose ce bloc sur les plans en renseignant les attributs et faisant attention que les concatenation des attributs soit toutes differentes avec le LISP je selectionne le premier bloc pour la reférence puis tous les autres , je designe l'onglet de reférence puis le LISP créer les onglets sans probleme le nom de l'onglet est créer a partir de la concatenation de "ANI1_ANI2_ANI3_ANI4_ANI5_ANI6" et si par exemple ANI5 et ANI6 sont vide le nom de l'onget "ANI1_ANI2_ANI3_ANI4" non je bloque juste sur le fait que je voudrais recuperer le nom du bloc reference pour ne selectionner que les bloc du meme nom (setq SEL (ssget '((0 . "INSERT") (8.nombloc))) salut phil

bonjour est ce qu'il y a une variable pour definir si oui ou non le nom du fichier dwg apparait ou pas dans le nom de fichier de sortie *.plt *.jpg *.pdf nomdefichier + nompresentation.plt : de base dans autocad nompresentation.plt : en option dans autocad ??? merci phil

hello BRED GIL et toutes et tous bred je me suis permis une tite modification a ton lisp c'est pour un bloc qui a six attributs "IMA1 IMA2 ... IMA6" qui peuvent etre ou non renseignes mais qui doivent etre tous differents sinon on se retrouve avec des noms de presentations en double et la ca bloque j'ai essaye de recuperer le nom du bloc 'NOMBLOC" pour la deuxieme selection mais je bloque merci phil ;;; Crée un onglet EP par cadre de page sélectionné en EO ;;; par Bred - Un onglet déjà paramétrer doit exister - ;;; Version 1.1 (defun C:CEP2 (/ ACDOC B C FEN I LAYS N-P NOM-P ONG-BASE ONG_DEST SEL XMIN YMAX A-P HAUT LARG P1 P2 NOM ECH LAY LOCK UNIT ) (vl-load-com) ; 4 Millimètres 5 Centimètres 6 Mètres (setq UNIT (cdr (assoc (getvar "INSUNITS") '((4 . 1) (5 . 10) (6 . 1000))))) (while (not SEL) (setq SEL (car (entsel "\n Choix du cadre (Bloc) :"))) (if SEL ;; (progn (if (not (equal (vla-get-objectname (setq B (vlax-ename->vla-object SEL))) "AcDbBlockReference")) ;;; (setq NOMBLOC (vlax-get-property (vlax-ename->vla-object SEL) 'EFFECTIVENAME)) ;; ) (setq SEL NIL) ) ) ) (setq SEL (ssget '((0 . "INSERT"))) ACDOC (vla-get-activedocument (vlax-get-acad-object)) ;;; NOM-P (getstring t "\n Nom des Onglets à Créer :") LAYS (layoutlist) ) (if (> (length LAYS) 1) (progn (princ "\n Copie configuration traceur d'onglet Existant. \n Plusieurs Présentations détectées.") (while (not ONG-BASE) (princ "\n") (repeat (setq I (length LAYS)) (princ (strcat (nth (- (length LAYS) I) LAYS) " * ")) (setq I (1- I)) ) (setq ONG-BASE (getstring t "\n Présentation d'où la configuration du traceur sera récupérée :")) (if (not (member ONG-BASE LAYS)) (setq ONG-BASE NIL) ) ) ) (setq ONG-BASE (car LAYS)) ) (setq A-P (vla-item (vla-get-layouts ACDOC) ONG-BASE)) (vla-getcustomscale A-P 'N 'M) (vla-put-activelayout ACDOC A-P) (vlax-for E (vla-get-paperspace ACDOC) (if (equal (vla-get-objectname E) "AcDbViewport") (setq LAY (vla-get-layer E) LOCK (vla-get-displaylocked E) ) ) ) (setq I 0) (repeat (sslength SEL) (if (vlax-property-available-p (vlax-ename->vla-object (ssname SEL I)) 'EFFECTIVENAME) (setq NOM vla-get-effectivename) (setq NOM vla-get-name) ) (if (equal (NOM (setq C (vlax-ename->vla-object (ssname SEL I)))) (NOM B)) (progn (vla-getboundingbox C 'XMIN 'YMAX) (setq LSTIMA (GETATT C) NBLSTIMA (length LSTIMA) IMA1 (cdr (nth 0 LSTIMA)) IMA2 (cdr (nth 1 LSTIMA)) IMA3 (cdr (nth 2 LSTIMA)) IMA4 (cdr (nth 3 LSTIMA)) IMA5 (cdr (nth 4 LSTIMA)) IMA6 (cdr (nth 5 LSTIMA)) ) (setq ONG_DEST IMA1) (if (/= IMA2 "") (setq ONG_DEST (strcat ONG_DEST "_" IMA2)) ) (if (/= IMA3 "") (setq ONG_DEST (strcat ONG_DEST "_" IMA3)) ) (if (/= IMA4 "") (setq ONG_DEST (strcat ONG_DEST "_" IMA4)) ) (if (/= IMA5 "") (setq ONG_DEST (strcat ONG_DEST "_" IMA5)) ) (if (/= IMA6 "") (setq ONG_DEST (strcat ONG_DEST "_" IMA6)) ) (setq N-P (vla-add (vla-get-layouts ACDOC) ONG_DEST)) (setq ECH (vla-get-yscalefactor C)) (vla-copyfrom N-P A-P) (vla-put-activelayout ACDOC N-P) (setq FEN (vla-addpviewport (vla-get-paperspace ACDOC) (vlax-3d-point '(0 0 0)) (setq LARG (* (/ UNIT 10) (/ (- (car (vlax-safearray->list YMAX)) (car (vlax-safearray->list XMIN))) ECH))) (setq HAUT (* (/ UNIT 10) (/ (- (cadr (vlax-safearray->list YMAX)) (cadr (vlax-safearray->list XMIN))) ECH))) ) ) (vla-put-layer FEN LAY) (vla-put-displaylocked FEN LOCK) (vla-zoomextents (vlax-get-acad-object)) (vla-display FEN :vlax-true) (vla-put-mspace ACDOC :vlax-true) (vla-put-activepviewport ACDOC FEN) (vla-zoomwindow (vlax-get-acad-object) XMIN YMAX) (vla-put-mspace ACDOC :vlax-false) (if (> (- (car (vlax-safearray->list YMAX)) (car (vlax-safearray->list XMIN))) (- (cadr (vlax-safearray->list YMAX)) (cadr (vlax-safearray->list XMIN))) ) (vla-put-plotrotation (vla-get-activelayout ACDOC) ac90degrees) (vla-put-plotrotation (vla-get-activelayout ACDOC) ac0degrees) ) (setq P1 (vlax-make-safearray vlax-vbdouble (cons 0 1)) P2 (vlax-make-safearray vlax-vbdouble (cons 0 1)) ) (vlax-make-variant (vlax-safearray-fill P1 (list (- (/ LARG 2)) (- (/ HAUT 2))))) (vlax-make-variant (vlax-safearray-fill P2 (list (/ LARG 2) (/ HAUT 2)))) (vla-put-plottype (vla-get-activelayout ACDOC) acwindow) (vla-setwindowtoplot (vla-get-activelayout ACDOC) P1 P2) (setq I (1+ I)) ) ) ) (setvar "TILEMODE" 1) (princ) ) ;; GETATT ;; Retourne une liste d'association des attribut du bloc ;; ;; Argument ;; bl : la référence de bloc (ename ou vla-object) ;; ;; Retour ;; une liste d'association du type : ((etiquette . valeur) ...) (defun GETATT (BL) (vl-load-com) (or (= (type BL) 'VLA-OBJECT) (setq BL (vlax-ename->vla-object BL)) ) (if (and (= (vla-get-objectname BL) "AcDbBlockReference") (= (vla-get-hasattributes BL) :vlax-true) ) (mapcar (function (lambda (X) (cons (vla-get-tagstring X) (vla-get-textstring X)) ) ) (vlax-invoke BL 'GETATTRIBUTES) ) ) )

Hello tres sympa ce LISP avec tous les profils il y aurait moyen d'avoir une tite mise a jour pour inclure des PRS ??? sachant que la soudure est representée par un chanfrein et non plus un arc de cercle si les specialistes de la structure métalique ne le contredisent pas a+ phil [Edité le 27/11/2008 par PHILPHIL]

hello grand sapin tu peux avoir acces a la boite de dialogue xlist.dcl dans le sous repertoire des express et modifier sa largeur width = 31; ==>> width = 150; mais avec vista et ses protections de sous répetoire faut le copier ailleur le modifier et le recopier dans le bon sous repertoire express a+ phil

HELLO bon je ne sais plus si ca s'appele vraiment un reacteur mais bon je voudrais dans un lisp modifier le code dxf d'une cote pour quelle soit en option 2 ( voir ci dessous ) dans la fenetre des propriétées à "AJUSTER" déplacement du texte ==> option 1 "conserver la ligne de cote avec le texte" option 2 "deplacer le texte , ajouter une ligne de repere" option 3 "deplacer le texte, pas de ligne de repere" dans ce lisp si la cote est en otpion 2 ca marche sans probleme par contre si apres certaines manips la cote est sur l'option1 le texte se déplace bien a droite mais sans tenir compte du décalage bon l'idée de droite gauche sur une cote est parfois aleatoire suivant la position du reacteur 10 qui bouge si la cote a été modifiée par une symétrie merci phil ; ------------------------------------------------------- ; MODIFICATION DE L EMPLACEMENT DU TEXTE DE COTE A DROITE ; ------------------------------------------------------- (defun C: CD () (setvar "cmdecho" 0) (setq OSM (getvar "osmode")) (setq DECATEXTECOTE (atof (getcfg "APPDATA/DECATEXTECOTE"))) (setq TMP (getdist (strcat "\nENTRER LE DECALAGE DE TEXTE DE COTE <" (rtos DECATEXTECOTE 2 8) ">: "))) (if TMP (setq DECATEXTECOTE TMP) ) (setvar "osmode" 0) (prompt "\nCLIQUER SUR LE(S) COTE(S) A MODIFIER :") (setq ENTX NIL) (while (null ENTX) (setq ENTX (ssget (list (cons -4 "[b]<[/b]or") (cons 0 "DIMENSION") (cons -4 "or>"))))) (setq COMPT 0) (setq COM (sslength ENTX)) (while (< COMPT COM) (progn (setq SJ2 (entget (ssname ENTX COMPT))) (setq POINT10 (cdr (assoc 10 SJ2)) POINT13 (cdr (assoc 13 SJ2)) POINT14 (cdr (assoc 14 SJ2)) ANGCOTE (cdr (assoc 50 SJ2)) LONGCOTE (cdr (assoc 42 SJ2)) CODEMPLA (cdr (assoc 70 SJ2)) ) (command "scu" "z" POINT10 (polar POINT10 ANGCOTE 10)) (if (> (car (trans POINT13 0 1)) (car (trans POINT10 0 1))) (progn (setq DIST (+ LONGCOTE DECATEXTECOTE))) (progn (setq DIST DECATEXTECOTE)) ) (command "scu" "p") ) (if (or (= CODEMPLA 33) (= CODEMPLA 161)) (progn (setq ANGLECOTE2 (angle POINT13 POINT14)) (setq POINT11 (polar POINT10 ANGLECOTE2 DIST)) (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2)) (entmod SJ2) (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2)) (entmod SJ2) ) ) (if (or (= CODEMPLA 32) (= CODEMPLA 160)) (progn (setq POINT11 (polar POINT10 ANGCOTE DIST)) (setq SJ2 (subst (cons 70 160) (assoc 70 SJ2) SJ2)) (entmod SJ2) (setq SJ2 (subst (cons 11 POINT11) (assoc 11 SJ2) SJ2)) (entmod SJ2) ) ) (entmod SJ2) (setq COMPT (1+ COMPT)) ) (setvar "osmode" OSM) (setcfg "APPDATA/DECATEXTECOTE" (rtos DECATEXTECOTE 2 8)) (princ) )[Edité le 13/11/2008 par PHILPHIL]

hello a tous bruno_t j'ai effectivement ce que tu as dessinné la toute premiere "ligne" de ta méthode 1 didier pour résumer et simplifie un peu j'ai par plan( 3 plans ) 1800 petit trait environ de 30 unites de longueur tout les 25 unites representant des poutrésons a peu pres de 20 unites de large c'est un plan récupere sur archicad qui en fait doit decomposer tout a sa plus simple expression comme si c'etait fait a la mains FAIT A LA MAINS avec quelque erreurs bien sur a 8 chiffre apres la zéro ( 0.00000023 ) sauf que si ma poutre fait 20unite de large avec la fonction " pedit , joindre fuzz=25" pedit va prendre et fermer les lignes parallele alors qu'il faut joindre que les fragment qui sont colinéaires chose que fait la fonction "joindre" qui ne s'occupe que des ligne qui sont bien colinéaire j'ai tout repris segment par segment avec la fonctions "joindre" ca ma prit 3/4 heures un lips aurait pris 1 minutes a+ phil

bonjour exist'il un LISP pour joindre ( commande "joindre" ) plusieurs lignes colinéaires en une seule fois j'ai des lignes colinéaires avec une espacement X comme si on prenait une ligne en tirets et que chaque tiret etait une ligne simple plutot que d'avoir une ligne en "interompu" formant 10 tirets visuelement j'ai récupére 10 lignes en "continuous" formant une ligne en tirets visuelement ca qui alourdie enormement la taille du fichier la commande joindre de pedit est inutile car elle va me joindre les lignes qui sont parrallele a celle ci merci phil

SALUT LILIAN j'ai du trouver 383 erreurs en controlant le fichier des XDATA sur des textes tu as aussi quelque entites qui sont en 3d ou qui ne sont pas sur le plan xy = 0 disont que le Z n'est pas a zero sinon apercu normal en monochrome std sinon architecturalement parlant ca plutot l'air biscornue comme batiment plusieurs petites parcelles racheter pour n'en former qu'une seule ?? ca va etre cher le m² loll bon courage phil

Hello j'ai un NEC multisync lcd 2470 ecran principale et un vieux 17pouces secondaire pour mettre tout les icones , fenetre proprietees, fenetre xref .... CG deux sortie en laissant une barre d'icone sur le principale que du bonheur a l'écran phil

hello vue que je pensais etre le seul ok voila le LISP ( merci gille pour les premiere partie du lisp ) il faut le relancer pour chaque bloc, mais le pouce sur" barre espace" ou le doigt sur "bouton droit" ca va tres vite quand j'aurais decortique ce que gille m'a envoyer je ferais la mise a jour pour les blocs parametriques, et aussi pour d'abord tout selectionner et que ensuite le LISP fasse la manip par contre tu dois avoir deux blocs un pour gauche et un pour droit, apres tu peux aussi avoir des blocs parametrique avec dedans un parametre d'inversion au point de base phil ;; GETATT ;; Retourne une liste d'association des attribut du bloc ;; ;; Argument ;; bl : la référence de bloc (ename ou vla-object) ;; ;; Retour ;; une liste d'association du type : ((etiquette . valeur) ...) (defun GETATT (BL) (vl-load-com) (or (= (type BL) 'VLA-OBJECT) (setq BL (vlax-ename->vla-object BL)) ) (if (and (= (vla-get-objectname BL) "AcDbBlockReference") (= (vla-get-hasattributes BL) :vlax-true) ) (mapcar (function (lambda (X) (cons (vla-get-tagstring X) (vla-get-textstring X)) ) ) (vlax-invoke BL 'GETATTRIBUTES) ) ) ) ;; PUTATT ;; Donne les valeurs de la liste aux attributs du bloc ;; ;; Arguments ;; bl : la référence de bloc (ename ou vla-object) ;; lst : une liste d'association du type : ((etiquette . valeur) ...) ;; ;; Retour ;; une liste d'association du type des attributs traités (defun PUTATT (BL LST / ATT RET) (vl-load-com) (or (= (type BL) 'VLA-OBJECT) (setq BL (vlax-ename->vla-object BL)) ) (if (and (= (vla-get-objectname BL) "AcDbBlockReference") (= (vla-get-hasattributes BL) :vlax-true) ) (mapcar (function (lambda (X) (if (setq ATT (assoc (vla-get-tagstring X) LST)) (progn (vla-put-textstring X (cdr ATT)) (setq RET (cons ATT RET)) ) ) ) ) (vlax-invoke BL 'GETATTRIBUTES) ) ) RET ) (defun C: DG (/ LST ;;; / P1 LST ANGLES ECHLX ;;; NOMENTS NOMENTC ) (setq SOURCE (car (entsel "\nBloc source: "))) (command "scu" "") (setq LST (GETATT SOURCE)) (setq P1 (cdr (assoc 10 (entget SOURCE))) NOMENTS (vla-get-effectivename (vlax-ename->vla-object SOURCE)) CALQ (cdr (assoc 8 (entget SOURCE))) ANGLES (cdr (assoc 50 (entget SOURCE))) ECHLX (cdr (assoc 41 (entget SOURCE))) ) (setq CAV (getvar "clayer")) (command "-calque" "ch" CALQ "") ;;bloc de base créer symetriquement par rapport a l'axe Y (if (= NOMENTS "COTNIVD") (setq NOMENTC "c:/PERSO/bibliotheque/SYMBOLE/COTNIVG" ANGLEC (angtos ANGLES 0 8) ) ) (if (= NOMENTS "COTNIVG") (setq NOMENTC "c:/PERSO/bibliotheque/SYMBOLE/COTNIVD" ANGLEC (angtos [surligneur] ANGLES[/surligneur] 0 8) ) ) ;;fin bloc de base créer symetriquement par rapport a l'axe Y ;;porte 90 ;;bloc de base créer symetriquement par rapport a l'axe X (if (= NOMENTS " [surligneur] P90D 50 50[/surligneur]") (setq NOMENTC " [surligneur] c:/PERSO/bibliotheque/MENINT/DESSUS/P90G 50 50[/surligneur]" ANGLEC (angtos (- ANGLES pi) 0 8) ) ) (if (= NOMENTS [surligneur]"P90G 50 50[/surligneur]") (setq NOMENTC " [surligneur] c:/PERSO/bibliotheque/MENINT/DESSUS/P90D 50 50[/surligneur]" ANGLEC (angtos [surligneur] (- ANGLES pi)[/surligneur] 0 8) ) ) ;;fin porte 90 (command "INSERER" NOMENTC P1 (abs ECHLX) "" ANGLEC) (setq CIBLE (entlast)) (PUTATT CIBLE LST) (command "effacer" SOURCE "") (command "scu" "P") (setvar "clayer" CAV) (princ) ) [Edité le 26/9/2008 par PHILPHIL] [Edité le 26/9/2008 par PHILPHIL]

hello zebulon t'inquiete pas y'a pas de souci :) je n'y vois rien de grave a+ :D phil

hello pourquoi faire simple quand on peut faire compliqué ?? soit cette réponse s'adresse a AUTODESK ? la désolé je ne peux pas répondre a sa place soit elle est pour moi , la je peux répondre je m'explique je dessine des logements avec , des portes ( avec texte de largeur ), amenagement de placard, amenagement de SdB et cuisine plein de petits blocs qui font un beau plan d'archi ( j'entend déja dire les bureaux d'étude béton dire que ca sert a rien si les murs ne sont pas bien déssinés ) détrompez vous 18cm de béton font bien 180mm déssiné parfois il arrive qu'il y est des symetrique donc les bloc se retrouvent a etre a échelle x=-1, y=1, z=1 et ca je deteste comme bcp d'autre je pense passe par la mon petit LISP qui en cliquant sur le(s) dit bloc(s) incriminé(s) à la volée remet au meme endroit un nouveau bloc x=1,y=1,z=1 et ainsi les textes des portes se retrouve dans le bon sens de lecture , ce qui me prend 1minutes par appartement plutot que 10 minutes multiplier par le nb d'apparte et le fait que ce devienne Ch... ca parrait compliquer mais tres simple d'utilisation en gros mon lisp recupere le nom du BLOC et le rappelle, le réinsert au meme point et le tourne à 180degres ( un bloc pour gauche, un bloc pour droit ) ca marche tres bien pour les blocs simples ca se complique pour les paramétriques pour retrouver les données je vais tester/ fouiller/ aprivoiser ce que vous m'avez donner GILLES et ZEBULON, je vous en remercie phil