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

[(gile)]

Salut,

 

Il ne me semble pas nécessaire de faire de LISP, la commande _LAYISO des Express tools (intégrée aux commandes standard avec AutoCAD 2007 sous le nom ISOCALQUE) permet de désactiver tous les calques excepté le (ou les) calque(s) sélectionné(s).

 

Pour revenir à l'état de calque précédent, il suffit d'utiliser la commande CALQUEP (_LAYERP).

[Patrick_35]

Salut

Tu as aussi _laywalk des express tools (ne pas oublier d'agrandir la fenêtre) par exemple

 

@+