mitnix

Merci tu beaucoup. :D :D

Rebonjour tout le monde, Et oui c'est encor moi. la c'est tout simple j'ai un calcul a faire avec un racine carrée dedans comment je fait le racine carrée? Merci bcp!!!!!

http://smileyonline.free.fr/images/gif/pascompris/vignette/thumbnails/Wow1_gif.gif Ouha, ben la va falloir que je mit pose un petit peu. pas tout comprit mais je vait essayer de comprendre. Merci pour les explication et pour les tuto Byebye

Salut, Merci pour ta réponse. Ca marche bien :thumbup: :D

Salut tout le monde Dans un code a un moment je fait afficher un résultat dans la ligne de commande par la fonction "print" mais je prefèrerai que ca s'affiche dans une boite de dialogue et le problème c'est que je sais pas faire. Alors si quelqu'un sais . Je voudrait juste faire apparaitre une petite boite avec un texte mon resultat et un petit bouton ok pour pouvoir sortir de cet fenetre. V'la c'est tout Puis si vous savait ou je peut trouver des tuto sur le DCL ca m'intèresse.

Salut tout le monde, Voici mon problème du jour. Ya pas longtemps jai aprit a utilisé la fonction "tan que" :D Exemple: (while (<= V1 0) (setq V1 (getreal "\nEntrez la vitesse (m/s):")) ) Mais le truc c'est que je na sais pas comment l'utilisé avec plusieur argument http://smileyonline.free.fr/images/gif/pascompris/vignette/thumbnails/gne_gif.gif moi j'ai ecrit ça pour que ca marche (while (<= Q1 0) (setq Q1 (getreal "\nEntrez le débit (m3/h):")) ) (while (<= V1 0) (setq V1 (getreal "\nEntrez la vitesse (m/s):")) ) (while (<= L1 0) (setq L1 (getreal "\nEntrez une longueur imposée:")) ) http://smileyonline.free.fr/images/gif/meilleur/vignette/thumbnails/Peace_gif.gif Mais je voudrait tout rentrer dans la même boucle. Alors si quelqu'un sais je veut bien qui me le dise. Merci Beaucoup a tous. http://www.smiliegenerator.de/s26/smilies-29653.png

Merci baucoup pour tes conseil Serge, je vait essayer de les mettre en pratique des que j'aurai de nouvel idée de prog. Merci Bcp. :thumbup:

comprend pas a 100% ta question tes ligne sont comment d'en le prolongement l'une de l'autre ou elle se croise

Ben tient je donne le code. il est pas vraiment des plus intérressent du faite que ces un code que j'ai fait pour apprendre le lisp mais voila je donne comme si des gens veulle s'amuser avec pour lui amenner des modif des ameliorrations ben i peuvent et en plus il peuvent me le re transmettre pour que je puisse encor plus evoluer. Bon sinon ma prochaine etape est de comprendre comment faire un interfasse graphique et des le faire pour ce prog donc je pense que l'on ce reverra bientot. V'la merci pour tout ;Folio.lsp (defun c:cfolio () ;c:cfolio, permet de créer un nombre indéfini de folio A3 vertical ;A insérer dans fichier AutoCAD.pgp pour création d'alias ;cfo, *cfolio ;Désactivez SCU et l'accroche object (command "accrobj""in" "iconescu""in") ;Entrez le nombre de folio dans la Variable "nbrf" positive (setq nbrf 0) (while (<= nbrf 0) (setq nbrf (getint "\nEntrez le nombre de folio:")) ) ;variable "dist" donne la séparation entre chaque folio (setq dist 470) ;Spécifier le point d'insertion du premier folio (setq p0 (getpoint "\nEntrez point d'insertion:")) ;Attribution des variables Text (prompt "\nIMPORTANT\nSi votre texte comprend des espaces le mettre entre guillemets") (setq t1 (getstring "\nEntrez le nom de la société:")) (setq t2 (getstring "\nEntrez le nom de l'affaire:")) (setq t3 (getstring "\nEntrez le Déscriptif du folio:")) (setq t4 (getstring "\nEntrez le N° du plan:")) (setq t5 (getstring "\nEntrez la phase du projet:")) (setq t6 (getstring "\nEntrez la Date:")) (setq t7 (getstring "\nEntrez l'èchelle du plan:")) ;initialisation de i=1 (setq i 1) ;Début de la boucle (while (<= i nbrf) ;Attribution de la variables P1 (setq p1 (list (+ (car p0)(* dist (- i 1))) (cadr p0))) ;Dessin du cadre et cartouche folio (command "rectang" p1 (list (+ (car p1) 420)(+ (cadr p1) 297))"") (command "rectang" (list (+ (car p1) 10)(+ (cadr p1) 10)) (list (+ (car p1) 410)(+ (cadr p1) 40))"") (command "rectang" (list (+ (car p1) 10)(+ (cadr p1) 45)) (list (+ (car p1) 410)(+ (cadr p1) 287))"") (command "ligne" (list (+ (car p1) 10)(+ (cadr p1) 25)) (list (+ (car p1) 410)(+ (cadr p1) 25))"") (command "ligne" (list (+ (car p1) 70)(+ (cadr p1) 40)) (list (+ (car p1) 70)(+ (cadr p1) 10))"") (command "ligne" (list (+ (car p1) 290)(+ (cadr p1) 40)) (list (+ (car p1) 290)(+ (cadr p1) 10))"") (command "ligne" (list (+ (car p1) 350)(+ (cadr p1) 40)) (list (+ (car p1) 350)(+ (cadr p1) 10))"") ;Création des texte ;Définition du style de texte (command "style""verdana""verdana" "" "" "" "" "") ;"verdana" est maintenant le style de texte courant ;Création des textes constant du cartouche (command "texte""j""hg" (list (+ (car p1) 12.5)(+ (cadr p1) 37.5))"3.5" "" "Plan N° :" "" "") (command "texte""j""hg" (list (+ (car p1) 292.5)(+ (cadr p1) 37.5))"3.5" "" "Phase :" "" "") (command "texte""j""hg" (list (+ (car p1) 292.5)(+ (cadr p1) 22.5))"3.5" "" "Ech. :" "" "") (command "texte""j""hg" (list (+ (car p1) 352.5)(+ (cadr p1) 22.5))"3.5" "" "N° du folio :" "" "") (command "texte""j""hg" (list (+ (car p1) 352.5)(+ (cadr p1) 37.5))"3.5" "" "Date :" "" "") ;Création des textes variables du cartouche (command "texte""j""mc" (list (+ (car p1) 40)(+ (cadr p1) 17.5))"5" "" t1 "" "") (command "texte""j""mc" (list (+ (car p1) 180)(+ (cadr p1) 32.5))"7" "" t2 "" "") (command "texte""j""mc" (list (+ (car p1) 180)(+ (cadr p1) 17.5))"7" "" t3 "" "") (command "texte""j""bd" (list (+ (car p1) 67)(+ (cadr p1) 27.5))"4" "" t4 "" "") (command "texte""j""bd" (list (+ (car p1) 347)(+ (cadr p1) 27.5))"4" "" t5 "" "") (command "texte""j""bd" (list (+ (car p1) 407)(+ (cadr p1) 27.5))"4" "" t6 "" "") (command "texte""j""bd" (list (+ (car p1) 347)(+ (cadr p1) 12.5))"4" "" t7 "" "") ;Création du texte numero du folio (command "texte""j""bd" (list (+ (car p1) 407)(+ (cadr p1) 12.5))"4" "" (strcat (itoa i)"/"(itoa nbrf)) "" "") ;Rajoute +1 à i (setq i (1+ i)) ;Fin de la boucle ) ;Activez l'accroche objet (command "accrobj""extr,mil,cen,int,per,exte") (prompt "\nLes folios ont été créés!") ;Fin du programme (prompt "\nDeveloped by mitnix") (princ) )

Merci Beaucoup pour ton aide Je modifie le code et je le reposterai ensuite Encore merci

Hey ben voila j'ai trouver!!! :D :D :D :D :D :D :D Et voui g bien regardé le code et je me suis aperçu que (itoa nbrf) ben ca marchait pas donc me sius demandé pourquoi? Alors plutot que d'utilisé de faire (setq nbrf (getreal "blablablabla:)) j'ai utilisé (setq nbrf (getint "blablablabla:) et la ca marche alors pourquoi je sais pas mais si yen a qui savent ben je veut bien qui me le dise. Voila merci bcp

Oki merci pour ces réponses mais je suis pas arrivé a les intégrer dans mon lisp heu je vous passe directement mon code et voir si je l'ai bien fait car en regardent vos code j'ai l'inpersion de pas etre dans le vrai. Plus le de code V'la parceque j'ai pas l'impression d'utilisé le lisp de bonne manière et de plutot me faire chier pour rien. ben merci si vous voulait perdre un peu de temps avec moi. :) [Edité le 21/9/2004 par mitnix]

rha désolé pourtant c'est simple . Je me reexplique. J'ai deux variable "i" et "nbrf" et je veut intégré un texte dans mon dessin qui ecrive ces deux variables sous la forme i/nrbf mais qui me remplace les variable par leur valeur. Voila je pense que c'est plus clair comme ca.

Salut tout le monde!!!! J'ai voulut créer un programme en lisp alors que je connait rien en programmation je me suis renseigner et aprés des heure et des heure de galère je suis arrivé a faire ce que je voulait. a faire tout non !!! il me manque juste une ou deux petite ligne pour bien achevai ce prog. Donc voila mon problème: durant le prog je creer deux variable "i" et "nbrf" et je voudrait seulement intégrer un texte qui dit ("i"/"nbrf"). ben voila ces la ou je plante.Donc je c pas si je mexprime bien mais si quelqu'un a la solution je le remerci d'avance.