cloclo26000

salut Bruno bin c'est un exercice de style et une autre approche du dessin

c'est bien une equation

bonjour j'ai fait un petit lisp sur un system d'quation à 2inconnues pour savoir si j'avais compri le langage pouvez vous me donner vos inpretions @ + cloclo26200 (defun c:eqxy ( / a b c d e f x y y1 y2 y3 y4 pt1 pt2 pt3 pt4 ) ;; Cette fonction resoud une equation du premier degre a 2 inconnus x et y ;; de la forme ax + by = c ;; dx + ey = f ;; ;;;;;;;;;;;;;;;saisie des valeurs des valeurs a b c d e f g (command "_erase" "_all" "") (initget 1) (setq a (getreal "\n a: ")) (initget 1) (setq b (getreal "\n b: ")) (initget 1) (setq c (getreal "\n c: ")) (initget 1) (setq d (getreal "\n d: ")) (initget 1) (setq e (getreal "\n e: ")) (initget 1) (setq f (getreal "\n f: ")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;calcul de x et y (prompt"x et y =======> ") (setq x (/ (- (* b f) (* e c)) (- (* b d) (* e a)))) (setq y (/ (- f (* d x)) e)) (prompt (strcat "\n X = " (rtos x 2 4))) (prompt (strcat "\n y = " (rtos y 2 4))) ;;;;;;;;;;;;;;;;;;;;;;calcule des trois points pt1 pt2 pt3 avec x y (setq y1 (/ (+ (* a 1 -1) c) b)) (setq y2 (/ (+ (* a 2 -1) c) b)) (setq y3 (/ (+ (* d 1 -1) f) e)) (setq y4 (/ (+ (* d 2 -1) f) e)) (setq pt1 (list 1 y1)) (setq pt2 (list 2 y2)) (setq pt3 (list 1 y3)) (setq pt4 (list 2 y4)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;tracé des deux droites (setq pt0 (list x y)) (command "layer" "make" "droite" "color" "red" "droite" "") (command "color" "yellow") (command "_.xline" (list 0 0) (list 0 2) (list 2 0) "") (command "color" "blue") (command "_.xline" pt1 pt2 "") (command "color" "green") (command "_.xline" pt3 pt4 "") (command "color" "magenta") (command "text" pt0 "0.15" "0" (strcat "X = " (rtos x 5))) (command "text" "" (strcat "Y = " (rtos y 5))) (command "color" "cyan") (command "point" pt0) (setq ae (/ 180 pi)) (setq a1 (angle pt0 pt2)) (setq a2 (angle pt0 pt4)) (command "text" pt1 ".15" (* a1 ae) (strcat "a"(rtos x 5)"+b"(rtos y 5)"="(rtos c 5))) (command "text" pt3 ".15" (* a2 ae) (strcat "d"(rtos x 5)"+e"(rtos y 5)"="(rtos f 5))) (command "zoom" "e" "") (prompt"equation du premier degre a 2 inconnus x et y") (command "color" "bylayer") (command "color" "bylayer") (prompt "\nExecution du programme, taper : eqxy suivi de Return\n") (prin1) )

TRE TRE BIEN SUPER BIEN BONNE CONTINUATION PATRICK_35

FELISITATION GILE BONNE CONTINUATION TRES TRES BIEN :)

tres bien l'ance de panier sa roule

tres bien l'ance de pannier sa roule

je l ai retrouvé le lisp dyn-offset.lsp bien pratique a+ (defun draw_pt (pt / pt1 pt2 pt3 pt4) (setq rap (/ (getvar "viewsize") 50) pt1 (list (+ (car pt) rap) (+ (cadr pt) rap)) pt2 (list (+ (car pt) rap) (- (cadr pt) rap)) pt3 (list (- (car pt) rap) (- (cadr pt) rap)) pt4 (list (- (car pt) rap) (+ (cadr pt) rap)) ) (grdraw pt pt1 -1) (grdraw pt pt2 -1) (grdraw pt pt3 -1) (grdraw pt pt4 -1) ) (defun c:dyn_offset ( / sel_ent pt_sel e_sel dxf_ent e_mark e_borne loop sav_osm dis_off key pt) (while (null (setq sel_ent (entsel "\nChoix de l'objet à décaler: ")))) (setq pt_sel (osnap (cadr sel_ent) "_near") e_sel (car sel_ent) dxf_ent (entget e_sel) e_mark e_sel e_borne (entlast) loop T sav_osm (getvar "osmode") ) (cond ((and (member (cdr (assoc 0 dxf_ent)) '("LWPOLYLINE" "POLYLINE" "LINE" "XLINE" "RAY" "ARC" "CIRCLE" "ELLIPSE" "SPLINE")) (if (cdr (assoc 70 dxf_ent)) (< (rem (cdr (assoc 70 dxf_ent)) 128) 8) T ) ) (if (< (getvar "offsetdist") 0.0) (initget 7) (initget 6)) (setq dis_off (getdist (strcat "\nDistance de décalage<" (rtos (getvar "offsetdist")) ">: "))) (if (not dis_off) (setq dis_off (getvar "offsetdist")) (setvar "offsetdist" dis_off)) (setvar "cmdecho" 0) (setvar "osmode" 0) (while (and (setq key (grread T 4 0)) (/= (car key) 3) loop) (cond ((eq (car key) 5) (setq pt (cadr key)) (draw_pt pt_sel) (cond ((>= (distance pt_sel pt) dis_off) (command "_.offset" "" e_sel pt "") (if (not (eq (entlast) e_sel)) (setq e_sel (entlast) dis_off (+ dis_off (getvar "offsetdist")) ) ) ) ((and (< (distance pt_sel pt) (- dis_off (getvar "offsetdist"))) (> (distance pt_sel pt) 0.0) (not (eq e_mark e_sel)) ) (entdel e_sel) (if (eq e_borne (entlast)) (setq e_sel (car sel_ent)) (setq e_sel (entlast)) ) (setq dis_off (- dis_off (getvar "offsetdist"))) ) ) ) ((or (member key '((2 13) (2 32))) (eq (car key) 25)) (setq loop nil)) ) ) (redraw) (setvar "osmode" sav_osm) (setvar "cmdecho" 1) ) (T (princ "\nL'objet ne peut pas être décalé.")) ) (prin1) )

Bonjour, j'ai perdu un fichier offset-dyn.lsp qui etait bien pratique merci d'avence mon adresse est clotaire.boistel@libertysurf.fr