-
Qui est en ligne 0 membre, 0 anonyme, 51 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
-
- 0 réponse
- 7,3 k vues
-
- 0 réponse
- 6,9 k vues
-
- 0 réponse
- 7,4 k vues
-
- 0 réponse
- 6,3 k vues
-
- 0 réponse
- 6,4 k vues
-
- 6 réponses
- 9,7 k vues
-
- 0 réponse
- 7,9 k vues
-
- 0 réponse
- 6,4 k vues
-
- 0 réponse
- 6,4 k vues
-
- 0 réponse
- 6,8 k vues
-
- 0 réponse
- 8,2 k vues
-
- 2 réponses
- 9,5 k vues
-
- 1 réponse
- 10,8 k vues
-
- 0 réponse
- 6,8 k vues
-
- 0 réponse
- 7 k vues
-
- 7 réponses
- 5,5 k vues
-
- 2 réponses
- 5,9 k vues
-
- 0 réponse
- 3,1 k vues
-
- 4 réponses
- 5,1 k vues
-
- 0 réponse
- 4,1 k vues
-
- 0 réponse
- 2,8 k vues
-
- 5 réponses
- 3,1 k vues
-
- 2 réponses
- 2,6 k vues
-
- 1 réponse
- 5,9 k vues
-
- 8 réponses
- 6 k vues
-
Statistiques des forums
-
Total des sujets49 k
-
Total des messages297,1 k
-
-
Sujets
-
-
Messages
-
Bonjour Gile, Merci beaucoup pour ton lien🙂. J'ai effectivement testé le LISP "mbbox", et bien qu'il fonctionne, il ne répond pas exactement à mes attentes. Je souhaiterais que, lorsque je sélectionne 4 blocs, une boîte englobante soit créée pour chacun d'entre eux. Bonjour Luna, Merci beaucoup pour ton aide. J'ai corrigé le problème avec (code DXF 66)😉, et maintenant mon code fonctionne... enfin presque🤔. Pour les blocs contenant plusieurs attributs, il ne crée une boîte englobante que pour le dernier attribut. Après de nombreux essais, je me suis tourné vers le code de base de Lee Mac, " LM :boundingbox", et cela fonctionne, mais les boîtes englobantes (cadres) ne sont pas placées correctement(image ci-joint). Aurais-tu une idée pour résoudre ce problème ? (defun c:BoxBlocAttrib23 ( / ss i Ent ObjType bbox Decal) (setq oldcmd00 (getvar "cmdecho")) (setvar "cmdecho" 0) ;; Demander la sélection des blocs avec attributs (code DXF 66) (setq ss (ssget '((0 . "INSERT") (66 . 1)))) (setq Decal (getdist "\nDécalage ? <10> : ")) (if (= Decal nil)(setq Decal 10)) ; Par défaut, décalage de 10 si aucune entrée ;; Créer ou définir le calque "Rectangle" avec une couleur verte (if (not (tblsearch "layer" "Rectangle")) (progn (command "_.-layer" "_Make" "Rectangle" "_Color" "Vert" "" "") ) (command "_.-layer" "_Set" "Rectangle" "") ) ;; Boucler sur chaque bloc sélectionné (setq i 0) (while (< i (sslength ss)) (setq Ent (ssname ss i)) (setq ObjType (cdr (assoc 0 (entget Ent)))) ; Récupérer le type d'objet ;; Si c'est un bloc avec attributs (if (eq ObjType "INSERT") (progn ;; Récupérer la boîte englobante du bloc (setq bbox (LM:boundingbox (vlax-ename->vla-object Ent))) ;; Si une boîte englobante est trouvée (if bbox (progn ;; Décaler les points de la boîte englobante (setq Pt1 (list (- (car (car bbox)) Decal) (- (cadr (car bbox)) Decal))) (setq Pt2 (list (+ (car (cadr bbox)) Decal) (+ (cadr (cadr bbox)) Decal))) ;; Dessiner le rectangle sur le calque "Rectangle" (command "_rectang" Pt1 Pt2) ) ) ) ) ;; Passer à l'objet suivant (setq i (1+ i)) ) ;; Restaurer les paramètres initiaux (setvar "cmdecho" oldcmd00) (princ) ) ;; Fonction pour obtenir la boîte englobante d'un objet donné (defun LM:boundingbox ( obj / llp urp ) (if (and (vlax-method-applicable-p obj 'getboundingbox) (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'llp 'urp)))) ) (list (vlax-safearray->list llp) (vlax-safearray->list urp)) ) ) BoxBlocAttrib23.lsp -
-
Par Aristote-Robin · Posté(e)
C'est le 24.0.4.427 20230308_1635(x64) -
Hello @Aristote-Robin Svp tu as quel niveau de Update sur ton Revit 2024 ? Bye, lecrabe
-
Hello Oui mais il y a peut être qq chose en base de registre !? Bye, lecrabe
-
-
Sujets
-
