GEGEMATIC

Salut, J'ajouterai que dans certains cas, il faut faire des tests supplémentaires: dans le cas de blocs avec attributs, (entlast) ne retourne pas la vraie dernière entité: Ci joint une petite routine pour être vraiment sur de son coup : ;************************************************************************* ;;§/SELECTIONS/retourne le vrai dernier element, dans le cas ou entlast retourne un element complexe/none ;;rajouté un test sur SEQEND : en effet, si 3dpolyligne = entlast, le entnext du sequend retourne au début ;; du dessin ! (defun pw_real_entlast ( / ent tmp ok eg tp) (setq ok T) (if (setq ent (entlast)) (while (and (setq tmp (entnext ent)) ok) (setq eg (entget ent)) (setq tp (cdr (assoc 0 eg))) (if (= "SEQEND" tp) (setq ok nil) ) (setq ent tmp) ) ) ent ) pour être complet, je rajoute mes selections par pointage selbefore et selafter sans lesquelles je suis perdu ! ;;************************************************************************* ;;§/SELECTIONS/ crée un jeu de selection des entités suivant un element/none (defun c:selafter ( / sel dep ) (setq dep (car (entsel "\nEntité limite"))) (setq sel (pw_selafter dep)) (sssetfirst sel sel ) ) ;;************************************************************************* ;;§/SELECTIONS/ selectionne les entités anterieures à l'entité dep/none ; (defun c:selbefore ( / dep sel ent ) (setq dep (car (entsel "\nEntité limite"))) (setq sel (pw_selbefore dep)) (sssetfirst sel sel ) ) ;;************************************************************************* ;;§/SELECTIONS/ selectionne les entités anterieur à l'entité dep/dep ;; ne marche pas ! (defun pw_selbefore ( dep / ent sel etyp ) (setq ent (entnext)) (setq sel (ssadd ent)) (while (and (/= nil (setq ent (entnext ent)))(not (eq ent dep))) (setq etyp (cdr (assoc 0 (entget ent)))) (if (not (member etyp '("ATTRIB" "VERTEX" "SEQEND"))) (setq sel (ssadd ent sel)) ) ) sel ) ;;************************************************************************* ;;§/SELECTIONS/ crée un jeu de selection des entités suivant un element/ent ;;fonction ralentie par la 2006, qui n'axepte pas les sequend ;;donc necessité de faire un entget pour chaque entité ;; (defun pw_selafter (ent / sel etyp) ;;si le dessin etait vierge, ent = nil (if ent (setq sel (ssadd)) (if (setq ent (entnext)) (progn (setq sel (ssadd)) (setq sel (ssadd ent sel)) ) ) ) (if ent (progn (while (setq ent (entnext ent)) (setq etyp (cdr (assoc 0 (entget ent)))) (if (not (member etyp '("ATTRIB" "VERTEX" "SEQEND"))) (setq sel (ssadd ent sel)) ) ) (if (> (sslength sel) 0) sel nil ) ) nil ) ) ;;************************************************************************* ;;§/SELECTIONS/ retourne le entnext qui n'est pas un sous élement/ent ;; (defun pw_real_entnext (ent / sel etyp go ent res) (setq go T) (if ent (while (and (setq ent (entnext ent)) go) (setq etyp (cdr (assoc 0 (entget ent)))) (if (not (member etyp '("ATTRIB" "VERTEX" "SEQEND"))) (setq go nil res ent) ) ) ) res )

Salut, la c'est vraiment le petit plus qui fait le gros bonus ! a + gégé

Salut, si tu as la source du lisp de Gile, tu peux changer la partie qui écrit dans un attribut par : (ecritodata entname "TABLE" "CHAMP" "mavaleurchaine") ;;usage (ecritodata (car (entsel "\nentité ?")) "TABLE" "CHAMP" "mavaleurchaine") (defun ecritodata (ent table champ val / id res lt len rg i boucle ) (if (setq lt (ade_odgettables ent)) (if (member table lt) (progn (setq len (ade_odrecordqty ent table)) (setq boucle 't) (setq i 0) (while (and (< i len) boucle) (if(setq id (ade_odgetrecord ent table i)) (progn (setq res (ade_odgetrecfield id champ)) (if res (progn (setq rg i) (setq boucle nil) ) ) ) ) (setq i (+ 1 i)) ) (if rg (ade_odsetfield ent table champ rg val) (prompt (strcat "\nLa table " table " ne contient pas de champ " champ) ) ) ) (progn (prompt (strcat "\nL'entité n'est pas reliée à la table " table)) (command) ) ) ) (princ) ) Bon courage, Gégé

salut, pour les logos, une autre solution: coller l'image non pas en tant qu'image, mais en tant qu'Ole, ainsi elle est sauvegardée dans le dessin. pour les logos, c'est adapté car l'image n'est en principe pas trop lourde. Gégé

Salut, Ce serait quand même étonnant que le contenu des tables pose problème, mais si tu t’aperçois que quand une requête marche, il n'y a pas d'accent, ça peut être une piste. Gégé

Salut, Complètement d'accord avec les accents et les caractères spéciaux, mais pour les signes moins, je n'y avais jamais pensé ... j'ai des tables avec un nom imposé, du style E-TRONCO, c'est peut être une source de problèmes maintenant que tu le dis ... Gégé

Salut, Après avoir vu le fichier doc, je vois que ton problème n'est plus dans la construction de la base, ni la requête (ça m'a l'air correct sauf que j'aimerai bien voir la traduction sql, je me méfie des interfaces), mais dans le rapport : je pense que tu es sur un bug de map, si le crabe ne vient pas à ton secours, tu es foutu ! A+ Gégé

Salut, pas eu vraiment le temps de regarder ton problème ne détail, mais juste pour faire avancer : Est-ce que ton problème ne serais pas résolu en faisant des rectangles avec des tables caveaux, et dans ce rectangle en mettant des point avec une table défunt ? je n'utilise pas ces fonctionalités de map, mais il me semble que l'on peut faire de l'enrichissement de données avec des notions comme contenu par ou contient (en tous cas très simple par programmation) Gégé

salut je pense la même chose ... gégé

Salut, je n'ai pas travaillé avec ustation depuis longtemps, mais il me semble que tu peux définir ta celulle avec un champ texte,style: "_ _ _" surtout avec la v8, tu dois pouvoir utiliser une cellule partagée avec l'équivalent des attributs d'autocad a voir ... Gégé

salut, et en plus, c'est une fierté nationale : sur tous les forums anglo-saxons, Gile repend son expertise, recueillant les louanges des plus grands spécialistes d'Autocad et de sa programmation ! Cocorico ! Gégé

salut, dans ce cas, tu n'as qu'a installer PowerClic, c'est pas compliqué: un liens ou tu trouvera des infos pour l'installer : Powerclic blog comme je vois que je n'ai pas vraiment répondu avec suffix/prefix car tu veux aussi renomer et dupliquer, jet te joins toute la collec: Gégé ;;************************************************************************** ;§/traces/renome les onglets par leur rang/none (defun c:renum_onglet ( / acadObject acadDocument layout_col nb i name taborder lres) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) ;;accède au début de objets? (setq acadDocument (vla-get-ActiveDocument acadObject)) ;;accède au document actif (setq layout_col (vla-Get-Layouts acadDocument)) (setq nb (vlax-get-property layout_col 'Count)) ;;parcours les layouts pour afficher leurs propriétés (setq i 0) (while (< i nb) (setq id (vlax-invoke-method layout_col 'Item i )) (setq name (vla-get-Name id )) (setq taborder (vla-get-TabOrder id )) (if (/= taborder 0) (progn (setq newname (rtos taborder 2 0)) (vlax-put-property id 'Name newname) ) ) (setq i (+ 1 i)) ) ) ;;************************************************************************** ;§/traces/Ajout ou supression des suffixe prefixe à une sélection d'onglets/none (defun c:suffix-prefix_onglet ( / layout_col nb i name taborder lres) (vl-Load-Com) (pw_bydefault "lay-mode" "Ajout") (PW_GETKWORDMEM "Ajout ou suppression de prefix-suffixe ?/Ajout Suppression" "lay-mode") (setq pw-lay-suffix (pw_s_lchaines3 "\nSpécifiez les onglet a renomer: " (vl-remove "Model" (layoutlist)) 1 pw-lay-suffix)) (pw_getstringmem "\nPréfixe ? (* pour supprimer la valeur)" "pw-prefix") (if (= "*" pw-prefix) (setq pw-prefix "") ) (pw_getstringmem "\nSuffixe ? (* pour supprimer la valeur)" "pw-suffix") (if (= "*" pw-suffix) (setq pw-suffix "") ) (setq layout_col (vla-Get-Layouts pw-acadDocument)) (foreach lay pw-lay-suffix (setq oLay (vlax-invoke-method layout_col 'Item lay )) (if (= "Ajout" lay-mode) (progn (setq newname (strcat pw-prefix lay)) (setq newname (strcat newname pw-suffix)) ) (progn (setq newname (pw_str_subst "" pw-prefix lay)) (setq newname (pw_str_subst "" pw-suffix newname)) ) ) (vlax-put-property oLay 'Name newname) ) ) ;;************************************************************************** ;§/traces/remplace une chaine dans le nom des onglets /none (defun c:cherche_remplace_onglet ( / acadObject acadDocument layout_col nb i name taborder lres) (pw_getstringmem "\nChaine à rechercher ? *? à préciser : " "onglet-cherche") (pw_getstringmem "\nChaine de remplacement ? (* pour supprimer la valeur)" "onglet-remplace") (if (= "*" onglet-remplace) (setq onglet-remplace "") ) (setq o-cherche (PW_STR_SUBST "" "*" onglet-cherche) ) (setq o-cherche (PW_STR_SUBST "" "?" o-cherche) ) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) ;;accède au début de objets? (setq acadDocument (vla-get-ActiveDocument acadObject)) ;;accède au document actif (setq layout_col (vla-Get-Layouts acadDocument)) (setq nb (vlax-get-property layout_col 'Count)) ;;parcours les layouts pour afficher leurs propriétés (setq i 0) (while (< i nb) (setq id (vlax-invoke-method layout_col 'Item i )) (setq name (vla-get-Name id )) (setq taborder (vla-get-TabOrder id )) (if (wcmatch name onglet-cherche) (progn (setq newname (PW_STR_SUBST_All onglet-remplace o-cherche name)) (vlax-put-property id 'Name newname) ) ) (setq i (+ 1 i)) ) ) ;;************************************************************************* * ;§/traces/copie l'onglet nb fois/layout nb (defun pw_copie_onglet_simple (objLayoutSource nb / acadObject acadDocument layout_col nb i name taborder lres ) (setq strNomNouveauLayout (vla-get-name objLayoutSource)) (setq layouts (vla-get-Layouts pw-acaddocument)) (repeat nb (setq strNomNouveauLayout (pw_inc_ch strNomNouveauLayout 1)) (setq objLayout (vla-add layouts strNomNouveauLayout)) (vla-Copyfrom objLayout objLayoutSource) ) ) ;;************************************************************************* * ;;;§/traces/copie l'onglet courant n fois/none (defun c:copie_onglet_courant (/ acLay ) (vl-Load-Com) (setq aclay (get_aclayout)) (pw_getintmem "\nNombre de copies ?" "layout-number") (pw_copie_onglet aclay layout-number) ) ;;************************************************************************* * ;;;§/traces/copie l'onglet nb fois/layout nb (defun pw_copie_onglet (objLayoutSource nb / nom layouts strNomNouveauLayout objLayout objlst ) ;;;Function CopierPresentation(objLayoutSource As AcadLayout, strNomNouveauLayout As String) As AcadLayout ;;;Dim objLayout As AcadLayout ;;;Dim objArray() As Object ;;;Dim i As Integer ;;;Dim intBlockCount As Integer ;;; ;;; On Error Resume Next ;;; ;;; 'Additionner la nouvelle présentation (setq strNomNouveauLayout (vla-get-name objLayoutSource)) (setq layouts (vla-get-Layouts pw-acaddocument)) (repeat nb (setq strNomNouveauLayout (pw_inc_ch strNomNouveauLayout 1)) ;;; Set objLayout = ThisDrawing.Layouts.Add(strNomNouveauLayout) (setq objLayout (vla-add layouts strNomNouveauLayout)) ;;; ;;; objLayout.CopyFrom objLayoutSource (vla-Copyfrom objLayout objLayoutSource) ;;; MODIFICATION en remplacement de ce qui est ci dessous. (vlax-for o (vla-get-block objLayoutSource) (setq objlst (cons o objlst)) ) (vlax-invoke pw-acaddocument 'CopyObjects (reverse objlst) (vla-get-block objLayout) ) ) ) ;;************************************************************************** ;§/traces/renome les onglets par leur rang/none ;;numéroation alphabetique (defun c:onglet_armand_jeamot ( / acadObject acadDocument layout_col nb i name taborder lres) (setq pw-lista (list "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "AA" "AB" "AC" "AD" "AE" "AF" "AG" "AH" "AI" "AK" "AL" "AM" "AN" "AO" "AP" "AQ" )) (vl-Load-Com) (setq acadObject (vlax-get-acad-object)) ;;accède au début de objets? (setq acadDocument (vla-get-ActiveDocument acadObject)) ;;accède au document actif (setq layout_col (vla-Get-Layouts acadDocument)) (setq nb (vlax-get-property layout_col 'Count)) ;;parcours les layouts pour afficher leurs propriétés (setq i 0) (while (< i nb) (setq id (vlax-invoke-method layout_col 'Item i )) (setq name (vla-get-Name id )) (setq taborder (vla-get-TabOrder id )) (if (/= taborder 0) (progn (setq newname (nth (- taborder 1) pw-lista)) (vlax-put-property id 'Name newname) ) ) (setq i (+ 1 i)) ) )

Salut, moi en général, je ne m'attends pas à grand chose, mais là il y a quand même des trucs qui m'intéressent (a voir) Ben ça j'en espère beaucoup ... On a tous déja nos outils, mais si le leur est meilleur, on crachera pas dessus Alors là, je vois pas de quoi il s'agit ? la seule que je ne vois pas, c'est celle des hachures: pourtant, impossible de différencier les motifs ! Alors là, ce serait une révolution, le principal défaut d'Autocad est sa lenteur d'affichage, essayez une fois microstation, vous aurez envie de mordre ! Gégé

salut, avec le code ci dessous, il te faut PowerClic installé. ;;************************************************************************** ;§/traces/Ajout ou supression des suffixe prefixe à une sélection d'onglets/none (defun c:suffix-prefix_onglet ( / layout_col nb i name taborder lres) (vl-Load-Com) (pw_bydefault "lay-mode" "Ajout") (PW_GETKWORDMEM "Ajout ou suppression de prefix-suffixe ?/Ajout Suppression" "lay-mode") (setq pw-lay-suffix (pw_s_lchaines3 "\nSpécifiez les onglet a renomer: " (vl-remove "Model" (layoutlist)) 1 pw-lay-suffix)) (pw_getstringmem "\nPréfixe ? (* pour supprimer la valeur)" "pw-prefix") (if (= "*" pw-prefix) (setq pw-prefix "") ) (pw_getstringmem "\nSuffixe ? (* pour supprimer la valeur)" "pw-suffix") (if (= "*" pw-suffix) (setq pw-suffix "") ) (setq layout_col (vla-Get-Layouts pw-acadDocument)) (foreach lay pw-lay-suffix (setq oLay (vlax-invoke-method layout_col 'Item lay )) (if (= "Ajout" lay-mode) (progn (setq newname (strcat pw-prefix lay)) (setq newname (strcat newname pw-suffix)) ) (progn (setq newname (pw_str_subst "" pw-prefix lay)) (setq newname (pw_str_subst "" pw-suffix newname)) ) ) (vlax-put-property oLay 'Name newname) ) ) sinon, il faut remplacer les fonction de cette manière, ce sera moins pratique : (PW_GETKWORDMEM "Ajout ou suppression de prefix-suffixe ?/Ajout Suppression" "lay-mode") devient : (setq lay-mode (getstring "Ajout ou suppression de prefix-suffixe ?/Ajout Suppression" )) je pense qu'il y a d'autre commande sur cadxp en tout en un, mais au moisn, tu peux t'inspire de cet exemple ... Gégé

Salut, en gros c'est ça, mais il faut encore faire des test sur cette commande pour connaitre tous ses secrets. Et ça prend du temps... a moins que quelqu'un ai déjà des connaissance sur le sujet, dans ce cas je suis preneur ! a+ Gégé

Salut, ça a l'aire pas mal, je vais faire un essai... pour l'équidistance des pointillés, je pense qu'il faudrait avoir une option, car ça peut être pratique d'avoir le mode actuel: on peut voir quels segments sont plus ou moins pentus, et ça c'est vachement bien quand on bricole en vu de créer un MNT ... Gégé

Salut, Comment ça marche: c'est un override sur la représentation des polylignes 3d ? ou est-ce que c'est un genre de réacteur qui cache les polyligne 3d puis les redessine avec un type de ligne à chaque redess ou zoom ? je vois que tu t'amuse beaucoup avec la représentation des objets Autocad ... Gégé

Salut, Justement non, c'est plus compliqué que ça: -DWGUNITS est une commande bizarre qui modifie partiellement certaines variables système, en ce sens, je la trouve particulièrement sournoise. je ne sais pas où elle stocke certaines préférences, peut être dans le registre, mais en tout cas pas dans des variables système documentées. tu trouvera ci dessous 2 séquences de -DWGUNITS, avec les variables modifiées par la commande. seuls LUNITS et LUPREC sont systématiquement modifiés, et -dwgunits n'a que 2 valeur possibles pour LUNITS , alors que la variable LUNITS en possède 5 on remarquera que INSUNITS n'est pas modifié si on ne confirme pas le changement d'unités dans la question suivante. -DWGUNITS pose 8 questions, et ne modifie que 3 variables en rapport direct avec ses questions. par contre, la question "Mettre à l'échelle les objets dans le dessin en cours pour refléter les changements d'unités" change 3 variables, TEXTSIZE, DIMSCALE et CANNOSCALEVALUE Par contre, la commande UNITES, pour les 3 questions communes avec -DWGUNITS propose le même nombre d'options que le permettent les variables système, mais ne permet pas d'activer ou de désactiver la mise à l'echelle automatique Moralité, pour pouvoir travailler sans unites, et désactiver la mise à l'echelle automatique, on est obligé de passer par 3 étapes : d'abord la commande -dwgunits, ou l'on désctive la mise à l'echelle automatique puis la commande unites ou l'on spécifie les unites du dessin sur Aucun et enfin les variables : INSUNITSDEFTARGET INSUNITSDEFSOURCE Que l'on doit mettre à 0 pour le design center Personnellement, je trouve ça débile. ci dessous les exemples d'utilisation de -DWGUNITS -DWGUNITS Unités de dessin: 1. Pouces 2. Pieds 3. Millimètres 4. Centimètres 5. Décimètres 6. Mètres Unité de longueur <6>: 3 LUNITS Formats d'affichage des unités de dessin: 1. Scientifique 2. Décimal Format d'affichage linéaire <2>: 1 LUPREC Précision de l'affichage linéaire <3>: 4 Mettre à l'échelle les objets provenant d'autres dessins lors de leur insertion? [Oui/Non] <Oui>: N Mettre en correspondance INSUNITS et les unités de dessin? [Oui/Non] <Oui>: N ** AVERTISSEMENT: vous avez modifié l'unité de cette base de données de dessins. ** ** Tous les nouveaux objets seront dessinés en fonction de la nouvelle unité, mais ** ** les objets existants ne changeront pas de taille, sauf si vous ** ** demandez précisément une mise à l'échelle automatique. ** Mettre à l'échelle les objets dans le dessin en cours pour refléter les changements d'unités? [Oui/Non] <Oui>: N Commande: -DWGUNITS Unités de dessin: 1. Pouces 2. Pieds 3. Millimètres 4. Centimètres 5. Décimètres 6. Mètres Unité de longueur <3>: 6 LUNITS Formats d'affichage des unités de dessin: 1. Scientifique 2. Décimal Format d'affichage linéaire <2>: 1 LUPREC Précision de l'affichage linéaire <4>: 2 Mettre à l'échelle les objets provenant d'autres dessins lors de leur insertion? [Oui/Non] <Non>: o Mettre en correspondance INSUNITS et les unités de dessin? [Oui/Non] <Non>: o ** AVERTISSEMENT: vous avez modifié l'unité de cette base de données de dessins. ** ** Tous les nouveaux objets seront dessinés en fonction de la nouvelle unité, mais ** ** les objets existants ne changeront pas de taille, sauf si vous ** ** demandez précisément une mise à l'échelle automatique. ** INSUNITS Mettre à l'échelle les objets dans le dessin en cours pour refléter les changements d'unités? [Oui/Non] <Oui>: TEXTSIZE Inclure les objets dans l'espace papier? [Oui/Non] <Oui>: DIMSCALE Mise à l'échelle de toute la base de données... CANNOSCALEVALUE Mise à l'échelle de ou des objets AecDb... Mise à l'échelle des entités dans l'espace objet... Ignorer les entités dans l'espace papier... Gégé

Salut et merci à tous les 2, Alors je comprends mieux: elles ne sont que pour le designcenter, mais alors, ou sont stockées les préférence de -dwgunits ? apparemment pas dans des variables ? (a part insunits) Du coup ça embrouille pas mal, le choix "aucun" devrait être présent ... Gégé

Salut à tous, rarement j'ai des blocs qui se mettent à l'échelle alors que je n'ai rien demandé: j'ai souvent mis ce pb de coté, l'associant au bug d'échelle lorsque on importe des onglets depuis le design center. De plus, j'initialise toujours mes dessins avec : INSUNITS,0 INSUNITSDEFTARGET,0 INSUNITSDEFSOURCE,0 MEASUREINIT,1 Mais ce coup ci, pas moyen de régler le problème, et je suis tombé sur: -DWGUNITS Ce qui est incroyable avec cette commande, c'est qu'elle pose des question qui devraient modifier les varaibles ci dessus, mais non, des 4 du dessus, elles ne modifie que INSUNITS. En plus elle impose une unites, au contraire de INSUNITS de plus, ces effets prennent le dessus sur les variables au dessus A quoi joue Autodesk, je ne comprends plus ... ci dessous le prompt de la commande et les effets sur les variables: Fenetre texte : Vraiable modifiée : Commande: -DWGUNITS Unités de dessin: INSUNITS 1. Pouces 2. Pieds 3. Millimètres 4. Centimètres 5. Décimètres 6. Mètres Unité de longueur <3>: 6 Formats d'affichage des unités de dessin: LUNITS 1. Scientifique 2. Décimal Format d'affichage linéaire <2>: Précision de l'affichage linéaire <4>: LUPREC Mettre à l'échelle les objets provenant d'autres dessins lors de leur insertion? [Oui/Non] <Oui>: N Mettre en correspondance et les unités de dessin? [Oui/Non] <Non>: O ** AVERTISSEMENT: vous avez modifié l'unité de cette base de données de dessins. ** ** Tous les nouveaux objets seront dessinés en fonction de la nouvelle unité, mais ** ** les objets existants ne changeront pas de taille, sauf si vous ** ** demandez précisément une mise à l'échelle automatique. ** Mettre à l'échelle les objets dans le dessin en cours pour refléter les changements d'unités? [Oui/Non] <Oui>: N Gégé

salut à tous, j'ai découvert une curiosité, les 3dsolid créés par cadenas (bibliothèque de composants) ne retournent pas d'entget (entget (car (entsel))) -> nil par contre, ils retournent un vlax-dump-object bon en fait ça ne me gène pas, mais j'aimerai bien en savoir plus sur cette histoire Gégé

Salut, Ton exemple est intéressante, mais concrètement, on ne fabriquera pas la gaine avec cette vue 3d ? Pour obtenir une vue 2d cotée (le seul truc qui s'utilise dans un atelier ou sur un chantier, a part pour les centre d'usinage) combien d'opérations sur le fond de plan scanné ? dans ton exemple, je vois que ta gaine traverse impunément de la tuyauterie en faible DN, la plus chronophage à dessiner par des méthodes topo ou relevé au disto Donc en gros, la topo ou le relevé disto nécessaire pour dessiner cette vue en 3d ne doit pas être très long avec une méthode traditionnelle. Maintenant si tu travaille constamment dans ce type d' environnement industriel, et dans pleins de sites différents, je comprends bien que c'est mieux d'avoir toujours le même mode opératoire, basé sur le scanner, qui parfois fait perdre du temps, mais souvent en gagner. Donc c'est une question d'analyse des besoins propre à chaque entreprise. (tout ça pour en arriver à cette conclusion, je me demande si c'était bien la peine ...) Gégé

Salut, recherche les posts avec DBX de Patrick35 Gégé

Salut, Au début des années 90, les appareils photos numériques étaient rares et chers un seul truc pas trop cher était le caméscope, ça a été longtemps mon mode d'acquisition lors de visite sur le terrain lorsque les appareils photos numériques sont apparus, comme j'en avais marre d'être ridicule avec mon caméscope, j'ai fait des photos: comme par hasard, ce qui manque n'est jamais sur les photos ... Donc je filme toujours, le cheminement dynamique fait qu'il y a moins de zones masquées (mais ce n'est pas du 100%) ton scanner ne prendra jamais que ce qu'il peut prendre depuis la ou tu l'a posé, comme un appareil photo avec un grand angle. En complément de la topo,il y a un gadget a 10000€ qui permet de prendre des photos 3d d'un zone pour pouvoir extraire au bureau les points qui manquent si j'étais Crésus, j’achèterai ça ... mais même avec ça, il se peut que ce dont tu as besoin ne soit pas sur la photo ! Il existe une technologie géniale qui pallie à tout ça: La rigueur sur le terrain ... C'est le seul truc que j'ai trouvé ... Quand un levé s'étale sur plusieurs jours, il faut prendre le temps de faire un report rapide le soir, pour voir ou on en est et ne rien oublier. Gégé

salut Dinosor, et merci Didier ! Aujourd'hui une station totale de type chantier (les jaunes chez Leica) peut suffire à faire un levé intérieur extérieur de qualité Comme dit Didier, si tu sais utiliser un niveau de chantier, une station totale c'est trop facile il faut juste avoir la rigueur dans le cheminement, et avoir un logiciel de polygo (type Covadis) pour atténuer les erreurs de cheminement je pense que le journée de prise en main peut suffire pour la partie terrain (avec un peu d'autoformation à suivre) pour la polygo, une formation Covadis ou mensura ou civil 3d me semble nécessaire, car dans le cadre d'un levé topo d'un bâtiment entier, on peut avoir beaucoup-beaucoup de stations ... la démo Atlog que j'ai eu était encore 2d, mais je pense qu'ils sont passés eu 3d, et franchement leur système était top. Il y a également géopixel qui a un système de levé révolutionnaire, je crois qu'ils le déclinent pour le batiment, dans les 2 cas, atlog ou géopixel, la polygo est gérée directement. concernant les stations totales, je n'ai pas de préférence arrêtée entre Trimble et leica, j'ai les 2, mais pour moi les contrôleur Trimble sont mieux. Voilà, il y a du choix, l faut que tu fasse venir les acteurs du secteur, et tu te fera une idée, et peut être que pour toi, le scanner sera le meilleur ? Gégé