pitou66

Interpolation?? c'est la répartition de la différence d'altitude entre les deux premiers point de l'arc divisé par la distance curviligne entre ces deux meme points. si ca peut t'aider pour trover une solution pitou 66 :)

merci (gile) c'est bien ce que je cherchais je viens de faire un essai et ai comparé avec la commande de covadis pour remonter en 3D les poly. entre la poly covadis et la tienne il y a un ecart en altitude qui provient de l'interpolation ?? ton lisp est meilleur que covadis car beaucoup plus rapide. si didier pouvais essayer la commande de son coté et dire ce qu'il en pense. vois si tu as une idée pour l'interpolation merci beaucoup tu me rends un grand service @plus Pitou66 :) :)

Désolé (gile) mais tu sais je maitrise pas du tout le lisp voila ce que j'ai copié dis moi si ca va [surligneur] ;;; Gile3dPoly -Gilles Chanteau- 07/11/06 ;;; Créé une polyligne 3D avec "arcs" ;;; Les arcs sont représentés par une succession de segments jointifs ;;; Le nombre de segments pour les arcs est spécifié par l'utilisateur ;;; Les "arcs" sont définis par "3 points" ou "départ centre fin" (defun c:Gile3dPoly (/ 3dPolyArc_err AcDoc ModSp prec p1 p2 p3 opt lst) (vl-load-com) (defun 3dPolyArc_err (msg) (if (= msg "Fonction annulée") (princ) (princ (strcat "\nErreur: " msg)) ) (redraw) (vla-EndUndoMark AcDoc) (setq *error* m:err m:err nil ) (princ) ) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) ModSp (vla-get-ModelSpace AcDoc) ) (setq m:err *error* *error* 3dPolyArc_err ) (vla-StartUndoMark AcDoc) (if (not *3dPolyArcPrec*) (setq *3dPolyArcPrec* 20) ) (initget 6) (if (not (setq prec (getint (strcat "\Spécifiez le nombre de segments pour les arcs <" (itoa *3dPolyArcPrec*) ">: " ) ) ) ) (setq prec *3dPolyArcPrec*) (setq *3dPolyArcPrec* prec) ) (initget 1) (setq p1 (getpoint "\nSpécifiez le point de départ de la polyligne: " ) lst (cons (trans p1 1 0) lst) ) (while (progn (initget "Arc") (setq p1 (trans (last lst) 0 1) p2 (getpoint p1 "\nSpécifiez l'extrémité de la ligne ou [Arc]: " ) ) ) (if (= p2 "Arc") (progn (setq p2 p1) (while (equal p1 p2 1e-9) (initget 1 "Centre") (setq p2 (getpoint p1 "\nSpécifiez le deuxième point de l'arc ou [Centre]: " ) ) ) (if (= p2 "Centre") (progn (setq p2 p1) (while (equal p2 p1) (initget 1) (setq p2 (getpoint p1 "\tSpécifiez le centre de l'arc: ") ) ) (setq opt "c") ) (setq opt "3") ) (setq p3 p2) (while (equal p2 p3) (initget 1) (setq p3 (getpoint p2 "\nSpécifiez l'extrémité de l'arc: ")) ) (setq lst (append lst (3dPolyArc (last lst) (trans p2 1 0) (trans p3 1 0) opt prec ) ) ) ) (setq lst (append lst (list (trans p2 1 0)))) ) (redraw) (grvecs (apply 'append (mapcar '(lambda (x1 x2) (list -255 x1 x2) ) (mapcar '(lambda (p) (trans p 0 1)) (reverse (cdr (reverse lst)))) (mapcar '(lambda (p) (trans p 0 1)) (cdr lst)) ) ) ) ) (if (< 1 (length lst)) (vlax-invoke ModSp 'add3dPoly (apply 'append lst)) ) (redraw) (vla-EndUndoMark AcDoc) (setq *error* m:err m:err nil ) (princ) ) (defun 3dPolyArc (p1 p2 p3 opt prec / norm mid1 mid2 cen rad ang inc n ptlst) (if (= opt "3") (setq norm (norm_3pts p2 p3 p1)) (setq norm (norm_3pts p2 p1 p3)) ) (setq p1 (trans p1 0 norm) p2 (trans p2 0 norm) p3 (trans p3 0 norm) ) (if (= opt "3") (setq mid1 (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2)) p1 p2) mid2 (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2)) p2 p3) cen (inters mid1 (polar mid1 (+ (angle p1 p2) (/ pi 2)) 1.0) mid2 (polar mid2 (+ (angle p2 p3) (/ pi 2)) 1.0) nil ) ) (setq cen p2) ) (setq rad (distance cen p1) ang (- (angle cen p3) (angle cen p1)) ) (if (minusp ang) (setq ang (+ (* 2 pi) ang)) ) (setq inc (/ ang prec) n 0 ) (repeat prec (setq ptlst (cons (polar cen (- (angle cen p3) (* inc n)) rad) ptlst) n (1+ n) ) ) (setq ptlst (mapcar '(lambda (p) (trans p norm 0)) ptlst)) ) ;;; NORM_3PTS retourne le vecteur normal du plan défini par 3 points (defun norm_3pts (org xdir ydir / norm) (foreach v '(xdir ydir) (set v (mapcar '- (eval v) org)) ) (if (inters org xdir org ydir) (mapcar '(lambda (x) (/ x (distance '(0 0 0) norm))) (setq norm (list (- (* (cadr xdir) (caddr ydir)) (* (caddr xdir) (cadr ydir)) ) (- (* (caddr xdir) (car ydir)) (* (car xdir) (caddr ydir)) ) (- (* (car xdir) (cadr ydir)) (* (cadr xdir) (car ydir)) ) ) ) ) ) ) [/surligneur] et voila la réponse autocad Commande: _appload Norm_3Pts.lsp correctement chargé(s) Commande: Commande: Commande: Norm_3Pts Commande inconnue "NORM_3PTS". Appuyez sur F1 pour obtenir de l'aide. merci de me venir en aide Pitou 66

Salut (gile) Dis moi si j'ai correctement copié ta routine . copier puis coller dans éditeur de texte nommer en Norm_3Pts puis charger lisp et voila le message Commande: _appload Norm_3pts.lsp correctement chargé(s) Commande: ; erreur: caractère lu incorrect (octal): 21 peut tu me dire ce qui ne vas pas merci d'avance Pitou 66 :) :)

Désolé (gile) mais je n'ai pas eu le temps de regarder je le ferais ce WE j'étais en vadrouille toute la semaine mais je ne doute pas que avec ton expérience ton lisp ne convienne pas a nos attentes merci d'avance @ plus pitou 66 :) :) :)

Salut didier pour moi ce serais mieux d'avoir le point de passage en 3D mais si on peut pas, ton systéme me va bien . Si (gile) pouvait se pencher la dessus ce serait bien. :) :) Amicalement Pitou 66 [Edité le 6/11/2006 par pitou66]

Effectivement j'ai covadis et je remonte les poly2D avec la commande transformation 2D vers 3D avec un arc à 0.01m. je posait la question pour voir si quelqu'un avait cogité quelque chose en lisp. si quelqu'un avait eu un truc cela m'aurait évité une commande à faire assez souvent. ( je suis un peu fainéant sur les bords ) Pitou 66 :) :) :) :)

excuser moi mais mon doigt à chourfé et j'ai oublié le d [surligneur] de dessiner[/surligneur]. Pitou 66

Salut à tous Quelqu'un aurais t'il une idée ou une routine lisp pour essiner directement des polylignes 3D comportant des arc ( DESSIN TOPO ) merci d'avance Pitou 66 (d'haitude je fais avec COVADIS pour éléver en 3D) :cool:

Bonjour tout le monde il y a t'il quelq'un qui aurait une manip pour transformer tout un dessin fait en texte mult et le mettre en texte ligne merci d'avance pitou 66

ca y est un autre débat entre covadis et autre on va bien rigoler et s'amuser, ca fait longtemps que s'était pas arrivé. bon mais quand méme je vais donné mon opinion étant sur covadis depuis le début et n'ayant pas travaillé sur autre chose a part géocad,covadis est pas mal sur tout ce qui concerne le VRD et projet routiers mis a part le déplacement des axes projet je préfererais déplacer l'axe point par point au lieu de l'axe tout entier alors si covadis nous écoute. mais question rendu assez réaliste il y acertainement mieux tu trouveras des spécialistes sur le forum @plus Pitou 66

dans ma région se seras 3 foureaux 42/45 et chambre L1T sous trottoir. mais le mieux c'est de se rapprocher du centre de construction des lignes sur ton département un tecnicien te recevras et veras acvec toi le point de raccordement et le nombre de tubes qui souvent change si ton réseau et en bout de ligne ou si une prolongaztion peut etre faite. Amicalement pitou 66

Salut non en VRD 2/3 c'est hauteur 2 largeur 3 cela fais en % 66.66 . Amicalement Pitou 66

Bonjour Laisse moi une adresse mail je t'envois la feuille de calculs. Pitou 66

Salut à tous Vous allez pas vous battre mais en élec j'ai balancé sur cadxp une note de calculs excel avec pas mal de précisions quand au mode de calcul du réseau bt Sache une chose poste ou pas poste EDF te doit le courant à la limite de ta parcelle ou du futur projet tu le saura en demandant une proposition commerciale.. pour ce qui est du sectionement des cables voir avec la fiche de calcul. ca sers absolument a rien les chambres de tirages pour le réseau bt sachant q'un coffret s22 ne peut pas étre a plus de 30m du fasse coupure ou étoilement. on gaine les cables que sous traversée de chaussée. pour le télérepot c'est uniquement un cable qui pars d'un coffret qui fais le tour des autres et reviens a ce meme coffret. si besoin de précisions laisse msg @plus Pitou66

salut pour ce qui est du prmis de lotir tu peux le faire et faire signer le plan par le propriétaire et la demande par le propriétaire. por ce qui est de la maitrise d'oeuvre vaut mieux éviter problémes d'assurances Amicalement Pitou 66 :)

Salut essaye de créer un profil type avec une ligne projet qui par de l'axe et aprés tu crée un point qui épouse en moyenne ton dévers existant et qui se situe au début de ton décaissement de chaussée avec tes différentes couches a partir de ce dernier point sinon autre solution faire un profil en long sur le bord de ton décaissement et créer des profils en travers en consequence Amicalement Pitou 66 :D :) :) :) :) :)

Salut à tous oui la solution est changement de reperes laignement sur les deux points extrémes en prenant comme départ x=500 y=1000 puis comme points d'arrivée x=500 plus la distance enttre les 2 points et y=1000 cohe la case inverser y et z puis écrit un fichier txt passe le avec ecxel efface la colonne z et copie le y à la place et te voila avec un fichier txt x.y.z puis chargement de semis avec séparateur et le tour est joué pas trop simple mais j'ai pas trouvé mieux. @plus pitou 66 :) :) :) :)

Salut Je comprends pas trop mais quelle version de covadis a tu. as tu paramétré une ligne projet et une ligne fond de forme? explique un peu plus ou insere une image de ton profil @plus Pitou66 :) :) :)

pas mieux pour chez nous weka pas trés top mais on peut l'améliorer @plus pitou 66 :) :) :) :)

Salut je connais cette norme mais tu as beau faire avec des bétons de trés hautes qualités le gel et le sel sur quelques années ca le détruit.. mais si tu as d'autres infos ca m'intérresse @plus Pitou 66

Bonjour tout le monde. Quelqu'un pourrais t'il essayer de répondre a cette question : Question . pour ceux qui font des études VRD en altitude qui peux me dire la tenue de leur béton de chaussée ou de trottoir avec le gel et les apports de sel pour le gel merci d'avance. l'altitude c'est entre 1000m et 2400m en moyenne. merci de vos réponses Pitou 66 @plus

je perds la tête mais je suis preneur de toutes les notes de calculs hydrauliques sur les caniveaus bordures fossé buses etc mon adresse eric.66@free.fr a votre bon coeur messieurs dames @plus :) :) :) :)

Salut thierry si ta as besoin d'autres précisions n'hésites pas. [surligneur] attention cette note de calcul tombé de je ne sais quel camion ne fais pas foi vis a vis de EDF seul compte l'article 49 ou 50 déposé par l'entreprise élec avant le début des travaux, mais j'ai pu vérifier quelle était assez fiable. pourrais tu essayer de répondre a cette question ou toi ou parmi tes connaissances sinon je mettrais un sujet sur le forum [surligneur] question . pour ceux qui travaille en altitude qui peux me dire la tenue de leur béton de chaussée ou de trottoir avec le gel et les apports de sel pour le gel merci d'avance.[/surligneur] @plus

Salut à tout le monde je trouve enfin le temps de répondre à thierry garré pour la feuille de calcul. section en mm = [surligneur] section du cable d'alimentation exemple 240² - 150² - 95² - 35² il n'y as pas d'autres section pour les réseaux basse tension.[/surligneur] longueur en m = longueur du cable entre 2 coffret Puissance Kw = puissance de consommation maxi de l'abonné Transit kesako = puissance passant par les coffrets Idem DUT et DUC = ?????? Synthèse= pourcentage chute de tension = chute de tension maxi 5% si tu es en dessous ca va si tu est au dessus tu augmentes les section des cables ou revoir projet d'alimentation. en sachant que sur un coffret fausse coupure tu as 6 branchements 3 sont pour les départs vers les coffrets de comptage S22 INDIVIDUEL alimenté en 35² 2 sont pour l'arrivée et le départ 1 est en réserve pour EDF. Opération non tout électrique = groupe d'abitations ou logement collec Opération mixte = lotissement et logement type groupe d'habitations ou logement collectif Opération tout électrique = Lotissement. @ plus pour ceux qui travaille en altitude qui peux me dire la tenue de leur béton de chaussée ou de trottoir avec le gel et les apports de sel pou le gel merci d'avance. Pitou 66