lesourd2

Bonjour à tous, Je cherche le decret/l'article stipulant le degre coupe feu des cloisons ou parois separant les salles informatiques aux locaux attenants. J'ai lu un article dans une commission technique qui dit que : "les salles serveurs doivent etre separées des locaux attenants par des cloisons coupe feu au moins 1 h 1/2, eventuellement 2 h par des M.S.O. et si possible 4 h par des M.S.C.F. en fonction de l'importance des contenus et surtout du risque de propagation d'un incendie ayant pris naissance à l'exterieur des locaux. Je pensais peut-etre trouver dans le code de la construction. Si quelqu'un a des infos des articles reglementaires, je suis preneur merci de votre aide M.S.O. : Mur Separatif Ordinaire M.S.C.F. : Mur Separatif Coupe feu

Salut en ouvrant le lisp te tu verras un "code" apres ceci :(defun c: Ensuite tu tapes en ligne de commande pour le lancer

Salut Avec Design CENTER @ +

Merci je vais tester...

Salut Exactement @+

Salut, Pas de" petite image", en fait le tableau n'est pas fait pour l'instant; Dans ma feuille Excel un certain nombre de colonnes ( de A à G par ex..) et dans ces colonnnes un certain nombre de cases qui seront à cocher ou non. J'aimerais donc une macro qui me desactiverait ou deselectionnerais toutes les cases cochees sans avoir à aller sur chacunes d'entre elles pour les decocher.

Bonjour à tous Je me suis fait un petit tableau Excel avec plusieurs cases à cocher/decocher. Je souhaiterais creer un soit une case ou un bouton me permettant de tout deselectionner les cases cochées. Si vous avez unee petite macro qui "traine " je suis preneur. Merci de votre aide

Salut J'aurais eventuellement ceci à te proposer dans un premier temps. Par contre impossibilite de "recadrer" le texte sans redefinir le bloc. (defun c:reflete_text ( / e_sel dxf_att typ_ent flag_on flag dxf_flag) (while (not (member typ_ent '("ATTRIB" "ATTDEF" "TEXT"))) (while (null (setq e_sel (nentsel "\nChoix de l'attribut/definition attribut/texte à reflèter:")))) (setq dxf_att (entget (car e_sel)) typ_ent (cdr (assoc 0 dxf_att)) ) (if (not (member typ_ent '("ATTRIB" "ATTDEF" "TEXT"))) (princ "\nN'est pas un Attribut, Définition d'Attribut ou du Texte!") ) ) (setq flag_on (cdr (assoc 71 dxf_att))) (cond ((zerop flag_on) (setq flag "Normal")) ((eq flag_on 2) (setq flag "Y")) ((eq flag_on 4) (setq flag "X")) ((eq flag_on 6) (setq flag "Double")) ) (princ (strcat "\nActuelement le texte " (if (zerop (getvar "MIRRTEXT")) "N'EST PAS" "EST") " reflété.")) (initget "Normal X Y Double") (setq flag (getkword (strcat "\nSymétrie [Normal/X/Y/Double] <" flag ">: "))) (cond ((not flag) (setq dxf_flag (cons 71 flag_on))) ((eq flag "Normal") (setq dxf_flag '(71 . 0))) ((eq flag "Y") (setq dxf_flag '(71 . 2))) ((eq flag "X") (setq dxf_flag '(71 . 4))) ((eq flag "Double") (setq dxf_flag '(71 . 6))) ) (setq dxf_att (subst dxf_flag (assoc 71 dxf_att) dxf_att)) (entmod dxf_att) (if (eq (type (car (last e_sel))) 'ENAME) (entupd (car (last e_sel))) (entupd (car e_sel)) ) (prin1) ) @+

Salut Tu devrais retrouver ton fichier . aws (espace de travail) avec ce chemin C:\Documents and Settings\xxx\Application Data\Autodesk\ACD-MEP 2008\fra\Support\Profiles\Profil sans nom

Salut Et le sujet a effectivement été abordé , je l'ai vu passer recemment sur le site, mais où? Courage

Salut Christian Merci !

Salut La qualite des images n'est effectivement pas au top, desolé.. @+

Salut Clic droit dans la partie "vierge" de la barre de taches =>barre d'outils => nouvelle barre d'outils. http://free0.hiboox.com/images/2110/509f4066651b12324cfc6b2fd0f989cf.jpg => choisir un dossier precedemment crée. http://free0.hiboox.com/images/2110/370e6c3034ea25d41c3b3a246a964dd9.jpg Le doosier s'affiche en bas dans la barre des taches En cliquant à droite sur la fleche on deroule les repertoires, sous repertoires et fichiers http://free0.hiboox.com/images/2110/411ef5e68d799b18a66c802dea5a54fe.jpg @+

Salut, Tu va pouvoir le faire mais dans la barre de taches Clic droit dans une partie "vierge" => barre d'outils => nouvelle barre d'outils => creer un nouveau dossier (il se modifiera dynamiquement) @+

Salut Ou encore ça de Patrick ;;;================================================================= ;;; ;;; RB.LSP V1.10 ;;; ;;; Refait tous les blocs de la couleur dubloc et sur le calque 0 ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:rb(/ a b) (vl-load-com) (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) (setq a (tblnext "block" t)) (while a (setq b (cdr (assoc -2 a))) (while b (setq b (entget b)) (if (cdr (assoc 6 b)) (setq b (subst (cons 6 "ByBlock") (assoc 6 b) b)) (setq b (append b (list (cons 6 "ByBlock")))) ) (setq b (subst (cons 8 "0") (assoc 8 b) b)) (if (cdr (assoc 62 b)) (setq b (subst (cons 62 0) (assoc 62 b) b)) (setq b (append b (list (cons 62 0)))) ) (if (cdr (assoc 370 b)) (setq b (subst (cons 370 -2) (assoc 370 b) b)) (setq b (append b (list (cons 370 -2)))) ) (entmod b) (setq b (entnext (cdr (assoc -1 b)))) ) (setq a (tblnext "block")) ) (if (setq a (vl-remove-if-not '(lambda (x) (eq (car x) 350)) (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))) (foreach b a (entmod (append (vl-remove-if '(lambda (x) (eq (car x) 62)) (entget (cdr b))) (list (cons 62 0) (cons 62 0) (cons 62 0)))) ) ) (if (setq a (ssget "x" (list (cons 0 "INSERT")))) (foreach b (mapcar 'cadr (ssnamex a)) (if (cdr (assoc 66 (entget b))) (progn (setq a (entget (entnext b))) (while (not (eq (cdr (assoc 0 a)) "SEQEND")) (entmod (subst (cons 62 0) (assoc 62 a) a)) (setq a (entget (entnext (cdr (assoc -1 a))))) ) ) ) (entupd b) ) ) (vla-endundomark (vla-get-activedocument (vlax-get-acad-object))) (princ) ) (setq nom_lisp "RB") (if (/= app nil) (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp) (princ (strcat "..." nom_lisp " chargé.")) (princ (strcat "\n" nom_lisp ".LSP Chargé.....Tapez " nom_lisp " pour l'éxecuter."))) (princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter."))) (setq nom_lisp nil) (princ)

Salut Voir ce post http://cadxp.cadmag.info/modules.php?op=modload&name=XForum&file=viewthread&tid=27750#pid121673

Salut Si ton cartouche est en presentation (EO) glisser deposer, depuis Design Center. Lili à raison puis recommence

Salut (alert "ici votre message a l'ouverture du dessin") a mettre dans le meme repertoire cible

Salut Oups pour DQE que j'ai cru lire avec DOE DQE : Devis Quantitatif Estimatif

Salut En cherchant un peu... DPGF : Decompostion du Prix Global et Forfaitaire BPU : Bordereau de Prix Unitaire DOE : Dossier des Ouvrages Exécutés !!

Salut Et avec PDF Creator... @+

Salut Pour ce qui est le sens des arcs de cercles => Styles => Normal ou Calligraphie..... @]+

Salut à tous Je suis à la recherche de symboles ISO gratuits relatifs à la NF ISO 1219-1 pour tout ce qui concerne l'hydraulique ( vannes papillon, R.B.S. , clapet, filtres, debitmetre, pompes, disconnecteurs, etc..). Merci de votre aide @+

Salut à tous Variable HPGAPTOL à augmenter pour les tolerances espaces.

Tout va bien