Bred

Salut, juste après ton (command ....) Tu fais un (setq ss (entlast))

.... vous voulez nous faire refaire COVADIS c'est ça ???... :exclam:

Salut, Parceque c'est maintenant malheuresement comme ça..... Va voir ici !

Salut, Dans les suite des bugs sur 2007 Testé ça sur des fenêtre de présentation nouvellement créés: (defun c:test ( / sel) (setq sel nil sel (ssget "I")) (while (null (setq sel (ssget '((0 . "VIEWPORT,*POLYLINE,SPLINE,ELLIPSE,CIRCLE,REGION")))))) (foreach n (vl-remove-if 'listp (mapcar 'cadr (ssnamex sel))) (if (equal (vla-get-ObjectName (vlax-ename->vla-object n)) "AcDbViewport") (progn ([b]vla-put-ShadePlot[/b] (vlax-ename->vla-object n) 7) (vla-put-color (vlax-ename->vla-object n) 5) ) ) ) ) ceci met la fnêtre en bleu (ça marche) et devrais mettre le tracé de l'ombrage en rendu... ben non, pas sur 2007... sur 2008 oui.... par contre, si sous 2007, vous relancez encore un fois ce test sur la même fenêtre, là, ça fonctionne !!! :casstet: :casstet: :casstet:

Salut, pas le temps d'approfondir pour l'instant mais : l1 est une ligne l2 est une entité (vlax-invoke l1 [b]'IntersectWith[/b] l2 acExtendBoth)

(layoutlist)

merci !!! :D

c'est génial !!! .... mais personnellement je délaisse le reste du forum... c'est trop prenant !!!!

pfffffff... t'es pas sympa, mais je savais pas que la casse était importante !!! donc voilà : (defun dec (nb / L I LST-HEXA TOTAL) (setq lst-hexa (list (cons "0" 0) (cons "1" 1) (cons "2" 2) (cons "3" 3) (cons "4" 4) (cons "5" 5) (cons "6" 6) (cons "7" 7) (cons "8" 8) (cons "9" 9) (cons "A" 10) (cons "B" 11) (cons "C" 12) (cons "D" 13) (cons "E" 14) (cons "F" 15))) (repeat (setq i (strlen nb)) (setq l (append (list (strcase (chr (vl-string-elt nb (setq i (1- i)))))) l)) ) (setq total 0 i (strlen nb)) (foreach n l (setq total (+ (* (cdr (assoc n lst-hexa)) (expt 16 (setq i (1- i)))) total)) ) )

Salut et bienvenue ! Désolé, mais je crois que tu ne peux rien y changer : si tu fais une préselection avant la commande (dites selection "nom-verbe"), mais que l'une des partie de ta selection n'est plus dans la fenêtre graphique, Autocad ne le prends pas au moment où tu lances la commande.... (et je comprends tout à fait ton message, ça me frustre également !!!)

Salut et Bienvenue ! Tu peux le faire par programmation. Mais il faudrait que tu sois un peu plus précis dans ta demande pour que l'on peuisse mieux te répondre !

Salut et bienvenue ! Tu peux aussi dans la barre d'outils fenêtre allez dans le menu déroulant des échelles.

... ou -inserer ou inserer ?

Ben voyons, pourquoi faire compliqué ??? :P (vl-remove-if-not '(lambda (x) (equal (fix (* x 0.5)) (* x 0.5))) lst) merci !

Salut... ben comme je ne savais pas ce que c'étais l'"hexadécimal", merci Wikipéda ! Alors pour commencer, une version "jetée" pour dec : (defun dec (nb) (setq lst-hexa (list (cons "0" 0) (cons "1" 1) (cons "2" 2) (cons "3" 3) (cons "4" 4) (cons "5" 5) (cons "6" 6) (cons "7" 7) (cons "8" 8) (cons "9" 9) (cons "A" 10) (cons "B" 11) (cons "C" 12) (cons "D" 13) (cons "E" 14) (cons "F" 15))) (repeat (setq i (strlen nb)) (setq l (append (list (chr (vl-string-elt nb (setq i (1- i))))) l)) ) (setq total 0 i (strlen nb)) (foreach n l (setq total (+ (* (cdr (assoc n lst-hexa)) (expt 16 (setq i (1- i)))) total)) ) ) J'ai l'impression que ça fonctionne ... Pour "hex", je vais me coucher et je verrais un de ces soir ... Bonne nuit.

Salut, tiens, je l'avais pas vu ce challenge... J'utilise exactement ce que décris zebulon_ au détail près que je n'utilise pas le sinus, mais je test la valeur de l'angle (ce qui n'est pas plus simple ...) (if (and (> (- (angle p1 pt)(angle p1 p2)) 0) (< (- (angle p1 pt)(angle p1 p2)) pi)) (alert "gauche") (alert "droite") )

Salut, On est lundi soir, il est assez tard, et demain je n'aurais pas le temps de proposer ma solution, donc je commence : (defun GetPair (lst / l) (foreach n lst (if (equal (fix (* n 0.5)) (* n 0.5)) (setq l (append l (list n))) ) ) ) ... à vous maintenant !....

ça me touche vraiment, merci ! La fonction "inters" est tout de même encore quelque chose que tu m'as appris ! (dans la multitude que tu m'as appris, c'est une nouvelle chose !)

Vu et fait (gile) : (defun parallel-p (p1 p2 p3 p4) (and (not (inters p1 p2 p3 p4 nil)) (or (inters p1 p4 p3 p2 nil) (inters p1 p3 p2 p4 nil)) ) )

Salut, ça je le sais bien, mais est-ce que ma logique est fausse si je prétend que si 2 droites sont coplanaire, il y a intersection entre la diagonale de leur points opposés ? (en fait je me rends compte que mon test était faux) je voulais écrire : (defun parallel-p (p1 p2 p3 p4) (if (and (not (inters p1 p2 p3 p4 nil)) (inters p1 p4 p3 p2 nil)) T nil) )

moi, je donne la mienne (parceque je n'aurais pas l'impression d'avoir bosser pour rien)... mais elle est trés brouillon (et je vais me coucher !!!) (defun inc (e / L LST LST-C LST-C2 LST-F X) (setq lst nil add 0) (repeat (setq x (strlen e)) (setq lst (cons (vl-string-elt e (setq x (1- x))) lst) add (+ (vl-string-elt e x) add) ) ) (if (not (= (/ add (length lst)) 122)) (progn (setq x (length lst) lst-C nil ) (while x (if (= (1+ (nth (setq x (1- x)) lst)) 123) (setq lst-C (cons 97 lst-C)) (setq lst-C (cons (1+ (nth x lst)) lst-C) x nil ) ) ) (setq x 0 lst-C2 nil ) (repeat (- (length lst) (length lst-C)) (setq lst-C2 (cons (nth x lst) lst-C2) x (1+ x) ) ) (setq lst-F (append (reverse lst-C2) lst-C)) ) (progn (repeat (1+ (length lst)) (setq lst-F (cons 97 lst-F)) ) ) ) (setq l "") (foreach n lst-F (setq l (strcat l (chr n)))) l )

C'est bizarre... ça devrait alors fonctionner ça, non ? (defun parallel-p (p1 p2 p3 p4) (if (and (inters p1 p2 p3 p4 nil) (inters p1 p4 p2 p3 nil)) T nil ) ) ... ben non ... :casstet: [Edité le 19/5/2007 par Bred]

Hey !!! mais ne viens tu pas de donner la réponse avec inters ???

inters ??? Connaissais pas. merci !

:cool: Allez... moi, je triche : je le fais graphiquement ! (on est samedi soir, que diable !!!) (defun parallel-p (p1 p2 p3 p4 / ACDOC L1 L2 PT) (if (= (getvar "CVPORT") 1) (setq AcDoc (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-acad-object)))) (setq AcDoc (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))) ) (setq l1 (vla-AddLine AcDoc (vlax-3d-point p1) (vlax-3d-point p2)) l2 (vla-AddLine AcDoc (vlax-3d-point p3) (vlax-3d-point p4))) (setq pt (vlax-invoke l1 'IntersectWith l2 acExtendBoth)) (vla-delete l1) (vla-delete l2) (if pt nil t ) )