Aller au contenu

  • Qui est en ligne   0 membre, 0 anonyme, 45 invités (Afficher la liste complète)

    Il n’y a aucun utilisateur enregistré actuellement en ligne

Routines VBA

Postez ici vos routines VB ou VBA. Une routine est du code court destiné à être réutilisé. Par exemple, un programme trouvant la distance entre deux points est une routine. Ne postez pas d'applications ici!

121 sujets dans ce forum

  1. Sélectionner un bloc dynamique 1 2 3

    Par rrobert,
    • 59 réponses
    • 1,3 k vues

  2. Détection croisement d'objets

    Par rrobert,
    • 21 réponses
    • 519 vues

  3. Masquer des calques dans toutes les fenêtres de certaines présentations

    Par Curlygoth,
    • 0 réponse
    • 205 vues

  4. VBA bloc insertion!

    Par Invité guij,
    • 5 réponses
    • 8,4 k vues

  5. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 1 réponse
    • 5,6 k vues

  6. Sortir les attributs des blocs

    Par Seysou,
    • 5 réponses
    • 444 vues

  7. Importation de points depuis Excel

    Par DenisHen,
    • 2 réponses
    • 4,7 k vues

  8. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 1 réponse
    • 5,8 k vues

  9. Charte graphique depuis Excel 2013 1 2

    Par DenisHen,
    • 30 réponses
    • 14 k vues

  10. Sésame ouvre-toi !

    Par winfield,
    • 5 réponses
    • 7,1 k vues

  11. Point Topo

    Par DenisHen,
    • 14 réponses
    • 9,1 k vues

  12. Blocs dynamiques to blocs statiques depuis VBA EXCEL pour versions pleines et LT

    Par sechanbask,
    • 3 réponses
    • 11,5 k vues

  13. A supprimer

    Par Circus,
    • 0 réponse
    • 5,3 k vues

  14. [ENFIN DISPO POUR TOUS]Nettoyage de plans en 2 clicks 1 2 3 4 8

    Par sechanbask,
    • 182 réponses
    • 65 k vues

  15. Contour hachures retrouvé ! (Ecrit en VBA)

    Par laurent_a8,
    • 6 réponses
    • 18,7 k vues

  16. Contour hachures retrouvé ! (Ecrit en VBA)

    Par laurent_a8,
    • 0 réponse
    • 5,8 k vues

  17. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,5 k vues

  18. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,4 k vues

  19. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,6 k vues

  20. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,7 k vues

  21. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,4 k vues

  22. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,8 k vues

  23. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,5 k vues

  24. Insertion d\'une reference externe plan dwg avec macro vba

    Par Invité fabdu91630,
    • 0 réponse
    • 5,5 k vues

  25. Gelés tous les calques sauf 2 en macro VBA

    Par Invité fabdu91630,
    • 6 réponses
    • 8,8 k vues


  • Statistiques des forums

    • Total des sujets
      46,7 k
    • Total des messages
      282,6 k

  • Sujets

  • Messages

    • (gile)
      Boutons DCL Oui / Non

      Par (gile) · Posté(e)

      Salut, Les bibliothèques DCL fournissent des boutons ou groupes de boutons à utiliser pour fermer les boites de dialogue (ok_only, ok_cancel, ok_cancel_help, ok_cancel_help_info). On peut créer un groupe de boutons Oui / Non (yes_no) utilisable de la même façon que ok_cancel en ajoutant ces quelques lignes à son fichier DCL. yes_button : retirement_button { label = " Oui "; key = "accept"; is_default = true; } no_button : retirement_button { label = " Non "; key = "cancel"; is_cancel = true; } yes_no : column { : row { fixed_width = true; alignment = centered; yes_button; : spacer { width = 2; } no_button; } } On peut aussi utiliser ce même code pour écrire le fichier DCL "à la volée" depuis le fichier LISP. Un exemple avec une boite de dialogue "générique" qui permet d'afficher un message / question et des boutons Oui / Non. (defun YesNoBox (title msg / temp file dcl_id status) ;; Créer un fichier DCL temporaire (setq temp (vl-filename-mktemp "Tmp.dcl") file (open temp "w") ) ;; Ecrire le fichier ;; boutons Oui / Non (write-line "yes_button : retirement_button { label = \" Oui \"; key = \"accept\"; is_default = true; } no_button : retirement_button { label = \" Non \"; key = \"cancel\"; is_cancel = true; } yes_no : column { : row { fixed_width = true; alignment = centered; yes_button; : spacer { width = 2; } no_button; } }" file ) ;; boite de dialogue principale (write-line "yes_no_box : dialog { key = \"titre\"; spacer;" file) (if (vl-consp msg) (progn (write-line ": paragraph {" file) (foreach l msg (write-line (strcat ": text_part{ label = \"" l "\";}") file) ) (write-line "}" file) ) (write-line (strcat ": text { label = \"" msg "\"; }") file) ) (write-line "spacer; yes_no; }" file) (close file) ;; Ouvrir la boite de dialogue (setq dcl_id (load_dialog temp)) (if (not (new_dialog "yes_no_box" dcl_id)) (exit) ) (set_tile "titre" title) (action_tile "accept" "(done_dialog 1)") (setq status (start_dialog)) (unload_dialog dcl_id) ;; Supprimer le fichier (vl-file-delete temp) ;; Renvoyer le résultat (Oui = 1 , Non = 0) status )  
    • Olivier Eckmann
      Covadis plateforme - Transition de talus

      Par Olivier Eckmann · Posté(e)

      @La Lozère Si les plans ne s'intersectent pas, Covadis applique une ouverture de +/- 20°   Olivier  
    • PHILPHIL
      Duplication des objets sur un Layer dans une XREF

      Par PHILPHIL · Posté(e)

      hello quelques routines, pour extraire sans ou avec destruction des entites dans l'XREF ou bloc, pour incorporer avec ou sans destruction d'entité dans l'Xref ou bloc   les Xref ne doivent pas etre ouvert dans autocad pour extraire d'un Xref, le plus simple et de ne faire apparaitre que la couche a extraire. et pour la routine "c:extraire_entite_xref_bloc_copie_CALQUE"  il suffit d'etre déja dans le calque ou l'on veut que la copie soit faite SANS DESTRUCTION DES ENTITES c:extraire_entite_xref_bloc_copie c:extraire_entite_xref_bloc_copie_CALQUE c:INCORPORER_entite_xref_bloc_copie AVEC DESTRUCTION DES ENTITES c:extraire_entite_xref_bloc_efface c:INCORPORER_entite_xref_bloc_efface a+ Phil   ;;;------------------------------------------ ;;;EXTRAIRE DES ENTITEES D'UN BLOC OU XREF ;;;------------------------------------------ (defun c:extraire_entite_xref_bloc_copie () (setq osm (getvar "osmode")) (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'EXTRACTION D'ENTITES ") (command-s "-editref" pause "" "OK" "T" "N") (prompt "\nCLIQUER SUR LES OBJETS A EXTRAIRE :") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (command-s "ALIGNER3D" obj "" "c" "0,0,0" "100000,0,0" "" "0,0,0" "100000,0,0" "q") (command-s "_refset" "S" obj "") (command-s "_refclose" "e" "d" "0,0,0" "0,0,0" ) (setvar "osmode" osm) ) (defun c:extraire_entite_xref_bloc_copie_CALQUE () (setq osm (getvar "osmode")) (setq cav (getvar "clayer")) (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'EXTRACTION D'ENTITES ") (command-s "-editref" pause "" "OK" "T" "N") (prompt "\nCLIQUER SUR LES OBJETS A EXTRAIRE :") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (command-s "ALIGNER3D" obj "" "c" "0,0,0" "100000,0,0" "" "0,0,0" "100000,0,0" "q") (command "_laymch" obj "" "N" cav) (command-s "_refset" "S" obj "") (command-s "_refclose" "e" "d" "0,0,0" "0,0,0" ) (setvar "osmode" osm) ) (defun c:INCORPORER_entite_xref_bloc_copie () (setq osm (getvar "osmode")) (prompt "\nCLIQUER SUR LES OBJETS A INCORPORER :") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (command-s "ALIGNER3D" obj "" "c" "0,0,0" "100000,0,0" "" "0,0,0" "100000,0,0" "q") (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'INCORPORATION D'ENTITES ") (command-s "-editref" pause "" "OK" "T" "N") (command-s "_refset" "A" obj "") (command-s "_refclose" "e" "d" "0,0,0" "0,0,0" ) (setvar "osmode" osm) ) (defun c:extraire_entite_xref_bloc_efface () (setq osm (getvar "osmode")) (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'EXTRACTION D'ENTITES ") (command-s "-editref" pause "" "OK" "T" "N") (prompt "\nCLIQUER SUR LES OBJETS A EXTRAIRE :") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (command-s "_refset" "S" obj "") (command-s "_refclose" "e" "d" "0,0,0" "0,0,0" ) (setvar "osmode" osm) ) (defun c:INCORPORER_entite_xref_bloc_efface () (setq osm (getvar "osmode")) (prompt "\nCLIQUER SUR LES OBJETS A INCORPORER :") (setq obj nil) (while (null obj) (setq obj (ssget))) (setvar "osmode" 0) (prompt "\nVEUILLEZ SELECTIONNER UN XREF OU BLOC POUR L'INCORPORATION D'ENTITES ") (command-s "-editref" pause "" "OK" "T" "N") (command-s "_refset" "A" obj "") (command-s "_refclose" "e" "d" "0,0,0" "0,0,0" ) (setvar "osmode" osm) )    
    • La Lozère
      Sélection - Apperçu pointillé

      Par La Lozère · Posté(e)

      Bonjour, Non, justement, il n'y a pas de superposition de ligne. Merci.
    • PHILPHIL
      Sélection - Apperçu pointillé

      Par PHILPHIL · Posté(e)

      hello La Lozere   une piste peut etre, ca "bave"  parce qu'il y a des lignes superposées "pile poil". quand c'est une seule ligne, c'est plus nette, j'ai l'impression, ou la ligne semble moins épaisse après sélection. un moyen de vérifier les superpositions d’entités   a+ Phil

  • Sujets

×
×
  • Créer...