Aller au contenu

[RESOLU] boites de dialogue DCL avec case à cocher


nen

Messages recommandés

Bonjour le forum :D ,

J'ai besoin de vos lumières au sujet des boites de dialogue DCL ;) .

J’aimerais avec l’exemple ci-dessous, si c’est possible avec des cases à cocher dans une boite de dialogue dcl ouvrir et recharger lisp.

J'ai rajouté une ligne open et load, j'ai essayé plusieurs combinaisons sans succès :( .

Est-ce possible :huh: ?

 

PS : site de la base du fichier dcl ici

 

Merci d’avance

 

//---------------------------------------------------------------------------------------------------------
// MyToggles
//---------------------------------------------------------------------------------------------------------
 MyToggles : dialog {
  key = "Title";
  label = "";//Title$ from lsp file
  spacer;
: text {
    label = "Menu perso ;-)";
    alignment = centered;
  }
  : text {
    label = "--- Version: 21.09.2017 ---";
    alignment = centered;
  }
  
  	: text {
    	label = "";// pour créer un retour à la ligne
    	alignment = centered;
  	}

  : text {
    label = "Ligne d'essai";
    alignment = centered;
  }

  	: text {
    	label = "";// pour créer un retour à la ligne
    	alignment = centered;
  	}

  : text {
    label = "Copyright©®™";
    alignment = centered;
  }

  	: text {
    	label = "";// pour créer un retour à la ligne
    	alignment = centered;
  	}

// départ case en ligne
  : boxed_column {
    label = "Fichier à ouvrir pour modification";
    width = 34.26;
    fixed_width = true;
    : row {
      : toggle {
        key = "Toggle1";
        label = "Fichier MyToggles.lsp";
 open = "C:\\Program Files\\Autodesk\\AutoCAD 2017\\Support\\Lisp\\A_tester\\MyToggles.lsp";
      }
      : toggle {
        key = "Toggle2";
        label = "fichier MyDialogs2.dcl";
 open = "C:\\Users\\toni\\AppData\\Roaming\\Autodesk\\AutoCAD 2017\\R21.0\\fra\\Support\\MyDialogs2.dcl";
      }
    }
 spacer;
// Fin case en ligne



// départ case en colonne
}
  : boxed_column {
    label = "Fichier à charger après modification";
    width = 34.26;
    fixed_width = true;
    : toggle {
      key = "Toggle3";
      label = "MyToggles.lsp";
      load = "C:\\Program Files\\Autodesk\\AutoCAD 2017\\Support\\Lisp\\A_tester\\MyToggles.lsp";
    }
    : toggle {
      key = "Toggle4";
      label = "MyDialogs2.dcl";
      load = "C:\\Users\\toni\\AppData\\Roaming\\Autodesk\\AutoCAD 2017\\R21.0\\fra\\Support\\MyDialogs2.dcl";
    }
    : toggle {
      key = "Toggle5";
      label = "Toggle 5";
    }
    spacer;
// Fin case en colonne
  
  }
  spacer;
  ok_only;
}//MyToggles 

Lien vers le commentaire
Partager sur d’autres sites

  • 4 semaines après...

Bonjour le forum :) ,

 

J’ai eu pas mal de visite pas beaucoup de réponse pour ce post ;)

J’ai néanmoins la solution du site « www.theswamp.org » que je remercie au passage et je tenais à vous faire partager, ci-joint les fichiers lisp et dcl :D .

 

Merci à tous les visiteurs :)

Meilleures salutations :D :D

 

ManageMyFiles.lsp

(defun c:ManageMyFiles ( / N_ActionOpen N_ActionReload dcl)

 (defun N_ActionOpen ( / )
   (if (= "1" (get_tile "tglOpen1"))
     (startapp
       (strcat
         "notepad.exe "
         "\"" (get_attr "tglOpen1" "path") "\""
       )
     )
   )
   (if (= "1" (get_tile "tglOpen2"))
     (startapp
       (strcat
         "notepad.exe "
         "\"" (get_attr "tglOpen2" "path") "\""
       )
     )
   )
 )

 (defun N_ActionReload ( / )
   (if (= "1" (get_tile "tglReload1"))
     (load (get_attr "tglReload1" "path"))
   )
 )

 (if
   (or
     (< 0 (setq dcl (load_dialog "ManageMyFiles.dcl")))
     (prompt "\nError: dcl dialog not found ")
   )
   (progn
     (new_dialog "ManageMyFiles" dcl)
     (action_tile "btnOpen"   "(N_ActionOpen)")
     (action_tile "btnReload" "(N_ActionReload)")
     (action_tile "cancel"    "(done_dialog 0)")
     (start_dialog)
     (unload_dialog dcl)
   )
 )
 (princ)
)

 

 

ManageMyFiles.dcl

//---------------------------------------------------------------------------------------------------------
// ce fichier est à placer dans le dossier : "C:\Users\AppData\Roaming\Autodesk\AutoCAD 2017\R21.0\fra\Support"
//---------------------------------------------------------------------------------------------------------

ManageMyFiles : dialog {
 label = "Manage My Files";
 : boxed_column {
   label = "Open";
   : toggle {
     key = "tglOpen1";
     label = "MyLisp.lsp";
     path = "D:\\MyFiles\\MyLisp.lsp"; // Custom attribute.
     value = "1";
   }
   : toggle {
     key = "tglOpen2";
     label = "MyLisp.dcl";
     path = "D:\\MyFiles\\MyLisp.dcl"; // Custom attribute.
     value = "1";
   }
   : button {
     key = "btnOpen";
     label = "Open selected files";
   }
 }
 : boxed_column {
   label = "Reload";
   : toggle {
     key = "tglReload1";
     label = "MyLisp.lsp";
     path = "D:\\MyFiles\\MyLisp.lsp"; // Custom attribute.
     value = "1";
   }
   : button {
     key = "btnReload";
     label = "Reload selected files";
   }
 }
 cancel_button;
}

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité