Aller au contenu
Problème de lien d'inscription (résolu ?) ×

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

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

VBA et VB

Sous-forums

  1. 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!

    845
    messages

836 sujets dans ce forum

  1. RE-TRIER

    Par sail,
    • 5 réponses
    • 2 k vues

  2. Macro en CATIA (CAO) en VBA

    Par lyda,
    • 1 réponse
    • 2,3 k vues

  3. Formulle sur excel calculer la meme antité dans une collone

    Par zizouspawn,
    • 1 réponse
    • 1,6 k vues

  4. créer anse de panier en vba ?

    Par vinc59,
    • 3 réponses
    • 3,6 k vues

  5. calculatrice

    Par x_all,
    • 0 réponse
    • 1,4 k vues

  6. trier

    Par sail,
    • 2 réponses
    • 1,4 k vues

  7. excel / autocad

    Par glopri,
    • 4 réponses
    • 2 k vues

  8. selection bloc et subentity simultanement?

    Par kisscool73,
    • 0 réponse
    • 974 vues

  9. Comment supprimer des objets en double

    Par chgod,
    • 4 réponses
    • 1,5 k vues

  10. Modifier les attributs d\'un bloc

    Par olg28,
    • 4 réponses
    • 1,5 k vues

  11. Dessin d\'une ligne en

    Par mick_ig,
    • 3 réponses
    • 1,6 k vues

  12. recherche d\'objet le plus proche

    Par mick_ig,
    • 1 réponse
    • 1,3 k vues

  13. insertblock autocad 2007

    Par kisscool73,
    • 1 réponse
    • 1,5 k vues

  14. Tracé d\'une polyligne

    Par Aurélien62,
    • 4 réponses
    • 2 k vues

  15. Effacer des cotes dans des blocs

    Par micheld,
    • 2 réponses
    • 1,4 k vues

  16. faire connaissence

    Par taib35,
    • 2 réponses
    • 1,4 k vues

  17. dessin objet avec des données d\'une ligne deja existante ?

    Par g_barthe,
    • 2 réponses
    • 1,6 k vues

  18. selection d\'objet juste crée ou rotation de ce dernier

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

  19. changer de calque actif

    Par sechanbask,
    • 1 réponse
    • 1,6 k vues

  20. Sélectionner par VBA ?

    Par laurent_a8,
    • 0 réponse
    • 1,1 k vues

  21. mise en barre

    Par gepetto,
    • 3 réponses
    • 1,8 k vues

  22. ADT et le gestionnaire de propriété.

    Par Circus,
    • 0 réponse
    • 1,1 k vues

  23. Raccord en VBA

    Par Invité Patrick,
    • 5 réponses
    • 1,8 k vues

  24. Gestion fichier en vba

    Par Ellionel,
    • 4 réponses
    • 1,6 k vues

  25. Inserer un block

    Par dens40,
    • 13 réponses
    • 2,7 k vues


  • Statistiques des forums

    • Total des sujets
      49,3 k
    • Total des messages
      299 k

  • Sujets

  • Messages

    • Invité 1win_okMl
      Problème qualité d'impression

      Par Invité 1win_okMl · Posté(e)

      1win официальный сайт вход с компьютера [url=https://1win2.am]https://1win2.am[/url] .
    • (gile)
      Objet en avant ou en arrière plan

      Par (gile) · Posté(e)

      Je suis parti de l'ancien code, mais j'aurais pu (dû) écrire de façon moins cryptique : (defun DrawOrderByLayer (fun / ent doc blocks layer sort lst var) (vl-load-com) (and (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: "))) (SETQ doc (vla-get-ActiveDocument (vlax-get-acad-object)) blocks (vla-get-Blocks doc) layer (cdr (assoc 8 (entget ent))) ) (not (vla-StartUndoMark doc)) (vlax-for b blocks (or (not (vl-catch-all-error-p (setq sort (vl-catch-all-apply 'vla-GetObject (list (vla-GetExtensionDictionary b) "ACAD_SORTENTS") ) ) ) ) (setq sort (vla-AddObject (vla-GetExtensionDictionary b) "ACAD_SORTENTS" "AcDbSortentsTable" ) ) ) (setq lst nil) (vlax-for obj b (if (= (vla-get-Layer obj) layer) (setq lst (cons obj lst)) ) ) (if lst (fun sort (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (length lst)))) lst ) ) ) ) ) ) (vla-EndUndoMark doc) (vla-Regen doc acActiveViewport) (princ) ) (defun c:TOP () (DrawOrderByLayer vla-MoveToTop)) (defun c:BOT () (DrawOrderByLayer vla-MoveToBottom))  
    • (gile)
      Objet en avant ou en arrière plan

      Par (gile) · Posté(e)

      Salut les commandes TOP et BOT définies ci-dessous affectent tous les espaces et tous les blocs. (mapcar (function (lambda (cde fun) (eval (list 'defun cde '(/ ent doc blocks layer sort lst var) '(vl-load-com) (list 'and '(setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: ") ) ) '(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) blocks (vla-get-Blocks doc) layer (cdr (assoc 8 (entget ent))) ) '(not (vla-StartUndoMark doc)) (list 'vlax-for 'b 'blocks '(or (not (vl-catch-all-error-p (setq sort (vl-catch-all-apply 'vla-getObject (list (vla-getExtensionDictionary b ) "ACAD_SORTENTS" ) ) ) ) ) (setq sort (vla-addObject (vla-getExtensionDictionary b ) "ACAD_SORTENTS" "AcDbSortentsTable" ) ) ) '(setq lst nil) '(vlax-for obj b (if (= (vla-get-Layer obj) layer) (setq lst (cons obj lst)) ) ) (list 'if 'lst (list fun 'sort '(vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (length lst))) ) lst ) ) ) ) ) ) '(vla-EndUndoMark doc) '(vla-regen doc acActiveViewport) '(princ) ) ) ) ) '(c:top c:bot) '(vla-MoveToTop vla-MoveToBottom) )  
    • didier
      Multi-Axe et tabulations

      Par didier · Posté(e)

      Merci beaucoup @La Lozère pour l'échange. La prochaine fois qu'une question sur ce sujet se présentera, on saura renvoyer vers ce message. Amicalement
    • didier
      Attribut dans une côte dans un bloc dynamique

      Par didier · Posté(e)

      Bonjour @barbichette Ravi de voir que la question posée a trouvé sa solution. Ce serait sympa pour la communauté de fournir le bloc avec la solution mise en place pour que les prochaines questions portant sur ce sujet soient redirigées vers ce message. Le principe est l'échange de savoir, de combines, de bidouilles, de ce qui fait avancer les choses en général. Amicalement

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