binocles

merci, mais j'avais deja trouvé ce programme. Malheureusement, il ne dessine que la vue de cote et pas les vues suivant la longueur. Je continue de toute facon avec autolisp en essayant de compliquer un peu plus a chaque fois. Je veux pouvoir dessiner des profils avec des angles et pourquoi pas des percages.

merci a tous pour votre aide, je suis arrivé à bout de ma corniere (aux autres profils maintenant...). Il faut encore que je bosse le lisp pour les angles mais je cherche par moi meme avant de demander de l'aide. Je me demande aussi si on peut faire passer la ligne de la vue de face en trait interrompu? Je place le code ci-dessous pour une petite critique eventuelle... [surligneur] (defun c:corniere (/ accrobj aile1 aile2 ep long rec1 rec2 rec3 rec4 l1 l2) (setq accrobj (getvar "osmode")) (setvar "osmode" 0) (setq aile1 (getint "longueur de la premiere aile:")) (setq aile2 (getint "longueur de la deuxieme aile:")) (setq ep (getint "epaisseur:")) (setq long (getint "longueur de la corniere:")) (command "_pline" '(0 0) (list aile1 0) (list aile1 ep) (list ep ep) (list ep aile2) (list 0 aile2) '(0 0) "" ; Équivalent de "Entrée" pour clore la commande ) (setq rec1 (+ aile1 100)) (setq rec2 (+ aile1 100 long)) (command "_rectang" (list rec1 0) (list rec2 aile2) ) (command "_line" (list rec1 ep) (list rec2 ep) "" ) (setq rec3 (- 0 100)) (setq rec4 (- rec3 aile1)) (command "_rectang" (list rec1 rec3) (list rec2 rec4) "" ) (setq l1 (+ rec4 ep)) (command "_line" (list rec1 l1) (list rec2 l1) "" ) (setvar "osmode" accrobj) ) [/surligneur] et merci encore.

merci, je pense comprendre ton code en fait j'ai pas pris de securite et j'ai ecrit comme si je parlais ce qui ne convient pas vraiment 2 questions encore: la fonction polar, peut on dire que c'est une redefinition de l'origine, un peu comme un changement d'origine sur une machine cn??? que veut dire le therme (/ pi 2)? merci de ton aide,je comprends mieu la logique lisp (enfin un peu...)

bonjours a tous, je suis vraiment ce qui s'appelle un debutant en autolisp, mon but est de faire une serie de commande pour accelerer le dessin dans un bureau des methodes. j'ai fait un tout petit "programme" qui est censé dessiner une corniere vue de profil par entree de ces dimensions (je vous le livre ci-dessous) Malheureusement il ne marche pas. Je souhaite aussi dessiner 2 autres vues (face et dessus), d'où la demande de la longueur. Est-il possible de definir un point ou des commandes par des variables (ex: (setq pt1 '(0 long)) ou bien (command "_rectang" "0,0" "long,larg") ) sachant que larg et long serait demandees avant a l'utilisateur. mon code: [surligneur] (defun c:corniere() (setq aile1 (getint "longueur de la premiere aile:")) (setq aile2 (getint "longueur de la deuxieme aile:")) (setq ep (getint "epaisseur:")) (setq long (getint "longueur de la corniere:")) (setq pt1 '(aile1 0)) (setq pt2 '(aile1 ep)) (setq pt3 '(ep ep)) (setq pt4 '(ep aile2)) (setq pt5 '(0 aile2)) (setq pt6 '(0 0)) (command "_pline" pt6 pt1 pt2 pt3 pt4 pt5 pt6) )[/surligneur] merci pour votre aide eventuelle. [surligneur] [/surligneur] [Edité le 23/10/2005 par binocles]