chrchat

et puis quand je vois le prog de bonuscad, je me dit qu'il y a du chemin. j'ai pas penser a utiliser les polylignes ca m'aurais evité le calcul des plusieurs points :)

tu as entierement raison patick_35 j'étais partis avec le <= et je l'ai oublié en route merci pour les compliments, mais je suis loin de vous arriver aux chevilles :P

EXERCICE 5 : Créer une fleche toujours proportionnelle et toujours de gauche a droite (defun c:fleche2 () (defun dtr (a) (* pi (/ a 180.0)) ) (setvar "osmode" 0) (setvar "orthomode" 0) (setq p1 (getpoint "\nPoint de départ :")) (setq p2 (getpoint p1 "\npoint d'arrivé :")) (setq dist (distance p1 p2)) (setq angl (angle p1 p2)) (defun f1 () (setq p3 (polar p1 angl (* dist 0.7))) (setq p4 (polar p3 (+ angl (dtr 90)) (* dist 0.05))) (setq p5 (polar p3 (- angl (dtr 90)) (* dist 0.05))) (command "_line" p1 p3 "") (command "_solid" p2 p4 p5 "" "") ) (defun f2 () (setq p3 (polar p1 angl (* dist 0.3))) (setq p4 (polar p3 (+ angl (dtr 90)) (* dist 0.05))) (setq p5 (polar p3 (- angl (dtr 90)) (* dist 0.05))) (command "_line" p2 p3 "") (command "_solid" p1 p4 p5 "" "") ) (cond ((and (> angl 0) (< angl (/ pi 2))) (f1)) ((and (> angl (/ pi 2)) (< angl pi)) (f2)) ((and (> angl pi) (< angl (* 1.5 pi))) (f2)) ((and (> angl (* 1.5 pi)) (< angl (* 2 pi))) (f1)) (t nil) ) (princ) )

Passons aux exercices 4 et 5 : EXERCICE 4 : Créer une fleche toujours proportionnelle (defun c:fleche () (defun dtr (a) (* pi (/ a 180.0))) (setvar "osmode" 0) (setq p1 (getpoint "\nPoint de départ :")) (setq p2 (getpoint p1 "\npoint d'arrivé :")) (setq dist (distance p1 p2)) (setq angl (angle p1 p2)) (setq p3 (polar p1 angl (* dist 0.7))) (setq p4 (polar p3 (+ angl (dtr 90)) (* dist 0.05))) (setq p5 (polar p3 (- angl (dtr 90)) (* dist 0.05))) (command "_line" p1 p3 "") (command "_solid" p2 p4 p5 "" "") (princ) )

Merci, ca marche et c'est top cool

Au secours Je ne peut plus utiliser sur certain plans les table de tracé CTB il n'y a plus que les STB, pourtant il sont toujours existants dans le repertoire, que faire Merci

c'est pour definir le point 3 si je ne le mets pas a 45 je defini un point 3 avec un angle aleatoire je vais faire un rectangle non ? avec ta foinction tu fait un carre mais ton point3 n'est pas celui utiliser pour le tracé, il ce decale, moi c'est le même :P

simplement parce que je ne connaissais ni 'getcorner', ni 'car'' list' 'rtos' et autre 'strcat', j'ai fait avec le cour et ce que je connais

alors vous êtes cons tous les trois hahahahahahah :P mais tellement geniaux en meme temps, alors ne changez pas

C'est parti, je donne mes response aux exercices 2 et 3 EXERCICE 2 : Créer un carré en polyligne avec coin bas gauche et longueur côté (defun c:carre() ;definition de la commande (defun dtr (a) (* pi (/ a 180.0))) ;commande de conversion degrés en radians (setq p1 (getpoint "\nEntrer point de départ :")) ;comme son nom l'indique (setq long (getreal "\nEntrer la longueur des côté du carré :")) ;idem (setq P2 (polar p1 (dtr 0) long)) ;definition point 2 (setq p3 (polar p2 (dtr 90) long)) ;definition point 3 (setq p4 (polar p3 (dtr 180) long)) ;definition point 4 (command "polylign" p1 p2 p3 p4 "c") ;création du carré (princ) ) EXERCICE 3 : Créer un carré en polyligne avec coin bas gauche et coin haut droit (defun c:carre2() ;definition de la commande (defun dtr (a) (* pi (/ a 180.0))) ;commande de conversion degrés en radians[/i] (setq p1 (getpoint "\nEntrer coin bas gauche du carré :")) ;comme son nom l'indique (setvar "snapang" (dtr 45)) ;mets le reticule a 45° (setvar "orthomode" 1) ;active le mode ortho (setq p3 (getpoint p1 "\nEntrer coin haut droit du carré :")) ;comme son nom l'indique (setvar "orthomode" 0) ;reactive le mode ortho (setvar "snapang" 0) ;remets le reticule a 0° (setq r (distance p1 p3)) ;defini la longueur de la diagonale du carré (setq angl (dtr 45)) (setq x (*(cos angl) r)) ;calcul du coté x du carré (setq y (*(sin angl) r)) ;calcul du coté y du carré (ca ne sert a rien c'est un carré ;) (setq p2 (polar p1 (dtr 0) x)) ;definition point 2 (setq p4 (polar p3 (dtr 180) x)) ;definition point 4 (command "_pline" p1 p2 p3 p4 "c") ;création du carré (princ) ) Voila il y a peut etre mieux et plus rapide, a vous de me dire en tout cas ca marche :P j'attends Lundi pour les exercices 4 et 5

tu en es ou ssd91 ?

heureusement que tu as fait ce post un 1er avril car je pense qu'il y aurait pu avoir des morts dans les rangs des detracteur de CADxp. ;) PS : surtout ne pas renouveler ce genre de message sous peine de perdre l'ensemble de tes serviteurs suite a de nombreuses crises cardiaques. :P Vive Patrick - Vive CADxp :o Patrick président, Patrick président, Patrick président, Patrick président !!!!!!

je suis tout simplement sur le cul, si c'est une blague, vivement demain qu'elle s'arrete, sinon il faut se battre. Aux armes CADxpiens ! Courage

oui je suis allez sur le sujet en question. pour cond je pense avoir compris tu fixes pour chaque condition une action : exemple du bouquin AutoCAD R13: (cond ;lancement de la fonction conditionnelle ((= s "O") 1) ;condition 1 si s=O renvoi 1 ((= s "o") 1) ;condition 2 si s=o renvoi 1 ((= s "N") 0) ;condition 3 si s=N renvoi 0 ((= s "n") 0) ;condition 4 si s=n renvoi 0 (t nil) ;derniere condition si aucune des précédentes ne sont effectuées0 )

T'inquiete pas comme ca rimbo, personne ne te mets la pression surtout pas mopi ;), prends tout ton temps et puis j'avais un peux de temps pour moi ces jours si mais j'ai eu quand meme du mal surtout avec cond encore merci de t'investir

C'est bon, j'ais fini mes exercices et en plus ca marche c'est trop cool j'attends un peu avant de donner mes solutions Bon courage a tous

ok merci

Pour l'exercice n°5 - qu'entends tu par "tracer une fleche qui se dessine toujours du meme coté" c'est par rapport a un axe vertical, horizontal ?

Merci BonusCad tu es un chef, et moi un gros nul, j'avais pas pensé au variable systeme Houuuuuuu!!!!!

existe t-il une solution pour forcer l'angle avec getpoint Ex: (setq p3 (getpoint p1 'FORCER L'ANGLE' "\nsélectionner un point :"))

de rien on est la pour s'entraider Bon courage pour les exos ;)

en reponse a ssd91 vioci le lien pour dwf viewer http://www.autodesk.fr/adsk/servlet/index?siteID=458335&id=3594665 bon courage

Tiens voici le lien http://www.cadxp.com/UpDownload+index-req-viewsdownload-sid-7.html

Mettez tous vos neurones en action le cours n°2 est dispo. Vive Rimbo

Super, tu es génial Rimbo Je cours au menu telechargement........ ;)