[RESOLU] boites de dialogue DCL avec case à cocher

[nen]

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 

[nen]

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;
}