Synchroniser couleur réticule et fond AutoCAD via LISP

AutoCAD et AutoCAD LT AutoCAD
,
1

Comment automatiser le changement de couleur du réticule de sélection d’AutoCAD pour qu’il reste visible lors du basculement entre un fond noir et un fond blanc, en utilisant une routine LISP ?

2

Voici la procédure :

    (defun c:BlackAndWhite ()
      (initget "Noir Blanc _Black White")
      (if (eq (getkword "\nCouleur de fond [Noir/Blanc]? : ") "White")
        (progn
          (setenv "Background" "16777215") ; Définit le fond en blanc
          (setvar "CURSORCOLOR" 0)         ; Définit le réticule en noir
        )
        (progn
          (setenv "Background" "0")        ; Définit le fond en noir
          (setvar "CURSORCOLOR" 16777215)  ; Définit le réticule en blanc
        )
      )
      (princ)
    )

  1. Charger et Utiliser la Routine :

    • Enregistrer le code : Copiez le code LISP ci-dessus dans un éditeur de texte (comme le Bloc-notes) et enregistrez-le sous un nom de fichier avec l’extension .lsp (par exemple, BlackAndWhite.lsp).
    • Charger dans AutoCAD :
      • Tapez APPLOAD dans la ligne de commande et appuyez sur Entrée.
      • Dans la boîte de dialogue « Charger/Décharger des applications », cliquez sur « Contenu… » sous « Trousse de démarrage ».
      • Cliquez sur « Ajouter… » et naviguez jusqu’à votre fichier .lsp. Sélectionnez-le et cliquez sur « Ouvrir », puis « Fermer ».
      • Cliquez sur « Charger » dans la boîte de dialogue « Charger/Décharger des applications », puis « Fermer ».
    • Exécuter la commande : Tapez BlackAndWhite dans la ligne de commande et appuyez sur Entrée. Le programme vous demandera de choisir entre « Noir » ou « Blanc » pour la couleur de fond, et le réticule s’ajustera automatiquement.

  2. Bonnes Pratiques :

    • Visibilité : Cette méthode assure que le réticule reste toujours visible, quel que soit le fond choisi, améliorant ainsi le confort visuel et la productivité.
    • Couleurs alternatives : Pour une visibilité maximale sur des fonds variés (noir, blanc, gris, etc.), des couleurs comme le vert (code 65280) ou le magenta (code 16711935) sont souvent recommandées pour le réticule, car elles contrastent bien avec la plupart des fonds. Vous pouvez adapter le LISP pour utiliser ces couleurs si vous le souhaitez.
    • Accès rapide : Pour un usage fréquent, vous pouvez créer un bouton dans le ruban ou une entrée dans le menu CUI pour exécuter cette commande LISP d’un simple clic.