lili2006

Hihi !!

Bien vu celle là Vincent !

Patrice, longue vie de retraite et sur CadXP (entr'autres). Tu le mérites bien ! Hihi ! Amicalement,Lilian,

Bonjour à toutes et tous, Le fascicule 70 parle plutôt de 70 m pour des raisons de curage. Cela dépend également de ta pente mais pour un ø 200, j'image réseau EU ? A voir,..

Re, Ah oui, bien vu Olivier,.. c'est clair que cela ne peut pas marcher comme ça,.. Il faut d'abord transformer les coordonnées polaires en rectangulaires.

Bonjour à toutes et tous, Oui, séparateur ou colonné,selon le format mais tu peux aussi insérer directement un tableur si celui ci est bien construit,..

Bonjour à toutes et tous, Tu l'enregistres en ".txt" et là, tu peux générer une géobase,.

Re, Si, j'ai retrouvé ! C'est le lispe "ju" ;; JU (gile) 14/11/07 ;; Pour justifier des textes simples ou multilignes et des définitions d'attributs ;; à partir d'une boite de dialogue ou de la ligne de commande (commande : -ju) ;; Une option permet de conserver le point d'insertion fixe. ;; Boite d dialogue (defun c:ju (/ column ss temp file dcl_id just ins) (defun column (l1 l2) (apply 'strcat (mapcar (function (lambda (x1 x2) (strcat ":button{width=12;label=" (vl-prin1-to-string x1) ";key=" (vl-prin1-to-string x2) ";allow_accept=true;}" ) ) ) l1 l2 ) ) ) (if (setq ss (ssget '((0 . "*TEXT,ATTDEF")))) (progn (or (getenv "PointInsertionFixe") (setenv "PointInsertionFixe" "0") ) (setq temp (vl-filename-mktemp "Tmp.dcl") file (open temp "w") ) (write-line "justify:dialog{label=\"Justifier\";:boxed_row{" file ) (mapcar (function (lambda (x) (write-line (strcat ":column{" (column (car x) (cadr x)) "}") file ) ) ) '((("Haut Gauche" "Milieu Gauche" "Gauche" "Bas Gauche") ("HG" "MG" "G" "BG") ) (("Haut Centre" "Milieu Centre" "Centre" "Bas Centre") ("HC" "MC" "C" "BC") ) (("Haut Droite" "Milieu Droite" "Droite" "Bas Droite") ("HD" "MD" "D" "BD") ) ) ) (write-line "}spacer;:toggle{label=\"Point d'insertion fixe\";key=\"ins\";} spacer;cancel_button;}" file ) (close file) (setq dcl_id (load_dialog temp)) (if (not (new_dialog "justify" dcl_id)) (exit) ) (set_tile "ins" (getenv "PointInsertionFixe")) (foreach k '("G" "C" "D" "HG" "HC" "HD" "MG" "MC" "MD" "BG" "BC" "BD") (action_tile k (strcat "(setq just " (vl-prin1-to-string k) ")(if (= \"1\" (get_tile \"ins\")) (setq ins T) (setq ins nil)) (done_dialog)" ) ) ) (action_tile "cancel" "(setq just nil)") (start_dialog) (unload_dialog dcl_id) (vl-file-delete temp) (if ins (setenv "PointInsertionFixe" "1") (setenv "PointInsertionFixe" "0") ) (and just (justify ss just ins)) ) ) (princ) ) ;; Ligne de commande (defun c:-ju (/ ss par just ins) (if (setq ss (ssget '((0 . "*TEXT,ATTDEF")))) (progn (or (getenv "PointInsertionFixe") (setenv "PointInsertionFixe" "0") ) (while (or (not just) (= just "Paramètre")) (princ (strcat "\nParamètre courant : " (if (= (getenv "PointInsertionFixe") "0") "texte fixe.\t" "point d'insertion fixe.\t" ) ) ) (initget "Gauche Centre Droite HG HC HD MG MC MD BG BC BD Paramètre" ) (setq just (getkword "Entrez une option de justification\n [Gauche/Centre/Droite/HG/HC/HD/MG/MC/MD/BG/BC/BD/Paramètre] <Paramètre>: " ) ) (if (or (not just) (= just "Paramètre")) (progn (initget 1 "Oui Non") (setq par (getkword "\nPoint d'insertion fixe ? [Oui/Non]: ")) (if (= par "Oui") (setenv "PointInsertionFixe" "1") (setenv "PointInsertionFixe" "0") ) ) ) ) (and (= (getenv "PointInsertionFixe") "1") (setq ins T)) (and just (justify ss just ins)) ) ) (princ) ) ;; Modifie la justification des textes sélectionnés (defun justify (ss just ins / n elst org pos oj nj x y ang mat dep vert) (repeat (setq n (sslength ss)) (setq elst (entget (ssname ss (setq n (1- n)))) org (cdr (assoc 10 elst)) ) (if (= (cdr (assoc 0 elst)) "MTEXT") ;; texte multiligne (progn (cond ((setq pos (vl-position just '("G" "C" "D"))) (setq pos (+ 7 pos)) ) (T (setq pos (vl-position just '(nil "HG" "HC" "HD" "MG" "MC" "MD" "BG" "BC" "BD") ) ) ) ) (setq oj (cdr (assoc 71 elst)) elst (subst (cons 71 pos) (assoc 71 elst) elst) ) (entmod elst) ;; repositionnement du texte (and (not ins) (setq elst (entget (cdr (assoc -1 elst))) nj (cdr (assoc 71 elst)) y (cond ((and (< 6 oj) (< nj 4)) (cdr (assoc 43 elst))) ((or (and (< 3 oj 7) (< nj 4)) (and (< 6 oj) (< 3 nj 7))) (/ (cdr (assoc 43 elst)) 2.) ) ((or (and (< oj 4) (< 3 nj 7)) (and (< 3 oj 7) (< 6 nj))) (/ (cdr (assoc 43 elst)) -2.) ) ((and (< oj 4) (< 6 nj)) (- (cdr (assoc 43 elst)))) (T 0.0) ) oj (rem oj 3) nj (rem nj 3) x (cond ((= oj nj) 0.0) ((and (= oj 1) (= nj 0)) (cdr (assoc 42 elst))) ((and (= oj 0) (= nj 1)) (- (cdr (assoc 42 elst)))) ((or (and (= oj 1) (= nj 2)) (and (= oj 2) (= nj 0))) (/ (cdr (assoc 42 elst)) 2.) ) (T (/ (cdr (assoc 42 elst)) -2.)) ) ang (angle '(0 0 0) (trans (cdr (assoc 11 elst)) 0 (cdr (assoc 210 elst))) ) mat (mxm (mapcar (function (lambda (v) (trans v 0 (cdr (assoc 210 elst))) ) ) '((1 0 0) (0 1 0) (0 0 1)) ) (list (list (cos ang) (- (sin ang)) 0) (list (sin ang) (cos ang) 0) '(0 0 1) ) ) dep (mxv mat (list x y 0.0)) ) (entmod (subst (cons 10 (mapcar '+ (cdr (assoc 10 elst)) dep) ) (assoc 10 elst) elst ) ) ) ) ;; texte simple ou définition d'attribut (progn (if (= (cdr (assoc 0 elst)) "TEXT") (setq vert 73) (setq vert 74) ) (if (= (cdr (assoc 72 elst)) (cdr (assoc vert elst)) 0) (setq elst (subst (cons 11 org) (assoc 11 elst) elst) ) (setq elst (subst (cons 10 (cdr (assoc 11 elst))) (assoc 10 elst) elst) ) ) (setq elst (subst (cons vert (cond ((wcmatch just "B*") 1) ((wcmatch just "M*") 2) ((wcmatch just "H*") 3) (T 0) ) ) (assoc vert elst) (subst (cons 72 (cond ((wcmatch just "*G") 0) ((wcmatch just "*C") 1) ((wcmatch just "*D") 2) ) ) (assoc 72 elst) elst ) ) ) (entmod elst) ;; repositionnement du texte (and (not ins) (setq elst (entget (cdr (assoc -1 elst)))) (if (= (cdr (assoc 72 elst)) (cdr (assoc vert elst)) 0) (entmod (subst (cons 10 org) (assoc 10 elst) elst)) (progn (setq dep (mapcar '- org (cdr (assoc 10 elst)))) (entmod (subst (cons 11 (mapcar '+ (cdr (assoc 11 elst)) dep)) (assoc 11 elst) elst ) ) ) ) ) ) ) ) )

Bonjour à toutes et tous, De mémoire, de tout temps, la commande "copier les propriétés" ne copie justement pas les positions de textes modifiés, du moins, à ma connaissance,.. De mémoire, j'avais déjà eu ce besoin et (gile) avait fait un lisp pour ça, et bien d'autres choses d'ailleurs de mémoire,.. Pas le temps de chercher, désolé,..

Bonjour à toutes et tous, Grand merci Olivier, cela me semble un très bon compromis !! Je propose les deux solutions à mes apprentis/étudiants/stagiaires,.. Belle journée,

Bonjour à toutes et tous, Patrice, Olivier, merci pour vos conseils avisés. Ce n'est "que" pour faire des projets de BTS et non de la production à outrance.Existe t'il u n compromis aux alentours des 700 €, budget moyen des étudiants actuellement,.. Encore merci,

Bonjour à toutes et tous, Nouvelle année scolaire, nouveaux besoins,.. Que puis je conseiller à ce jour à mes chères têtes blondes en ordinateur portable pour faire tourner essentiellement de la bureautique et les produits Autodesk "classiques" pour Géomètre/Travaux publics,..(Civil 3D; Revit; Infraworks; Navisworks;...) ainsi que des visualisateurs ".ifc" du type bim vision, solibri,.. D'avance merci pour vos lumières ,

Re, Peux tu poster un extrait de ton fichier ?

Bonjour à toutes et tous, As tu essayé en wbloc puis insertion ?

Re, Ben, non, c'est normal, le "calcul en retour" ne peut se faire qu'une fois les coordonnées des stations arrétées. Covadis, tout comme on le faisait avant "à la main", recalcule alors le "vrai Vom" de chaque stations,..

Bonjour à toutes et tous, Dans ce cas, le mieux est de rester en local pour les distances puisque les angles ne sont pas déformés dans le plan de projection LAMBERT, quelque soit le système que tu utilises,.. Pour les implantations et auscultation, il est très largement conseillé de pratiquer comme cela. Donc, pour moi aussi, double polygo avec orientation au départ et à l'arrivée sur de multiples cibles de référence (et en cours de parcours pour le contrôle éventuel de la "dérive" en orientation) accompagné de points doubles (voire triples) sur chaque station du parcours.

Re, Oui, à toi de créer tes propres palettes depuis ton gabarit de travail,..

Bonjour à toutes et tous, Oui, depuis les palettes d'outils, tu peux entièrement paramétrer la destination de tes entités,... Je ne sais pas dans quel cadre tu as ce besoin, mais perso je sépare toujours mes hachures de mes polylignes de contour,..

Bonjour à toutes et tous, Merci Olivier pour ce tuto !

Bonjour à toutes et tous, Idiot non, tout au moins dommage je trouve,..

Bonjour à toutes et tous, Huihi ! Tryks, Ah bon, c'est à dire ? Merci d'avance,

Bonjour à toutes et tous, Quelqu'un peut dire un mot ou deux sur GEOFONCIA ? Merci d'avance, EDIT: Oups, je viens de trouver la réponse à la question, => https://www.geo-media.com/solutions/geofoncia-powered-covadis

Merci de ta réponse détaillée Thierry,

Bonjour à toutes et tous, Et qu'apporte ce logiciel de plus que les autres ? D'avance, merci,

Bonjour à toutes et tous, Si, il faut utiliser la table des dévers du module projet linéaire,...