lecrabe

Hello Bruno MERCI MAGNIFIQUE ! Et SVP puis je solliciter une amelioration significative !? A lieu de faire UN CLIC sur chaque objet A DECALER, Ne pourrait on pas faire une selection classique de N objets ET generer les N Doubles Decalages !? ET toujours avec l'option de garder ou pas, les objets de reference ! MERCI d'avance de ton attention, LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Olivier Merci de ton aide mais j'ai fais "un poil" different ! En ajoutant la ligne suivante : (command "_CHPROP" "_L" "" "_LAYER" (getvar "CLAYER") "") Derriere chaque ligne "vla-offset ..." LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello J ai un Lisp qui fait automatiquement un double Decalage (Gauche - Droite) qui me convient tout a fait ! Mais je desire que les Objets generes soient sur le calque COURANT et non pas sur le Calque d'Origine des objets selectionnes ! Donc SVP j espere que une ame charitable nous donnera la solution !? Je pense que derriere les 2 lignes "vla-offset ..." Il faut recuperer le DERNIER objet dessine et le mettre sur le calque Par Defaut = COURANT !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ;; ;; Commande au clavier: dbl_offset ;; Decalage des 2 cotes d un objet ;; et question Effacer oui/non l objet d'origine ;; (vl-load-com) (defun c:dbl_offset ( / val_offset del_ent js ent vla_obj) (initget 6) (setq val_offset (getdist (strcat "\nLargeur totale du Decalage <" (rtos (getvar "USERR1")) "> : "))) (if (not val_offset) (setq val_offset (getvar "USERR1")) (setvar "USERR1" val_offset)) (initget "Oui Non _Yes No") (setq del_ent (if (eq (getkword "\nSupprimer l'entite selectionnée [Oui/Non] <Non> : ") "Yes") T nil)) (while (/= ent "Exit") (setq js (ssadd)) (initget "Sortir _Exit") (while (or (null (setq ent (entsel "\nChoix de l'objet a Decaler de part et d'autre/[sortir] : "))) (/= ent "Exit")) (cond ((not (null ent)) (setq ent (car ent)) (setq vla_obj (vlax-ename->vla-object ent)) (vla-Offset vla_obj (/ val_offset 2.0)) (setq js (ssadd (entlast) js)) (vla-Offset vla_obj (- (/ val_offset 2.0))) (setq js (ssadd (entlast) js)) (if del_ent (entdel ent)) ) ) (initget "Sortir _Exit") ) (if js (sssetfirst nil js)) ) (princ) )

Hello Comme d habitude, tu me dois un Apero !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Bruno Je suis 100% OK avec toi ! ... Et je ne suis pas un "bourrin" ! De plus mes 2 PCs avec 32 Go Ram n'ont pas de SSD/M2 ... Donc si je trouve que c est DEJA RAPIDE de requeter un ENORME DWG de 400-800 Mo avec un DD classique ... J imagine bien que avec un SSD/M2 RECENT & RAPIDE (sur 1 ENORME DWG GLOBAL ou sur les centaines de DWGs d un Departement) cela doit etre VIF comme l Eclair !? A condition d avoir sauvegarde les DWGs avec l Option : Calque + Espace ! Et que les DWGs soient sur le SSD/M2 LA SANTE (Stay Safe), Bye, le crabe "triste" Automne 2020, la retraite

Hello Et si tu jouais avec cette excellente routine Lisp de Lee-Mac : TABORT !? http://www.lee-mac.com/tabsort.html LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Bruno Bien sur que l IDEAL c d avoir UN DWG par Commune ! Car ainsi deja (sans un quelconque Lisp) on peut mettre manuellement dans le groupe de dessins que les 5 / 10 / 20 communes de la zone concernee ... Et faire des Requetes sur le groupe de dessins de MAP ... Et le tout sur un "petit" PC ... BRAVO pour ton Lisp Ardechois !! SI EN PLUS, on a un Lisp qui fait le boulot "de choix des communes" par un simple CLIC, C TIP-TOP !! Neanmoins aujourd'hui avec AutoCAD / ACAD MAP / ACAD XXXX, avoir 16 Go Ram, C FORTEMENT Conseille ! LA SANTE (Stay Safe), Bye, le crabe "triste" Automne 2020, la retraite

Bonjour Mr Patrick de ZWCAD France Le vieux Decapode AutoCADien Patrice salue les ZWCadiens et Patrick - Vive le 17 Mars !! 1) MERCI pour cette longue reponse explicative ! 2) J ai supprime le msg en double LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Mais il faut bien retribuer notre indispensable Patrick !? Donc les pauvres / miserables / corveables A MERCI : Les Esclaves EEs bossent ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello SVP tu nous rassures en nous signalant que la bonne vieille commande _CLASSICINSERT est OK sur ta version 2021 ! Donc tu n es pas BLOQUE !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Cette semaine j ai travaille sur le meme type de DWG 2D : TOUT de Departement de l Aveyron (12) = 530 Mo : Communes, Sections, Parcelles, Batiments avec de nombreuses ODs de MAP sur ces Polygones ... Bien entendu ce DWG a ete sauvegarde avec les Options d Indexation : Calque et Espace ... ET je trouve que les Requetes de MAP sur le groupe de dessins pour extraire tel ou tel partie de ce GROS DWG sont RAPIDEs !! NOTE : DWG de 530 Mo (Aveyron - 12) ou DWG de 730 Mo (Finistere - 29) : les temps de reponses sont proches !? LA SANTE (Stay Safe), Bye, le crabe "triste" Automne 2020, la retraite

Hello Je ne suis pas du tout OK avec tes remarques ! Comment peux tu "comparer" un logiciel qui te coute environ 1500 Euros par an en location = ACAD ( ET avant jusqu'a debut 2016 environ 5000 Euros en version PERMANENTE ) et un logiciel qui coute moins de 1000 Euros (= ZWCAD) en version PERMANENTE Ensuite bien sur que certaines routines Lisp ne fonctionnent pas sur ZWCAD mais neanmoins la plupart des routines pas trop "sophistiquees" fonctionnent sur ZWCAD !? Je pense que ZWCAD est le meilleur compatible AutoCAD avec peut etre Ares Commander !? Je crois que Gilles a du ZWCAD et donc j'aimerais bien sa reaction !? et aussi les commentaires d autres intervenants !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Liian En resume tu es vachement GEO-Efficace ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Gilles YES tu as raison : l option 1er Point est bien DISPO ! Un peu beaucoup fatigue HIER l antique Decapode ! En fait je travaillais sur MAP 2021 et j etais obnubile par la prodigieuse nouvelle commande de la version 2021 : COUPUREAUPOINT / BREAKATPOINT Tout en bricolant simultanement sur un bon vieux MAP 2017 avec MAPCOUP ... Neanmoins si tu as qq instants a consacrer a MAPCOUP !? SVP je sollicite une petite amelioration : Traiter TOUTES les Polylignes 2D (Legeres / Lourdes = Splinees / Courbees) et AUSSI les 3DPolys (Closes ou Pas, Splinees ou Pas) MERCI d'avance de ton attention, LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Je recopie ici une ancienne routine de notre Grand Maitre Gilles ! Elle est fort pratique pour couper les LWPolys 2D, Lignes, Arcs Sur UN Point XY en gardant "des 2 cotes" les ODs de MAP ... Cette routine MAPCOUP peut paraitre LONGUE Mais en fait c parce que elle integre la routine COPY_OD ... Je l utilise de temps en temps ... ---- On pourrait envisager une petite amelioration comme dans la commande COUPURE ---- Option "1er Point" pour indiquer un point de coupure qui ne serait pas SUR le point de selection !? **** Demande ci-dessus INUTILE car option 1er Point POSSIBLE !! Voir les messages suivants !! Encore MERCI Gilles pour TOUT ce que tu partages avec la Communaute ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Dev special de GC pour Patrice B. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Voir la partie MAPCOUP en fin de programme ... ;;; ;;; COPY_OD ajoute dans la routine par securite ;;; ;;; Coupure en gardant les ODs de MAP et aussi les XDs ;;; ;;; pour les objets : LIGNE , ARC , Polylignes 2D (NON Splinees / NON Courbees) ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;---------------------------------------------------------------------------; ;;; ;;; COPY_OD.LSP ;;; ;;; (C) Copyright 1998 by Autodesk, Inc. ;;; ;;; Permission to use, copy, modify, and distribute this software ;;; for any purpose and without fee is hereby granted, provided ;;; that the above copyright notice appears in all copies and ;;; that both that copyright notice and the limited warranty and ;;; restricted rights notice below appear in all supporting ;;; documentation. ;;; ;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. ;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF ;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC. ;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE ;;; UNINTERRUPTED OR ERROR FREE. ;;; ;;; Use, duplication, or disclosure by the U.S. Government is subject to ;;; restrictions set forth in FAR 52.227-19 (Commercial Computer ;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) ;;; (Rights in Technical Data and Computer Software), as applicable. ;;; ;;; July 1996 ;;; ;;;---------------------------------------------------------------------------; ;;; ;;; DESCRIPTION ;;; ;;; Copy object data from one object to a set of other objects. If the ;;; object data to be copied already exists on the target object the ;;; options to not copy, copy once and copy all are presented. ;;; ;;; Careful, it is possible to corrupt existing topological data ;;; using this routine. ;;; ;;;---------------------------------------------------------------------------; ;;;**************************************************************************** ;;; Function: C:COPY_OD ;;; ;;; Main routine for copying object data from an object to ;;; a selection set of object. ;;; ;;; (defun C:COPY_OD ( / source_obj ; source object target_obj ; target object target_ss ; target selection set ct ; count len ; length overwrite ; overwrite flag error ; old error function ) (setq error *error*) ;; ;; Define error handler ;; (defun *error* (msg) (alert msg) (setq *error* error) (exit) ) ;; ;; Input the source object to copy data from ;; (princ "\nSelect SOURCE object: ") (setq source_obj (car (entsel))) (if (null source_obj) (prompt "\nNo source object selected.") (progn ;; ;; If the object has object data attached process it ;; (if (null (ade_odgettables source_obj)) (princ "\nSelected object contains no object data.") (progn (princ "\n\nSelect TARGET objects: ") (setq target_ss (ssget)) (if (null target_ss) (prompt "\nNo target object selected.") (progn (setq len (sslength target_ss)) (setq ct 0) (princ "\nCopying object data...") (while (< ct len) (setq target_obj (ssname target_ss ct)) (redraw target_obj 3) (setq ct (+ ct 1)) (setq overwrite (COPY_DATA source_obj target_obj overwrite)) (redraw target_obj 4) ) ) );if ) );if ) );if (setq *error* error) ;restore error handler (prompt "\nProcessing completed.") (princ) );C:COPY_OD ;;;**************************************************************************** ;;; Function: C:COPY_DATA ;;; ;;; Copy object data from the source object to the target object. ;;; ;;; If the data is already found to exist on a target object, the ;;; user is prompted what to do. Either to replace it only on the ;;; target, for all objects in the selection set, or to skip it. ;;; ;;; (defun COPY_DATA ( source_obj target_obj overwrite ; overwrite flag / ct ct2 cttemp fld fldnme fldnamelist fldtyp fldtypelist len numrec OK tbl tbllist tbldef tblstr val vallist ) ;; ;; access all OD tables from source object ;; (if (setq tbllist (ade_odgettables source_obj)) (progn ;; ;; for each table on source object ;; (foreach tbl tbllist (prompt (strcat "\nProcessing source table " tbl ".")) ;; ;; determine if target object has object ;; data records for current table ;; (setq OK nil) (setq numrec (ade_odrecordqty target_obj tbl)) ;; ;; If the table is found on object ask what to do ;; (if (and (> numrec 0) (/= overwrite "All")) (progn (initget "All Yes No") (setq overwrite (getkword "\nOverwrite existing record(s) on target? (All/Yes/No) <All>: ")) (if (null overwrite) (setq overwrite "All") ) ) ) (if (or (= overwrite "All") (= overwrite "Yes") (= numrec 0) ) (setq OK T) ) ;; ;; delete all existing records on target ;; object if overwrite flag is set ;; (if (and (> numrec 0) (or (= overwrite "Yes")(= overwrite "All")) ) (progn (setq ct 0) (while (< ct numrec) (ade_oddelrecord target_obj tbl ct) (setq ct (+ ct 1)) ) ) ) (if OK (progn ;; ;; build list of field names ;; (setq tbldef (ade_odtabledefn tbl)) (setq tblstr (cdr (nth 2 tbldef))) (setq fldnamelist ()) (setq fldtypelist ()) (foreach fld tblstr (setq fldnme (cdr (nth 0 fld))) (setq fldtyp (cdr (nth 2 fld))) (setq fldnamelist (append fldnamelist (list fldnme))) (setq fldtypelist (append fldtypelist (list fldtyp))) ) ;; ;; for each record on source object ;; (setq numrec (ade_odrecordqty source_obj tbl)) (setq ct 0) (while (< ct numrec) ;; ;; build list of values ;; (setq cttemp 0) (setq vallist ()) (foreach fld fldnamelist (setq typ (nth cttemp fldtypelist)) (setq cttemp (+ cttemp 1)) (setq val (ade_odgetfield source_obj tbl fld ct)) (if (= typ "Integer")(setq val (fix val))) (setq vallist (append vallist (list val))) ) ;; ;; add a record to target object ;; (ade_odaddrecord target_obj tbl) ;; ;; populate target record with values from source record ;; (setq ct2 0) (while (< ct2 (length vallist)) (setq val (nth ct2 vallist)) (setq fld (nth ct2 fldnamelist)) (setq ct2 (+ ct2 1)) (ade_odsetfield target_obj tbl fld ct val) ) (setq ct (+ ct 1)) );while ) );if );foreach ) );if ;; ;; Return overwrite status so it can ;; be passed back in for the next object. ;; overwrite );COPY_DATA ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Dev special pour couper en gardant les ODs de MAP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun C:MAPCOUP(/ lastEnt ent pt) (princ "\nCoupure au Point XY de LWPoly 2D, Ligne, Arc en gardant les ODs de MAP et XDs AutoCAD ") (if (setq v1 (entsel)) (progn (setq ent (car v1) pt (cadr v1) lastEnt (entlast)) (command "_Break" pt) (while (= (substr (getvar "CMDNAMES") 1 5) "BREAK") (command pause) ) (if (not (equal (entlast) lastEnt)) (COPY_DATA ent (entlast) T) ) ) ) (princ) ) ;;; (prompt "\nType: COPY_OD to copy object data.") (prompt "\nType: MAPCOUP (LWPoly 2D, Ligne, Arc) pour couper en GARDANT les ODs de MAP et XDs AutoCAD ") (princ)

Hello Vous cherchez un truc comme celui ci : ---- Bouton bascule pour une variable systeme AutoCAD ---- Exemple avec la variable PICKADD : ^C^Cpickadd;$M=$(xor,$(getvar,pickadd),1); LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Bonjour Olivier RAPPEL 1 : je suis "NUL" (ou presque) en Covadis ! RAPPEL 2 : Jean-Luc W. devrait partir dans 1 ou 2 an(s) Donc il faut du SANG NEUF !! LA SANTE, Cordialement, Patrice

Hello Mais il me semble que l IGN est proche !? LA SANTE, Cordialement, Patrice

Hello Fraxa ET ton Lisp COT3D, il fait quoi exactement ? ET Pourquoi 2 styles de Cot en 3D ? SVP Lisp A partager avec nous eventuellement !? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Mais tu peux postuler !? LA SANTE, Cordialement, Patrice

Hello Bruno MERCI pour cette superbe routine ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Mr Pineau / Cognac 1) MERCI pour ta routine RotAttDir ! 2) Maitre Didier : SVP puis je solliciter de ta haute bienveillance une version 2 !? Debut = IDEM de la v1 - Traitement des blocs statiques et dynamiques - Mais apres on pose une autre question, selection des eventuels autres blocs + attributs a traiter ? (MEME Nom de Bloc Statique ou Dynamique + Meme Nom d attribut bien sur) et TOUS les Attributs de Blocs concernes tournent aussi relativement avec l angle ... ( Attention 1 seul Attribut TOURNE par Bloc : celui designe au DEPART ) Vois tu ce que je veux dire ?? Merci d'avance, LA SANTE, Bye, lecrabe "triste" Automne 2020, la retraite

Objet: [CDI] Formateur AutoCAD & MAP & Covadis & AutoPiste Bonjour La societe GEOMEDIA (basee a Brest) recrute en CDI 3 Techn Formateur sur AutoCAD & MAP & Covadis & Autopiste Ces postes sont bases "A La Maison" (At Home) SVP envoyer CV + Lettre de motivation a rh@geo-media.com LA SANTE, Cordialement, Patrice

Objet: [CDI] Techn Support AutoCAD & Covadis & AutoPiste Bonjour La societe GEOMEDIA (basee a Brest) recrute en CDI pour Brest 2 Techn Support sur AutoCAD & Covadis & Autopiste SVP envoyer CV + Lettre de motivation a rh@geo-media.com LA SANTE, Cordialement, Patrice

Hello OK donc comme le dit Olivier, lors du MAPEXPORT, tu peux demander l'Export de la Propriete Aire / Surface et/ou Longueur / Perimetre AutoCAD des objets selectionnes ! Donc l'Info sera A JOUR en temps reel !! SVP tu regardes mon document PDF sur MAPEXPORT "MAP_201X__2012_GIS__MAPEXPORT__v107A.pdf" dans le sous-dossier a la page 8 ... Et pour MAPEXPORT, en plus de CE PDF, tu peux regarder ICI : https://georezo.net/forum/viewtopic.php?id=114348 LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite