Bred

Re, alors, j'ai fait assez simple. Lorsque tu lances la commande de Gel de calque non selectionné, j'enregistre dans une variable (lst-calq-G pour info) les calques précédents qui étaient gelés (+ calque actif) Si tu veux revenir à l'état des calques précédents à cette commande, tu lance la commande "RcalqG". Attention : une fois cette manip faites, le retour en arrière ne fonctionneras pas : il te faudra refaire la manip depuis le début (commande de gel de calque non selectionné, etc....) ;;; Geler tous calques sauf selectionné (et courant) (defun c:[b]calqG[/b] (/ C N SEL) (vl-load-com) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) lst-calq-G nil sel nil sel (ssget "I")) (if (not sel) (setq sel (ssget)) ) (repeat (setq n (vla-get-count (vla-get-Layers AcDoc))) (if (not (equal (vla-get-name (vla-item (vla-get-Layers AcDoc) (setq n (1- n)))) (getvar "clayer"))) (progn (if (equal (vla-get-Freeze (vla-item (vla-get-Layers AcDoc) n)) :vlax-True) (setq lst-calq-G (append (list (vla-item (vla-get-Layers AcDoc) n)) lst-calq-G)) (vla-put-Freeze (vla-item (vla-get-Layers AcDoc) n) :vlax-True)) ) (setq lst-calq-G (append (list (vla-item (vla-get-Layers AcDoc) n)) lst-calq-G)) ) ) (repeat (setq n (sslength sel)) (setq c (vla-get-layer (vlax-ename->vla-object (ssname sel (setq n (1- n)))))) (vla-put-Freeze (vlax-ename->vla-object (tblobjname "LAYER" c)) :vlax-False) ) (princ) ) ; Retour Etat calque avant calqG (defun c:[b]RcalqG[/b] (/ ACDOC N) (vl-load-com) (if lst-calq-G (progn (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (repeat (setq n (vla-get-count (vla-get-Layers AcDoc))) (if (not (member (vla-item (vla-get-Layers AcDoc) (setq n (1- n))) lst-calq-G)) (vla-put-Freeze (vla-item (vla-get-Layers AcDoc) n) :vlax-False) ) ) ) ) (setq lst-calq-G nil) (vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acActiveViewport) (princ) )

Salut damien, commande QUICKCUI ou fait un clic droit sur une barre d'outils Autocad, et tout en bas de la fenêtre tu as" personnalisé".

Re, c'est ça.

Re, ATTREQ sur 1 : permet d'avoir l'invite des attributs à l'insertion d'un bloc en contenant. ATTDIA sur 1 : permet d'avoir une boite de dialogue pour renseigne les attributs. [Edité le 13/7/2007 par Bred]

Salut lili2006, Pour geler, c'est le premier code. Mais si tu veux autre chose, fait le savoir.

Salut Variables ATTDIA et ATTREQ ? (Forum section Routine Lisp ?)

Tu as de nombreux exemple ici de "travail" sur des "textes numériques"... J'en ai fait quelques-un dernièrement ici Si ton niveau en lisp te le permet, le te laisse chercher... ;) Sinon reposte un message, on te pondras quelque chose.... [Edité le 13/7/2007 par Bred]

Salut, j'ai un doute de compréhension au vu de tes demandes : :casstet: Alors, la même chose mais rendant les calques inactifs : (defun c:calqAI (/ C N SEL) (vl-load-com) (setq sel nil sel (ssget "I")) (if (not sel) (setq sel (ssget)) ) (repeat (setq n (vla-get-count (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))) (if (not (equal (vla-get-name (vla-item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) (setq n (1- n)))) (getvar "clayer"))) (vla-put-LayerOn (vla-item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) n) :vlax-False)) ) (repeat (setq n (sslength sel)) (setq c (vla-get-layer (vlax-ename->vla-object (ssname sel (setq n (1- n)))))) (vla-put-LayerOn (vlax-ename->vla-object (tblobjname "LAYER" c)) :vlax-True) ) (princ) )

Salut, (cdr (vl-remove-if '(lambda (x) (not(equal(car x) cle))) lst)) (ou lst = liste de entget et cle = la clé)

Salut, tout le temps ou que en ce moment ? (n'aurais-tu pas une tâche de fond active, genre mise à jour windows, antivirus... ?)

Salut, vite fait. Attention : c'est un base, ça n'enregistre pas l'état initial des calques, et ça ne gèle pas le calque courant (normal...). test le et dits nous les améliorations que tu voudrais. (defun c:calqG (/ C N SEL) (vl-load-com) (setq sel nil sel (ssget "I")) (if (not sel) (setq sel (ssget)) ) (repeat (setq n (vla-get-count (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))) (if (not (equal (vla-get-name (vla-item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) (setq n (1- n)))) (getvar "clayer"))) (vla-put-Freeze (vla-item (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))) n) :vlax-True)) ) (repeat (setq n (sslength sel)) (setq c (vla-get-layer (vlax-ename->vla-object (ssname sel (setq n (1- n)))))) (vla-put-Freeze (vlax-ename->vla-object (tblobjname "LAYER" c)) :vlax-False) ) (princ) )

Salut, la variable est UCSFOLLOW à mettre sur 1. Mais attention à son utilisation en espace papier... va voir l'aide.

Salut, Test ça : dans "Personnailser l'interface utilisateur" (QUICKCUI), tu peux paramétrer tes boutons de souris, ainsi que les séquence de boutons ("Boutons de la souris" / "Maj+Clic / Bouton5)

1 - Tu as ce forum qui est là pour ça. 2 - Tu as aussi CADxp 3 - Si tu cherches bien, il y a des choses ici! :P ;) ... et aussi : http://aidacad.com/fr/autolisp.htm http://www.afralisp.co.za/ etc... tu as des livres aussi... et surtout l'aide Lisp d'Autocad ! ... et je t'ai dit CADxp ?

Salut, ton lisp fonctionne chez moi. J'ai du mal à comprendre ça : (command "_ucs" "_n" "_from" p1 (list (car p1) (- alt) (caddr p1)) ) ceci devrait suffire, non ? : (command "_ucs" "_n" (list (car p1) (- alt) (caddr p1))) Nota : enlève (terpri) [Edité le 12/7/2007 par Bred]

Si je ne me trompe Autocad les utilises pour les rendus.... Goldorack : tu as certainement tes raisons de balancer plein de " Cornofulgure", "Pulvonium", "Rétrolaser", et autres "Astérohache" (sans oublier tes fameux Fulguro-poing !), à Richard. Mais ce n'est pas plaisant du tout à lire (idem).... Si j'étais un nouveau sur ce forum, j'hésiterais à participer par crainte des "Météopunch" ou des "Clavycogyre"... ce qui est l'inverse de l'ambiance générale de CADxp ! .... (Sources : http://www.arno.org/goldorak/manuel.html) [Edité le 12/7/2007 par Bred]

Re, En fait ceci doit être dü à la variable resvue qui gère la précision de représentaion des objets courbes (va voir l'aide, tu comprendras !) Le Zoom Arrière chez moi fonctionne tout le temps (et me permet de "débloquer" le zoom) (ou le zoom x0.5 ....)

Salut, sous 2008 Lorque je fait : (vla-put-Lock (vlax-ename->vla-object (tblobjname "LAYER" "Mon_calque")) :vlax-True) Le calque se verrouille... mais les objets ne s'attenue pas... (variable LAYLOCKFADECTL à 50) (vla-update (tblobjname "LAYER" "Mon_calque)) n'est pas accepté .... (vla-Regen (vla-get-ActiveDocument (vlax-get-acad-object)) acActiveViewport) est lourd... mais ne fonctionne pas. par contre, le bon "vieux" (command "_-layer" "V" "Mon_calque" "" "") fonctionne parfaitement (mais bon.... hein.... :( ) Une piste ? merci.

Re, En effet, j'ai testé. mais en fait c'est une erreur d'affichage, et le regen ne fonctionne plus : car si tu fais une ligne à partir de en prenant _int (intersection), tu verras qu'il n'y a qu'un point ! http://xs217.xs.to/xs217/07284/yyyyyyyyyyyy.JPG

Salut, Essaye de faire un regen ! (ce n'est peut-être qu'un "problème" d'affichage)

Désolé.... mais c'est ce que tu avais demandé !

SAlut, je pense qu'une petite image serait necessaire.... :casstet:

Salut, Pour le charger, tu as tous ce que tu veux ici. POur lancer une lisp après l'avoir charger, le nom de la commande à taper est celle qui se trouve juste après le c: (defun c:[b]lst-ech-pierroka[/b] () (lst-ech (list (list "1/50" 2 1) (list "1/1" 1 1) ... tu peux le modifier (en ne prenant pas un nom de commande déjà existant) Le code suivant où il n'y a pas de c: est une sous-routine qu'utilise le lisp.

Salut,j'avais fait un truc pour les groupes de filtres ici -non parfait- Mais je crois me souvenir qu'il y avait des choses dans le forum au sujets des filtres ... As-tu fait une recherche ?