crashray

Je savais pas bien si c'était bien vu de parler prix ici. GEOGEXFRCAD 5 395 € HT - Le contrat de services inclus la 1ère année s’élèvera à 905 € HT par an location annuelle GEOGEXFRCAD est de 2 100 € HT (avec support inclus) Pour aller au bout des prix : GStarCAD STD à 490€ HT + RD12 690€ HT = 1180€ HT avec maintenance 200€/an Grosse différence de prix pour un début d'activité.

Bonjour, Je me permets de déterrer ce topic. Je vais m'installer en tant que Géomètre-Expert. J'ai toujours utiliser AutoCAD avec Covadis. Je regarde pour réduire mes coûts pour un début d'activité. Pour l'instant je me suis arrêté sur une licence GEOGEXFR autonome (Covadis) soit en abonnement soit un licence perpétuelle. On m'a conseillé RD12 (https://www.ilancad.fr/) avec un ZWCAD ou GstarCAD Std/Pro. J'aurais voulu savoir si certaines l'utilisent. Mon utilisation sera principalement : - calcul topo depuis carnet Leica - dessin et sortie de plan division/bornage - export RFU, création DMPC import export Est-ce une solution que vous conseillez ? Pas de 3D prévu, pas de VRD prévu.

Juste pour dire merci pour la routine. La codification avec Covadis qui créée des lignes avec symbole pour les clôtures par exemple est assez embêtante. Pas de copier coller possible entre polyligne. Avec cette routine, c'est nickel !

Merci pour la réponse construite. Très pratique en effet les deux fenêtres. J'ai pu me faire un fichier texte en chargement de semis qui me crée les points topo GPSXXX tout seul pour éviter les points doubles. Pour la présentation, j'ai pu faire un SCU puis repere pour remettre "droit". Par contre, pour bien centrer sur ma fenêtre, elle semble groupé avec 2 polylignes. J'aurais voulu prendre mes angles et les mettre pile poile sur mon nouveau cadre. Une idée ?

Bonjour, J'ai récupéré un plan avec 2 SCU. SCU Général avec des coordonnées locale Pt 500 X=1000 Y=5000 SCU présentation avec X=0 Y=0 en bas à gauche du cartouche de présentation et orienté avec le A4 pour travailler "droit" auquel correspond une présentation dans l'espace papier. J'ai fait le relevé de 3 stations au GPS et je souhaiterais recaler ce plan. Quel est la démarche la plus rapide/intelligente ? Faut-il se remettre dans le SCU Général avant de faire un recalage Helmert avec échelle=1 ? Le SCU présentation se recalera par la même occasion ? (il semble que non) Est-il possible d'utiliser un script ? Avec un fichier avec les coordonnées des points de recalage avec le même matricule que le fichier à recaler ? (pour l'instant je clique sur les points et je rentre en manuel les coordonnées). Comment recaler en Z (les attributs uniquement) par le même principe que le recalage Helmert ? D'habitude je me fais un petit tableau sur Excel et regarde pour minimiser les erreurs mais ça doit être possible de faire ça depuis covadis. Les calques gelés suivront t'ils ? Pour l'instant, ça fonctionne mais ma présentation est perdue. Merci.

Merci beaucoup. Je me suis débrouillé sans, j'ai changer les altitudes de mes points caractéristiques puis refait mon MNT mais je saurais pour la prochaine fois la méthode +delta Z qui aurait été beaucoup plus simple. Pour information, ça sert à quoi les états de terrain ? Pour le deuxième point, j'aurais bien voulu pouvoir avoir le contrôle plus précis sur les couleurs. Là je choisis deux couleurs et il me fait des dégradés. J'aurais bien voulu donner une tolérance (genre +/- 2cm on ne colorie pas) et ne colorie que le reste. Est-ce possible ? Merci

Bonjour, Je dois contrôler une plateforme. J'ai normalement créer mon MNT projet. Il s'agit d'une plateforme de 9m de large avec une pente de 10mm/m en transversale. En profil en long, il y a une zone plane de 166m puis une pente constante autour de 3mm/m sur 30m (tout en respectant également le 10mm/m en transversale). Comment décaler mon MNT projet de 0.40m vers le bas (mes altitudes, c'est mon rail fini mais je dois contrôler la plateforme qui est demandé à -40cm) ? Je vais faire mon relevé, je vais le rajouter à ce plan et créer un nouveau MNT je pense (jamais utilisé les états de terrain mais c'est peut-être la fonction utile?). Et après je voudrais pouvoir faire une comparaison des deux MNT pour voir si la plateforme rendu est proche du projet. Quels fonctions me conseillez-vous ? Cubature par prisme => 2MNT (Déblais/remblais) ? Cela sera t'il visible facilement ? Peut-on donner une tolérance par exemple de +/-3cm et afficher les zones hors tolérance ? Merci, HS : Depuis plusieurs semaines, je n'arrive pas à avoir le support Covadis par téléphone. Ils ont des soucis ou c'est juste moi ? Contact ou 02 98 46 92 33 Edit : J'avais aussi une autre question sur un autre projet. J'ai fait un projet avec demi-profil type avec des entrées en terre. Le projet est fini, j'ai sorti le profil en long et les coupes mais je n'arrive pas à avoir le métré des déblais/remblais global. J'ai juste le métré sur chaque coupe. Comment l'obtenir ? plateforme.zip

La première étape est maintenant terminée : fonction où je sélectionne 3 pts et qui me sort le rayon fonction où je sélectionne une polyligne à 3 sommets et qui me sort le rayon fonction où je sélectionne X points et qui me sort les X-2 rayons. Premier rayon avec les points 1-2-3, deuxième rayon avec les points 2-3-4, etc. fonction où je sélectionne une polyligne et me sort pareil que la fonction précédente Je passe à la deuxième. Donc j'ai un arc ou une polyligne qui relie mes trois points et je voudrais pouvoir appliquer le LISP suivant dessus : (defun r3points (pt1 pt2 pt3 / a b c p S) ;; calcul des cotés a b c d'un triangle formé par 3 pts (setq a (distance pt1 pt2) b (distance pt2 pt3) c (distance pt3 pt1)) ;; calcul de la surface d'un triangle quelconque en fonction des cotés (formule de Héron) (setq p (/ (+ a b c) 2) S (sqrt (* p (- p a) (- p B) (- p c)))) ;; calcul du rayon du cercle par la relation R= (a b c)/ 4S (/ (* a b c) (* 4 S)) ) J'imagine qu'il faut faire une commande qui appelle la fonction et qui demande à cliquer sur une polyligne à 3 sommets. On teste si bien 3 sommets : - si non, message "Veuillez sélectionner une polyligne à 3 sommets" - si oui, on appelle la fonction en "sortant" les coordonnées des 3 sommets de la polyligne. Je crois qu'il faut que j'utilise le Chapitre 16 (Accès aux objets du dessin). Edit : Je vois quelques choses comme : (princ "\nSélectionnez une polyligne à 3 sommets: ") (setq poly1 (entsel)) (r3points (sortirpremierpoint poly1) (sortirdeuxiemepoint poly1) (sortirtroisièmepoint poly1))) Edit 2 Dans un autre lisp, j'ai trouvé ça : ;; Liste des sommets d'une polyligne 3D (defun 3dpoly_pts (ent / pt pts) (while (setq pt (val_dxf 10 (entnext ent))) (setq ent (entnext ent) pts (cons pt pts) ) ) pts )

Merci. Très clair.

Merci pour les conseils. Je tourne un peu en rond alors je post pour comprendre là où ça va pas : (defun rayon3points (pt1 pt2 pt3 / rayon) ;; calcul du point au milieu de pt1 pt2 (setq milieu1 (list (/ (+(car pt1)(car pt2)) 2) (/ (+(cadr pt1)(cadr pt2)) 2) ) ) ;; calcul d'un autre point sur la médiatrice de pt1 pt2 (setq autre1 (polar pt1 (+ (angle pt1 pt2) (/ Pi 2)) 1) ) Edit : merci VDH-Bruno, ça marche bien. En fait je "panique" sur mon affichage mais je vois que si tu ne mets pas de setq et que tu fais un calcul. La fonction le renvoi automatiquement. ;; calcul du point au milieu de pt2 pt3 (setq milieu2 (list (/ (+(car pt2)(car pt3)) 2) (/ (+(cadr pt2)(cadr pt3)) 2) ) ) ;; calcul d'un autre point sur la médiatrice de pt2 pt3 (setq autre2 (polar pt2 (+ (angle pt2 pt3) (/ Pi 2)) 1) ) ;; calcul du centre (intersection des deux médiatrices) (setq centre (inters milieu1 autre1 milieu2 autre2 nil)) ;; calcul du rayon (setq rayon (distance centre pt1) ) ) (defun c:test (/ pt1 pt2 pt3) (setq pt1 (getpoint "\nPremier point: ")) (setq pt2 (getpoint "\nSecond point: ")) (setq pt3 (getpoint "\nTroisème point: ")) (setq r (rayon3points pt1 pt2 pt3)) (princ r) ) Faut-il que je mette après le \ toutes les variables que j'utilise dans la fonction ? milieu1 autre1... Ou je mets ce que je veux que la fonction renvoie ?

Merci pour ton aide. Alors après avoir tout programmé à l'exception du rayon et un plantage d'AutoCad sans sauvergarde, je reprogramme tout, ça me donne : (defun c:rayon3points (/ pt1 pt2 pt3) (setq pt1 (getpoint "\nPremier point : ")) (setq pt2 (getpoint "\nDeuxième point : ")) (setq pt3 (getpoint "\nTroisième point : ")) ;; calcul du point au milieu de pt1 pt2 (setq milieu1 (list (/ (+(car pt1)(car pt2)) 2) (/ (+(cadr pt1)(cadr pt2)) 2) ) ) ;; calcul d'un autre point sur la médiatrice de pt1 pt2 (setq autre1 (list 0 (/ (+ (- (* (car pt2) (car pt2)) (* (car pt1) (car pt1)) ) (- (* (cadr pt2) (cadr pt1)) (* (cadr pt2) (cadr pt1)) ) ) (* 2 (- (cadr pt2) (cadr pt1) ) ) ) ) ) ;; calcul du point au milieu de pt2 pt3 (setq milieu2 (list (/ (+(car pt2)(car pt3)) 2) (/ (+(cadr pt2)(cadr pt3)) 2) ) ) ;; calcul d'un autre point sur la médiatrice de pt2 pt3 (setq autre2 (list 0 (/ (+ (- (* (car pt3) (car pt3)) (* (car pt2) (car pt2)) ) (- (* (cadr pt3) (cadr pt2)) (* (cadr pt3) (cadr pt2)) ) ) (* 2 (- (cadr pt3) (cadr pt2) ) ) ) ) ) ;; calcul du centre (intersection des deux médiatrices) (setq centre (inters milieu1 autre1 milieu2 autre2)) ;; calcul du rayon (setq rayon (sqrt (+ (* (- (car pt1) (car centre)) (- (car pt1) (car centre)) ) (* (- (cadr pt1) (cadr centre)) (- (cadr pt1) (cadr centre)) ) ) ) ) (princ rayon) ) J'ai remis c: pour tester mon programme et les getpoints pour entrer les points. Pour l'instant, j'ai l'erreur : Commande: RAYON3POINTS Premier point : _nod de Deuxième point : _nod de Troisième point : _nod de ; erreur: type d'argument incorrect: numberp: nil Je ne dois pas bien définir mes listes pour ma création de points. J'ai pris la solution en x=0 pour le deuxième point de la médiane. Je n'ai pas utiliser les fonctions polar et angle. J'ai tenté la deuxième solution de VDH-Bruno (merci également ;) ) (defun c:r3points (/pt1 pt2 pt3) (setq pt1 (getpoint "\nPremier point : ")) (setq pt2 (getpoint "\nDeuxième point : ")) (setq pt3 (getpoint "\nTroisième point : ")) ;; calcul des cotés a b c d'un triangle formé par 3 pts (setq a (sqrt (+ (* (- (car pt2) (car pt1)) (- (car pt2) (car pt1))) (* (- (cadr pt2) (cadr pt1)) (- (cadr pt2) (cadr pt1))) ) ) ) (setq b (sqrt (+ (* (- (car pt2) (car pt3)) (- (car pt2) (car pt3))) (* (- (cadr pt2) (cadr pt3)) (- (cadr pt2) (cadr pt3))) ) ) ) (setq c (sqrt (+ (* (- (car pt1) (car pt3)) (- (car pt1) (car pt3))) (* (- (cadr pt1) (cadr pt3)) (- (cadr pt1) (cadr pt3))) ) ) ) ;; calcul de la surface d'un triangle quelconque en fonction des cotés (formule de Héron) (setq p (/ (+ (+ a B) c) 2)) (set s (sqrt (* (* (* p (- p a)) (- p B)) (-p c)))) ;; calcul du rayon du cercle par la relation R= (a b c)/ 4S (setq r (/ (* (* a B) c) (* 4 s))) (princ r) ) J'ai un problème de définition je pense dans ma fonction. J'ai pas bien compris, si je mets pas c: comment je teste ma fonction ? Et si je mets c:, je dois avoir un moyen de pointer mes points. J'avais trouvé getpoint qui a l'air de bien fonctionner. Mais normalement ce sont des arguments ils devraient être avant le /. c:rayon(pt1 pt2 pt3/a b c p s r) Mais ça a pas l'air de fonctionner. Pas eu trop le temps aujourd'hui (6h de route, aller retour sur un chantier). Je revois ça demain. Bonne soirée.

Bonjour, Je vais essayer de me mettre au LISP pour pouvoir faire des routines qui me seront utiles. Le but final est de pouvoir cliquer sur une polyligne qui passe par différents points topographiques et sortir une variation des rayons de courbures. Je vais le faire en plusieurs étapes : fonction où je sélectionne 3 pts et qui me sort le rayon fonction où je sélectionne une polyligne à 3 sommets et qui me sort le rayon fonction où je sélectionne X points et qui me sort les X-2 rayons. Premier rayon avec les points 1-2-3, deuxième rayon avec les points 2-3-4, etc. fonction où je sélectionne une polyligne et me sort pareil que la fonction précédente Vaste programme :P J'ai commencé à lire le PDF de Gilles qui est très complet. J'ai fait les formules de calcul sous excel qui fonctionne bien. Je voudrais essayer de rentrer dans le vif du sujet avec un premier lisp. Pour l'instant, j'en suis là (j'ai utiliser les formules de cette page): (defun c:rayon(/ pt1 pt2 pt3) (setq pt1 (getpoint "\nPremier point : ")) (setq pt2 (getpoint "\nDeuxième point : ")) (setq pt3 (getpoint "\nTroisième point : ")) ;; Calcul des coordonnées (xc,yc) du centre du cercle passant par les 3 points (setq xc (/ (- (/ (+ (- (* (car pt3) (car pt3)) (* (car pt2) (car pt2)) ) (- (* (cadr pt3) (cadr pt3)) (* (cadr pt2) (cadr pt2)) ) ) (* 2 (- (cadr pt3) (cadr pt2) ) ) ) (/ (+ (- (* (car pt2) (car pt2)) (* (car pt1) (car pt1)) ) (- (* (cadr pt2) (cadr pt2)) (* (cadr pt1) (cadr pt1)) ) ) (* 2 (- (cadr pt2) (cadr pt1) ) ) ) ) (- (/ (- (car pt2) (car pt1)) (- (cadr pt2) (cadr pt1))) (/ (- (car pt3) (car pt2)) (- (cadr pt3) (cadr pt2))) ) ) ) (setq yc (+ (* (* (/ (- (car pt2) (car pt1)) (- (cadr pt2) (cadr pt1)) ) xc ) -1) (/ (+ (- (* (car pt2) (car pt2)) (* (car pt1) (car pt1)) ) (- (* (cadr pt2) (cadr pt2)) (* (cadr pt1) (cadr pt1)) ) ) (* 2 (- (cadr pt2) (cadr pt1) ) ) ) ) ) (setq rc (sqrt (+ (* (- (car pt1) xc) (- (car pt1) xc) ) (* (- (cadr pt1) yc) (- (cadr pt1) yc) ) ) ) ) (princ xc) (princ yc) (princ rc) ) Le Xc est bon, par contre j'ai un problème sur Yc. Je suis pas sûre pour mettre le - au début de la formule, j'ai multiplié par -1. Pas sûre de la syntaxe. L'impression final ne fait pas non plus ce que je voudrais. Est-ce que je peux utiliser xc qui vient juste d'être défini ? Voyez-vous l'erreur sur le Yc ? J'ai vu que la librairie gc_MathGeom faisait cela. gc_MathGeom.lsp avec la fonction : ;; gc:Circumscribe ;; Retourne le centre, le rayon et la normale du cercle circonscrit au le triangle p1 p2 p3 ;; ;; Arguments ;; p1, p3, p3 : 3 points décrivant un triangle dans l'espace (defun gc:Circumscribe (p1 p2 p3 / v1 v2 n m1 m2 c) (setq v1 (mapcar '- p2 p1) v2 (mapcar '- p3 p1) n (gc:CrossProduct v1 v2) m1 (gc:MidPoint p1 p2) m2 (gc:MidPoint p1 p3) ) (list (setq c (inters m1 (mapcar '+ m1 (gc:CrossProduct v1 n)) m2 (mapcar '+ m2 (gc:CrossProduct v2 n)) nil ) ) (distance c p1) (gc:GetNormal n) ) ) qui utilise les sous-fonctions gc:CrossProduct,gc:MidPoint, gc:GetNormal. ;; gc:CrossProduct ;; Retourne le produit vectoriel (vecteur) de deux vecteurs ;; Arguments ;; v1, v2 : deux vecteurs (defun gc:CrossProduct (v1 v2) (list (- (* (cadr v1) (caddr v2)) (* (caddr v1) (cadr v2))) (- (* (caddr v1) (car v2)) (* (car v1) (caddr v2))) (- (* (car v1) (cadr v2)) (* (cadr v1) (car v2))) ) ) ;; gc:GetNormal ;; Retourne le vecteur unitaire d'un vecteur ;; ;; Argument ;; v : un vecteur (defun gc:GetNormal (v) ((lambda (l) (if (/= 0 l) (mapcar (function (lambda (x) (/ x l))) v) ) ) (distance '(0. 0. 0.) v) ) ) ;; gc:MidPoint ;; Retourne le milieu de p1 p2 ;; ;; Arguments ;; p1 : un point ;; p2 : un point (defun gc:MidPoint (p1 p2) (mapcar (function (lambda (x1 x2) (/ (+ x1 x2) 2.))) p1 p2) ) Je pense l'utiliser au final mais j'essaye de faire le programme de 0. Si je voulais appeler cette fonction dans mon programme et récupérer le rayon. Comment je peux faire ça ? Merci

Bonjour, Je fais beaucoup de levé de voie de chemin de roulement/pont roulant pour contrôle avant intervention pour correction. J'aurais bien aimé avoir un exemple d'étude à partir d'un relevé pour voir ce que GeoRail permet. En général, je fais un point sur chaque rail tous les deux mètres par exemple lors du relevé sur site. Après je me crée des polylignes 3D, je fais une droite moyenne si autant de point de chaque côté. Sinon moyenne de deux polylignes et après droite moyenne. Pour placer mon référentiel au "milieu". Après je tabule l'axe centrale, et je sors les coordonnées des points d'intersections des tabulations et des polylignes 3D. Après je fais des "calculs" sous Excel avec les différences d'écartement et d'altimétrie. Je me base sur l'ISO_12488. Par contre, je peux pas trop vérifier la rectitude. Est-ce que Georail me permettrait d'être un peu plus rapide ?

Une présentation en vidéo pour ceux que ça intéresse https://youtu.be/hNbARz7EFr0 ça a l'air vraiment top !

Merci pour l'information. Malheureusement : ça démarre mal, je suis en AutoCAD 2015...