Patrick_35

Salut Non, je n'ai pas de version qui le permette et je ne compte pas le faire. Mais rien de t'empêche de tenter de le modifier pour le mettre à ta sauce. @+

Salut Et avec JAV ? @+

Salut Tu peux t'inspirer de CAT. @+

Salut Si, avec les calques. @+

Salut Denis Essaye ceci (entget (car (nentsel))) Et si tu ne souhaites pas sélectionner les textes du xref, il reste plus qu'a faire une boucle pour analyser le xref afin de retrouver les textes. ps : Dans autocad, xref = bloc que l'on retrouve dans la table des blocs. @+

Je suis content que tu y sois arrivé :D Comme c'était aussi un exercice pour moi, voici une version de démo. (defun c:demo(/ doc ent hac select) (defun select(/ ent lst sel) (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (setq lst (cons ent lst)) ) (vla-delete sel) lst ) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (princ "\nSélectionnez une 1ere poly fermé pour hachure.") (and (ssget) (progn (setq hac (vla-addhatch (vla-get-modelspace doc) acHatchPatternTypePredefined "SOLID" :vlax-true)) (vlax-invoke hac

Salut Comme l'indique Olivier Eckmann, c'est avec AppendInnerLoop Et en prime, un exemple pour faire une hachure sur plusieurs poly fermées. (defun c:test(/ doc ent hac lst obj sel) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (ssget) (progn (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (setq lst (cons ent lst)) ) (vla-delete sel) (setq hac (vla-addhatch (vla-get-modelspace doc) acHatchPatternTypePredefined "SOLID" :vlax-false)) (vlax-invoke hac 'appendouterloop lst) (and (ssget) (progn (setq lst

Salut Pourquoi utiliser ssname alors que tu as directement activeselectionset Par exemple (ssget "_x") (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (vla-get-count sel) (vla-item sel 0) (vlax-for obj sel (terpri) (princ (vla-get-objectname obj)) ) (vla-delete sel) Et je pense que cela va résoudre ton problème de vsel (vlax-invoke ... (list vsel)) @+

Oui, c'est pour montrer d'où vient le problème. On peut très bien voir des objets invisible dans le dessin sans que cela dépendent des calques. @+

Salut Avec la commande insérer --> Parcourir Il te demande si tu veux le redéfinir ou pas. Avec le DésignCenter --> Clic droit sur le bloc --> Redéfinir @+

Alors, tu dois avoir un lisp qui a cette fonction. Fait une recherche sur l'ordi de tout les *.lsp contenant le texte c:bb (en espérant que ce n'est pas dans un vlx) Et si tu n'as rien comme résultat, une recherche sur tout les fichiers contenant le texte c:bb, car on peut très bien changer l'extension d'un lisp et le charger avec l'extension modifié (c'est tordu, mais ça marche) @+

Salut J'ai ouvert ton dessin avec juste le message pour les références non résolues. Tu as ce sujet qui évoque des pistes pour charger automatiquement un lisp. Le plus simple est de mettre à dispo le lisp bb afin de voir ce qui cloche. @+

Salut En lisp, il est possible de rendre un bloc invisible. Par exemple (defun c:test(/ ent) (setq ent (vlax-ename->vla-object (car (entsel)))) (vla-put-visible ent :vlax-false) (princ "\nLe bloc est maintenant invisible.") (getstring "\nAppuyez sur entrée pour continuer...") (vla-put-visible ent :vlax-true) (princ "\nLe bloc est maintenant visible.") (princ) ) @+

Salut Comme c'est la nouvelle année, voici une fonction qui sélectionne le/les blocs, même imbriqués. L'idée est de parcourir la table des blocs, de regarder dans chaque bloc si tu as un bloc recherché imbriqué --> Oui, je le mémorise et je relance la recherche pour voir si le bloc trouvé n'est pas lui-même imbriqué dans un autre bloc. Voici la fonction et si tu as des questions, n'hésite pas. (defun rech(bl / doc ent js lst obj old sel tab nombl) (defun nombl(bl) (if (vlax-property-available-p bl 'effectivename) (strcase (vla-get-effectivename bl)) (strcase (vla-get-name b

Bonjour Bonne année et surtout bonne santé pour vous et vos proches. @+