didfix

Merci Bonuscad, ave cette réponse en 20 s . et ça marche mais bien entendu j'ai pas encore tout mis en oeuvre. je vais voir les iniget maintenant et je rajouterai les fonctions "> et < " ... en tout les la réponse est pertinante !

Bonjour à tous, je débute avec autolisp, et je cherche à extruder la "pline" dans le petit programme suivant: (defun C:COTEG (/ O P PR EP PF H ) (Setq O (getpoint "\nOrigine du cote : ")) (Setq P (getreal "\nProfondeur du cote : ")) (Setq PR (getreal "\nProfondeur de la rainure : ")) (Setq EP (getreal "\nEpaisseur du cote : ")) (Setq PF (getreal "\nDistance entre fond et dos : ")) (setq H (getreal "\nHauteur extrusion : ")) (Setq P1 (polar O (/ pi 2) P)) (Setq P2 (polar P1 (* pi 2) EP)) (Setq P3 (polar P2 (* pi 1.5) (- PF 8))) (Setq P4 (polar P3 pi PR)) (Setq P5 (polar P4 (* pi 1.5) 8)) (Setq P6 (polar P5 (* pi 2) Pr)) (setq P7 (polar P6 (* pi 1.5) (- P PF))) (setq P8 (polar P7 pi EP)) (command "_pline" O "_W" 0 0 P1 P2 P3 P4 P5 P6 P7 P8 "") ) je cherche donc à fermer la "pline " et l'extruder j'ai essayée avec "pedit " pui "extrude" mais en fait je crois que je n'arrive pas à selectionner la pline correctement .bref le dessin est correct mais l'extrude ne se fait pas . Pour mes débuts j'ai acheté le livre en français "programmer autocad " par jean-pierre Couwenberg. Je le crois bon pour comprendre autolisp ,mais dès qu'il sagit de faire un programme il manque les command et les fonctions avec le options et ce que cela implique .

Bonjour , je vais répéter ce que préscrit Gile , le tenon que tu soustrait au montant est très certainement pas là où tu voudrais qu'il soit., et le résultat fais que ta mortaise ensuite , et logiquement ,est au mauvais endroit.