Aller au contenu

Périphériques d'entrée

claviers, souris, trackball, pointeurs, microphone, tablettes, palpeurs, systèmes d'acquisition...etc


77 sujets dans ce forum

  1. quel écran pour CAO

    • 1 réponse
    • 2,8 k vues
  2. Cherche Logitech G500S

    • 0 réponse
    • 1,2 k vues
  3. Razer Tartarus

    • 9 réponses
    • 5,6 k vues
  4. scanner 3d Leica BLK360

    • 0 réponse
    • 790 vues
    • 6 réponses
    • 3,1 k vues
    • 4 réponses
    • 2,4 k vues
  5. Souris 3Dconnexion

    • 0 réponse
    • 2,8 k vues
  6. Quel souris pour AUTOCAD ??? 1 2

    • 25 réponses
    • 22 k vues
  7. Scaner 3d

    • 20 réponses
    • 6,8 k vues
  8. photogrammétrie

    • 10 réponses
    • 4,5 k vues
  9. souris verticale

    • 9 réponses
    • 4,4 k vues
  10. Scanner 3D pour CAO

    • 4 réponses
    • 20,3 k vues
  11. Scanner 3D portable

    • 0 réponse
    • 5,4 k vues
    • 7 réponses
    • 6,8 k vues
    • 14 réponses
    • 8 k vues
    • 6 réponses
    • 12,3 k vues
  12. Spacenavigator pour Autocad ?

    • 3 réponses
    • 9,1 k vues
    • 5 réponses
    • 10,1 k vues
    • 3 réponses
    • 6,9 k vues
    • 8 réponses
    • 11,6 k vues
    • 4 réponses
    • 11,2 k vues
    • 4 réponses
    • 7,9 k vues
  13. TYPE DE CARTE RESEAU

    • 11 réponses
    • 12,5 k vues
  14. Un laser de \"luxe\" ?

    • 20 réponses
    • 20,9 k vues
  15. souris ergonomique pour tendinite pouce

    • 3 réponses
    • 20 k vues


  • Statistiques des forums

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

  • Messages

    • Invité Lazrqbk
      Быстро купить диплом любого университета! Мы изготавливаем дипломы любых профессий по доступным ценам--- [url=http://diplomv-v-ruki.ru/]diplomv-v-ruki.ru[/url]
    • Invité Sazrvsu
      Заказать документ о получении высшего образования вы можете у нас. Заказать диплом университета по выгодной цене возможно, обратившись к проверенной специализированной компании. [url=http://angelladydety.getbb.ru/viewtopic.phpf=46&t=53927/]angelladydety.getbb.ru/viewtopic.phpf=46&t=53927[/url]
    • 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

×
×
  • 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é