Jason_Guérisseur

Oui il est du genre ouvert et surtout sympa comme prof :). Pas des réponse toutes faites mais plutôt de m'aider. Je dérange jamais mes profs, j'ai toujours travaillé seul dans mon coin mais bon je vais essayer de me débrouillé :') merci encore une fois de m'avoir répondu.

C'est cela, Mr, Roman Julien est mon prof. Je sais pas comment ta pu le deviner mais t'es forte

Bonjour, oui c'est une question scolaire. je vais vous donné une exemple: Implantation d’une grue (mobile et fixe) Données renseignées par l’utilisateur :  Choix du type de grue (Mobile ou Fixe)  Position de la grue  Longueur des rails (dans le cas d’une grue mobile)  Longueur de la flèche Résultats souhaités :  Dessin d’une grue (mobile ou fixe)  Dessin des rails (dans le cas d’une grue mobile)  Dessin de la zone d’influence de la grue  Dessin de la flèche et affichage d’un texte avec sa valeur se que j'ai pu faire : ; 1) a) Grue Fixe (defun c:gruefixe() (setq F7 (getpoint "\nAfichage du Texte : ")) (setq StyTxName "MonStyle") ; le nom du nouveau style de texte (if (not (tblsearch "STYLE" StyTxName)) (command "_style" StyTxName "arial.ttf" "1.5" "1.00" "0.00" "_N" "_N") ; je le crée (command "_textstyle" StyTxName) ; je l'active ) ;texte (command "_text" "_non" F7 "0" "Grue Fixe") (princ) (command "-calque" "choisir" "Grue Fixe" "") (setvar "clayer" "Grue Fixe") (setq larg(getdist "largeur de la base\n")) (setq p0 (getpoint "point d'insertion\n")) (setq dir(getpoint "entrer une direction\n")) (setq lf(getdist "longueur de la flèche\n")) (setq ang (angle p0 dir)) (setq accro (getvar "osmode")) (setvar "osmode" 0) ;Création de la base (setq p1(polar p0 ang larg)) (setq p2(polar p1 (+ ang(/ pi 2)) larg)) (setq p3(polar p2 ang (- larg))) (command "polylign" p0 p1 p2 p3 "c") (command "polylign" p0 p2 "") (command "polylign" p3 p1 "") ;Création de la flèche (setq p4(polar p1 (+ ang(/ pi 2))(/ larg 3))) (setq p5(polar p4 (+ ang(/ pi 2))(/ larg 3))) (setq p6(polar p4 ang lf)) (setq p7(polar p5 ang lf)) (command "polylign" p4 p6 p7 p5 "") ;Création de la zone de manutention (setq p8 (polar p0 (+ ang(/ pi 4))(/ (distance p0 p2) 2))) (setq p9 (polar p1 (+ ang(/ pi 2))(/ larg 2))) (setq p10 (polar p9 ang lf)) (command "cercle" p8 p10 ) ;Création de la contre flèche (setq P12 (polar p0 (+ ang(/ pi 2)) (/ larg 3))) (setq P11 (polar P12 (+ ang(/ pi 2)) (/ larg 3))) (setq P14 (polar P12 (+ ang (+ pi)) larg)) (setq P13 (polar P11 (+ ang (+ pi )) larg)) (command "polylign" p12 p11 p13 p14 "c") (setvar "clayer" 0) (setvar "osmode" accro) )

Coucou, je pensais vraiment pas qu’on aller me répondre. Wouaw, merci de m’avoir répondu. Alors concernant le sujet, c’est à toi de voir. Tu est libre sur tes choix.

Bonjour, j'ai vraiment des difficulté sur les LISP. Un grand merci a celui qui pourra m'aider. je dois faire une Représentation de la base vie Données renseignées :  Nombre d’ouvriers présents sur le chantier  Position et orientation des bungalows Résultats souhaités :  Dessin des bungalows (Nombre et dimensions suivant le nombre d’ouvriers)  Insertion d’un texte précisant l’utilisation du bungalow