lecrabe

Hello Gilles c TIP-TOP MEGA-SUPER !!! :) :D :cool: Ainsi tout le monde est content y compris ce "foutu Decapode raleur" :P Encore Merci, Le Decapode

Hello NON désolé mais la fonction d'extraction (Outils/Extraction) traite aussi les blcos SANS attributs ! Le Decapode

Hello Tu utilises une fonction puissante par la barre de menu "Outils" : - Extraction des attributs ... Je te laisse découvrir, c très facile ! Sinon si tu as les Express/Bonus installés, tu tapes au clavier : BCOUNT Cela permet de compter simplement TOUS ou une sélection des blocs du dessin ... Le Decapode

Hello Gilles Tu es trop fort, je n'avais pas pensé au cas que tu as dessiné ! Cependant je pense qu'il serait intéressant si tu détectes "ce genre de problème" de poser la question : Nettoyage quand même Oui/Non (A vos risques et périls) et ainsi tout le monde est content :P En fait c surtout pour des problème en cartographie et les contours de parcelles / bâtiments / ilôts / sections / etc où le cas présenté (par toi) ne DOIT pas exister ! Le Decapode

Hello Gilles Superbe ! :) :D Et voici encore Le Decapode "critiqueur", il manque un petit qq chose à cette routine : :o Dessine une polyligne (en ortho c plus simple) avec un grand segment et revient n'importe ou plusieurs fois sur ce meme segment cliquer de nouveaux points à gauche et à droite avant de repartir à la fin du segment et d'aller ailleurs ... Tu verras que ta routine n'élimine pas tous les sommets inutiles (redondants) sur le même segment ! :casstet: Qu'en penses tu !? Le Decapode "chiant" [Edité le 13/11/2007 par lecrabe]

ReHello SORRY Maitre Bonuscad ! :exclam: Utilisant souvent TES routines et celles de Gilles, j'ai confondu ! Ok pour la position en dynamique qui donne la hauteur, je n'avais pas compris la subtilité ! Encore Merci, Le Decapode

Hello Gilles - Sorry Hello Bonuscad Je viens de tester sur AutoCAD 2008 : c TIP-TOP !! :) mais bien sur je vais émettre qq critiques / suggestions ! :P Sinon à quoi servirait Mr LeCrabe / Decapode !? Tests réalisés sur: - Arc, Cercle - Polyligne 2D close ou non, Lissée ou non, Splinée ou Non - Ellipse vraie, Ellipse fausse (PELLIPSE=1) - Spline - 3DPolyligne === Suggestions === - Poser la question de la distance de décalage ... - Poser la question: faire un groupe (Oui/Non) des N textes générés Mille mercis, Le Decapode "impressionné comme d'hab" [Edité le 12/11/2007 par lecrabe]

Hello Ca me semble curieux, je n'ai pas de problème particulier avec mes MAPs ... 1) As tu ajouté le SP1 sur ton MAP 3D 2008 ? http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=10095960&linkID=9240858 2) As tu ajouté le Raster Design Object Enabler sur ton MAP 2008 ? http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=9476871&linkID=9240858 Le Decapode

Bonsoir Je sors un vieux programme Lisp qui a qq limitations (PNT2BLK), je sollicite les Pros du Dev (par exemple Gilles ou autres) et BOUM Gilles me corrige / ameliore la routine vite fait bien fait en quelques instants ! :) Et en plus cela donne des idees a lili2006 qui va generer un peu plus de boulot pour GIlles dont les journees font sans doute 72h ! :D Encore merci à tous, Le Decapode

Hello Je ne pensais que ce petit Lisp que j'utilisais avec ses limitations depuis environ 2001/2002 allait susciter autant d'intérêt ! :o Je suis bien content qu'il puisse rendre qq services ... :) Encore MERCI aux pros du Lisp / V-Lisp / etc !! ;) Bon WE à tous, Le Decapode [Edité le 9/11/2007 par lecrabe]

Hello Gilles Comme d'hab, c parfait ! :) J'ai fait la micro-modif nécessaire et maintenant j'ai 2 routines - L'une pour dessiner un bloc sur des points graphiques - L'autre pour dessiner un bloc au centre de cercles (if (setq ss (ssget '((0 . "CIRCLE")))) ou (if (setq ss (ssget '((0 . "POINT")))) Encore Merci, Le Decapode

Hello Après qq tests intensifs, j'ai progressé ... En fait la routine n'a pas de bug REEL mais elle ne filtre pas correctement la sélection et donc elle dessine un bloc supplémentaire sur chaque debut de ligne / polyligne, centre de cercle, etc Donc si on ne sélectionne QUE des points graphiques alors tout va bien ! :) Testé sur AutoCAD 2004 / 2005 / 2006 / 2007 Je suis donc toujours preneur d'une petite modif qui filtre la sélection ! :P Merci d'avance, Le Decapode

Hello Voici une routine Lisp (PNT2BLK) que j'utilise depuis longtemps et qui insere un bloc AutoCAD (existant) par dessus des points graphiques AutoCAD Cependant elle a un petit bug qui m'enerve et que je n'arrive pas a corriger ! Cette routine insere un bloc supplementaire en ZERO,ZERO SVP est ce que quelqu'un pourrait la corriger ? ou en proposer une autre ... Merci d'avance, le Decapode ;;;--------------------------------------------------------------------; ;;; PNT2BLK.LSP ;;; July 2001 ;;;--------------------------------------------------------------------; ;;; DESCRIPTION ;;; Place a block object in the location of selected point objects. ;;;--------------------------------------------------------------------; ;;;********************************************************************* ;;; Function: PNT2BLK ;;; function to convert point objects to blocks. ;;; block must be defined in the current drawing ;;; blocks including attdefs will not address the attributes ;;; if the block references attdefs with default or constant values, ;;; these will be populated. ;;;********************************************************************* (defun c:pnt2blk( / ss ct len e eb bname pt attreqhold echohold) ;;;get command echo setting and store it (setq echohold (getvar "CMDECHO")) ;;;set command echo off (setvar "CMDECHO" 0) ;;;get attribute request setting and store it (setq attreqhold (getvar "ATTREQ")) ;;;set attribute request off (setvar "ATTREQ" 0) ;;;get name of block to insert (setq bname (getstring "\nBlock name: ")) ;;;check that the block is defined in the current drawing (if (tblsearch "block" bname) (progn ;;;prompt for point selection (princ "\nSelect point objects:") (setq ss (ssget)) ;;;filter selection to only point objects (if ss (ssget "p" (list (cons 0 "POINT")))) ;;;if point objects were selected (if ss (progn ;;;walk through point objects (setq len (sslength ss)) (setq ct 0) (while ( ;;;for each point (setq e (ssname ss ct)) (setq ct (+ ct 1)) (setq eb (entget e)) ;;;get insert point (setq pt (cdr (assoc 10 eb))) ;;;insert block (command "_insert" bname pt "" "" "") ) ) (princ "\nNo point objects selected.") ) ) (princ "\nInvalid, block not defined in drawing.") ) ;;;restore command echo setting to stored value (setvar "CMDECHO" echohold) ;;;restore attribute request setting to stored value (setvar "ATTREQ" 0) (princ) ) [Edité le 9/11/2007 par lecrabe]

Hello Et OUI, tu as parfaitement raison ! :) Ta routine fonctionne parfaitement avec DIMZIN = ZERO qui influe sur les fonctions RTOS et ANGTOS Je suis NUL ou plutot c'est l'age qui frappe encore ... :( car je connais bien ce DIMZIN et son influence sur les cotations :P Encore merci à toi, Le Decapode

Bon Matin Oh Grand Maitre Bonuscad, je viens de m'apercevoir que ta routine a un petit bug "subtil" ! Elle normalise bien avec des ZEROs à gauche une valeur numérique sur 4 chiffres avec en plus un éventuel préfixe MAIS si le chiffre de départ finit par un ou plusieurs ZEROs, ça "déconne" un peu ! :o 1 ==> 0001 = OK 10 ==> 001 = NOK 100 ==> 01 = NOK 1000 ==> 1 = NOK En espérant une correction, je te souhaite une bonne journée :) Le Decapode

Hello Je cherche un outil valable pour comparer des DWGs ou a la rigueur des objets de même type sur des calques differents ! Par exemple sur un calque j'ai les contours de parcelles (en polylignes closes) de l'année 2004 et sur un autre calque les parcelles de 2007 ... Comment visualiser efficacement les différences ? et aussi les sélectionner pour les copier / déplacer sur un autre calque ! Idem pour 2 calques avec des polylignes ouvertes (Réseaux, Filaire de voirie, etc ) MAP a des outils moyennement intéressants pour ce genre de choses ! Et donc j'ai l'impression qu'un développement spécifique serait nécessaire ! Qu'en pensez vous ? Quelle est votre expérience en ce domaine ? Le Decapode "farfouillant"

OOPS Eh toi le petit jeune, SVP tu laisses les "vieux couples" fricoter tranquillement SVP :P Le Decapode versus Didier

Bonsoir Avec le Volet Taches de ton MAP 2007 / 2008 en mode Gestionnaire d'affichage, tu cliques sur Données ... :) La case de dialogue de Connexion de données (FDO) apparaît et tu crées une nouvelle source de données (FDO) Raster ... :D Après il faut pratiquer et là un peu de formation ou d'intuition sera la bienvenue ! Le Decapode

Bonsoir Désolé Didier, je ne vois pas le pourquoi de tes interrogations !? Mais j'ai d'un coté des centaines de blocs (REGARD par exemple) avec au moins un attribut en général invisible (Etiquette: ID_REG) et de l'autre un peu plus loin (Où il y a de la place) un autre bloc (REGARD_INFO par exemple) avec de multiples attributs visibles (les caractéristiques techniques des regards) et un attribut en général invisible (Etiquette: ID_REG) Je désire que la routine trace automatiquement une polyligne de 2/3 segments entre le point d'insertion du bloc et le point d'insertion de l'étiquette ID_REG du bloc d'information correspondant SI et SELEMENT SI les 2 etiquettes ID_REG ont un contenu IDENTIQUE ! Cela me semble clair et limpide ! Le Decapode

Hello Désolé mais pour moi les routines fonctionnent parfaitement ! :) "_l" signifie en fait en US/English l'option "Last" ce qui correspond à l'option "Précédent" en Français :D Le Decapode "content"

Hello J'ai donc de nombreux blocs (dont le nom est XXXXXX, mais pensez par exemple à des Regards/Tampons) et d'autre part un autre bloc de N lignes de textes (=Attributs qui sont en fait des infos techniques sur le regard/tampon) Chaque bloc (aussi bien le regard/tampon que le bloc d'infos) contient 1 attribut (invisible bien sur) au contenu identique dont le nom est IDENTIFIANT (mais ca pourrait etre YYYYYY) En selectionnant des centaines/milliers de blocs XXXXXX et blocs YYYYYY, je desire qu'une polyligne (de 2/3 segments) soit dessinée automatiquement sur le calque courant entre chaque bloc dont l'attribut est IDENTIFIANT ( avec eventuellement une pointe de fleche ) Pourquoi 2/3 segments car ainsi, on pourra facilement, saisir une poignée bleue pour "courber" la ligne de rappel pour des raisons d'esthétique ! La polyligne ira du point d'insertion de l'attribut XXXXXX au point d'insertion de l'attribut YYYYYY. En fait il s'agit d'une sorte de repère avec une ligne de rappel (multi-segments) de longueur variable ! Je n'ai pas réussi à faire ce que je voulais avec les commandes / possibilités normales d'AutoCAD, mais bon je suis peut etre un peu fatigué :exclam: Dans l'attente de vos suggestions ou programme Lisp adéquat, je vous souhaite une excellente semaine :) Le Decapode

Hello Tu dis que avant tu avais un AutoCAD 2005 ! ou bien un MAP 3D 2005 ? Sinon avec ton MAP 3D 2008 (ou 2007), tu crees une source de données FDO de type Raster et tu insères ton image ECW ... Cette nouvelle terchnologie FDO d'accès aux données de tout type: vectoriel (SDF v3, SHP, Oracle Locator/Spatial, etc) et Raster existe depuis MAP 3D 2007 ! Le Decapode

Hello Avec MAP 2004 / 2005 / 2006 (et peut etre aussi avec les versions 2007 / 2008, en fait avec ces versions on utilise maintenant la techno FDO), il y a le client Oracle OSE qui permet en effet de lire et ecrire dans Oracle Spatial/Locator :) Cependant il faut initialiser un environnement et des tables systemes Oracle speciales pour l'environnement OSE de MAP, sinon tu n'as aucune chance :o Il s'agit des 5 tables: ADMPFEATURELAYER, ADMPIMPORTSETTINGS, ADMPMETADATA, ADMPOPTIONS, ADMPOSEMETADATA Il faudrait que tu regardes dans la DOC ou manuel electronique de ton MAP ... De plus chaque table contenant un champ GEOMETRY, doit contenir aussi N champs speciaux : GEOMETRY MDSYS.SDO_GEOMETRY, ENTITYID NUMBER, VERSIONNUMBER NUMBER, LOCKID NUMBER, ADMPBLOCKNAME VARCHAR2(255), ADMPBLOCKSCALE MDSYS.SDO_POINT_TYPE, ADMPCLOSED CHAR(1), ADMPCOLOR NUMBER(3), ADMPENTITYTYPE VARCHAR2(30), ADMPHYPERLINK VARCHAR2(255), ADMPJUSTIFICATION NUMBER, ADMPLAYER VARCHAR2(255), ADMPLINETYPE VARCHAR2(255), ADMPLINETYPESCALE NUMBER, ADMPLINEWEIGHT NUMBER, ADMPNORMAL MDSYS.SDO_POINT_TYPE, ADMPOLYPATCOLOR NUMBER, ADMPOLYPATTYPE VARCHAR2(255), ADMPPLOTSTYLE VARCHAR2(255), ADMPROTATION NUMBER, ADMPTEXTCONTENT VARCHAR2(512), ADMPTEXTHEIGHT NUMBER, ADMPTEXTSTYLE VARCHAR2(255), ADMPTHICKNESS NUMBER, ADMPWIDTH NUMBER); Faut aller farfouiller dans l'aide de MAP sur les commandes: MAPOSEADMIN, MAPOSECONNECT, etc :P C plus ou moins bien explique :casstet: Le Decapode

Hello Tu peux envisager d'ajouter sur tes AutoCAD "classiques" les Object Enabler Autodesk Architectural Desktop & CIVIL correspondants ... :) Le Decapode

Hello En effet il n'existe (A ma connaissance) malheureusement aucun support de cours ou livre en Francais sur MAP ! :o Il y a eu dans le passé qq bouquins en Anglais / US mais c'était sur des versions un peu anciennes hors aujourd'hui avec l'arrivée de la technologie FDO, il faut impérativement un document qui CAUSE du FDO ! Donc un document du niveau MAP 2007 ou 2008 (très peu de différences) d'un point de vue des fonctionnalités MAP ... Le Decapode "mappant"