Fraid

a moins que se soit une copie de la premiere avec les sommets au droits des points?

Bonjour, Je n'arrive pas à comprendre ce que tu fait. Comment? En partant de chaque points? Pour aller ou?

Bonjour, Je me permet de rappeler l'existence de l'icone placé tout en bas à gauche qui permet de choisir aisément sa présentation quand il en a beaucoup.

Le grand principe est que tout est liste en Autolisp. Et, comme une variable tu peux faire (type ma_fonction) et te retourne SUBR. D'ailleurs, si tu as des problèmes de portée de variables, c'est essentiellement dû au fait que tu oublie le rôle des arguments et du retour qui sont fait pour cela..

Bonjour, En fait, quand tu défini une fonction dans une autre, c'est pour qu'elle soit exécuté dans celle-ci. C'est pour cela qu'il faut la déclarer comme une variable, dans ton cas (defun c:MacroA (/ MacroB Var1). Si tu veux qu'elle soit accessible ailleurs tu l'écris à coté, pas dedans. Je ne suis pas doué pour les explications....

Quand je regarde ce lisp, ça pique les yeux ... Si tu nous expliquais ce que tu veux faire exactement. On peut surement t'écrire un p'tit truc moins bancale. Sinon, je me permet de te souhaiter une bienvenu sur le site.

Bonjour, Lequel, pourrais tu être un peu plus precis.

Bonjour, La fonction getfiled voie les raccourcis. test cela dans autocad (getfiled "" "" "" 4)

Bonjour, Il y a peut être une solution en construisant une usine à gaz avec réacteur et bloc dynamique, mais il ya de grande chance que cela plombe ton Autocad. Par contre un bloc dynamique au droit du point avec un état de visibilité me semble une solution plus légère car sans survol, il suffit de cliquer sur la petite flèche.

Bonjour, Je vois que tu crée une clé dans le registre d'Autocad. Il me semble que ce n'est pas conseillé (trop facile de faire une erreur). Pour les clés perso, rien ne t'empêche de créer une application, au même niveau qu'Autodesk, et d'y mettre toutes les clé que tu veux sans danger pour l'intégrité de ton logiciel préféré. De plus, c'est un chemin qui ne dépend pas de la version d'Autocad, ni du profile. Bonne exploration

Bonjour, Il y a tout ce qu'il te faut sur le site afralisp

Bonjour, Peut être qu'il faut éditer manuellement le fichier xpt, c'est un format xml. petit conseil, remplacer "><" par ">\n<" car c'est sur une ligne.

Yop, de rien une version qui te sélectionne les textes concernés et commentée (vl-load-com) ;Chargement des fonctions ActiveX. (defun c:A0X ( / acdc sel) ;Définition de la commande et des variables. (sssetfirst nil nil) ;Annule une éventuelle sélection. (setq acdc (vla-get-activedocument (vlax-get-acad-object)) ;Database du document. sel (ssadd) ;Création d'une sélection vide ) (vlax-for obj (vla-get-modelspace acdc) ;Pour chaque objet dans l'espace objet. (if ;Si l'objet est un texte ou texte multiligne et que le contenu soit dans une liste. (and (or (= (vla-get-ObjectName obj) "AcDbMText")(= (vla-get-ObjectName obj) "AcDbText")) (member (vla-get-TextString obj) '("A01235" "A01240" "A01260")) ) (progn (vla-put-color obj acred) ;Change sa couleur en Rouge. (ssadd (vlax-vla-object->ename obj) sel) ;L'ajoute au jeu de séléction. ) ) ) (sssetfirst nil sel);Sélection (princ);Sortie propre )

oui, rajoute une apostrophe devant la liste : '("A01235" "A01240" "A01260")

Désolé, je programme à l'aveugle, mon Autocad est trop occupé, (moi aussi, je fait 15 truc en même temps) j'ai oublié une apostrophe, j'ai modifié mon code. pour la selection, comme ce n'est pas quelque chose que je fait couramment, il faut que je réfléchisse.

Pourquoi? a tu une autre action à réaliser sur les objets modifiés? Non, ce n'est pas la bonne méthode. j'ai répondu à ton premier post. donc une version ou tu peux agrémenté cette liste ("A01235" "A01240" "A01260") (vl-load-com) (defun c:A0X ( / acdc) (setq acdc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for obj (vla-get-modelspace acdc) (if (and (or (= (vla-get-ObjectName obj) "AcDbMText")(= (vla-get-ObjectName obj) "AcDbText")) (member (vla-get-TextString obj) '("A01235" "A01240" "A01260")) ) (vla-put-color obj acred) ) ) )

donc pour les 2 (vl-load-com) (defun c:A01235 ( / acdc) (setq acdc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for obj (vla-get-modelspace acdc) (if (and (or (= (vla-get-ObjectName obj) "AcDbMText")(= (vla-get-ObjectName obj) "AcDbText")) (= (vla-get-TextString obj) "A01235") ) (vla-put-color obj acred) ) ) ) si tu veux en bleu tu remplace acred par acblue

ha, multiligne, oui c'est important, alors, ce sont des textes, des textes multilignes ou les 2

oups, j'ai oublier une petite incantation au debut. j'ai mis à jour.

Bonjour, Voici un petit lisp (vl-load-com) (defun c:A01235 ( / acdc) (setq acdc (vla-get-activedocument (vlax-get-acad-object))) (vlax-for obj (vla-get-modelspace acdc) (if (and (= (vla-get-ObjectName obj) "AcDbText") (= (vla-get-TextString obj) "A01235") ) (vla-put-color obj acred) ) ) )

Bonjour, A quel objet fait référence ton code? Bloc?

Bonjour, BIM&Revit_XNV-8080RSA_200923_Common_mm - Vue 3D - Preview.dwg

Il y a aussi la possibilité de modifier le registre Windows ici (pour une 2015) \HKEY_CURRENT_USER\SOFTWARE\Autodesk\AutoCAD\R20.0\ACAD-E001:40C\Profiles\<Profile>\General\ToolPalettePath et ajouter le chemin de ta palette mais il faut connaitre le nom du profile utilisé.

Bonjour, A ma connaissance, il n'est pas possible de charger une palette en Autolisp ni en visual lisp. Pour importer une palette il suffit de faire un clic droit sur une, Personnaliser les palettes, clic droit dans le panneau de gauche, Importer. Il n'y a pas besoin de répéter l'opération, les palettes sont chargées à l'ouverture d'Autocad. Il suffit donc de le faire qu'une fois par poste, ce n'est pas la mort.