Chrisfs

non pas de patch de dispo, normalement pour avoir Revit, tu as du passé par un revendeur agrée Autodesk :casstet: , a voir avec eux pour obtenir une version française

j'crois que je faire comme toi, car, j'ai mis une routine lisp que j'ai récupéré dans le fichier acaddoc.lsp, et à chaque ouverture de dessin, c'est long (surtout quand c'est un gros plan avec plein de xref :casstet:

Bonjour, Étant responsable BE, je pense qu'il ne faut pas se baser trop sur ses compétences AutoCAD, mais plus sur sa formation professionnel, le logiciel AutoCAD étant juste un outil de travail (ce que beaucoup de jeunes arrivant on tendance à oublier). C'est bien de savoir manipuler le logiciel, mais encore faut-il savoir et comprendre ce que l'on dessine. Dans mon cas, je demande à l'intérimaire de connaitre les compétences techniques du bâtiment, si on ne sait pas lire un plan et détails gros-œuvre d'un projet de bâtiment, ça sert a rien que je continue avec. J'ai déjà eu des intérimaires, qui certes, manipulait bien AutoCAD, mais qui ne comprenait de rien a rien le métier, et c'est une grosse perte de temps et d'argent pour l'entreprise. Bon après, en bureau d'études, suivant les conventions collectives, il y a une hiérarchisation des postes, en bas de l'échelle, il y a le simple dessinateur exécution, et ça monte en passant dessinateur études, dessinateur projeteur, projeteur, etc... un bon tremplin est de passer soit par des boites d'intérim spécialisée bureau d'études, ou des SSII prestataires de services autocad, ou autres, qui permet a un jeune débutant de commencer. Pour ma part, j'ai une formation en électrotechnique, j'ai commencé dans une SSII où on m'envoyais en mission chez divers clients variées, et c'est là que j'ai commencé à plutôt m'orienté vers les bureaux d'études dans le bâtiment et BTP, certes au début, c'était pas simple, mais comme j'en voulais, j'ai pris le temps d'apprendre. ça fait quelques années que je suis dans la boite actuelle, étant assez consciencieux sur le taf, je suis passé responsable BE depuis peu :-) voila, Christophe

Bonsoir, j'ai pour habitude en vba de ne pas trop utiliser les fonctions if else avec plusieurs conditions, je pense qu'il faut plus choisir la fonction 'Select case' qui est plus simple : select case x case "CH9" select case OptionButton1 case true Call prog_etiqCAB case else end select case "Toto" case else select case OptionButton1 case true Call prog_PLT_traceur case else end select end select j'ai fait les quelques lignes de tête mais ça devrait te donner la trame de base pour comprendre le fonctionnement de la fonction. slt

salut, en même temps, y a une forte baisse d'activité en bureau d'études, je constate que dans ma branche (Bâtiment) j'ai beaucoup moins de taf qu'il y a 1 an. ça doit être pareil dans les autres branches d'activités. juste assez de travail pour moi, j'ai dû interrompre la mission d'intérim de mon dessinateur. et c'est un peu pareil dans les autres agences de la boite où je bosse. Pour prendre de l'expérience, rien ne vaut les prestataires de services, ou les agences d'intérim spécialisé BE, c'est ce que j'ai fait pour débuter, et maintenant j'ai pas trop à me plaindre.

il suffit de paramétrer le style de cote pour qu'ils prennent en compte l'échelle de la présentation (onglet "Ajuster" - "Échelles des objets de cotes"). dans la présentation, pensez à verrouiller la fenetre, ensuite utilisez la fonction de mises a jour des cotes, cela devrait ajuster la cotation a l'échelle de la fenêtre. Sinon, la solution de Rebcao est celle qui est le plus souvent utilisé dans les plans de batiments, 1 calque par échelle de cotation.

Salut, ci joint un exemple de code que j'utilise de temps en temps : Sub DessinEEPTronc() Dim Cota As Double Dim Cotb As Double Dim Cotc As Double Dim Cotd As Double Dim Alpa(0 To 7) As Double Dim Mirr1(0 To 2) As Double Dim Mirr2(0 To 2) As Double Dim Lin1(0 To 3) As Double Dim Lin2(0 To 3) As Double Dim Lin3(0 To 3) As Double Dim Polyline01 As AcadLWPolyline Dim Polyline02 As AcadLWPolyline Dim Polyline03 As AcadLWPolyline Dim Polyline04 As AcadLWPolyline Dim Polyline05 As Variant Cota = CDbl(InputBox("Diamêtre 'd' de l'EEP tronconique")) Cotb = 1.5 * Cota Cotc = 2 * Cota Cotd = 0.5 * Cota Alpa1 = ThisDrawing.Utility.GetPoint Alpa(0) = Alpa1(0) - 120 Alpa(1) = Alpa1(1) Alpa(2) = Alpa1(0) Alpa(3) = Alpa1(1) Alpa(4) = Alpa1(0) + Cotd Alpa(5) = Alpa1(1) - Cotb Alpa(6) = Alpa1(0) + Cotd Alpa(7) = Alpa1(1) - Cotb - 300 Mirr1(0) = Alpa1(0) + Cota Mirr1(1) = Alpa1(1) Mirr1(2) = 0 Mirr2(0) = Alpa1(0) + Cota Mirr2(1) = Alpa1(1) - Cotb Mirr2(2) = 0 Lin1(0) = Alpa1(0) Lin1(1) = Alpa1(1) Lin1(2) = Alpa1(0) + Cotc Lin1(3) = Alpa1(1) Lin2(0) = Alpa1(0) + Cotd Lin2(1) = Alpa1(1) - Cotb Lin2(2) = Alpa1(0) + Cotd + Cota Lin2(3) = Alpa1(1) - Cotb Set Polyline01 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Alpa) Polyline01.ConstantWidth = 3 Set Polyline02 = Polyline01.Mirror(Mirr1, Mirr2) Set Polyline03 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Lin1) Set Polyline04 = ThisDrawing.ModelSpace.AddLightWeightPolyline(Lin2) Polyline05 = Polyline04.Offset(300) End Sub tu verra, dans le code, il y a la creation d'une polyligne, de son mirroir et il y a une fonction offset à la fin.

il me semble que sur AutoCAD 2006, il existe la fonction publier, qui permet justement d'imprimer tout les onglets des dessins ouvert.

oui, y a plein de méthodes pour arriver au même résultat. Dans mon taf, j'ai des type de ligne personnalisés dans différents fichiers .lin (donc faut toutes les charger avant). Par contre, je vais regarder ton lisp pour la partie concernant le "formatage" de tes fichiers de réglages de calques (1 ligne par calque, c'est mieux que moi).

oui, on en rêve, lisp le fait... en cas de purge, je relance la routine, c'est plus simple :) et ça remets tous d'équerre si quelqu'un à bidouillé les propriétés des calques. quand j'aurais un peu de temps, je rajouterai quelques fonctions lisp qui puisse m'alléger le taf de mettre les plans conforme au centaines de chartes graphique qu'il puisse exister (comme mettre les cotes dans le calques "cotation", les textes dans "texte", remettre tout en "ducalque" etc...), mais le boulot me prends trop de temps pour l'instant !!!

oui, j'avais pas pensé à ce cas :( . Voici les valeurs a mettre : -3 = "ParDefaut" -2 = "DuBloc" -1 = "DuCalque" ensuite les épaisseurs : 0, 5, 9, 13, 15, 18, 20, 25, 30, 35, 40, 50, 53, 60, 70, 80, 90, 100, 106, 120, 140, 158, 200, 211 merci pour le compliment, le plus dur a été de le convertir en lisp, car à la base je suis plus fan du VBA, mais, je suis en train de passer toutes mes routines VBA en Lisp, et c'est pas simple de se replonger dans le code...

Oui, c'est vrai que c'est un peu complexe, mais bon, j'aime bien me prendre la tête :P et c'est adaptable suivant les chartes graphiques demandées sur les differents chantiers.

Salut, J'ai fait une petite routine lisp qui permet d'importer d'un fichier texte, une liste de calque vers autoCAD. ça se décompose en 1 fichier lisp : ; PathCC => chemin d'acces au dossier racine des routines (setq PathCC "C:/ACADLISP/") ; PathLT => chemin d'acces au Dossier des Fichiers .LIN (setq pathLT "C:/ACADLISP/") (princ "\nTapez cr_cal pour creer les calques.") (defun charge_linetype () ; Routine pour charger les types de lignes (setq pathfiltl (strcat PathCC "linetype.ini")) (setq fic2 (open pathfiltl "r")) (while (setq tl1 (read-line fic2)) (setq tl2 (read-line fic2)) (if (= (tblsearch "ltype" tl1) nil) (command "_linetype" "_l" tl1 (strcat pathLT tl2) "")) ) (close fic2) (terpri) ) (defun C:cr_cal (/ Dcl_Id% Return#) ; Routine de creation des calques (charge_linetype) (setq Dcl_Id% (load_dialog (strcat PathCC "chriscad2009.dcl"))) (new_dialog "CreationLayer" Dcl_Id%) (action_tile "Edit1" "(setq preflay $value)") (action_tile "Radio1" "(setq typlay $value)") (action_tile "accept" "(done_dialog 1)(creation_layer preflay typlay)") (action_tile "cancel" "(done_dialog 0)") (setq Return# (start_dialog)) (unload_dialog Dcl_Id%) ) (defun creation_layer (preflay typlay) (vl-load-com) (setq acadobject (vlax-get-Acad-Object)) (setq activedocument (vla-get-activedocument acadobject)) (setq LayerTable (vla-get-layers activedocument)) (setq pathfilay (strcat PathCC "layer.ini")) (setq fic (open pathfilay "r")) (while (setq t1 (read-line fic)); t1 Nom du calque (setq t2 (read-line fic)); t2 Couleur du calque (setq t3 (read-line fic)); t3 Type de plan AutoCAD : PL TT ou DET (setq t4 (read-line fic)); t4 Type de ligne (setq t5 (read-line fic)); t5 Epaisseur du calque (setq t6 (read-line fic)); t6 si calque imprimé ou non (if (= preflay "") (setq layername t1)) (if (/= preflay "") (setq layername (strcat preflay "-" t1))) (if (= t3 "TT") (progn (setq anewlayer (vla-add LayerTable layername)) (vla-put-color anewlayer t2) (vla-put-linetype anewlayer t4) (vla-put-lineweight anewlayer t5) ) ) (if (= t3 typlay) (progn (setq anewlayer (vla-add LayerTable layername)) (vla-put-color anewlayer t2) (vla-put-linetype anewlayer t4) (vla-put-lineweight anewlayer t5) ) ) (if (/= t6 "X") (vla-put-plottable anewlayer :vlax-false) ) ) (close fic) (terpri) ) puis le fichier CHRISCAD2009.DCL pour la petite boite de dialogue (ou un autre nom, suffit de le renommer et de modifier la ligne concernée dans le lisp) : CreationLayer : dialog { key = "Title"; label = "Création de calques";//Title$ from lsp file initial_focus = "Edit1"; spacer; : row { : column { width = 5.09; fixed_width = true; spacer; : text { key = "Prompt"; label = "Préfixe des Calques :";//Prompt from lsp file } } : edit_box { key = "Edit1";//Edit1$ from lsp file edit_width = 26.42; fixed_width = true; } } spacer; : boxed_radio_column { key = "Radio1"; label = "Type de Document AutoCAD :"; : radio_button { key = "PL"; label = "Plan de Repérage"; } : radio_button { key = "DET"; label = "Carnet de détails"; } } spacer; : row { fixed_width = true; alignment = centered; : ok_button { width = 11; } : cancel_button { width = 11; } } }//CreationLayer ensuite il faut créer 2 fichiers a mettre dans le même dossier que le lisp (ou ailleurs en bidouillant un peu le lisp) : linetype.ini qui comportera la liste des type de ligne a charger layer.ini qui comportera la liste des calques avec leurs reglages chaque fichier doit être formater dans ce sens : linetype.ini : nom du type de ligne fichier .lin par exemple : AXES ACADISO.LIN CACHE ACADISO.LIN BORDURE ACADISO.LIN DIVISE ACADISO.LIN FANTOME ACADISO.LIN INTERROMPU ACADISO.LIN POINTILLE ACADISO.LIN TIRETPT ACADISO.LIN pour le fichier layer.ini : Nom du calque Code couleur Type de calque => ça c'est par rapport a ma boite de dialogue soit TT, DE ou PL (TT ça apparait quelque soit le cas) Type de ligne Épaisseur du calque (faut multiplier par 100x la valeur indiqué sur AutoCAD pour que ça passe en vlisp) Imprimer ou pas => X= calque imprimé vide=calque non imprimé exemple de fichier layer.ini : AXES 1 DET AXES 9 X COTATION 3 TT CONTINUOUS 9 X HACHURE 8 TT CONTINUOUS 9 X TEXTE 5 DET CONTINUOUS 9 X FEN 9 TT CONTINUOUS 20 JD 150 PL AXES 20 X Pour l'instant j'ai pas encore eu le temps d'optimiser le principe de la routine, mais ça me suffit pour mon taf. petit fichier zip avec les 4 fichiers Fichier routine creation calque.zip pensez à modifier les 2 lignes PathCC et PathLT, indiquez le dossier où sont les routines et les fichier .LIN Voila ma petite contribution

pas simple ce cas. j'ai l'habitude d'avoir à poser (enfin sur mes plans) les caniveaux Multiline de chez aco drain, en forme courbe, ça n'existe pas. par contre, il existe en longueur 50cm et 1m. le site de Aco drain c'est http://www.aco.fr. A voir si il peut faire un modèle sur mesure à ton projet, on sait jamais. Par contre, ça m'arrive souvent, de réaliser des "faux" caniveaux, c'est a dire, de réaliser le caniveau dans l'aménagement, et juste poser une grille au dessus. A noter, je crois, que pour les établissements scolaire, il y a une réglementation concernant les dimensions des ouvertures dans les grilles (pour les enfants en bas age, il faut pas qu'ils puissent pas passer les doigts).

si c'est une dalle béton avec une étanchéité prévue dessus, le DTU impose une pente de 2% mini pour une terrasse accessible aux véhicules.