passer au calque suivant

[youri]

Bonjours,

 

Voilat je voudrait rendre actif, simplement par l'exécution d'un script, le calque suivant dans ma liste de calque, tout en ne connaissant pas le nom du calque!

 

ceci me permetrait d'imprimer tous mes calques 1 a 1 plus rapidement!

 

merci d'avcance!

[zebulon_]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;

;;;

;;; youri.lsp

;;;

;;; parcourir la liste des calques en fonction de leur ordre de création à partir du calque courant

;;; en n'activant que le calque courant

;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

 

(defun c:youri ()

(command "_-LAYER" "_ON" "*" "") ; j'allume tout

(command "_-LAYER" "_THAW" "*" "") ; je dégèle tout

(setq CLAYER (getvar "CLAYER")) ; je récupère le nom du calque courant

(tblsearch "LAYER" CLAYER T) ; je pointe sur le calque courant et j'ajuste le compteur d'entrée sur l'entrée suivante

(if (setq CLAYER (cdr (assoc 2 (tblnext "LAYER")))) ; je récupère le nom du calque suivant

(progn ; s'il existe

(setvar "CLAYER" CLAYER) ; je le rend courant

(command "_-LAYER" "_OFF" "*" "_Y") ; j'éteint tout

(command "_on" CLAYER "") ; j'allume le calque courant

) ; sinon

(alert "C'est le dernier calque de la liste") ; j'affiche un message

)

)

 

[Edité le 15/10/2003 par zebulon_]

[youri]

heu ... merci! :D

 

justye une ch'tite question ... comment on fait pour faire marcher ça?

 

dsl je suis pas un pro de chez pro d'autocad et surtout je ne connait rien mais alors rien en lisp! :(

 

Encore un peu d'aide SVP merci merci

 

 

PS: je vait quand même essayer de voir comment faire marcher ça parceque ça m'a l'air bien fait (d'aprés les explication en tout cas! :) )

[Invité Patrick]

heu ... merci! :D

justye une ch'tite question ... comment on fait pour faire marcher ça?

 

Ben dans une version LT, ça va être difficile. Le LISP ne marche pas dans les LT...

[zebulon_]

C'est vrai que le lisp, ça a du mal a marcher avec autocad LT, sauf si on investit dans un plugin comme LTtoolkit

[youri]

merci beaucoup!

 

est-ce qu'il y a un moyen de faire la même chose sans utiliser les lisp?

 

LT toolkit est un plug-in payant je suppose ... quel prix environs? quelle sont ces fonctionnalité?

 

merci d'avance!

[zebulon_]

Dans LT, il n'y a guère que le langage DIESEL qui fonctionne. Et avec ça, on ne va pas très loin, faut pas rêver...

 

Sinon pour LTtoolkit, il faut aller à l'adresse

 

http://www.drcauto.com/upfront/

 

LTtoolkit est à $315

[Invité Patrick]

!SlingShot Max de DRCauto fait cela, compter environ 50$, version d'essai 30 jours gratuite je crois.

[youri]

merci beaucoup de vos réponse!

 

@ bientôt pour d'autre colles sur JT 2000 ;)