Petite méthode pour prendre la main sur une commande AutoCAD. Un exemple simple: modifier la commande de cotation pour qu’elle dessine la cote dans un calque spécifique. La nouvelle commande va changer le calque courant, dessiner la cote et revenir au calque courant initial.

(defun c:newdimaligned ( / calque-initial)
 (setq calque-initial (getvar "clayer"))
 (setvar "clayer" "calque-qui-va-bien")
 (command "dimaligned" pause pause pause)
 (setvar "clayer" calque-initial))

D’autre part, il faut prévoir une interruption inopinée de la commande: une erreur, la volonté de l’utilisateur. On va redéfinir la fonction *error* (qui est appelée lors de toute interruption de fonction) pour qu’elle rétablisse le calque courant initial. Cette fonction sera locale à la nouvelle commande, de cette façon la gestion générale des erreurs de sera pas perturbée.

(defun c:newdimaligned ( / *error* calque-initial)
 (defun *error* (msg) (if calque-initial (setvar "clayer" calque-intial)))
 (setq calque-initial (getvar "clayer"))
 (setvar "clayer" "calque-qui-va-bien")
 (command "dimaligned" pause pause pause)
 (setvar "clayer" calque-initial))

Pour que tout se passe de façon transparente, et n’imposer aucune modification d’habitude à l’utilisateur, il vaut mieux redéfinir la commande dimaligned plutôt qu’en créer une nouvelle. Pour redéfinir une commande, il faut d’abord l’annihiler. Or notre nouvelle commande utilise la commande qu’on va devoir annihiler. On est bloqué. Heureusement, pour traduire ses commandes en différentes langues, AutoCAD fait la distinction entre la commande originelle et la commande traduite. Les deux commandes restant pleinement accessibles et efficaces. Généralement, la commande initiale est la commande anglaise précédée de « _. » (sans les guillemets).  line devient _.line, et tracent toutes deux une ligne. Dans le cas de dimaligned, la commande originelle est _.acad_dim.dimaligned

(command "undefine" "dimaligned")
(defun c:dimaligned ( / *error* calque-initial)
 (defun *error* (msg) (if calque-initial (setvar "clayer" calque-intial)))
 (setq calque-initial (getvar "clayer"))
 (setvar "clayer" "calque-qui-va-bien")
 (command "_.acad_dim.dimaligned" pause pause pause)
 (setvar "clayer" calque-initial))

Une autre utilisation est de placer une signe + ou – devant une cote ordinale et en faire une cote de niveau. Une prochaine fois… ;-)