loloz78

Merci de vos réponses, je vais les tester et je vous tiens au courant.

Ok, pas de souci en passant par le code 10 et 11 de la ligne, seulement je cherche que en 1 clic il m'enregistre la ligne ainsi que de l'extrémité la plus près du clic (donc soit 10 ou soit 11), je ne sais pas à l'avance si c'est le 10 ou le 11 qu'il me faut. J'espère que je me fait comprendre.

Bonjour, Voici mon problème (je débute en lisp), j'ai une ligne et un point sur cette ligne, Je veux selectionner la ligne sur un côté et qu'elle m'enregistre l'extrémité de ce côté (et non l'autre). Ensuite, qu'elle me donne la distance de l'extrémité au point. Dans mon lisp je bloque sur cette partie. En vous remerciant par avance. PS: quelqu'un connais un tuto sur le Visual lisp car il y a plus de fonction que le lisp mais je ne comprend pas encore les plus qu'ils apportent.

Franchement genial, c'est pile ce qui me fallait merci (gile). Merci aussi BonusCad, car ton lisp m'a permis de faire une autre fonction que j'étaits entrain de faire mais largement plus simple avec du texte (voir ci-dessous) essayer le si il marche, prob entre AutoCad 2004 et 2007 c'est la création de texte (maintenat je sais comment faire avec entmake merci à vous). Vous allez voir c'est du débutant <acronym class=dict title= :). Mais je trouve ça pas mal juste en lisp et pas de vlisp (j'aprend vlisp j'aprend). Seulement je n'arrive pas, avec ton lisp, à tourner le texte pour qu'il soit aligner en scu temporaire et non en général(fonction vlisp??). Merci. (defun C:aze (/) (setq oldtypect1 (getvar "cecolor") oldtypect2 (getvar "textstyle") oldtypect3 (getvar "clayer") oldtypect4 (getvar "celweight") oldtypesnap (getvar "snapmode")) (setvar "cecolor" "blanc") (setvar "textstyle" "standard") (setvar "clayer" "0") (setvar "celweight" 30) (setvar "snapmode" 0) (setq oldtypeosmode (getvar "osmode")) (setq sep1 (getpoint "\nSpécifiez le centre du SE: ")) (setq ray 20) (command "_.circle" "_none" sep1 ray) (command "_.text" "J" "MC" "_none" sep1 "_none" 20 "_none" 0 "AB") (princ) (repeat (1- 1000) (setvar "osmode" 8) (setq sep2 (getpoint "\nSelectionner les points SE")) (setq sedd (list (+ (car sep1) ray) (cadr sep1) (caddr sep1))) (setq seds (list (+ (- (distance sep1 sep2) ray) (car sedd)) (cadr sep1) (caddr sep1))) (command "_.line" "_none" sedd "_none" seds "") (setq seang (* 180 (/ (angle sep1 sep2) pi))) (command "_.rotate" "_none" "d" "" "_none" sep1 seang) (setvar "cecolor" oldtypect1) (setvar "textstyle" oldtypect2) (setvar "clayer" oldtypect3) (setvar "celweight" oldtypect4) (setvar "snapmode" oldtypesnap) (setvar "osmode" oldtypeosmode) )) [Edité le 10/12/2007 par loloz78]

Presque, en fait, le tien est plus complexe que ma demande (enfin je crois) (j'ai vraiment rien compri à ton lisp :) mais je vais essayé), en pratique il prend, à partir d'un point, et le prolonge que sur la polyligne (ça c'est super) en ortho (j'ai besoin qu'il le retourne sur la polyligne en perpendiculaire la plus proche) et apparament que en SCU général (si c'était possible dans n'importe quel SCU?). Je n'arrive pas à déchiffré ton lisp sinon j'aurais essayer de l'appliquer à mon problème seulement je n'ai pas encore compris les commandes "vl-...", j'ai besoin d'un peu plus d'aide STP. Merci.

Bonjour, Je débute en Lisp est ce forum est vraiment très constructif pour moi. Voilà mon problème, je n'ai pas réussi à voir sur le forum un lisp qui y ressemble. J'ai une polyligne ( je sais si le dessin en dessous sera bien visible) et je dois avoir la coordonnée de ce point qui perpendiculairement le plus proche de la polyligne existante (pas une droite prolongée). ..........................___ ......................../......| ___________/........| ................................| .......................o.......| ________________| ........................[surligneur] Ici[/surligneur] la perpendiculaire sera sur cette droite horizontale dans cette exemple Une autre qui est d'enregistrer la coordonnée de l'intersection intérieur des 2 points avec la polyligne. ..........................___ ......................../......| ___________/........| ................................| .......................o.......| ________________| ........................o....... PS : quelqu'un pourrait m'expliquer la fonction "mapcar" et "lambda" avec un exemple concret car j'ai rien compris même en déchiffrant des lisp. Merci.