lecrabe

Hello +1 avec les autres intervenants ! 1) Tu te couvres en renvoyant / transférant tous les e-mails "Danger / Illégal" vers ta messagerie PERSO ! Et tu effaces immediatement ces envois de ta messagerie Pro ! ET tu vides ta corbeille de messagerie ! Un maximum d e-mails et plus ils sont anciens, c encore mieux... Cela prouvera la continuite des ordres que tu reçois... 2) Tu n écris jamais TON Nom / Prenom sur un dessin ou autre document "Danger / Illégal" ! 3) Courage et tu essayes de trouver un Job AILLEURS !! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Je retiens deja que tu veux ecrire une Surface basee sur un Polygone 2D ... Imaginons que tu as des Polylignes 2D closes (Du genre: parcelle, batiment, etc) !? Le Lisp ci-dessous "POLYAREA" , va generer un champ dynamique au Centroid des Polygones qui indique la Surface ... Apres il faudra se promener sur les Polygones et replacer / deplacer certains champs a un meilleur emplacement XY ! SVP changer la Variable System TEXTSIZE (si necessaire) AVANT d'executer la Routine ! TEXTSIZE controle la hauteur des champs dynamiques generes ... Chargement des routines Lisp par la commande : APPLOAD Execution par la commande clavier : POLYAREA MERCI au Grand Maitre Gilles ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ;; ;; PolyArea par GC - 03/03/2018 ;; ;; Micro-Modif par Patrice B. ;; ;; ------------------------------------------------------------------------------------- ;; SVP changer la Variable System TEXTSIZE AVANT d'executer la Routine ! ;; Car la routine utilise la valeur de TEXTSIZE comme Hauteur de MTEXT par defaut ... ;; ------------------------------------------------------------------------------------- ;; ;; J'ai revu les codes, le probleme venait de la methode utilisee pour placer le texte/champ sur le barycentre de la polyligne. ;; Cette methode ne fonctionnait qu'avec des polylignes. ;; ;; J'ai change cela. Le texte est desormais place au centre de la boundingbox de l'entite. ;; J'ai aussi revu les filtres de selection qui ne devraient pas etre tout à fait les memes pour l'aire et la longueur. ;; ;; Pour l'aire, je te laisse choisir entre uniquement les objets fermes, ou pas. ;; ;; Pour les longueurs, les champs sont differents pour les cercles (Circumference), les regions et mpolygons (Perimeter) ;; et n'existent pas pour les ELLIPSEs et SPLINEs, j'ai donc remplace le champ par un MTEXT simple qui affiche la longueur. ;; ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Area \f "%lu2">% ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Length \f "%lu2">% ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Perimeter \f "%lu2">% ;; %<\AcObjProp Object(%<\_ObjId 1181647088>%).Circumference \f "%lu2">% ;; ;; Liste sur ELLIPSE --> Aire & Circonference ?? ;; Liste sur SPLINE --> Aire & Circonference ?? ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (defun c:PolyArea (/ *error* filter ss acSpace minPt maxPt pt id str txt) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))) (or *util* (setq *util* (vla-get-Utility *acdoc*))) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (/= msg "Function cancelled") (princ (strcat "Erreur: " msg)) ) (vla-EndUndomark *acdoc*) (princ) ) ;; entités fermées ;| (setq filter (list '(-4 . "<OR") '(0 . "CIRCLE,MPOLYGON,REGION") '(-4 . "<AND") '(0 . "ELLIPSE") '(41 . 0.0) (cons 42 (* 2 pi)) '(-4 . "AND>") '(-4 . "<AND") '(0 . "LWPOLYLINE") '(-4 . "&") '(70 . 1) '(-4 . "AND>") '(-4 . "<AND") '(0 . "POLYLINE") '(-4 . "&") '(70 . 1) '(-4 . "<NOT") '(-4 . "&") '(70 . 120) '(-4 . "NOT>") '(-4 . "AND>") '(-4 . "<AND") '(0 . "SPLINE") '(-4 . "&") '(70 . 9) '(-4 . "AND>") '(-4 . "OR>") ) ) |; ;; entités fermées ou ouvertes (setq filter (list '(-4 . "<OR") '(0 . "ARC,CIRCLE,LWPOLYLINE,MPOLYGON,REGION,ELLIPSE") '(-4 . "<AND") '(0 . "POLYLINE") '(-4 . "<NOT") '(-4 . "&") '(70 . 120) '(-4 . "NOT>") '(-4 . "AND>") '(-4 . "<AND") '(0 . "SPLINE") '(-4 . "&") '(70 . 8) '(-4 . "AND>") '(-4 . "OR>")) ) (prompt "Hauteur courante de MTEXT - Voir la Variable System TEXTSIZE ... \n" ) (prompt "\nPOLYAREA traite: ARC,CIRCLE,ELLIPSE,POLYLINE 2D,ELLIPSE,SPLINE,MPOLYGON,REGION \nSelectionnez les objets ou Entree pour tous ") (if (or (ssget filter) (ssget "_X" (cons (cons 410 (getvar 'ctab)) filter)) ) (progn (vla-StartUndomark *acdoc*) (setq acSpace (vla-get-Block (vla-get-ActiveLayout *acdoc*))) (vlax-for obj (setq ss (vla-get-ActiveSelectionSet *acdoc*)) (vla-GetBoundingBox obj 'minPt 'maxPt) (setq pt (mapcar '(lambda (x1 x2) (/ (+ x1 x2) 2.)) (vlax-safearray->list minPt) (vlax-safearray->list maxPt) ) id (vla-GetObjectIdString *util* obj :vlax-false) str (strcat "%<\\AcObjProp Object(%<\\_ObjId " id ">%).Area \\f \"%lu2%pr1%ps[,m²]%\">%" ) txt (vla-addMText acSpace (vlax-3d-point pt) 0. str) ) (vla-put-AttachmentPoint txt acAttachmentPointMiddleCenter) (vla-put-insertionPoint txt (vlax-3d-point pt)) ) (vla-Delete ss) ) ) (*error* nil) )

Hello SVP a quelles dates cette formation SVP ? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello YES 2 commandes : XDATA pour ajouter un XDATA sur une entité XDLIST pour lire (Écran Texte F2) les XDATAs de une entité LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Les Pros du Lisp Voici une routine interessante (du Grand Maitre Gilles) sur les XDATAs : XDA : pour voir en DCL (SANS les Modifier) les XDATAs de UNE Entite graphique ! Mais Copier / Coller du Contenu possible ... MERCI Gilles ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ;; XDA par Gilles ;; Affiche une boite de dialogue qui liste les donnees etendues (XDATA) de l'objet selectionne ;; Commande clavier : XDA (defun c:xda (/ xd-box tmp file dcl_id ent dlst) (defun xd-box (dlst) (setq tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line "XdBox:dialog{label=\"Donnees etendues\";" file ) (foreach l dlst (write-line (strcat ":boxed_column{label=" (vl-prin1-to-string (car l)) ";" ) file ) (foreach p (cdr l) (write-line (strcat ":edit_box{label=\"" (cond ((= 1000 (car p)) "1000 Chaîne : ") ((= 1002 (car p)) "1002 Accolade : ") ((= 1003 (car p)) "1003 Calque : ") ((= 1004 (car p)) "1004 Binaire : ") ((= 1005 (car p)) "1005 Maintient : ") ((= 1010 (car p)) "1010 Point : ") ((= 1011 (car p)) "1011 Position : ") ((= 1012 (car p)) "1012 Déplacement : ") ((= 1013 (car p)) "1013 Direction : ") ((= 1040 (car p)) "1040 Réel : ") ((= 1041 (car p)) "1041 Distance : ") ((= 1042 (car p)) "1042 Echelle : ") ((= 1070 (car p)) "1070 Entier 16 bits : ") ((= 1071 (car p)) "1071 Entier 32 bits : ") ) "\";value=\"" (vl-princ-to-string (cdr p)) "\";edit_width=30;}" ) file ) ) (write-line "}" file) ) (write-line "spacer;ok_only;}" file) (close file) (setq dcl_id (load_dialog tmp)) (if (not (new_dialog "XdBox" dcl_id)) (exit) ) (start_dialog) (unload_dialog dcl_id) (vl-file-delete tmp) ) (if (and (setq ent (car (entsel))) (setq dlst (cdr (assoc -3 (entget ent '("*"))))) ) (xd-box dlst) (alert "Cet objet ne comporte pas de donnees etendues ! ") ) (princ) )

Hello Les Pros du Lisp Voici une routine interessante (du Grand Maitre Gilles) sur les XDATAs : COPY_XD : Copier les XDATAs depuis 1 Objet Maitre vers N Objets Destination ... MERCI Gilles ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite ;; ;; Copier les XDATAs (Donnees Etendues) d'un objet source vers N objets cible ;; ;; Routine par GC vs 1.00 - Pour Patrice ;; ;; Commande au clavier : COPY_XD ;; ;; Routine identique dans le principe a COPY_OD (pour MAP ou CIVIL) ;; ;; Chargement par : APPLOAD ;; ;; ;; --- Interrogation Entite/Objet en Lisp --- ;; (entget (car (entsel)) '("*")) ;; (vl-load-com) (defun c:COPY_XD (/ ss source sdata n apps ent elst cdata) (if (and (setq source (car (entsel "\nSelectionnez l Objet Source (avec Donnees Etendues/XDATAs) : "))) (setq sdata (cdr (assoc -3 (entget source '("*"))))) ) (progn (setq n -1 apps (mapcar 'car sdata) ) (princ "\nSelectionnez les N Objets Cible ... ") (if (setq ss (ssget)) (while (setq ent (ssname ss (setq n (1+ n)))) (setq elst (entget ent '("*")) cdata (cdr (assoc -3 elst)) elst (vl-remove (assoc -3 elst) elst) ) (entmod (append elst (list (cons -3 (append (vl-remove-if (function (lambda (x) (member (car x) apps) ) ) cdata ) sdata ) ) ) ) ) ) ) ) (princ "\nL Objet selectionne ne contient pas de Donnees Etendues (XDATA) ! " ) ) (princ) )

Hello WAOUH on parle de centaines de tonnes alors !? La structure est calculee pour ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello NON les versions 2021 sont toujours de base ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Aleck construit sa Piscine !? Elle est grande (Surface / Profondeur) ? LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello YES il te faut imperativement un AutoCAD MAP 20XX ou AutoCAD CIVIL 20XX ! Si c un besoin ponctuel et que tes fichiers ne sont pas confidentiels-defense !? Tu nous fais un package ZIP/RAR/7Z et un lien Download Free ou WETransfet ou Equivalent !? ET une ame charitable te les traitera ... LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Comme deja evoque la partie MAP 2018 de ton AutoCAD MAP 2018 n'est PAS A JOUR ! SVP tu installes le Update MAP 2018.0.1 LA SANTE (Stay Safe), Bye, lecrabe "Triste" Automne 2020, la retraite

Hello As tu le Covadis "dernier cri" ? Donc la version 17.OF LA SANTE (Stay Safe), Bye, lecrabe Automne 2020, la retraite

Hello YES comme les Vieux Schnoks ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello DESOLE mais malheureusement Patrick_35 est DCD au Printemps dernier ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello SVP tes commentaires sur AutoCAD PLANT !? Et IDEM sur Navisworks !? Quels sont les points forts et surtout les faiblesses ... LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Ce devait être un Miracle !? No CADXP sur mon Bouygues ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Je suis Nul en Lisp mais si je me souviens bien : Code 62 pour les codes couleurs classiques (Valeur = 0 - 256) 256 = ByLayer - 0 = ByBlock Code 420 (ou 430) pour le RGB Code 430 (ou 420) pour les dictionnaires de couleur (DICT, Pantone, RAL) Donc il faut vérifier la présence de ces 3 codes ?! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello La methode "Vieux Schnok" ! Commande au clavier : XR En haut a gauche, le 1er Icone, tu deroules et tu peux inserer en XREF TOUT : DWG, PDF, Image, DGN, DWF, NWC/NWD, Nuage ... LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello CLIC sur n importe quel onglet / Bouton droit / Derniere option ... LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello YES possible !? Si possible ne jamais depasser les fameux 255 cars ! 255 cars = chemin complet + nom du dessin + .DWG LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello +1 avec Olivier PERSO: j aime bien les 15 Pouces en HD (1920x1080) ... Car ce n'est pas trop encombrant ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello A propos verifier aussi que VISRETAIN = 1 Et si AutoCAD 2016 + SP1 (ou +), alors SVP XREFOVERRIDE = 1 LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Si ton Clone AutoCAD est correct, tu verras un objet Proxy (comme AutoCAD LT ou AutoCAD SANS Covadis) ?! Et donc aucune propriete Covadis de l objet MNT ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Alors vu de loin, sans trop reflechir ... Tu supprimes / detaches TOUTES tes XREFs et tu les RE-Inseres en Mode SUPERPOSER ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite

Hello Magnifique reponse de notre Ardechois Coeur Fidele, que je salue bien bas ! LA SANTE (Stay Safe), Bye, lecrabe "triste" Automne 2020, la retraite