Olivier Eckmann

Salut, essaie avec ça, j'ai "piqué" un peu de code chez nos cadors (Gilles et LeeMac) (vl-load-com) ;; str2lst (gile) ;; Transforme un chaine avec séparateur en liste de chaines ;; ;; Arguments ;; str : la chaine à transformer en liste ;; sep : le séparateur ;; ;; Exemples ;; (str2lst "a b c" " ") -> ("a" "b" "c") ;; (str2lst "1,2,3" ",") -> ("1" "2" "3") ;; (mapcar 'read (str2lst "1,2,3" ",")) -> (1 2 3) (defun str2lst (str sep / pos) (if (setq pos (vl-string-search sep str)) (cons (substr str 1 pos) (str2lst (substr str (+ (strlen sep) pos 1)) sep) ) (list str) ) ) ;; Get Attribute Value - Lee Mac ;; Returns the value held by the specified tag within the supplied block, if present. ;; blk - [vla] VLA Block Reference Object ;; tag - [str] Attribute TagString ;; Returns: [str] Attribute value, else nil if tag is not found. (defun LM:vl-getattributevalue ( blk tag ) (setq tag (strcase tag)) (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (vla-get-textstring att))) (vlax-invoke blk 'getattributes)) ) ;; Set Attribute Value - Lee Mac ;; Sets the value of the first attribute with the given tag found within the block, if present. ;; blk - [vla] VLA Block Reference Object ;; tag - [str] Attribute TagString ;; val - [str] Attribute Value ;; Returns: [str] Attribute value if successful, else nil. (defun LM:vl-setattributevalue ( blk tag val ) (setq tag (strcase tag)) (vl-some '(lambda ( att ) (if (= tag (strcase (vla-get-tagstring att))) (progn (vla-put-textstring att val) val) ) ) (vlax-invoke blk 'getattributes) ) ) (defun Point2D (PT) (list (car PT) (cadr PT) 0.0) ) (defun C:COPY_ATTR_BL1_BL2 ( / sBlNameSrc sBlNameDst sAttName lsAttName dDistMax JEU I lsSrc lsDst PT1 PT2 oBlkSrc oBlcDst) (if (and (setq sBlNameSrc (getstring "\nNom du bloc source : ")) (tblsearch "BLOCK" sBlNameSrc) (setq sBlNameDst (getstring "\nNom du bloc destination : ")) (tblsearch "BLOCK" sBlNameDst) (setq sAttName (getstring "\nNoms des attributs à recopier (séparés par des virgules si plusieurs) : ")) (setq lsAttName (str2lst sAttName ",")) (setq dDistMax (max 0.0 (getdist "\nDistance de recherche maxi entre bloc : "))) (setq JEU (ssget (list (cons 0 "INSERT") (cons 2 (strcat sBlNameSrc "," sBlNameDst))))) ) (progn (setq I 0 lsSrc nil lsDst nil) (repeat (sslength JEU) (setq oBloc (ssname JEU I)) (setq I (1+ I)) (if (= sBlNameSrc (cdr (assoc 2 (entget oBloc)))) (setq lsSrc (append lsSrc (list (list (vlax-ename->vla-object oBloc) (Point2D (cdr (assoc 10 (entget oBloc)))))))) (setq lsDst (append lsDst (list (list (vlax-ename->vla-object oBloc) (Point2D (cdr (assoc 10 (entget oBloc)))))))) ) ) (foreach oBlkDst lsDst (setq PT1 (cadr oBlkDst)) (foreach oBlkSrc lsSrc (setq PT2 (cadr oBlkSrc)) (if (<= (distance PT1 PT2) dDistMax) (foreach sAttName lsAttName (if (setq sValATt (LM:vl-getattributevalue (car oBlkSrc) sAttName)) (LM:vl-setattributevalue (car oBlkDst) sAttName sValAtt) ) ) ) ) ) ) ) ) Olivier

Bonjour, A partir du moment où 2 blocs n'ont pas le même nom, même s'ils ont exactement les mêmes attributs, dans la palette de propriété, si je les sélectionne tous les 2, je n'ai plus accès aux attributs. Je m'arrête à la section "Divers". Cela vient peut-être du fait que j'utilise AutoCAD MAP 3D et pas AutoCAD seul. Olivier

Bonjour, le code suivant devrait faire l'affaire (defun C:ML2PO ( / JEU oMLine oLine) (while (and (setq oMLine (car (entsel "\nSélectionner un Multi-ligne : "))) (= "MLINE" (cdr (assoc 0 (entget oMLine)))) ) (setq oLine (entlast)) (command "_explode" oMLine) (setq JEU (ssadd)) (while (setq oLine (entnext oLine)) (ssadd oLine JEU) ) (command "PEDIT" "M" JEU "" "j" "" "") (setq JEU nil) (princ "\n\n\n") (princ) ) ) Olivier

Bonjour, il n'y a jamais trop de détail quand on explique un problème et tout ce que l'on a tenté pour le contourner. Olivier

Bon finalement une mise à jour de windows avait flingué le paramétrage du driver de ma carte réseau. Après déinstall et réinstall de la dernière version de la suite de ma carte Killer E2400, tout est rentré dans l'ordre. Olivier

Bonjour, Nous sommes raccordés à la fibre depuis 6 mois ce qui permettait d'avoir des débits de 100Mbps montant et descendant. Depuis 1 mois mon PC (W10 Pro) est bridé à 1mbps montant alors que j'ai toujours 100Mbps descendant. Les autres PC du réseau (Win7 et Win10) ne sont pas limités et ont toujours le même débit montant/descendant. C'est donc visiblement un souci sur mon PC. J'ai cherché sur internet et j'ai trouvé des limitations propre à Windows 10 (autotuning) que j'ai désactivé mais pas mieux. J'ai des programmes qu'il n'y a pas sur les autres PC (VirtualBox, VisualStudio 215), mais jusqu'à maintenant je n'avais pas de souci. Si quelqu'un a une idée ou déjà rencontré ce souci, je suis preneur d'infos. Merci Olivier

Bonjour, le but du jeu au départ, c'est un emplacement réseau en lecture seule pour les utilisateurs, mais en lecture/ecriture pour le Cad Manager qui met à jour les programmes pour tout le monde. Sur un poste en local, effectivement, ça ne rime pas à grand chose, surtout que si tu ajoutes un plug-in via l'autoloader, les dossiers nécessaires sont bien ajoutés dans les emplacements approuvés alors qu'ils sont en lecture/ecriture sur ton poste. Olivier

Bonjour, Effectivement les actions de déplacement ou rotation ne fonctionnent que si l'attribut est verrouillé. Si tu verrouilles la position après, pense à faire un BATTMAN / Synchro. Comme la position est verrouillée, il faut aussi ajouter une action d'étirement sur un paramètre point pour récupérer le grip de l'attribut pour pouvoir le repostionner à volonté Ci-joint bloc modifié : ICI Olivier

Bonjour, essaie TEMPOVERRIDES à 0 et SELECTIONCYCLING à -2 Olivier

Le correctif 2019.1 qui vient de sortir doit corriger le problème de Majuscule sur les Xref d'après la liste des corrections. Olivier

Bonjour, Lien pour une VIDEO de la mise en oeuvre de la solution de Denis depuis un dessin sur un lecteur E:, d'abord avec une erreur, puis ensuite sans erreur après création de l'alias. Réalisée avec un MAP 2015, mais il ne devrait pas y avoir beaucoup de changement par rapport à un MAP 2012. Olivier

Bonjour, En ayant juste survoler le code, je pense que Denis n'a pas prévu/géré/créé les alias lorsque le dessin à transformer n'est pas sur le lecteur C: Il va falloir que tu ajoutes un nouvel alias E=E: dans ta configuration de MAP et que tu le rendes courant, explication ICI Sinon tu as un tutoriel fait par Patrice pour reprojeter des dessins via MAP 2012 (message 25, 26, 27 et 28) de cette discussion . Tu peux lire toute la discussion qui s'étend sur quelques années avec les changements d'interface graphique depuis MAP R3 (basé sur AutoCAD 14) jusqu'à 2012. Olivier

Normalement, tu enlèves pas mal de bouton en bas, ainsi tes onglets sont au même niveau que tes boutons. Ensuite un clic droit et tu coches "ancrée au dessus de la barre d'état" comme ça tes onglets passent systématiquement au dessus de la barre d'état quelque soit le nombre de boutons, et donc normalement, il n'y a plus aucune raison pour que ça bouge. Olivier

Bonjour, avec un clic droit sur un onglet, tu peux cocher ancrer au dessus de la barre d'état. Comme ça quelque soit le nombre d'onglet ils sont systématiquement au-dessus et n'interfèrent pas avec les boutons. Olivier

Bonjour, est-ce que tous les blocs ont la même échelle? Si oui, tu lances la commande échelle sur tous tes objets avec un facteur de 1.2 par ex, puis tu sélectionnes tous tes blocs et tu leur recolles leur échelle d'origine. Olivier

Bonjour Baptiste, Si tu utilises un AutoCAD MAP ou autre produit SIG, sur cette discussion Georezo, un inspecteur du cadastre de Corse à développer un intégrateur Edigeo pour charger une base PostGIS à partir des lots de données Edigeo du Cadastre PCI : https://georezo.net/...c.php?id=110313 Olivier

Bonjour, Juste pour info, les planches du cadastre sont disponibles (DXF et Edigéo / Projection Lambert93 et CC) et mis à jour gratuitement tous les 3 mois en open data sur le site du gouvernement : Explications Planche DXF-Edigeo Olivier

Salut Gégé, LEGAL : oui, car dans l'accord de licence que tu acceptes en installant le logiciel, il est indiqué qu'il reste la propriété d'Autodesk et qu'il s'autorise à vérifier par tous les moyens nécessaires que tu utilises légalement la licence d'utilisation qu'il t'on vendu. NORMAL : donc oui sur le fond et NON dans la forme car pour Autodesk le principe n'est pas EST-CE que tu fraudes, mais DE COMBIEN tu fraudes, c'est pourquoi les courriers sont si agressifs. Et ce n'est rien à comparer de ce que tu vas entendre par téléphone. Je soupçonne qu'en plus, les personnes affectées à ces contrôles, sont au moins partiellement rémunérés au prorata des redressements qu'ils ramènent! Il y a 4 ans nous avons été contrôlés, après un 1er passage de leur logiciel (eh oui, il te fournisse un logiciel qui scanne la totalité de ton réseau !!!) ils nous avaient collé pour 55000€ de licence à racheter. Après 2 jours de travail pour fournir toutes les preuves d'achats de mises à jour... (merci à Géomédia pour ce coup là), Autodesk a reconnu "du bout des lèvres" qu'en fait on était en règle. Mais le dernier échange s'est terminé par "vous êtes en règle POUR LE MOMENT". Donc oui il y a des abus, oui il y a des gens qui fraudent et c'est normal que ce soit contrôlé, aussi bien pour Autodesk, que pour les clients qui peuvent ainsi se battre sur un pied d'égalité financière car TOUT le monde devrait payer ses licences. Mais NON sur la forme qui laisse supposer que toutes les personnes contrôlées sont en infraction. Je suppose que la présomption d'innocence n'existe pas dans le droit américain. Bon courage, Olivier

Bonjour, dans l'autre discussion à laquelle je faisais référence sur GéoRézo, un inspecteur du cadastre indiquait ceci: Olivier

Bonjour, discussion intéressante en parallèle sur GeoRézo sur la constitution du cadastre : https://georezo.net/forum/viewtopic.php?id=111523 avec un historique depuis Napoleon et les différentes phases de mise à jour depuis. Olivier

Salut Lilian, Effectivement ils sont tous diplômés, mais ils ne savent rien faire. Il y a quelques semaines, je travaillais avec un jeune qui a eu son BTS l'année dernière sans souci. Il avait une erreur angulaire sur la détermination de son V0 et je lui demande à combien de cm correspond son erreur angulaire, vu que sa visée ne faisait que 15m. Après une réflexion intense sa réponse: "il y a sûrement une histoire de cosinus ou de tangente, mais moi la trigo j'ai jamais rien compris!" Eh oui, ça laisse pantois quand même qu'un gamin de 22 ou 23 ans à Bac+2 n'est jamais rien compris à la trigo quand on a une formation de géomètre. L'autre problème c'est qu'à l'école s'il ne font que 50% du travail correctement ça suffit. Une fois en entreprise, s'il ne lève correctement qu'1 point sur 2, ça ne va pas le faire longtemps. Cette mentalité de "j'en fait le strict minimum pour passer sous les radars et qu'on ne me demande rien", c'est dur de leur faire comprendre que ça ne passera pas en entreprise, que les conséquences d'un mur levé du mauvais côté qui servira de limite à un Bouygues pour construire son immeuble, ce sont plusieurs millions d'euros qui sont en jeu. Je ne critique pas les profs qu'ils font souvent ce qu'il peuvent avec ce qu'ils ont en face d'eux (les élèves) et au dessus (les programmes du ministère), mais plus ça va et moins ça va. C'est catastrophique. Quant aux devis, le problème n'est pas technique, mais financier. Lorsqu'un géomètre répond à des prix très "trop" bas parce qu'il veut à tout prix ce marché, même s'il sait qu'il ne pourra pas le satisfaire, qu'est-ce que l'on peut y faire. Si le client ne sait pas juger de la valeur du travail qu'il commande, comment peut-il décider de garder ou d'éliminer les réponses "non" représentatives. Des exemples de marché donnés en dépit du bon sens, tout le monde en connaît, pas besoin d'aller bien loin. Olivier

Bonjour, effectivement, ce n'est pas la meilleure solution de travailler seul à la station robotisée, mais si tu réponds aux appels d'offre ou si tu fais un devis avec une brigade de 2 personnes au lieu de 1 personne+robot, tu peux mettre directement la clé sous la porte, car plus aucun client ne te fera travailler. C'est malheureux, mais ça fonctionne comme cela (tout au moins en RP). Olivier

Bonjour, En tant que Géomètre je vais répondre sur les soucis que l'on rencontre. Il y a 2 axes de réponse : - le levé sur le terrain - le fichier informatique fourni. La contrainte principale c'est le prix de la prestation payée et donc le temps que l'on peut passer sur le travail. De plus en plus souvent la personne qui commande ne connaît pas le travail et ne fait que transmettre la demande des utilisateurs (très souvent simplifiée) du genre "un plan topo au 1/200°". L'objectif de la commande, c'est que ce soit le moins cher possible. Un plan topo au 1/200° définit par l'ordre des géomètres "réglemente" les objets levés, leur densité, leur précision. En aucun cas la création d'un MNT fait partie d'un plan topo au 1/200°. Tous les plans topo ne sont pas destinés à faire du projet 3D dessus. Ensuite s'il y a un cahier des charges qui demandent la création d'un MNT ou la création de tous les éléments Points 3D / Lignes de rupture 3D pour pouvoir faire le MNT en 1 clic, pas de souci, "normalement" le géomètre sait faire, mais c'est plus cher! Il faut accepter de le payer. Juste pour compléter mon propos une grande collectivité de la région parisienne vient de renouveler son marché topo, il a été adjugé 25% moins cher que le même marché (même cahier des charges) il y a 4 ans. Aujourd'hui, clairement, je ne sais pas faire la même chose qu'il y a 4 ans 25% moins cher, ou alors il faut baisser la qualité/contrôle/fiabilité... Concernant le levé terrain, il faut bien distinguer ce qui relève de l'erreur (hauteur de canne, verticalité...) et ce qui relève de la "simplification". Pour les erreurs, l'adoption de station robotisée a permis de baisser drastiquement les coûts (1 personne au lieu de 2) mais cela engendre une perte de contrôle. Avant, l'opérateur regardait le prisme et pouvait détecter une canne mal bullée, ou une hauteur à priori erronée et demander confirmation à la personne qui tenait la canne. Aujourd'hui, bien bullée ou mal bullée, la station vous suivra partout et enregistrera toutes vos données bonnes ou mauvaises. Cela impose que les utilisateurs soit mieux formés et sensibilisés à ces problématiques, ce qui est rarement le cas et encore plus pour les jeunes sortant des écoles que l'on a formé comme presse-bouton sans comprendre ce qu'il font ni leur enseigner le "métier". Pour la "simplification", les éditeurs de logiciel et de matériel ont permis de limiter au maximum le nombre de points à lever pour gagner encore du temps. Malheureusement ces solutions ne sont pas adaptées à un levé de qualité avec tous les points nécessaires. Quant à la partie informatique, là encore un cahier des charges bien défini clarifie ce qui doit être livré. En l'absence de cahier des charges, le géomètre fera ce qu'il veut. Personnellement nous travaillons avec beaucoup de donneur d'ordre différent et donc beaucoup de cahier des charges très différent. J'ai en particulier un cahier des charges pour lequel LE NOM des blocs (regards, tampons, grilles...) change selon qu'il est sous la chaussée, sous le trottoir ou sous espace-vert, et je vous passe la liste des 1200 calques... On sait faire et on le fait tous les jours, mais ça coute plus cher!!! Enfin, comme de partout, il y a le bon géomètre et le mauvais géomètre. Si c'est possible, il vaut mieux travailler avec le premier, même si c'est un peu plus onéreux. Olivier

Salut Charles, Personnellement, je ne vois pas trop ce qui bloquerait Covadis. Si c'est pour faire des MNT, il utilise le Z du bloc et pas le contenu de l'attribut. Au pire tu fais un ATTOUT, suivi d'un ATTIN pour rendre statique les Z sous forme de texte et plus de champ. Le plus gros risque c'est de remettre tous les points topo en 2D ce qui supprimerait tous les Z. Olivier

Bonjour, Pourquoi ne pas utiliser un attribut avec un champ dynamique qui récupère automatiquement le Z du point? Olivier