Carboleum

Et tu voudrais qu'il se modifie dynamiquement en fonction de son contenu... C'est pas gagné ;-) Par contre ceci pourra peut-être te convenir: (defun c:explorateur () (startapp "explorer" (strcat "/n,/e,/root," (getvar "dwgprefix"))))

tu abuses ;-) (defun filename-1+ ( / fullname basename root index newindex) (setq fullname (getvar "dwgname")) (setq basename (substr fullname 1 (- (strlen fullname) 4))) (setq root (vl-string-right-trim "0123456789" basename)) (setq index (substr basename (1+ (strlen root)))) (setq newindex (1+ (atoi index))) (setq newindex (if (< newindex 10) (strcat "0" (itoa newindex)) (itoa newindex))) (strcat (getvar "dwgprefix") root newindex ".dwg")) (defun c:saveas-1+ () (command "_saveas" "" (filename-1+)))

(defun filename-1+ ( / fullname basename root index) (setq fullname (getvar "dwgname")) (setq basename (substr fullname 1 (- (strlen fullname) 4))) (setq root (vl-string-right-trim "0123456789" basename)) (setq index (substr basename (1+ (strlen root)))) (strcat (getvar "dwgprefix") root (itoa (1+ (atoi index))) ".dwg")) (defun c:saveas-1+ () (command "_saveas" "" (filename-1+))) tu t'arranges pour que AutoCAD charge ce code lisp, pour ce faire, tu lis le post de (giles) "charger un lisp" là -> http://cadxp.cadmag.info/sujetXForum-14630.htm Ce code crée une nouvelle commande: "saveas-1+" (fonctionne sous AutCAD 2004) à+

(entget (car (entsel))) renvoie la liste des caractéristiques de l'objet cliqué. Cette liste est la façon dont AutoCAD garde les objets en mémoire et les traite (en quelques sortes) Tu peux faire des tests sur une ligne, un texte, etc. En modifiant cette liste, tu peux modifier l'objet en question. mapcar applique une fonction à tous les membres d'une liste. Demandes à Google, il te trouvera certainement quelques tutoriels intéressant. Attention: Le lisp utilisé sous AutoCAD est un dialecte, ce qui veux dire qu'il ne comprend pas tout à fait d'autres dialectes lisp. Mais mapcar est une fonction commune à la plupart des lisps. strcat est très bien expliqué dans le help d'autocad. Ici, elle permets d'ajouter le nom de l'xref au début du nom du layer; car c'est comme celà que AutoCAD traite les layers des xrefs. Le _ permet de se libérer de la contrainte de la langue/ En effet, AutoDesk a traduit ses commandes dans d'autres langues que l'anglais initial. Mettre un _ devant la commande anglaise permet au versions localisées (dans une autre langue) de la comprendre. Si tu as d'autres question, n'hésites pas!

Cadeauje: ((lambda ( / basename root index) (setq basename (substr (setq fullname (getvar "dwgname")) 1 (- (strlen fullname) 4))) (setq root (vl-string-right-trim "0123456789" basename)) (setq index (substr basename (1+ (strlen root)))) (strcat (getvar "dwgprefix") root (itoa (1+ (atoi index))) ".dwg") ))

(defun c:color-xref () (setq liste-de-layers-à-éteindre '("layer1" "layer2")) (setq nom-de-l'xref (cdr (assoc 2 (entget (car (entsel)))))) (mapcar '(lambda (x) (command "_.-layer" "_co" "253" (strcat nom-de-xref "|" x) "")) liste-de-layers-à-éteindre) ) non testé ;-)

avec la commande purger (_purge)

Si le téléphone est considéré comme salaire (avantage extra-légaux), tu en fais ce que tu veux. Si il est considéré comme outil de travail, et contrairement à ce que dit Didier, tu as le droit de l'utiliser pour ton usage personnel, mais effectivement mieux vaut alors être raisonnable, notamment éviter de téléphoner en dehors des heures de travail.

Un truc genre: (command "_.-layer" "_co" "253" (cdr (assoc 8 (entget (car (nentsel))))) "") tu fais un copier/coller dans la zone de commande, tu tapes sur t tu clickques un objet qui se trouve dans le layer de l'xref que tu veux modifier (Giles) a écrit un petit tutorial pour créer des raccourcis en lisp mais je ne sais pas où il l'a mis...

Bonjour à tous, Pour classer ma doc, j'aimerai utiliser la table SfB: (1-) Infrastructure, (2-) superstructure, (3-) second œuvre, (4-) Parachèvements, (5-) Fluides, (6-) Électricité Ne connaissant que ce premier niveau, c'est un peu limité. J'ai bien trouvé les deux premiers niveaux sur le net, mais c'est complètement illisible. Quelqu'un sait où trouver la table complète, ou, du moins le deuxième niveau ? Merci

Tu n'es pas obligé de parcourir la table des calques: (minusp (cdr (assoc 62 (tblsearch "layer" "3D_MAISON")))) suffit

essayes de les recharger et de les mettre en adresse relative. J'ai déjà résolu ce genre de problème comme ca.

Remplaces princ par itoa.

La touche ECHAP (ou ESC) ? [Edité le 6/3/2010 par Carboleum]

Dommage que zwcad ne tourne pas sous linux... Est-ce prévus dans un futur proche ?

le quote (') fait que AutoCAD considère la liste exactement comme tu l'as écrite, il ne l'évalue pas, il ne remplace donc pas tes variables par leur valeur. il faut utiliser la fonction list pour qu'il évalue l'entièreté de la liste et mettre les quotes sur chaque membres de la liste qu'il ne faut pas évaluer; et concernant les membres à évaluer tu dois les construire avec la fonction cons, ce qui donne: (setq selpoch (ssget "X" (list '(-4 . "")))) [Edité le 13/1/2010 par Carboleum]

parce que si la selection est vide, la commande va buger. On mets alors une condition: si la sélection n'est pas vide, alors la commande est exécutée.

Attention, lors de longs mtext, le texte se trouve dans le dxf 1 *ET* dans un ou plusieurs dxf 3. Il est préférable d'utiliser vla-get-textstring:

Merci pour ces info! Mais je comprend pas bien le (ssget "_:D"), s'il fait plusieurs sélections d'un même objet, comment avoir accès à ces différentes sélections ? [Edité le 13/1/2010 par Carboleum]

(defun explode-groups (wcname) (vlax-for group (vla-get-groups (vla-get-activedocument (vlax-get-acad-object))) (cond ((wcmatch (vla-get-name group) wcname) (vla-delete group)))) (princ)) qui s'utilisera comme suit: (explode-groups "*COVA*") à tes risques et périls ;) [Edité le 12/1/2010 par Carboleum]

Pour le momment je travaille ~1/4 temps sous AutoCAD. Avant, je faisais ~3/4 temps sou AutoCAD et j'ai peut-être cliqué sur 3 icônes. Pour avoir des raccourcis un petit peu plus élaborés que AutoCAD.pgp, par exemple: (defun c:lon () (command "-layer" "off" "*" "yes" "on" *layers-favoris* "")) éteint tous les layers qui ne sont pas dans ma liste de layers favoris. Difficile à écrire dans AutoCAD.pgp, ça! [Edité le 12/1/2010 par Carboleum]

ne te fais pas de faux espoirs. Comme je n'utilise pratiquement que le clavier, je n'ai pas besoin d'avoir d'espace de travail propre. Je squatte ceux des autres, sans les modifier. J'importe juste mes raccourcis, sous forme de lisps. Carboleum, Bernard l'ermite à ces heures ;-)

yep!

Mes raccourcis, rien de plus. Quand je dis "hop rien à configurer", ca veut pas dire que mon lisp configure quoi que ce soit, ca veut dire que je ne configure rien, je laisse le poste de travail comme il est (pour les autres utilisateurs) et mon lisp est une sorte d'acad.pgp customisé ;-)

ou alors un petit lisp: (startapp "C:\\Program Files\\Notepad++\\notepad++.exe") ce qui a l'avantage de pourvoir passer des arguments: (startapp "explorer" (strcat "/n,/e," (getvar "dwgprefix"))) Vu comme ca, c'est assez moche, mais en faire des raccourcis, c'est vachement mieux...