lisp PLU

[lolo5134]

Salut,

 

Tout d'abord merci à gile pour son programme "pline block" arrangé.

 

Je voudrai créer le lisp de la fonction PLU qui existe sur déjà sur covadis.

le programme consiste à cliquer sur la polyligne d'un calque, celui ci reste actif tandis que tous les autres se gèles, on peut ainsi travailler aisément sur ce calque. On tape -PLU et tous les autres calques réapparaissent.

 

voici déjà le lisp que j'ai déjà créer:

 

(defun c:PLU()

 

(setvar "cmdecho" 0)

(cond

 

((= ETAPLU 1)

 

(progn

(command "-calque" "l" "*" "")

(command "-calque" "e" CALPLU "")

(setq ETAPLU nil)

)

)

 

((= ETAPLU nil)

 

(progn

(setq ETAPLU 1)

(setq CALPLU (getvar "clayer"))

(setq NOM1 (car (entsel "\nPointer un élément du calque à isoler :")))

(setq LIST1 (entget NOM1))

(setq CALACTIF (cdr (assoc 8 LIST1)))

(command "-calque" "e" CALACTIF "")

(command "-calque" "g" "*" "")

(setq TEXTFIN (strcat "Le calque libre est : " CALACTIF))

(prompt TEXTFIN)

)

)

)

)

 

 

le problème qui se pose est que si on a des calques gelés ou désactivés avant de taper la fonction, ils se réactivent tous..... (créer une liste ou des filtres de calques serait peut etre une bonne solution.....)

 

pouvez vous m'aider??

 

MERCI D'AVANCE