Luna

Coucou, Je ne code pas en VBA, seulement en LISP. Je suppose que la valeur de 'TextString te renvoie uniquement le texte visible mais pas l'expression du champ dynamique ? En AutoLISP j'ai un fonctionnement comme celui-ci : Explore DXF in progress from "ATTRIB" (<Nom d'entité: 1d56876c740>) : | (-1 . <Nom d'entité: 1d56876c740>) | (0 . "ATTRIB") | (5 . "39C") | (102 . "{ACAD_XDICTIONARY") | (360 . <Nom d'entité: 1d56876c750>) | (102 . "}") | (330 . <Nom d'entité: 1d56876c720>) | (100 . "AcDbEntity") | (67 . 0) | (410 . "Model") | (8 . "0") | (100 . "AcDbText") | (10 175.139 102.0 0.0) | (40 . 2.5) | (1 . "Aire = 8 802,45 m²") | (50 . 0.0) | (41 . 1.0) | (51 . 0.0) | (7 . "Standard") | (71 . 0) | (72 . 0) | (11 0.0 0.0 0.0) | (210 0.0 0.0 1.0) | (100 . "AcDbAttribute") | (280 . 0) | (2 . "AIRE") | (70 . 0) | (73 . 0) | (74 . 0) | (280 . 1) | 1. "DICTIONARY" (<Nom d'entité: 1d56876c750>) at 360 code, from "ATTRIB" object : | (-1 . <Nom d'entité: 1d56876c750>) | (0 . "DICTIONARY") | (330 . <Nom d'entité: 1d56876c740>) | (5 . "39D") | (100 . "AcDbDictionary") | (280 . 1) | (281 . 1) | (3 . "ACAD_FIELD") | (360 . <Nom d'entité: 1d56876c760>) | 1.1. "DICTIONARY" (<Nom d'entité: 1d56876c760>) at 360 code, from "DICTIONARY" object : | (-1 . <Nom d'entité: 1d56876c760>) | (0 . "DICTIONARY") | (5 . "39E") | (102 . "{ACAD_REACTORS") | (330 . <Nom d'entité: 1d56876c750>) | (102 . "}") | (330 . <Nom d'entité: 1d56876c750>) | (100 . "AcDbDictionary") | (280 . 1) | (281 . 1) | (3 . "TEXT") | (360 . <Nom d'entité: 1d56876c770>) | 1.1.1. "FIELD" (<Nom d'entité: 1d56876c770>) at 360 code, from "DICTIONARY" object : | (-1 . <Nom d'entité: 1d56876c770>) | (0 . "FIELD") | (5 . "39F") | (102 . "{ACAD_REACTORS") | (330 . <Nom d'entité: 1d56876c760>) | (102 . "}") | (330 . <Nom d'entité: 1d56876c760>) | (100 . "AcDbField") | (1 . "_text") | (2 . "Aire = %<\\_FldIdx 0>%") | (90 . 1) | (360 . <Nom d'entité: 1d568793800>) | (97 . 0) | (91 . 63) | (92 . 0) | (94 . 9) | (95 . 2) | (96 . 0) | (300 . "") | (93 . 1) | (6 . "ACFD_FIELDTEXT_CHECKSUM") | (93 . 2) | (90 . 2) | (140 . 11859.0) | (94 . 0) | (300 . "") | (302 . "") | (304 . "ACVALUE_END") | (7 . "ACFD_FIELD_VALUE") | (93 . 3) | (90 . 0) | (94 . 0) | (300 . "") | (302 . "") | (304 . "ACVALUE_END") | (301 . "") | (98 . 0) | 1.1.1.1. "FIELD" (<Nom d'entité: 1d568793800>) at 360 code, from "FIELD" object : | (-1 . <Nom d'entité: 1d568793800>) | (0 . "FIELD") | (330 . <Nom d'entité: 1d56876c770>) | (5 . "3A0") | (100 . "AcDbField") | (1 . "AcObjProp.16.2") | (2 . "\\AcObjProp.16.2 Object(%<\\_ObjIdx 0>%,1).Area \\f \"%lu2%pr2%ps[, m²]%ds44%th32\"") | (90 . 0) | (97 . 1) | (331 . <Nom d'entité: 1d56876c640>) | (91 . 63) | (92 . 0) | (94 . 59) | (95 . 2) | (96 . 0) | (300 . "") | (93 . 4) | (6 . "ObjectPropertyId") | (93 . 2) | (90 . 64) | (330 . <Nom d'entité: 1d56876c640>) | (94 . 0) | (300 . "") | (302 . "") | (304 . "ACVALUE_END") | (6 . "ObjectPropertyName") | (93 . 2) | (90 . 4) | (1 . "Area") | (94 . 0) | (300 . "") | (302 . "") | (304 . "ACVALUE_END") | (6 . "ObjectPropertyOption") | (93 . 2) | (90 . 1) | (91 . 1) | (94 . 0) | (300 . "") | (302 . "") | (304 . "ACVALUE_END") | (6 . "ObjectPropertyOptionString") | (93 . 2) | (90 . 4) | (1 . "1") | (94 . 0) | (300 . "") | (302 . "") | (304 . "ACVALUE_END") | (7 . "ACFD_FIELD_VALUE") | (93 . 4) | (90 . 2) | (140 . 8802.45) | (94 . 0) | (300 . "%lu2%pr2%ps[, m²]%ds44%th32") | (302 . "8 802,45 m²") | (304 . "ACVALUE_END") | (301 . "8 802,45 m²") | (98 . 11) | End of exploration... Avec le nom d'entité au code DXF 331 correspondant à l'objet polyligne associé au champ de l'attribut. Ainsi le cheminement correspondant serait : (entget (cdr (assoc 331 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 360 (entget name))))))))))))) Avec 'name le nom d'entité de l'attribut (on peut récupérer l'attribut via (entnext) à partir de la référence de bloc dont il est issu). Je ne connais cependant pas l'équivalent en Visual LISP (qui est beaucoup plus proche du VBA donc cela te sera plus utile ^^). Mais au moins cela peut te donner des pistes de recherches à partir des listes DXF (sont-elles accessibles en VBA ?). Bisous, Luna

Il te faut ouvrir la fenêtre de personnalisation de l'interface utilisateur (commande CUI dans la ligne de commande) et tu as au dessus de la liste des commandes AutoCAD une petite étoile grise avec un soleil orange pour "Créer une nouvelle commande". Cela va ouvrir un petit panneau supplémentaire à droite correspondant à la nouvelle commande. Tu peux l'appeler comme tu veux (par exemple : CC) et dans la ligne macro tu copie/colles la macro que t'as proposé BonusCAD. Tu peux également lui affecter une icône, une description si tu veux. Tu fais "Appliquer", "Ok" et normalement tu auras la commande CC de dispo 😉 Bisous, Luna

@nen, vui désolée la position du (command-s ...) était dans le sinon du (if) donc c'était une erreur. J'ai donc ajouté un (progn) pour pouvoir avoir le (while) et le (command) qui s'exécute si VRAI (et éviter de faire un ATTSYNC à chaque sous-objet de ton bloc...). J'ai également corrigé le type d'objet qui est "ATTDEF" et non "ATTRIB". Sinon je ne comprends pas ton histoire de hauteur du texte du bloc et de hauteur du texte de l'attribut... Ici le programme modifie la hauteur de l'attribut situé dans la définition du bloc et c'est tout ! PS : Le code modifié est sur mon post précédent. Bisous, Luna

Tu as quelle version d'AutoCAD ?

Coucou, Alors non, (tblobjname) permet uniquement de récupérer le nom d'entité d'une entrée située dans une Symbol Table. Il existe 9 Symbol Table : Symbol tables in each drawing database Symbol table name Description APPID Registered applications BLOCK Blocks (named and anonymous) DIMSTYLE Dimension styles LAYER Layers LTYPE Linetypes STYLE Text styles UCS Named User Coordinate Systems (UCSs) VIEW Named views VPORT Named viewports "Symbol tables are used to store non-graphical information in a drawing’s database.", Aide AutoCAD. Si tu veux modifier la hauteur d'un attribut, la méthode est un peu différente car il te faut parcourir les sous-objets de la définition de bloc (ce que le programme fait actuellement avec la boucle (while) et le (cdr (assoc -2 (tblsearch ...))) ), mais il te faut surtout retrouver parmi ces objets, l'entité correspondant à ton attribut pour en modifier le code DXF 40 (correspondant à la propriété de hauteur de texte d'un attribut) dans sa liste DXF via (entmod). Ou bien en modifiant la propriété "Height" dans sa liste de propriétés accessibles via (dumpallproperties). Essaye quelque chose comme ceci : (defun c:XXX (/ e l) (if (and (setq e (cdr (assoc -2 (tblsearch "BLOCK" "INFO-LOCAL_100_200")))) (setq l (tblobjname "LAYER" "0-INFO-LOCAL")) ) (progn (while e (setpropertyvalue e "LayerId" l) (if (= "ATTDEF" (cdr (assoc 0 (entget e)))) ;; Vérifie si le sous-objet est un attribut (setpropertyvalue e "Height" 15) ;; En passant par les propriétés (dumpallproperties) ) (setq e (entnext e)) ) (command-s "_.attsync" "_name" "INFO-LOCAL_100_200") ) ) (princ) ) Je n'ai pas testé mais à voir. J'ai également supprimé la ligne (vla-endundomark adoc) vu que la variable 'adoc est elle aussi non définie dans ton programme donc cette ligne est inutile en l'état. Tu peux éventuellement remplacer cette ligne par (vla-endundomark (vla-get-ActiveDocument (vlax-get-acad-object))) Je pense que avant de te pencher sur l'aide concernant les fonctions et méthodes du Visual LISP, il faudrait que tu regardes les bases de programmation concernant la déclaration des variables et leur utilisation. - Site de (gile) - Site de didier Ce n'est qu'un début mais cela est déjà pas mal 😉 Tu pourras ensuite checker le site de didier, il a justement fait une partie sur le langage Visual LISP. Bisous, Luna

Coucou, Je pense que ton erreur vient de la variable 'def, car si je m'en tiens uniquement au programme partagé ici, on a def = nil donc cela ne peut pas fonctionner... Je suppose que tu veux (vla-get-name def) = "INFO-LOCAL_100_200", nan ? Bisous, Luna

Le Visual LISP est proche du VBA, donc il est basé sur des méthodes. En clair la véritable écriture serait (vlax-put nw_txt (strcat ...) 'TextString) Mais il y a une simplification d'écriture qui consiste à mettre directement le nom de la méthode dans le nom de la fonction (tu as du coup un grand nombre de fonction Visual LISP au final). Par exemple la fonction (vla-get-ActiveDocument (vlax-get-acad-object)) est un raccourci de (vlax-get (vlax-get-acad-object) 'ActiveDocument) Donc si tu veux l'aide d'AutoCAD va fournir de l'aide sur les méthodes (donc 'TextString, 'ActiveDocument, etc) mais il ne me semble pas que tu auras des fiches d'aides directement sur les fonctions composées comme (vla-put-TextString). En revanche il me semblait que c'était tout aussi simple en LISP vanilla qu'en Visual LISP mais j'obtiens un résultat différent...(cf. .dwg joint) Bisous, Luna Création Champ dynamique.dwg

Coucou, Je ne pense pas qu'en natif les équipes de dev' d'AutoCAD est prévu ce genre de pratiques barbares... Pour la programmation, la question est surtout : de combien d'objets parle-t-on ? Si on en a 4-5 on peut demander à l'utilisateur de faire la sélection des objets lui-même mais si on en a une centaine...il faudra faire en sorte de faire la sélection des objets en automatique (et avec les bonnes flèches...) Bisous, Luna

Je sais que les souris Logitech possède un software permettant de modifier les dpi (et le changement est TRES efficace). Je pense que souris à 25-30€ n'est pas un gros investissement et le software de Logitech est gratuit : https://www.logitechg.com/fr-fr/innovation/g-hub.html http://ma-souris-gamer.fr/wp-content/uploads/2017/11/logitech-gaming-software-screenshot-04.jpg La plupart des souris Logitech que je connais possède le bouton "Switch Profile" ou "Change DPI". Via le logiciel tu peux avoir autant de profils que tu souhaites et plusieurs sensi par profil. Et je suis sûre qu'avec 12 000 DPI, un mouvement d'un demi-millimètre te fera parcourir les 3 écrans. Le changement de sensi Windows n'est pas suffisant pour un vrai changement de sensi. Cela prend un peu de temps avant de trouver la bonne sensi mais une fois que c'est bon, c'est un vrai régal ! Donc peut-être que tu peux chercher de ce côté là pour avoir une souris à 2 sensi (une très élevée et une relativement basse). PS: Tu es en période de Noël qui plus est donc tu as de nombreuses réduction sur les souris wireless, par exemple la G305 wireless est à 30€ sur Amazon 😉 Bisous, Luna

Un simple alias de commande pour COUPUREAUPOINT dans la partie User du fichier .pgp devrait faire l'affaire aussi, nan ? @sylarr Je pense en effet que tu as quelques lacunes dans la base des connaissances d'AutoCAD donc peut-être que suivre une formation te permettrais de te simplifier la tâche et de mieux maîtriser les nombreuses fonctionnalité de cet outils. Tu trouveras également de nombreux cours sur le logiciel sur Internet. Sur CADxp en revanche on ne pourra pas vraiment te fournir de formation directement, juste répondre à des questions précises. Bisous, Luna

Coucou, Dans mes souvenirs, il suffisait de copier le texte du champs dynamique directement dans le code DXF 1 du texte (correspondant à l'index du texte en AutoLISP) mais j'ai testé rapidement et j'ai comme l'impression qu'il manque un truc donc mes souvenirs sont faux à priori...Cela revient au même que la fonction (vla-put-textstring) mais vu que mes souvenirs ne sont pas bons je ne peux pas vraiment t'aider plus que cela. Si j'ai un peu de temps je regarderais pour me rafraîchir la mémoire sur la méthodo. Bisous, Luna

Pour info, le fait que la souris aille plus ou moins vite, cela ne vient pas de la marque de la souris mais de la sensi de la souris. Selon les modèles de souris, on peut modifier la sensi windows d'une souris via le panneau de config' windows pour toutes les souris et certaines d'entre-elles ont également un dpi modifiable directement dans la souris (très très utile pour les souris de gaming notamment). Logitech par exemple possède un software permettant d'avoir plusieurs sensi enregistrées dans la souris en fonction du logiciel que l'on utilise. Donc ta souris Logitech pourrait être paramétrée pour avoir une sensi de 1000 dpi pour une utilisation quotidienne et 10000 pour les moments où tu as besoin d'aller un peu plus vite (ce n'est qu'un exemple évidemment). Bisous, Luna

Sinon essaye avec la variable "DWGPREFIX", normalement le nom du fichier n'y est pas et donc tu as juste à récupérer les 10 derniers caractères je pense. désolée de ne pas y avoir songé plus tôt.. Bisous, Luna

Alors le soucis principal c'est que je présume que le nom de ton fichier .dwg ne fait pas toujours le même nombre de caractères, n'est-ce pas ? Les expressions DIESEL ne permettent pas la recherche de caractères spécifiques et donc d'avoir une expression fonctionnelle peut importe le nombre de caractères de la chaîne. Il y a bien la fonction (index) mais elle ne recherche que les chaînes de caractères qui sont séparées par des "," donc cela ne fonctionnera pas pour toi. Le début de la chaîne possède-t-il un nombre de caractères peut importe le nom du fichier ? Si c'est le cas il suffit de partir du début et non de la fin pour récupérer les infos. $(substr,$(getvar,dwgname),$(+,n,1),10) Avec n le nombre de caractères précédent le "2021...". Bisous, Luna

Coucou, Tu peux aller voir ce sujet : Il faut utiliser un champ avec une expression DIESEL. Tu peux utiliser les fonctions (substr) et (strlen) pour y parvenir avec quelque chose du genre (non testé) : $(substr,$(getvar,dwgname),$(-,$(strlen,$(getvar,dwgname)),4),1) Le $(-,...,4) c'est à cause de l'extension de fichier qui fait 4 caractères ".dwg". Bisous, Luna

Coucou, Quelle version d'AutoCAD possèdes-tu ? Car depuis la version 2021, il y a la commande COUPUREAUPOINT qui permet de couper un objet en un point unique. Elle s'effectue en deux clics, le premier permettant de sélectionner l'objet et le second permettant de choisir le point de coupure. Autrement si j'ai bien compris, ce que tu appelles un bug c'est le fonctionnement naturel de la commande COUPURE. Cette commande s'effectue elle aussi en deux clics, le premier permettant de sélectionner l'objet ET le premier point de coupure, le second permettant de choisir le second point de coupure (tout ce qui se situe entre les deux points est supprimé en fonction du sens de tracé de l'objet). Si tu veux pouvoir également choisir le premier point de COUPURE, une fois l'objet sélectionné (et donc le premier point théorique défini) tu as l'option "Point" pour re-définir le premier point. Presque toutes les commandes AutoCAD ont ce fonctionnement avec les mots-clés pour avoir des options supplémentaires au fonctionnement basique de la commande. Le plus simple c'est de lire ce qui est écrit sur la ligne de commande, les mot-clés sont toujours spécifiés entre [ ] et les lettres de raccourci sont colorées et en majuscule. Bisous, Luna

Coucou, Pourquoi utiliser une fonction DIESEL pour cela ? Les champs dynamiques te permettent également d'accéder à cette valeur. Pour cela il te suffit d'ouvrir l'éditeur d'attribut (double-clic sur un attribut par exemple) et dans la partie "Valeur :" de l'attribut il faut faire "Clic droit > Insérer un champ...". Il y a un champ nommé "Nom de fichier" et tu peux avoir le nom du fichier uniquement, le chemin d'accès uniquement ou les deux (avec l'extension de fichier ou non). Comme tu ne désires que les 6ème, 7ème et 8ème caractères de ton titre, il existe également un champ nommé "Expression Diesel". Cela répond-il à ton soucis ? Bisous, Luna

Coucou, Si tu veux de l'aléatoire, tu peux utiliser les fonctions de LeeMac : http://www.lee-mac.com/random.html nommées (LM:rand) et (LM:RandRange). Il te suffit d'utiliser (LM:RandRange 0 255) pour générer aléatoirement un nombre compris entre 0 et 255 à la place de (setq col (1+ col)). Tu peux également aller encore plus loin dans la démarche en spécifiant des couleurs RGB 🙂 Bisous, Luna

@OrionLG, il n'y a pas besoin de ré-écrire en LISP ou Visual LISP, on peut mixer les deux et les deux sont des langages fonctionnels. La seule différence vient du fait que le Visual LISP est dérivé du Visual Basic donc la logique de programmation diffère étant donné que le Visual Basic est un langage de programmation orienté objet. Pour que le script fonctionne correctement il faudra ouvrir les .dwg donc je pense que la fonction (ssget) peut marcher correctement avec l'option "_X" et un filtre sur les blocs. Petite question : tes blocs sont-ils dynamiques ? Si c'est le cas il faudra faire le tri des blocs en post-sélection sinon le tri se fera via la sélection. Je te conseille de te familiariser avec le langage qui te semble le plus cohérent, donc si tu as appris via le Visual LISP autant continuer ainsi. Si tu as besoin d'aide, le forum est là, et les sites de formations AutoLISP sont très nombreux (comme te l'a proposé didier par exemple). Il est fortement conseillé de commencer avec des programmes simples et de décortiquer les étapes complexes en une suite d'étapes simples. 🙂 Bisous, Luna

Coucou, Je ne maîtrise pas vraiment le Visual LISP mais je pense que cela vient du fait que tu utilises la définition de bloc, et non la référence de bloc. Donc pour une définition de bloc tu ne peux accéder/modifier que les valeurs par défaut des attributs. Je suppose que ton but est de modifier les références et non les définitions donc pour cela tu dois faire un jeu de sélection (ou une sélection manuelle) avec tes blocs. En LISP, tu as les fonctions (ssget) et (entsel) pour récupérer un jeu de sélection ou un nom d'entité. Je ne connais pas l'équivalent en Visual LISP s'il y en a un, donc il faut penser à faire une conversion (vlax-ename->vla-object) pour utiliser le bon type d'argument dans tes fonctions Visual LISP. Bisous, Luna

Coucou @Aleck_Ultimate, Je trouve personnellement remarquable que ce "débat" (bien que cela ne devrait pas en être un) soit ainsi porté par un homme hétéro cisgenre. La plupart du temps, le pronom iel est uniquement connu par les personnes concerné·es, les personnes proches ou d'autres personnes LGBTQ+. Autrement-dit la part des hommes hétéros cisgenre prenant en compte ces personnes est encore assez faible malheureusement. Je suis assez curieuse de savoir comment vous avez été confronté à ce débat, est-ce par le biais d'une connaissance LGBTQ+ ou bien par vous-même ? En tout cas, cela fait vraiment plaisir de voir que l'on avance, à petits pas certes mais cela représente beaucoup ! En 2012 avec "Le mariage pour Tous" permettant la reconnaissance des couples gays et lesbiens, en 2016 l'assouplissement des mesures pénales pour le changement d'état civil pour les personnes transgenres, en septembre 2021 la PMA pour toutes permettant enfin aux couples lesbiens d'avoir recours à ce procédé médical pour avoir un enfant et désormais l'entrée du pronom iel dans le dictionnaire officiel. Les personnes non-binaires vont enfin avoir droit à leur révolution dans les textes de loi et un peu plus de reconnaissance. Bisous, Luna

Coucou, Il faut créer un nouveau format personnalisé depuis le gestionnaire d'impression. Pour cela tu ouvres le gestionnaire d'impression (via CTRL+P) et une fois que tu as choisis une imprimante PDF tu cliques sur "propriétés". Cela va ouvrir l'éditeur de configuration du traceur PDF et dans l'onglet "Paramètres du périphérique et du document", tu cliques sur "Formats de papier personnalisés". Il te suffit ensuite de suivre les instructions pour créer ton propre format via l'assistant. Bisous, Luna

J'ai hésité à te faire la remarque @didier, mais il est vrai que le seul moyen de connaître dans quelle rubrique un message a été posté (lorsqu'on utilise l'onglet des "contenus non lu") c'est de scroller tout en haut de la page (ou tout en bas). Une erreur est vite arrivée lorsqu'on lit et répond à tous les messages postés sur CADxp ! Bisous, Luna

Mais si je comprends bien, cela n'est actif qu'à la génération d'une fenêtre, ce qui est évidemment faisable, cependant il me semble que sa demande consiste à avoir un affichage dynamique. Autrement-dit, si deux fenêtres distinctes possèdent le même affichage, il faut que si l'on modifie l'état de calque dans une des fenêtres, la seconde doit également se mettre à jour. Ou si l'on créé un nouveau calque visible dans toutes les fenêtres, il ne doit pas apparaître dans les fenêtres dont l'état de calque a été "verrouiller". Donc vui, à un instant T il possible de définir ce genre de règle mais comment faire en sorte qu'elle soit en permanence active. Même avec un réacteur cela serait assez complexe et ralentirait grandement l'utilisation d'AutoCAD s'il doit checker toutes les fenêtres à chaque fois qu'on créé un calque ou qu'on rentre dans une fenêtre... Mais bon, je ne me suis peut-être pas assez penchée sur la question de gestion autonome des calques donc il me manque sûrement des éléments de réponses >w< Bisous, Luna

Coucou, Il ne me semble pas qu'il soit possible d'affecter un état de calque à une liste de fenêtre précise, ou du moins si c'était possible, cela m'intéresserait énormément !! Je pense que la meilleure solution est de passer par un gabarit avec une liste de calque définis et d'avoir des présentations qui correspond à un affichage strict. Ainsi il n'y aurait plus besoin de créer des calques supplémentaires en cours de projet et tu pourrais définir tes états de calques dès le début. Les fenêtres de présentation sont des objets quelques peu à part et assez énervant en terme d'utilisation... Donc j'ai quelques doutes que l'on puisse faire cela correctement mais je vais suivre le sujet des fois que certains aient des solutions intéressantes à ce propos ! Bisous, Luna