-
Qui est en ligne 0 membre, 0 anonyme, 67 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!
127 sujets dans ce forum
-
- 2 réponses
- 8,6 k vues
-
- 4 réponses
- 3,2 k vues
-
- 0 réponse
- 2 k vues
-
- 0 réponse
- 2,3 k vues
-
- 2 réponses
- 2,5 k vues
-
- 4 réponses
- 2,7 k vues
-
- 2 réponses
- 9,6 k vues
-
- 1 réponse
- 3,5 k vues
-
- 3 réponses
- 3,1 k vues
-
- 0 réponse
- 1,9 k vues
-
- 3 réponses
- 2,7 k vues
-
- 0 réponse
- 6,1 k vues
-
- 3 réponses
- 3 k vues
-
- 7 réponses
- 8,1 k vues
-
- 6 réponses
- 3,1 k vues
-
- 0 réponse
- 2,1 k vues
-
- 0 réponse
- 1,9 k vues
-
- 5 réponses
- 3,2 k vues
-
- 4 réponses
- 3,4 k vues
-
- 0 réponse
- 2,2 k vues
-
- 2 réponses
- 4,3 k vues
-
- 3 réponses
- 2,5 k vues
-
- 4 réponses
- 4,6 k vues
-
- 2 réponses
- 3,1 k vues
-
- 0 réponse
- 2,9 k vues
-
Statistiques des forums
-
Total des sujets49,3 k
-
Total des messages299 k
-
-
Sujets
-
-
Messages
-
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) ) -
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 -
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
-
Bon.... J'ai trouvé. Ou plutôt on m'a montré... Merci le support Je cherchais à tabuler au niveau de la branche. Ici : Alors qu'il fallait le faire au niveau du carrefour. Ici : -
Par barbichette · Posté(e)
Bonjour, En fait, je souhaitait que l'attribut soit "dans la cote" Comme est côté une fenêtre en fait. Mais il m'a suffit de disposer de manière intelligente la cotation dans mon bloc ainsi que l'attribut (texte) et la problématique s'est résolue d'elle-même.
-
-
Sujets
-
