Raph_38

Salut, j'ai le même soucis avec le bloc d'un Bureau d'étude. Dans leur bloc, il y a 2 attributs que je n'arrive pas à retrouver dans l'éditeur de bloc, même en sélectionnant tout les attributs, il ne me les trouves pas. J'avoue ne pas comprendre.

Sympa Titi toutefois, si je peux me permettre une remarque, je trouve que ta terre tourne beaucoup trop vite.

essaye de coller ça sous ton écran http://www.optico-paris.com/21-135-large/loupe-serie-noire-ronde-.jpg

Normalement, les flèches ne s'utilisent que pour les changements de niveaux (d'étage) les utiliser sur le même étage (je l'ai malheureusement déjà vu) peut porter à confusion dans l'esprit de certains ouvriers. Dans le cas de changement d’altimétrie sur un même niveau, c'est effectivement la symbolique de la "coquille" qui doit être utilisé.

Rhôoo l'autre ! Au moins, je lui avait laissé un peu de boulot moua

Philsogood, titi t'as donné la bonne réponse ;) exemple : Ø ext = 50 mm épaisseur du tube = 2 mm (çà on s'en fou un peu) Rayon central = 2.5 D donc 2.5 x 50 mm ce qui donne R = 125 mm Surlongueur = 150 mm donc on rajoute une longueur de 150 mm de tube aux extrémités du tube je connais pas ce type de coude NCV .. mais vu les diamètres, ça m'a tout l'air d'être du plastique (PE, PEHD, PP, etc ...) je pense que ce sont des pièce qui s'assemble par polyfusion d'où la présence de surlongueurs. Tiens et pis comme je suis sympa (et que j'avais 2 min à tuer) voici tes coudes en version 2D à 90° Coudes NCV.zip

Top !! encore un de tes lisps que je ne connaissais pas ;)

Moi je viens de la réinstaller et cela fonctionne parfaitement

Effectivement, c'est bien dommage de ne pas pouvoir modifier et personnaliser le screen de démarrage.

Je viens de lire avec attention cet intéressant post C'est décidé, je passe le pas et je me mets aux STB (il serait temps ...) toutefois, j'avoue que les explications ne sont pas toujours super claires ni bien détaillées. Y aurait-il un membre assez sympa pour mettre en ligne un plan avec son STB afin que je puisse me faire une idée de l'organisation, de la conception du STB et du mode de travail avec ce style de tracé

Impeccable ! ;)

Génial, toujours top ce petit prog ;) Juste un truc que je vois comme ça dès le départ, c'est que l'on n'a pas la possibilité de redimensionner la fenêtre comme on le souhaite, c'est soit au format par défaut, soit en plein écran ;)

ça peux être intéressant comme truc ;)

Chef de projet : 31 850€ Brut ? Pas assez cher mon fils ! Et puis surtout, vu la description, c'est plutôt un poste de chargé d'affaire exécution.

Mouai ... de rien

Tu parle de celui-ci lili ? : Label

j'avais un lisp que Partick_35 m'avait développé. je le mets au cas ou .. il exporte une présentation (et les éléments de l'espace Objet) dans un autre fichier. testes le je pense qu'il te conviendra ;) ;;;================================================================= ;;; ;;; EXL.LSP V1.11 ;;; ;;; Exporter des Présentations ;;; ;;; Copyright (C) Patrick_35 ;;; ;;;================================================================= (defun c:exl(/ act bou cal cod dbx def doc fen lay liste_lay lst lst_base nom obj res s sel val bda *errexl*) (defun *errexl* (msg) (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) (vla-endundomark doc) (setq *error* s) (princ) ) (defun bda (titre lst / affiche_txt bascule dcl dwg fic fil gab parcourir res txt val) (defun bascule() (if (eq gab "0") (mode_tile "par" 1) (mode_tile "par" 0) ) ) (defun affiche_txt(txt) (if (> (strlen txt) 42) (set_tile "txt" (strcat (substr txt 1 10) "..." (substr txt (- (strlen txt) 29)))) (set_tile "txt" txt) ) ) (defun parcourir(/ rec) (setq rec (getfiled "Choix d'un Gabarit" (strcat (vla-get-templatedwgpath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) "/" ) "dwt;dwg;dxf" 8 ) ) (and rec (setq dwg rec)(affiche_txt dwg)) ) (setq fic (vl-filename-mktemp "exl" nil ".dcl") fil (open fic "w") dwg (getenv "Patrick_35_Gabarit_Exl") gab (getenv "Patrick_35_Bouton_Gabarit") ) (or gab (setq gab "0")) (foreach txt '( "exl : dialog {" " key = \"titre\";" " alignment = centered;" " is_cancel = true;" " allow_accept = true;" " width = 50;" " : list_box {label= \"Sélection\"; key=\"sel\"; height = 20; multiple_select=true;}" " spacer;" " : boxed_row {" " label = \"Gabarit\";" " : toggle {key = \"gab\";}" " : text {key = \"txt\"; width = 40;}" " : button {label = \"...\"; key = \"par\"; width = 2;}" " }" " spacer;" " ok_cancel;" "}" ) (write-line txt fil) ) (close fil) (setq dcl (load_dialog fic)) (new_dialog "exl" dcl "") (set_tile "titre" titre) (set_tile "gab" gab) (bascule) (and dwg (affiche_txt dwg)) (start_list "sel") (mapcar 'add_list lst) (end_list) (action_tile "sel" "(setq val $value)") (action_tile "gab" "(setq gab $value)(bascule)") (action_tile "par" "(parcourir)") (action_tile "accept" "(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq res (start_dialog)) (unload_dialog dcl) (vl-file-delete fic) (and dwg (setenv "Patrick_35_Gabarit_Exl" dwg)) (and gab (setenv "Patrick_35_Bouton_Gabarit" gab)) (list res val) ) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object)) def (vla-get-activelayout doc) bou 1 s *error* *error* *errexl* ) (vla-startundomark doc) (acad-push-dbmod) (vlax-for lay (vla-get-layouts doc) (setq lst_base (cons (cons (vla-get-taborder lay) lay) lst_base )) ) (while (assoc bou lst_base) (setq liste_lay (cons (vla-get-name (cdr (assoc bou lst_base))) liste_lay ) bou (1+ bou) ) ) (and (= (car (setq res (bda "Exl 1.11" (reverse liste_lay)))) 1) (setq res (cadr res)) (while (not (eq res "")) (setq lst nil obj nil val (read res) lay (cdr (assoc (1+ val) lst_base)) act (vla-get-name lay) ) (and (ssget "x" (list (cons 0 "viewport") (cons 410 act))) (progn (princ (strcat "\nTraitement pour l'onglet : " act))(princ) (vlax-for fen (setq sel (vla-get-activeselectionset doc)) (vla-getxdata fen "" 'cod 'cal) (setq cod (vlax-safearray->list cod) cal (vlax-safearray->list cal) bou 0 ) (while (setq nom (nth bou cal)) (and (eq (nth bou cod) 1003) (not (member nom lst)) (setq lst (cons (vlax-variant-value nom) lst)) ) (setq bou (1+ bou)) ) ) (vla-delete sel) (setq dbx (vlax-create-object (if (< (setq rel (atoi (getvar "ACADVER"))) 16) "ObjectDBX.AxDbDocument" (strcat "ObjectDBX.AxDbDocument." (itoa rel)) ) ) ) (and (eq (getenv "Patrick_35_Bouton_Gabarit") "1") (vl-catch-all-apply 'vla-open (list dbx (getenv "Patrick_35_Gabarit_Exl"))) ) (ssget "x" (list (cons 67 0))) (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (or (member (vla-get-layer ent) lst) (setq obj (cons ent obj)) ) ) (vla-delete sel) (vla-copyobjects doc (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length obj)))) obj ) ) (vla-get-modelspace dbx) ) (vla-copyobjects doc (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 0)) (list lay) ) ) (vla-get-layouts dbx) ) (vla-saveas dbx (setq nom (strcat (vla-get-path doc) "/" (vl-filename-base (vla-get-name doc)) " - " act ".dwg"))) (vlax-release-object dbx) (setq dbx (vla-open (vla-get-documents (vlax-get-acad-object)) nom)) (vlax-for ent (vla-get-layouts dbx) (cond ((eq (vla-get-name ent) act) (vla-put-activelayout dbx ent) ) ((/= (vla-get-name ent) "Model") (vla-delete ent) ) ) ) (vla-close dbx :vlax-true) ) ) (setq res (substr res (+ 2 (strlen (itoa val))) (strlen res))) ) (alert "Traitement des onglets terminés.") ) (acad-pop-dbmod) (vla-endundomark doc) (setq *error* s) (princ) ) (setq nom_lisp "EXL") (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)

marrant ... je vois et je peux répondre dans ce forum, c'est normal ?

C'est clair que le E-transmit est dur à venir. En parlant de mauvais (et d'administration, pas ma faute c'est le cas) aujourd'hui j'en ai eu une nouvelle : un plan d'un bâtiment sur 2 niveaux avec 16 onglets (1 onglet par niveau et par lot) bon rien ... d'exceptionnel me direz vous ? ben si ! en allant dans l'espace objet, quelle surprise de voir 8x le plan du RdC et 8x le plan de l'étage le type avait tout simplement fait 1 plan par lot et par niveau, soit 16 plans du bâtiment - pas 1 seul bloc - que du texte multiligne (même pour le nom des pièces) - des éléments dans tous les calques (des cloisons dans le calque mur, et dans calque sanitaire, etc ...) - la moitié des éléments dans le calque 0 (ah ! tiens ça me rappelle un autre sujet sur Cadxp) Bref ... un beau bordel !! j'ai passé plus de temps à ranger qu'a bosser sur le plan

Malheureusement, ce serait bien que cela change un peu .. tout comme dans les BE, m'enfin, j'dis ça, j'dis rien

@fauxsuisse : pas de soucis chez moi, ça c'est installé sans problèmes ;)

Un grand merci gilles !! c'est top

Christian (Rebcao) Pour reprendre ton exemple mais en l'utilisant de manière plus "pratique", dans le domaine du CVC tu peux avoir (par exemple en ventilation) plusieurs calques (soufflage, reprise, air neuf, extraction, etc ...) sur ces calques on peut retrouver les mêmes blocs (coudes 45°, coudes 90°, té, etc...) Et Là ... ton exemple est encore plus parlant car même si la personne travaille "proprement" (le bloc est créé sur un calque en rapport avec l'élément) il y aura les mêmes conséquences que tu décrit

sur le nettoyeur de sechanbask, il y avait un transfert des objets présent sur le calque "0" dans un calque nommé "calque 0" du coup c'est aussi ce que je fais maintenant ;)

1/33, 1/3 (et oui ça existe ... pas sûr que ce soit une bonne chose mais ça existe) Bon alors un autre argument sur les échelles : sur un chantier, les gars de chantier ne se balades pas souvent avec un kutch ;)