-
Qui est en ligne 2 membres, 0 anonyme, 70 invités (Afficher la liste complète)
AutoCAD 2020-2024
979 sujets dans ce forum
-
- 4 réponses
- 622 vues
-
- 10 réponses
- 760 vues
-
- 3 réponses
- 731 vues
-
- Invité
-
- 1 réponse
- 525 vues
-
- 17 réponses
- 1,3 k vues
-
- 1 réponse
- 458 vues
-
- 0 réponse
- 420 vues
-
- 2 réponses
- 565 vues
-
- 4 réponses
- 601 vues
-
- 7 réponses
- 520 vues
-
- 7 réponses
- 973 vues
-
- 4 réponses
- 633 vues
-
- 1 réponse
- 503 vues
-
- 7 réponses
- 1 k vues
-
- 10 réponses
- 1,1 k vues
-
- 2 réponses
- 419 vues
-
- 7 réponses
- 1,5 k vues
-
- 8 réponses
- 2,1 k vues
-
- 26 réponses
- 3,5 k vues
-
- 4 réponses
- 529 vues
-
- 1 réponse
- 400 vues
-
- 7 réponses
- 619 vues
-
- 6 réponses
- 524 vues
-
- 4 réponses
- 540 vues
-
- 8 réponses
- 806 vues
-
Statistiques des forums
-
Total des sujets49,5 k
-
Total des messages300,2 k
-
-
Sujets
-
-
Messages
-
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) )
-
Par Aurelien29 · Posté(e)
Bonjour, personne n'utilise la fonction pour orienter les att lors de la génération du dessin en ayant coché la case orienter sur la poly la plus proche dans sa table de codif ? -
Hello Quand tu tapes Covadis en ligne de commande, tu vois quel No de Dongle Covadis ?? Bye, lecrabe
-
-
Sujets
-
