fredbross

Bonjour, je vois que "tracé avec style de tracé" est coché alors que le style est "aucun", il vaut mieux alors décocher cette option qui génère souvent des fichiers vides.

Bonjour, voici un lisp simple que j'avais fait il y quelques années, il faut que PDFCreator soit installé. c'est pour du A3 sinon changer dans le lisp. (defun c:impauto() (vl-load-com) (setvar "cmdecho" 0) (setq pl (getlayer "Selectionne le calque des cadres à imprimer:")) (setq SS (ssget "_W" (getpoint "pt haut gauche") (getpoint "pt bas droit") (list(cons 0 "LWPOLYLINE") (cons 8 pl)))) (setvar "expert" 5) (if (and SS (> (sslength SS) 0)) (progn (repeat (setq iPTS (sslength SS)) (setq EN (entget (ssname SS (setq iPTS (1- iPTS)))) PTS (cons (cdr (assoc 10 EN)) PTS) ) ) (setq iPTS (vl-sort-i PTS '(lambda (A B) (cond ( (> (cadr A) (cadr B)) ) ((= 1 1) T) (T nil))))) (foreach iX iPTS (setq ent (ssname SS iX)) (setq ent(entget ent)) (setq j! 0) (setq l_cadre (list )) (setq nb_sommets 0) (repeat (length ent) (setq entit (nth j! ent)) (setq code_entit (car entit)) (if (= code_entit 10) (progn (setq l_cadre (cons (list (car (cdr entit))(cadr (cdr entit))) l_cadre)) (setq nb_sommets(+ nb_sommets 1)) );fin du progn );fin du if (setq j! (+ j! 1)) ) (if (= nb_sommets 4) (progn (setq p1 (car l_cadre)) (setq p2 (caddr l_cadre)) (command "-traceur" "o" "" "PDFCreator.pc3" "A3" "M" "A" "N" "F" p1 p2 "1:1" "C" "N" "." "O" "" "N" "N" "O") )) ) ))) (defun getlayer (titre / lay lst tmp file what_next dcl_id nom) (while (setq lay (tblnext "LAYER" (not lay))) (setq lst (cons (cdr (assoc 2 lay)) lst)) ) (setq lst (acad_strlsort lst) tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line (strcat "getlayer:dialog{label=" (cond (titre (vl-prin1-to-string titre)) ("\"Choisir un calque\"") ) ";initial_focus=\"tp\"; :boxed_column{:row{ :column{:text{label=\"Sélectionner un objet\";alignment=left;}} :column{:button{label=\">>\";key=\"obj\";alignment=right;fixed_width=true;} spacer;}} :edit_box{key=\"tp\";edit_width=50;allow_accept=true;} :popup_list{key=\"lay\";edit_width=50;} spacer;}ok_cancel;}" ) file ) (close file) (setq dcl_id (load_dialog tmp)) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getlayer" dcl_id)) (exit) ) (start_list "lay") (mapcar 'add_list lst) (end_list) (or nom (setq nom (vlax-ldata-get "getLayer" "n")) (setq nom (vlax-ldata-put "getLayer" "n" "0")) ) (if (member nom lst) (set_tile "lay" (itoa (- (length lst) (length (member nom lst)))) ) (set_tile "lay" "0") ) (set_tile "tp" nom) (action_tile "obj" "(done_dialog 3)") (action_tile "tp" "(setq nom $value)") (action_tile "lay" (strcat "(if (or (= $reason 1) (= $reason 4))" "(progn" "(setq nom (nth (atoi $value) lst))" "(set_tile \"tp\" (nth (atoi $value) lst))" "(mode_tile \"tp\" 2)))" ) ) (action_tile "accept" (strcat "(if (tblsearch \"LAYER\" nom)" "(progn (done_dialog 1)" "(vlax-ldata-put \"getLayer\" \"n\" nom))" "(progn" "(alert (strcat \"Le calque \" nom \" est introuvable.\"))" "(setq nom nil) (set_tile \"tp\" (vlax-ldata-get \"getLayer\" \"n\"))" "(mode_tile \"tp\" 2)))" ) ) (setq what_next (start_dialog)) (cond ((= what_next 3) (if (setq nom (car (entsel))) (setq nom (cdr (assoc 8 (entget nom)))) (setq nom nil) ) ) ((= what_next 0) (setq nom nil) ) ) ) (unload_dialog dcl_id) (vl-file-delete tmp) nom )

Bonjour, En demi profil par point, tu fais un point longueur sur TN depuis l'axe avec une distance de 0m, puis un contour de matériaux passant par tes point d'arase, ton EET et finit par ce point. Tout simple! (sauf si tu est en récupération de chaussée) il faut juste peu être jouer avec le paramètre "EET sur TN décapé" si j'ai bonne mémoire pour qu'il soit bien pris en compte. Sinon conversion de MNT en solide (l'arase et le TN décapé) puis jouer avec les "soustraction" et "intersection" Bon week-end.

Bonsoir, facile, tu fais un solide de chaque avec un fond à 0 par exemple, puis une simple soustraction.

Bonsoir, tu as l'excellent site https://www.da-code.fr/ du nom moins excellent Didier.

Bonjour, rien de totalement automatique je pense, mais il y une solution qui consiste à typer des points R1,R2,R3...R10 en DxDz espacé de 0.50m verticalement depuis le pied de talus, puis depuis ces point faire des pentes vers TN à 0% puis un point DxDz a 0,-0.50m, tracer ta ligne fond-de forme. et après ton 1er calcul de projet il faut gérer tes point typés en mettant un Dz à zéro sur les point Rx au dessus de ta crête, sinon, si tu n'as pas trop de profils types différents, en faire un pour chaque tranche de 0.50m.

Salut Gwen, pourquoi ne pas simplement traiter ton rabotage en décapage par zone ?

plus sérieusement tu peux t'entrainer avec ce lien https://autocad.ccdmd.qc.ca/tutoriel/dessiner-modifier-solides-3d-primitifs sinon le plus simple c'est des unions ou soustractions...

Bonjour, si tu veux le monter tu peux mettre des calles sous le pc, sinon il faut baisser le bureau.. ok je sort.

Bonjour, il me semble reconnaitre le projet, à Bata non? Si tu dois redéfinir un projet, c'est l'assainissement et l'EU qui conditionnent tout dans un tel projet, et ce n'est pas simple sur un tel projet. Si tu sois juste faire des plans d'exe depuis un DCE qui tiens la route (ce n'était pas le cas en 2016), je privilégierais le terrassement de tout le terrain, avec un phasage intelligent vis a vis de l'assainissement profond. Bon courage.

Bonjour, non tu n'est pas en cause, c'est la cata, et il y en à pas mal des bugs sur cette v18, même si le patch b en à corrigé quelque uns.

De ce que j'ai vu en 30 ans de carrière, seuls ceux qui se laisse exploités le sont parfois, et de moins en moins, quelqu'un qui fait ses 8 heures de travails par jours et pas plus, cela ne choc plus personne si les délais sont tenus, c'est ça qu'il faut savoir gérer, estimer au mieux le temps qu'une tache va prendre et savoir dire "non, je ne pourrais pas, je suis déjà trop chargé"... Et c'est valable partout ou on a une certaine autonomie.

Si vous avez une bonne expérience en projeteur terrassement et que vous êtes bon, rejoignez un grand groupe de travaux, la pénurie dans ce domaine permet de bien meilleures négociations, avec pleins d'avantages (13eme moi, abondement d'actions, intéressement, participation, télétravail, CE, augmentations régulières). Du reste les jeunes sans expérience mais a l'aise avec autocad et apprenant facilement sont aussi très recherchés, avec de grosses possibilité d'évolutions. Alors que dans les petites boites, il est rare de pouvoir progresser réellement sans en changer. Tentez et vous verrez instantanément la différence.

Bonjour Thierry, oui j'ai testé. C'est long en préparation, mais peu valoir le coups si on à souvent des profils assez similaires (en terme de structure), on s'approche du "subassembly composer" de civil. La nouvelle gestions des variables est bien et la possibilité d'avoir plusieurs couches géologiques est enfin là, tout comme les n° de point identiques si cas différent. Dommage qu'il n'y ai pas un curseur pour faire varier la hauteur du TN (déblais, remblais, rasant) car pour le moment c'est laborieux de faire sans cesse des aller retour pour changer ce paramètre pour faire ses test. Je n'ai pas encore vérifié si le segment "surlargeur" est toujours indispensable en cas de multiaxes. Cordialement. Fred.

Dans courbes et rappel, il faut faire "+" en bas et dans "nom" mettre le nom exact du calque de la polyligne, exemple: "Prj_prtr_lignes_autres_cdf"