lecrabe

Hello Si vous etes avec AutoCAD MAP ou AutoCAD CIVIL et que vous avez un MAPCSASSIGN correct correspondant bien a votre Projection, alors la commande MAPDIST vous donnera la VRAIE Distance ! Bye, lecrabe

Hello @liuzzi Voici un Lisp "POLYLENGTH" de Gilles qui ne correspond pas tout a fait a ta demande mais que j utilise souvent ! POLYLENGTH ecrit un Champ dynamique du genre "132.5m" sur l ensemble des objets suivants selectionnes : ARC,CIRCLE,POLYLINE 2D/3D,MPOLYGON,REGION Peut etre que qq un pourra l adapter pour mettre la meme chose dans un Attribut Dynamique !? ET j ai le meme "POLYAREA" pour avoir "132.5m2" ... SVP regler la variable TEXTSIZE avant de lancer POLYLENGTH / POLYAREA ! Bon WE, Bye, lecrabe ;; ;; PolyLength 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. ;; ;; ---- ATTENTION ---- ELLIPSEs et SPLINEs ---- NON TRAITEES ---- ;; ;; %<\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:PolyLength (/ *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) ) (setq filter (list '(-4 . "<OR") ;; '(0 . "ARC,CIRCLE,LINE,LWPOLYLINE,MPOLYGON,REGION,SPLINE,ELLIPSE") '(0 . "ARC,CIRCLE,LINE,LWPOLYLINE,MPOLYGON,REGION") '(-4 . "<AND") '(0 . "POLYLINE") '(-4 . "<NOT") '(-4 . "&") '(70 . 112) '(-4 . "NOT>") '(-4 . "AND>") '(-4 . "OR>")) ) (prompt "Hauteur courante de MTEXT - Voir la Variable System TEXTSIZE ... \n" ) (prompt "---- ATTENTION ---- ELLIPSEs et SPLINEs ---- NON TRAITEES ---- \n") (prompt "POLYLENGTH traite: ARC,CIRCLE,POLYLINE 2D/3D,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 (cond ((member (vla-get-ObjectName obj) '("AcDbEllipse" "AcDbSpline")) (rtos (strcat (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj)) 2 1) "m") ) ((= (vla-get-ObjectName obj) "AcDbCircle") (strcat "%<\\AcObjProp Object(%<\\_ObjId " id ">%).Circumference \\f \"%lu2%pr1%ps[,m]%\">%" ) ) ((member (vla-get-ObjectName obj) '("AcDbRegion" "AcDbMPolygon")) (strcat "%<\\AcObjProp Object(%<\\_ObjId " id ">%).Perimeter \\f \"%lu2%pr1%ps[,m]%\">%" ) ) (T (strcat "%<\\AcObjProp Object(%<\\_ObjId " id ">%).Length \\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 Quand tu tapes Covadis en ligne de commande, tu vois quel No de Dongle Covadis ?? Bye, lecrabe

Hello @Carpo Quand @didier parle sur Covadis, on dit AMEN ! Bye, lecrabe

Hello @Dillack_bdx Vois tu une difference si tu charges tes gros Projets AutoCAD + COVADIS en LOCAL ?? Ton Processeur Core i7 13850HX est TOP, passer sur un autre avec un Turbo Max a 5.8 GHz, ne fera aucune difference ! Bye, lecrabe

Hello +1 avec Olivier ! Ce qui compte c le Mode Turbo sur 2 Coeurs, c BIEN suffisant pour AutoCAD (avec ou sans Covadis) Aujourd hui les Processeurs Core i5/i7/i9 modernes offrent jusqu a 20 coeurs ou plus, c TOTALEMENT INUTILE pour AutoCAD !! En theorie pour les Portables, le processeur Intel le plus rapide disponible est le Core i9 270H 14 Cores - 6 Performance Cores - 8 Efficient Cores - 20 Threads - Turbo Max = 5.8 Ghz Encore faut il que le systeme de refroidissement puisse SUIVRE !? ET sur les Portables le refroidissement est LIMITE alors que sur les Postes FIXES, on peut avoir un excellent refroidissement et DONC maintenir LONGTEMPS le Mode TURBO-MAX ! Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe

Hello Merci pour vos contributions ... Bye, lecrabe