AUTOCAD Une petite astuce de macro utile

[KENAOUIA]

Utilisant souvent mon clavier pour des raccourcis quelque soit le logiciel que j'utilise, je me suis fait un petit lisp qui pourrait en interesser certain.

But: Activer et désactivé les calques

;;; ----------------------------------------------------------------

;;; Macro clavier facilitant l'utilisation des calques

;;; Description des commandes créées

;;; ----------------------------------------------------------------

(princ "\n*****AA Tous les calques Actifs*****")

(princ "\n*****AZ Changement de calque en calque 0*****")

(princ "\n*****ZA Tous les calques Inactifs*****")

(princ "\n*****XC Construction droite perpendiculaire*****")

(princ "\n*****XX Construction droite décaler*****")

(princ "\n*****X Construction droite*****")

(princ)

;;; ----------------------------------------------------------------

;;; Tous les calques Actifs

;;; ----------------------------------------------------------------

(defun c:aa ()

(princ "\n*****AA Tous les calques Actifs*****")

(command "'-calque" "ac" "*" "")

(princ)

)

;;; ----------------------------------------------------------------

;;; Changement de calque en calque 0

;;; ----------------------------------------------------------------

(defun c:az ()

(princ "\n*****AZ Changement de calque en calque 0*****")

(command "-calque" "ch" "0" "")

(princ)

)

;;; ----------------------------------------------------------------

;;; Tous les calques Inactifs

;;; ----------------------------------------------------------------

(defun c:za ()

(princ "\n*****ZA Tous les calques Inactifs*****")

(command "'-calque" "in" "*" "N" "")

(princ)

)

;;; ----------------------------------------------------------------

;;; Construction droite perpendiculaire

;;; ----------------------------------------------------------------

(defun c:xc ()

(princ "\n*****XC Construction droite perpendiculaire*****")

(command "droite" "per")

(princ)

)

;;; ----------------------------------------------------------------

;;; Construction droite décaler

;;; ----------------------------------------------------------------

(defun c:xx ()

(princ "\n*****XX Construction droite décaler*****")

(command "droite" "d")

(princ)

)

;;; ----------------------------------------------------------------

;;; Construction droite

;;; ----------------------------------------------------------------

(defun c:x ()

(princ "\n*****X Construction droite*****")

(command "droite")

(princ)

)

Macro clavier facilitant l'utilisation des calques .

Description des commandes crées

AA : tout le calques actifs

AZ : changement de calque en calque 0

ZA : tout les calques inactifs

XC : construction droite pérpendiculaire

XX : construction droite décaler

Utilisation:

- Copier coller le code dans un fichier Txt dont vous aurez changer l'extension (Pensez à le mettre dans un répertoire que vous effacerez pas par inadvertance)

- Utiliser la commande APPLOAD pour rajouter au démarrage d'autocad le fichier que vous aurez créer

Facilement modifiable pour des utilisations ponctuelles de rajout de commande, je vous laisse imaginer ce que cela pourrait vous permettre d'automatiser même pour une journée.

[dagba]