-
Qui est en ligne 1 membre, 0 anonyme, 67 invités (Afficher la liste complète)
CADxp, vos souhaits
Que souhaitez vous voir de nouveau sur ce site?
226 sujets dans ce forum
-
- 6 réponses
- 7,3 k vues
-
- 2 réponses
- 5,8 k vues
-
- 4 réponses
- 4,5 k vues
-
- 3 réponses
- 4 k vues
-
- 3 réponses
- 3,9 k vues
-
- 3 réponses
- 4,4 k vues
-
- 0 réponse
- 3,7 k vues
-
- 0 réponse
- 4,3 k vues
-
- 6 réponses
- 6 k vues
-
- 0 réponse
- 3,7 k vues
-
- 1 réponse
- 4,8 k vues
-
- 6 réponses
- 4,4 k vues
-
- 5 réponses
- 7,2 k vues
-
- 2 réponses
- 3,9 k vues
-
- 3 réponses
- 5 k vues
-
- 2 réponses
- 5,8 k vues
-
- 3 réponses
- 4,2 k vues
-
- 3 réponses
- 5,7 k vues
-
- 3 réponses
- 5,1 k vues
-
- 2 réponses
- 4,7 k vues
-
- 4 réponses
- 4 k vues
-
- 3 réponses
- 3,5 k vues
-
- Invité
-
- 2 réponses
- 4,1 k vues
-
- 2 réponses
- 3,5 k vues
-
- 2 réponses
- 3,2 k vues
-
Statistiques des forums
-
Total des sujets49,5 k
-
Total des messages300,2 k
-
-
Sujets
-
-
Messages
-
-
Par Patrick Emin · Posté(e)
A propos de Google Maps, une curiosité: https://dessein-tech.com/t/vous-mesurez-des-surfaces-sur-google-maps-quelle-erreur/5621 -
Par Patrick Emin · Posté(e)
A ce propos: https://dessein-tech.com/t/commandes-autocad-2026-utilisables-en-mode-ligne-de-commande/3310 -
Bonjour, Depuis le temps, ce serait tellement plus simple si la commande standard _FIELD existait à savoir _-FIELD C'est cas de nombreuses commandes qui ne proposent pas la commande en ligne de commande ! Christian -
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) )
-
-
Sujets
-
