Lancement d'impression multiple et retour toggle

[SF.Designer]

Bonjour a tous,

Petite demande afin de savoir si on peut écrire cela d'une autre façon (plus propre).

La validation du OK de ma fenêtre de sélection

	(defun InitAllPrintOK	()
		(cond((= PlotNB 1)(setq Plotstyle "NB")(PRT)))
		(cond((= PlotNBB 1)(setq Plotstyle "NBB")(PRT)))
		(cond((= PlotNBV 1)(setq Plotstyle "NBV")(PRT)))
		(cond((= PlotNBBV 1)(setq Plotstyle "NBBV")(PRT)))
		; ---
		(cond((= PlotTT 1)(setq Plotstyle "TT")(PRT)))
		(cond((= PlotTTB 1)(setq Plotstyle "TTB")(PRT)))
		(cond((= PlotTTV 1)(setq Plotstyle "TTV")(PRT)))
		(cond((= PlotTTBV 1)(setq Plotstyle "TTBV")(PRT)))
		; ---
		(cond((= PlotTTPRI 1)(setq Plotstyle "TTPRI")(PRT)))
		(cond((= PlotTTBPRI 1)(setq Plotstyle "TTBPRI")(PRT)))
		(cond((= PlotTTVPRI 1)(setq Plotstyle "TTVPRI")(PRT)))
		(cond((= PlotTTBVPRI 1)(setq Plotstyle "TTBVPRI")(PRT)))
		; ---
		(cond((= PlotCO 1)(setq Plotstyle "CO")(PRT)))
	)
	; ---------------------
	(defun InitAllPrintCancel ()
		(if (= userclick nil)(princ "\n--- Impression annulée ---\n"))


	(defun PRT () (vl-cmdf "._-PLOT" "_YES" "MODEL" PlotType PlotLimit "_MILLIMETERS" PlotOrientation "_NO" "_EXTENTS" Plotscale "_CENTER" "_YES" PlotStyle "_YES" "_WIREFRAME" "_NO" "_NO" "_YES"))

	)

Merci d'avance.

[SF.Designer]

J'en profite aussi pour vous demander comment ce fait il que sur cette fenêtre, 


Si je sélectionne NOIR, TEINTAGE et que je me rend compte qu'il ne me faut pas le NOIR, je le désélectionne.

Le toggle NOIR me renvoi quand même la valeur 1 et non pas 0.

[Luna]

Coucou,
Etant donné que l'on n'a qu'un extrait de code, je dois admettre avoir beaucoup de difficulté pour situer correctement à quoi correspond chaque variable (PlotNB, PlotNBB, ...).
D'un point de vue programmation, je recommande vivement de favoriser l'utilisation d'arguments pour les fonctions et de déclarer localement l'ensemble des variables qui ne doivent pas être "enregistrée" dans le dessin après l'exécution d'une fonction.

Pour ce qui est de l'architecture des (cond) à la chaîne...avec un simple extrait difficile de voir si l'on peut améliorer l'écriture du programme.
Enfin pour le retour des toggles à la fin d'exécution de la boîte de dialogue, sans code impossible de pouvoir y apporter une explication.

Bisous,
Luna

[SF.Designer]

Bonjour Luna,

(petite excuse, déplacement pro et j'ai zappé mon DD de dév)

Alors voila le lisp et dcl (je sais que j'ai pas mal de taf de concaténation etc, et de mise en forme du dcl)

Merkiiii

PrintV2.lsp PrintV2.dcl

[SF.Designer]

Bon voici le version pour le moment "définitive"...

Print.dclPrint.lsp

Je suis ouvert a toutes critiques qui me permettrai de fluidifier, voir accelerer ce code !

[Luna]

Coucou,

Sincèrement désolée, je manque cruellement de temps ces temps-ci et je n'ai toujours pas regarder ton souci.

J'espère que ce n'est pas un souci pour toi, je jetterai un œil dès que mon planning se libère un peu 🙂

Bisous, Luna