lecrabe

Hello Merci pour ces prix 2025 ! J en étais resté à des prix 2024, cela a légèrement augmenté... GstarCad pourquoi pas ? Par contre il faudrait qq retours sur RD12 !? Belle Année 2025, La Sante, Bye, lecrabe

Hello Petite question: SVP 1 licence Geogexfr autonome coûte combien aujourd'hui en licence perpétuelle ? Et combien en location pour UN an ? Bye, lecrabe

Hello OK Merci ! Bye, lecrabe

Hello Et si tu enregistres en DWG2013 ? Bye, lecrabe

Hello Donc donc nous allons continuer à profiter de ton célèbre "Mode Raleur" ! Bye, lecrabe

Hello SVP tu utilises quelle version exactement de Covadis pour ce gros projet ? Bye, lecrabe

Hello Bienvenue dans le monde des Vieux ! Alors Retraite à 100% ou bien qq Prestas de temps en temps ? Belles année 2025, La Sante, Bye, lecrabe

Hello Didier J avais compris comme toi ! Donc les jeunes neurones d Olivier sont plus performants !! Bye, lecrabe

Hello OK et si ton Style courant utilise la Police AutoCAD "ISOCP.SHX" !? Bye, lecrabe

Hello 1) Pour 2 décimales : tu changes %pr1 en %pr2 2) Pourrais tu essayer avec un Style de texte COURANT qui utilise ARIAL ? Bye, lecrabe

Hello Tu regardes la variable DWGCHECK ou CHECKDWG ?? Bye, lecrabe

Hello Je soutiens Didier, ce VLisp est BETON ! Bye, lecrabe

Hello @bonuscad @Olivier Eckmann J esperais pouvoir faire une Requete sur le Groupe de dessins AutoCAD MAP en Mode "Modification des Proprietes" en changeant la Propriete CALQUE par l expression Lisp : (rtos(cdr(assoc 38(entget(car(entsel)))))2 0) ou (cdr(assoc 38(entget(car(entsel))))) MAIS ca ne passe pas !! ... Pourquoi ? Pourtant on peut avoir des noms de calque comme : 9.50 , 39.00 , 39.50 , etc Voir mon DWG de Test ... Bye, lecrabe 4LOTIS2_CN_1.7z

Hello Desole mais je suis incapable de modifier la routine Lisp/VLisp ! Elle prend le 1er texte trouve sur chacun des 2 calques avec texte 2 calques séparés pour les 2 types de texte existants : _numLay pour le No d Ordre dans le tableau _typeLay pour le Nom de la piece SVP qq un peut il revoir et ameliorer la routine ? Bye, lecrabe

Hello SUPER je vais jouer aux Dames !? Bye, lecrabe

Hello Voici un autre VLisp "PolyArea" de Gilles fort pratique qui permet la selection de N Objets 2D POLYAREA traite: ARC,CIRCLE,ELLIPSE,POLYLINE 2D,ELLIPSE,SPLINE,MPOLYGON,REGION et qui genere pour chacun un champ dynamique avec 1 decimale du genre : 23.4m² ;; ------------------------------------------------------------------------------------- ;; 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 ... ;; ------------------------------------------------------------------------------------- Bye, lecrabe ;; ;; 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 Merci donc c AutoCAD 2015 ET AVANT ... Bye lecrabe

Hello @Mika34 As tu acces a AutoCAD MAP ? Si OUI avec les Donnees d Objet (Object Data) on peut faire le travail ! Sinon avec un AutoCAD "simple", on peut utiliser les XDATAs pour stocker des Infos Mais il faut du Lisp / VLisp pour saisir facilement et surtout pour modifier et exporter ! Bye, lecrabe

Hello Au fait SVP tu travailles sur AutoCAD MAP (ou AutoCAD CIVIL) ou sur un AutoCAD "normal" ? Bye,lecrabe

Hello Remarque sans AutoCAD donc je n ai pas pu regarder ton DWG ! Attention: pour les 2 calques avec les Textes existants, ils doivent être des Textes (TEXT) ET NON PAS des Multi-Textes !? Est ce ton problème ? Bye, lecrabe

Hello Tu dois modifier les 4 lignes AVEC TES Noms de calque !! Avec le NOTEPAD.exe , il suffit de mettre le BON Nom pour les 4 calques ! 2 calques séparés pour les 2 types de texte existants : _numLay pour le No d Ordre dans le tableau _typeLay pour le Nom de la piece Le 3eme pour la surface qui sera générée automatiquement (_areaLay) Et le dernier : 1 calque pour les Polylignes closes existantes (_polyLay) Est ce OK ou dois je détailler plus ?? Bye, lecrabe PS: les Textes générés sont statiques mais normalement on s en fout car on ne modifie plus les contours des pièces !?

Hello OUI dans "mon" Lisp, les Textes sont statiques ! Bye, lecrabe

Hello @Maxime10 SVP tu testes le Lisp "NUMBER_TYPE_AREA_2" ... SVP BIEN parametrer les 4 variables ci-dessous ! (setq _numLay "TEXT_NUMBER") (setq _typeLay "TEXT_TYPE") (setq _areaLay "TEXT_AREA") (setq _polyLay "ROOM_POLYGON") C une version US/English mais tu devrais "t en sortir" !? ET tu me dis !? Bye, lecrabe PS: reponse en 14 mn, le Support est il EFFICACE ?? ;; ;; Routine par doaiena pour Patrice B. ;; ;; Routine: NUMBER_TYPE_AREA_2_Table by doaiena ;; ;; ---- Re: Lisp to Get Table with Room : Number + Type + Area ---- ;; ;; Here is a quick draft. I didn't have time to test it a lot, ;; so try it and tell me if it's working as expected. ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ATTENTION : DIMZIN = 0 sinon on ne controle pas les Decimales !! ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; (vl-load-com) (defun c:NUMBER_TYPE_AREA_2_Table ( / _dec dec _numLay numLay _typeLay typeLay _areaLay areaLay _polyLay polyLay ss ctr obj coords pts ss2 lay num typ area data tablePt table row col dimzinsauve oldecho ) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 0) ;;;;;;;; Sauvegarde de DIMZIN ;;;;;;;; (setq dimzinsauve (getvar "dimzin") ) (setvar "dimzin" 0) (setq _dec "2") (setq _numLay "TEXT_NUMBER") (setq _typeLay "TEXT_TYPE") (setq _areaLay "TEXT_AREA") (setq _polyLay "ROOM_POLYGON") (initget "0 1 2 3") (setq dec (cond ((getkword (strcat "How many decimals for the AREA [0/1/2/3] <" _dec ">: "))) (_dec))) (setq numLay (getstring (strcat "Enter layer for text number <" _numLay ">: "))) (if (= numLay "") (setq numLay _numLay)) (setq typeLay (getstring (strcat "Enter layer for text number <" _typeLay ">: "))) (if (= typeLay "") (setq typeLay _typeLay)) (setq areaLay (getstring (strcat "Enter layer for text number <" _areaLay ">: "))) (if (= areaLay "") (setq areaLay _areaLay)) (setq polyLay (getstring (strcat "Enter layer for 2D polygons <" _polyLay ">: "))) (if (= polyLay "") (setq polyLay _polyLay)) (princ "\n \nSVP verifiez AVANT que les Polylignes 2D sont parfaites : \nPas de doublon/triplon , Closes , CONTINUOUS , PLINEGEN=0 , etc ! \n \n") (if (setq ss (ssget (list (cons 0 "LWPOLYLINE") (cons 8 polyLay) (cons 70 1)))) (progn (while (not tablePt) (setq tablePt (getpoint "\nPick top left corner for the table: "))) (command "_view" "_sa" "tmp") (setq ctr 0) (repeat (sslength ss) (setq obj (vlax-ename->vla-object (ssname ss ctr))) (setq coords (vlax-safearray->list (vlax-variant-value (vla-get-coordinates obj)))) (setq pts nil) (while (> (length coords) 0) (setq pts (cons (list (car coords) (cadr coords)) pts)) (setq coords (cdr (cdr coords))) ) (command "_zoom" "_o" (ssname ss ctr) "") (if (setq ss2 (ssget "_WP" pts (list (cons 0 "Text") (cons 8 (strcat numLay "," typeLay "," areaLay))))) (progn (setq ctr2 0 num "0" typ "0" area (rtos 0 2 (atoi dec))) (repeat (sslength ss2) (setq lay (cdr (assoc 8 (entget (ssname ss2 ctr2))))) (cond ((= lay numLay) (setq num (cdr (assoc 1 (entget (ssname ss2 ctr2)))))) ((= lay typeLay) (setq typ (cdr (assoc 1 (entget (ssname ss2 ctr2)))))) ((= lay areaLay) (setq area (rtos (atof (cdr (assoc 1 (entget (ssname ss2 ctr2))))) 2 (atoi dec)))) ) (setq ctr2 (1+ ctr2)) );repeat (setq data (cons (list num typ area) data)) ));if ss2 (setq ctr (1+ ctr)) );repeat (command "_view" "_r" "tmp") (command "_view" "_de" "tmp") (if (> (length data) 0) (progn (setq data (vl-sort data '(lambda (x y) (< (atoi (car x)) (atoi (car y)))))) (setq table (vla-Addtable (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point tablePt) (+ (length data) 2) 3 10 30)) (setq row 0) (repeat (length data) (setq col 0) (repeat 3 (vla-settext table (+ row 1) col (nth col (nth row data))) (setq col (1+ col)) ) (setq row (1+ row)) );rows (vla-settext table (+ row 1) 2 (rtos (apply '+ (mapcar 'atof (mapcar 'caddr data))) 2 (atoi dec))) )) ));if ss ;;;;;;;; Restauration de DIMZIN ;;;;;;;; (setvar "dimzin" dimzinsauve) (setvar "cmdecho" oldecho) (princ) );defun

Hello Pour faire de l encartage automatique (depuis l Onglet Objet) il faudrait avoir par exemple N rectangles en Polylignes sur un calque specifique qui delimiteraient la Fenetre FMULT des N futures Presentations / Layouts ... Avec une Routine Lisp / VLisp "derriere" On suppose aussi que les Rectangles ont TOUS une taille / surface assez proche ! Quel format pour la Presentation / Layout et quelle Echelle pour la Fenetre generee !? Bye, lecrabe

Hello SVP cela veux dire quoi "faire des XREFs" !? Ensuite tu as quelle version : 2025, 2024, 2023, etc ? Et quel AutoCAD : AutoCAD ou AutoCAD LT ? Bye, lecrabe