Changement de calque

Bonjour à tous, bonjour Maxence,comme il faut un premier pour essuyer les plâtres....je me lance.

J'ai 2 LISP's que je voudrais compiler (en rajoutant une "bricole" au passage).

1 ière routine me permettant de tout nettoyer sur mon dessin, sauf des cercles d'un Ø donné.
2 ième routine me permettant de choisir un ordre sur ces cercles.

Sur la 1ière routine je voudrais qu'au moment du "nettoyage", tous les cercles restant soit mis dans un calque UT1. Si le calque UT1 (Trait continu blanc, genre calque 0...) n'existe pas, il sera créé.

Déroulement du programme :
1 - Je clique sur un icône (déja créé lien avec la routine)
2 - Je clique sur 1 cercle (nettoyage + mis sous UT1 (créé si non existant))
3 - Les cliques suivant je choisi l'ordre

Est-il possible de rajouter un message (après avoir cliquer sur l'icône) en haut à gauche de l'écran par exemple, pour suivre les étapes du déroulement. En fait, faire apparaitre ce qui se trouve sur la ligne commande:
"NETTOYAGE + UT1" (arrêt après le clique sur le cercle)
puis "ORDRE" (pendant tout le déroulement de la 2ième routine).

En relisant mon souhait, je me rend compte que j'en demande beaucoup, mais si quelqu'un peut s'y pencher dessus.

1 ière routine :


(defun c:nettoyeur ()
((lambda ( / ent dxf_ent js jsc n)
(while (null (setq ent (entsel "\nDésigner un cercle type: "))))
(setq dxf_ent (entget (car ent)))
(cond
((eq (cdr (assoc 0 dxf_ent)) "CIRCLE")
(setq
js (ssget "_x" (list (assoc 410 dxf_ent) (assoc 67 dxf_ent)))
jsc (ssget "_x" (list (assoc 0 dxf_ent) (assoc 410 dxf_ent) (assoc 67 dxf_ent) (assoc 40 dxf_ent)))
n -1
)
(repeat (sslength jsc)
(ssdel (ssname jsc (setq n (1+ n))) js)
)
(if js (command "_.erase" js ""))
)
)
))
)


2 ième routine :


(defun crdre ( / nw_js js n i l_dxf h)
(setq nw_js (ssadd) i 0)
(while (setq js (ssget"_:S"))
(ssadd (ssname js 0) nw_js)
(setq l_dxf (entget (ssname js 0)))
(setq h (* (cdr (assoc 40 l_dxf)) 0.5) i (1+ i))
(entmake
(list
'(0 . "TEXT")
'(10 0. 0. 0.)
(cons 11 (cdr (assoc 10 l_dxf)))
(cons 40 h)
(cons 1 (itoa i))
'(72 . 1)
'(73 . 2)
)
)
)
(setq js (ssget "_X"))
(cond
(js
(repeat (setq n (sslength js))
(ssadd (ssname js (setq n (1- n))) nw_js)
)
)
)
(cond
(nw_js
(setq n -1)
(repeat (sslength nw_js)
(entmake (setq l_dxf (entget (ssname nw_js (setq n (1+ n))))))
(entdel (cdar l_dxf))
)
)
)
(prin1)
)


Mes remerciements sont sincères.