(gile)

Salut @didier Je crains que certains signataires la lettre ouverte citée dans le lien que tu donnes (Elon Musk, Steve Wozniak, ...) n'ont signé que parce que ChatGPT, c'est la concurrence... Et quand je vois que certain "prône la recherche de solutions technologiques pour sauver l’humanité de menaces “existentielles”..." je ne vois que la continuité de la fuite en avant technocratique qui prétend réparer les dégâts causés par elle même avec des moyens similaires...

Stack Overflow, le site de référence pour les questions/réponses en programmation, a temporairement interdit les réponses générées par ChatGPT (voir ici). "L'utilisation de texte généré par ChatGPT pour le contenu de Stack Overflow est temporairement interdite. [...] Globalement parce que le taux moyen d'obtention de réponses correctes par ChatGPT est trop faible, la publication de réponses créées par ChatGPT est substantiellement nuisible au site et aux utilisateurs qui demandent et recherchent des réponses correctes."

Salut, Avec Increment, tu peux utiliser un séparateur (il faut lire l'aide). Increment_separateur.mp4

Salut, Il semble que AutoCAD 2024 LT supporte les fonctions dumpallproperties, getpropertyvalue et setpropertyvalue (ajoutés depuis A2012 pour compenser l'absence des fonctions vla[x] dans les versions full d'AutoCAD MAC). Donc, avec le support des fonctions vla-* AutoCAD LT est désormais mieux armé en LISP que AutoCAD MAC full... @DenisHen Les fonctions vlax-ldata devraient fonctionner (elle ne nécessitent pas l'accès à des applications externes). Je n'ai pas testé (pas de LT installée) mais si tu as accès à des AutoCAD 2024 LT, le plus simple est de tester par toi même.

La version 2022 de Visual Studio, l'IDE de Microsoft, a intégré une aide à la complétion de code appelée "Intellicode". C'est une "IA" (basée sur OpenAI Codeplex - GPT 3) qui est censée "prédire le segment suivant de votre code" au moment de la frappe. Outre le fait que je trouve cette fonctionnalité insupportablement intrusive, les prédictions sont, le plus souvent, complètement à côté de la plaque (en tout cas en programmation AutoCAD). J'ai fini par désactiver cette fonctionnalité qui me perturbait plus qu'elle ne m'aidait et, au vu du nombre de sujets trouvés sur le web à ce propos, je vois que je ne suis pas le seul.

Pas sûr du tout. La bonne pratique en programmation, est de commencer par l'algorithme (la logique), puis de l'implémenter avec du code. Commencer par du code boiteux me semble une fausse bonne approche. Et puis, où est le plaisir de programmer dans tout ça ?

Salut, Question syntaxe, ça ressemble à de l'AutoLISP, mais au niveau logique, c'est du grand n'importe quoi. Il y a fort à parier que les questions du type : "J'ai ce code LISP mais il ne fonctionne pas" vont fleurir sur les forums avec du "code" généré par ChatGPT ou un autre outil conversationnel. Triste époque...

Salut, Tu devrais plutôt utiliser le plug-in Increment qui plus puissant et plus robuste.

Oui, il faut télécharger le ZIP, le débloquer, extraire et lancer l'installeur.

@Max Ln Qu'entends tu par : "le lien de téléchargement ne fonctionne pas avec moi" ?

(defun isInside (pt lowerLeft upperRight) (and (<= (car lowerLeft) (car pt) (car upperRight)) (<= (cadr lowerLeft) (cadr pt) (cadr upperRight)) ) ) Qu'on peut aussi écrire : (defun isInside (pt lowerLeft upperRight) (vl-every '<= lowerLeft pt upperRight) )

Salut, Vérifier si les coordonnées x et y du point sont dans un intervalle est bien ce qui demande le moins de calculs.

Luna ??!! Je pense qu'il faut que tu prennes un plus le temps de lire attentivement les messages... La méthode proposée par @Olivier Eckmann de commencer par écrire l'algorithme et de le transformer en commentaires dans le code est excellente.

Salut, Si la valeur d'une référence d'attribut contient un champ, cette référence d'attribut a une entrée "ACAD_FIELD" dans son dictionnaire d'extension. Un moyen serait de contrôler que la référence d'attribut a bien un dictionnaire d'extension (HasExtensionDictionary) et, si c'est le cas, obtenir ce dictionnaire (GetExtensionDictionary) pour voir s'il a une entrée "ACAD_FIELD" (Item).

Il semble que je n'ai pas compris tout à fait la même chose que @Olivier Eckmann. J'utilise un indice de base 0 parce que c'est "la norme" et que ce n'est pas la peine d'ajouter de la complexité. Et la fonction d'Oliver renvoie la même chose si on fait (DeplElemList lst 2 5) ou (DeplElemList lst 5 2). Le plus simple, et ça t'aiderait aussi à y voir plus clair, serait de donner quelques exemples de résultats renvoyés sur une liste simple du style '(0 1 2 3 4 5 6). _$ (deplace '(0 1 2 3 4 5 6) 0 6) (1 2 3 4 5 6 0) _$ (deplace '(0 1 2 3 4 5 6) 6 0) (6 0 1 2 3 4 5) _$ (deplace '(0 1 2 3 4 5 6) 2 4) (0 1 3 4 2 5 6) _$ (deplace '(0 1 2 3 4 5 6) 4 2) (0 1 4 2 3 5 6)

Si tu veux utiliser des fonctions déjà écrites regarde du côté de gc:take et gc:skip issues de la librairie List en bas de cette page. Je te laisse chercher avant de donner une solution avec ces fonctions. ;; gc:take ;; Retourne les n premiers éléments de la liste ;; ;; Arguments ;; n : le nombre d'éléments ;; l : une liste (defun gc:take (n l) (if (and l (< 0 n)) (cons (car l) (gc:take (1- n) (cdr l))) ) ) ;; gc:skip ;; Retourne la liste moins les n premiers éléments ;; ;; Arguments ;; n : le nombre d'éléments ;; l : une liste (defun gc:skip (n l) (if (and l (< 0 n)) (gc:skip (1- n) (cdr l)) l ) ) Ce ne sont pas des variables, ce sont les arguments de la fonction foo.

Je le prends comme un challenge. Une version avec un fonction auxiliaire récursive. (defun deplace (lst old new / foo) (defun foo (x l o n) (cond ((and (null l) (< o 0) (< n 0)) nil) ((= o 0) (if (< n 0) (cdr l) (foo x (cdr l) (1- o) n) ) ) ((= n 0) (if (< o 0) (cons x l) (cons x (foo x l o (1- n))) ) ) (T (cons (car l) (foo x (cdr l) (1- o) (1- n)))) ) ) (foo (nth old lst) lst old new) ) La même dans un style impératif (avec while) : (defun deplace (lst old new / item newList) (setq item (nth old lst)) (while (or lst (<= 0 old) (<= 0 new)) (cond ((= old 0) (setq old (1- old)) (if (< new 0) (setq newList (append (reverse (cdr lst)) newList) lst nil ) (setq lst (cdr lst)) ) ) ((= new 0) (setq new (1- new)) (if (< old 0) (setq newList (append (reverse lst) (cons item newList)) lst nil ) (setq newList (cons item newList)) ) ) (T (setq newList (cons (car lst) newList) lst (cdr lst) old (1- old) new (1- new) ) ) ) ) (reverse newList) )

On en avait pourtant déjà parlé. Voir ici ma réponse et celle de Luna.

Faites avec Snagit.

C'est que tu ne prends pas le temps de lire les documentations, Extrait de "Introduction à AutoLISp" : Idem, un programme LISP retourne le résultat de l'évaluation de la dernière expression (le nombre entier 1 dans ce cas.

@didier J'ai créé un "Nouveau fichier texte" nommé "$vld$.dcl" sur le bureau. J'ai copié ce fichier dans "C:\Program Files\Autodesk\AutoCAD 2023" (il faut être administrateur). J'ai ouvert les Propriétés de ce fichier pour modifier les autorisations pour "Utilisateurs". Apercu_dans_editeur.mp4

Je parlais de déclarer localement la fonction imbriquée. Exemple : (defun f3 (/ f2) (defun f1 () (alert "f1") 1) (defun f2 () (alert "f2") 2) (f1) (f2) (alert "f3") 3 ) Si tu charges ce LISP, tu ne peux pas appeler (f1) ni (f2) tant que tu n'as pas appelé (f3). Et après avoir appelé (f3), tu pourras appeler (f1) qui est globale, mais pas (f2) qui est locale. Commande: (defun f3 (/ f2) (_> (defun f1 () (alert "f1") 1) (_> (defun f2 () (alert "f2") 2) (_> (f1) (_> (f2) (_> (alert "f3") (_> 3 (_> ) F3 Commande: (f1) ; erreur: no function definition: F1 Commande: (f2) ; erreur: no function definition: F2 Commande: (f3) 3 Commande: (f1) 1 Commande: (f2) ; erreur: no function definition: F2

Plutôt que de modifier les droits d'accès de tout le répertoire (ce que je ne recommanderais pas), tu peux juste modifier les droits d'accès au fichier '$vld$.dcl' copié dans ce répertoire pour autoriser la Modification (donc l'Écriture) aux Utilisateurs.

Dans ma réponse, il n'est jamais question de variable. Tu ne lis pas attentivement...

Salut, C'est parce que le répertoire "C:/Program Files/Autodesk/AutoCAD 2023/" est en lecture seule. Tu peux créer un fichier "$vld$.dcl" (vide) sur ton bureau et le copier dans "C:\Program Files\Autodesk\AutoCAD 2023/". Ça devrait fonctionner parce que AutoCAD n'aura qu'à le modifier au lieu de le créer.