QQun coonait l\'équivalence à la commande \"layiso\" sur autocad 2004 ?

[farf]

la question àa dejà surement été posé, mais je n'ai pâs trouvé la fonction recherche :-/

[Eric]

Bonjour

 

Je crois que c'est layiso aussi mais il faut que le menu Express soit installé

 

Est ce le cas ?

[mikL44]

Bonjour

 

A insere dans le blocnote et enregister en .LSP

 

 

(defun C:ig ( / erreur_avant ent data plan ens)

 

(prompt "\nChoix de l'entite source a ISOLER...\n")

(setq ent (car (entsel)))

(setq data (entget ent))

(setq plan (cdr (assoc 8 data)))

 

(command "_LAYER" "_M" plan "_F" "*" "")

 

)

 

 

Tchaoooooooo

[mikL44]

A noter que cela gele tout les calques sauf celui sélectionné.

 

 

[mikL44]

Et maintenant pour geler le calque sélectionné.

 

Fonctionne aussi avec une fenetre de selection.

 

Toujours sans les express tools d'installé.

 

 

 

(defun C:GELER ( / ent data plan ens indice ls_plans elnt)

(defun FG_Recup_Layer ( / ens nb ent data indice ls_plans)

(setq ens (ssget))

(if (and ens (> (sslength ens) 0))

(progn

(setq nb (sslength ens))

(setq indice 0)

(repeat nb

(setq ent (ssname ens indice))

(setq data (entget ent))

(setq plan (cdr (assoc 8 data)))

(if (null (member plan ls_plans))

(setq ls_plans (cons plan ls_plans))

)

(setq indice (+ indice 1))

)

(eval 'ls_plans)

)

nil

)

)

 

(setq ls_plans '())

(prompt "\nChoix des entites sources a GELER...\n")

(setq ls_plans (FG_Recup_Layer))

(if ls_plans

(progn

(setq indice 0)

(foreach elnt ls_plans

(princ (strcat "\n...Geler : --> " elnt))

(if (= indice 0)

(command "_LAYER" "_F" elnt )

(command "_F" elnt )

)

(setq indice (+ indice 1))

)

(command "")

)

(princ "\n\tAucune entites selectionnees !\n")

)

)

 

[Edité le 24/1/2006 par boris]