Aller au contenu

AutoCAD MEP


228 sujets dans ce forum

    • 3 réponses
    • 3,5 k vues
  1. Objets parametriques

    • 1 réponse
    • 2,9 k vues
  2. Modifier les barres d'outils

    • 1 réponse
    • 2,9 k vues
  3. ruban et barre de tache

    • 14 réponses
    • 7,3 k vues
  4. calque non rapproché

    • 5 réponses
    • 7,8 k vues
  5. sauvegarde temporaire

    • 0 réponse
    • 2,3 k vues
  6. Formation Autocad MEP

    • 0 réponse
    • 4,5 k vues
  7. ruban inactif

    • 2 réponses
    • 7 k vues
  8. BUG AFFICHAGE

    • 2 réponses
    • 9,8 k vues
  9. mise a jour catalogues

    • 1 réponse
    • 3,6 k vues
  10. demarrage AutoCAD MEP Elec

    • 3 réponses
    • 4 k vues
  11. mep help

    • 8 réponses
    • 6,7 k vues
  12. MEP : utilisation mémoire

    • 6 réponses
    • 5,5 k vues
    • 1 réponse
    • 8,5 k vues
  13. Bouche de VMC

    • 0 réponse
    • 4,3 k vues
  14. ouverture MEP

    • 3 réponses
    • 10,4 k vues
  15. MEP 2009 VERS MEP 2012

    • 0 réponse
    • 4,8 k vues
  16. Didacticiel

    • 0 réponse
    • 3,4 k vues
    • 0 réponse
    • 1,8 k vues
  17. Traits masqués

    • 0 réponse
    • 4,6 k vues
  18. Traits masqués

    • 0 réponse
    • 7,6 k vues
  19. Mise en page

    • 2 réponses
    • 5,2 k vues
  20. boite de dialogue gaine ne s\'ouvre pas

    • 2 réponses
    • 2,6 k vues
  21. Aplanir ISO

    • 2 réponses
    • 6,2 k vues
    • 2 réponses
    • 3,6 k vues


  • Statistiques des forums

    • Total des sujets
      49,5 k
    • Total des messages
      300,2 k
  • Sujets

  • Messages

    • 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) )  
    • 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

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité