DenisHen

Je viens de penser à un truc, utilises-tu A360 Drive ? Une copie de ce fichier peux s'y trouver...

Salut. Je n'ai jamais essayé l’enregistreur de macro (je préfère le Lisp). Mais à mon avis, tu devrais enregistrer ta macro après avoir sélectionné ta ligne... Je pense que cette sélection a été enregistrée et elle se fait lors du lancement de la macro...

Oops... je pensais que ta "sauvegarde" était sur un autre DD ou un NAS...

Salut. As-tu essayé d'ouvrir le .bak (s'il existe encore) ?

Ok, merci pour ces précisions... Je comprends mieux... ;) Au fait, Charles T, ça te convient ce qu'on a fait ?

Je me posais justement la question, que veut dire (or (vl-position J'ai ma réponse... ;) Ensuite : (mapcar 'print (vl-sort lst '<)) Effectivement, mais je n'ai toujours pas la maîtrise de mapcar, ainsi que lambda... :huh: Quant au 'print, je suis sur le c*l... Une fonction qui se comporte comme une liste... C'est bien ça ? Je l'avais déjà lu dans un poste de (gile), mais jamais vu en code... J'ai encore beaucoup de chemin à faire... :mellow:

Salut. Même si nos deux codes font la même chose, on vois une différence énorme de niveau... ;) Quant à ma rapidité, j'ai peut-être fini avant toi, mais je suis sûr d'avoir commencer nettement avant... ;) J'ai essayé de faire la même chose que Patrick_35 : utiliser une liste pour pouvoir gérer les doublons et la trier par ordre alphabétique. Je me suis permis (excuse-moi Patrick_35) de reprendre le dernier code avec ces deux options : (defun c:LstCalq_Charles (/ ent lst sel) ;; Suprime tous les doublons d'une liste de (gile) (defun distinct (l) (if l (cons (car l) (distinct (vl-remove (car l) l))) ) ;_ Fin de if ) ;_ Fin de defun (and (ssget) (progn (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))) (or (vl-position (vla-get-layer ent) lst) (setq lst (cons (vla-get-layer ent) lst))) ) ;_ Fin de vlax-for (vla-delete sel) (setq LstCalq (vl-sort Lst '<)) (setq LstCalq (distinct LstCalq)) (mapcar 'print LstCalq) ) ;_ Fin de progn ) ;_ Fin de and (princ) ) ;_ Fin de defun

Salut. Voilà, j'ai fais ce petit bout de Lisp pour faire la liste des calques des éléments sélectionnés : (defun c:LstCalq_Charles (/ Ent JsEnt i) (prompt "\n Selectionez les objets a traiter : ") (setq JsEnt (ssget)) (setq i 0) (princ "\nListe des calques :\n") (while (setq Ent (ssname JsEnt i)) (princ (cdr (assoc 8 (entget Ent)))) (princ "\n") (setq i (+ i 1)) ) ;_ Fin de while (princ) ) ;_ Fin de defun

Bon, je m'y mêle... J'ai un gros DD au boulo, 2To, donc, comme j'en utilise à peu prêt 20% pour le boulo, j'en ai profité pour copier/coller, dans le répertoire "Music" pour y déposer mes 800Go de musique... Et quand je arle de musique... Je parle de Tout...Stravinsky, Bach (Mmmmm), mais aussi, LedZep, RATG, Eminem, FGTH, A Perfect Circle, Tool, Bowie, Queen... Et plein d'autres grands, Higelin, Gainsgourg... Et aussi beaucoup de "Musique du monde"...La japan musique me plait beaucoup... Mais J'ai vécu un peu au Brésil, donc la Samba... j'adore... Bref, en musique, on a énormément d'influence et on fini par écouter de tout... On devrait demander au Expat'... Pour savoir s'ils embrasse la culture local...

Salut (gile) et merci pour ta réponse. J'ai fais tes modifications et ça fonctionne nickel après redémarrage d'AutoCAD... Encore merci...

Bonjour à tous. Voilà, j'ai installé LispExtension de (gile), mais lorsque je tente une de ses commandes (gc-vpfreeze, AutoCAD me répond : (gile), si tu me lis, aurais-tu une solution ? J'ai fais un autre teste dans la console : J'aimerais cependant avoir une autre solution à "gc-vpfreeze", car je me vois mal dire à mes clients qu'ils doivent installer une extension, dans 95% des cas, l'administrateur réseau refusera...

Je viens d'avoir une idée. J'ai converti le .chm en .html sur un site dédié. je vais donc continuer dans ton sens Patrick...

Merci Patrick pour LispExtension, je l'avais déjà installé, mais je n'ai pas de mode d'emploi, le .chm téléchargeable sur le site de (gile) ne fonctionne pas sous mon Windows 10.

J'avais pas compris... Désolé, j'ai donc fais un petit test et ça fonctionne... Le voici : (defun c:test_PropVal () (setq ent_bloc (entsel "\nSélectionnez le fenêtre : ")) (setq ent_bloc (car ent_bloc)) (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "CustomScale" 4)) ) ;_ Fin de defun Encore merci Patrick...

Ben alors comment faire pour changer ces codes sans (entmod ? Car là, je vois pas...

Un bloc est un dwg dans un autre. Je n'ai pas bien compris, tu cherches à modifier le bloc original ou seulement celui dans ton dessin ?

Salut. Juste une petite question, le bloc que tu insères se trouve dans un DWG ou est-ce un DWG ?

Salut Patrick_35, et merci pour cette réponse. Je n'avais pas trouvé ça... Ça veux dire que, si mon code 41 est à 1, le code 45 sera celui de l'échelle (5 pour du 200, 4 pour du 250...) ? Mais est-il possible de faire un (entmod sur un viewport ?

Effectivement, j'en ai retrouvé la trace, c'est de (gile)... Ça a du lui prendre quelques seconde à faire et je l'utilise presque à chaque fois que je fais un code... ;)

Bonjour à tous. Je cherchais des informations sur les codes DXF d'un ViewPort et je suis tombé là-dessus, pour ces 4 codes DXF 91, 335, 343 et 344, j'ai cette unique définition : Quelqu'un aurait une idée ?

Je vais chercher dans ce sens... Mais Faut-il faire une liste des calques ? Peut-on se utiliser les caractères génériques, ex (1003 . "Loti*") ? Faut-il "boucler" autant de fois qu'il y a un calque ? Effectivement, GetXdata et SetXdata devraient gérer tout-ça... Je n'ai rien trouvé sur son site, ni dans AutoLisp ni dans .NET... Je ne te cache pas que je vais ramer avec les Xdata... ;) Mais je vais chercher... Encore merci pour ton aide... PS : j'utilise toujours ton Lisp dxf_lst... Si je me souviens bien, il est de toi, non ?

Bonjour à tous. Voilà, je cherche à fixer (ou attribuer) une échelle à une fenêtre de l'EP. Je n'ai rien trouvé dans les Xdata (Ouf, je ne les comprend pas toujours). Y-a-t'il une solution en Lisp (ou VLisp) bien-sur...

Salut Patrick_35, et merci pour cette réponse. Mais je ne suis pas à l'aise avec les XData. Faut-il geler les calques un par un ? Si j'arrive à faire quelque-chose, pourrais-je utiliser les caractères génériques (ex "Loti*") ?

Bonjour à tous. Pour les besoins d'une routine que j'écris, j'ai besoin de geler des calques dans une fenêtre de l'espace papier. Je peux, par un tri dans un jeu de sélection, identifier la fenêtre en question, car j'en ai plusieurs. Donc, question : 1. comment activer une fenêtre de l'espace papier (sans la sélectionner à la souris) pour geler y certains calques, 2. y-a-t'il une autre solution que d'activer cette fenêtre, comme cette ligne, qui rappel la vue "LotiSite" dans la fenêtre ent sans "rentrer" dans cette fenêtre : (command "_-view" "_r" "LotiSite" ent)

Merci X_all pour te soucier de mon problème... Mais comment expliquer simplement à mes collègues ce que je ne peut pas reproduire chez moi... Mais après un redémarrage d'AutoCAD, les menus apparaissent... :blink: Donc, j'ai une "pseudo" solution, si toute fois, la première hypothèse ne fonctionne pas... Mais je suis leur "hot line", et avec une petit coup de TeamViewer, on finira systématiquement à faire ce dont on a besoin... Merci encore... ;)