Lisp mise à l\'échelle des côtes

[Ptitony72]

Bonjour tout le monde.

 

J'ai créé le petit lisp suivant pour dessiner mes côtes à la bonne échelle.

 

(defun c:COT20 ()

(setq "layer_courant" (getvar "clayer"))
(command "_insert" "Calque=" "0,0" "" "" "" )
(command "-cotstyle" "r" "ETCO 20ème")
(command "clayer" "ETCO 20 Cotation")
(command "cotlin")
(setvar "clayer" layer_courant)

)

 

Seulement, j'ai un petit problème :

je n'arrive pas à revenir sur le calque précédent après avoir tracé ma côte.

Pourtant, la variable "layer_courant" contient bien le nom du calque précédent.

Quelqu'un peut-il m'aider à compléter cette routine ?

 

Merci d'avance.

[krunch]

Déjà il faut enlever les guillemets de "layer_courant" à la 1ère ligne.

Mais ensuite il me demande "Calque.dwg", je sais pas trop pourquoi...

[PHILPHIL]

hello

 

faut juste changer le type de style de cote et le nom du calque

 

 (defun C:LII ()
 (setq CAV (getvar "clayer"))
 (if (= (tblsearch "layer" "H_COTE INTERIEURE") NIL)
   (command "-calque" "n" "H_COTE INTERIEURE" "co" "6" "H_COTE INTERIEURE" "")
 )
 (command "-dimstyle" "R" "COTE-NORMAL-50")
 (command "-calque" "ch" "H_COTE INTERIEURE" "")
 (command "cotlin" PAUSE PAUSE)
 (setvar "clayer" CAV)
 (princ)
)

 

phil

[Ptitony72]

Impeccable Philphil

 

Merci beaucoup.

 

Pour répondre à ta question krunch, j'ai créé un fichier Calque.dwg avec dessus mes styles de cote et mes calques que je charge dans chaque plans afin d'avoir toujours les mêmes calques et les mêmes styles de cote sur tous mes plans. Par contre, tu est sur pour les guillemets ? Ca me mettais bien le nom du calque courant dans la variable "layer_courant".

[krunch]

Ben oui les guillemets c'est juste pour les variables système, avec getvar-setvar. Mais le setq de ta 1ère ligne renvoie une erreur "nom de la variable incorrect dans SETQ"...