vinslille

Super, ça fonctionne très bien, et j'ai légèrement adapté et modifié pour répondre à mon besoin. J'ai "presque" entièrement compris le fonctionnement, maintenant je vais essayé d'aller plus loin, je reviendrai vers vous je pense, car j'ai beaucoup d'idée, mais pas sur que je soit en mesure de tout réussir moi-même! En tout cas merci à vous trois pour vos réponses/conseil/solution

sinon la fin, après l'étape de la polyligne à main levée, fonctionne (quand on l'utilise à part) : (command "PEDIT" "m" (entlast) "" "C" "SO") (command "_hatch" "p" "ETOILE-02" "0.2" "0" (entlast) "")

Bonjour, désolé pour la réponse tardive, j'ai essayé de suivre le conseil de @Luna, j'y suis allé pas à pas. (Command "skpoly" "1") (command "mainlev" "0.001") Jusque là ça fonctionne, mais pas besoins d'une lisp si ça devait s'arrêter là. La ou je bloque, c'est qu'une fois ma polyligne tracée, je voudrai la clore avec PEDIT, j'ai essayé de coder comme ça : (Command "skpoly" "1") (command "mainlev" "0.001" (command "PEDIT" "m" (entlast) "" "C" "")) en gros, je souhaite sélectionner mon dernier tracé, et clore la polyligne créé avant de passer à la prochaine étape (les hachures). Là, quand je valide mon tracé par la touche entrée ou espace, ça interrompt la commande. Avez vous une solution (j'ai cherché mais pas trouvé) ?

Bonjour, Je débute totalement avec les lisp... je cherche à créer une routine me permettant de tracer des polylignes avec la fonction "mainlev", que ces polylignes se closent et qu'une qu'une hachure (échelle annotative) remplisse l'intérieur. A l'aide d'outils séparé, ça fonctionne, mais en utilisant trois outils distinct. Je souhaiterai que cela se fasse en une seule opération. j'ai fait quelque essais (un est en dessous, soyez indulgents, c'est ma première aventure ! ), mais ça ne fonctionne pas (je n'ai malheureusement assez de temps à y consacrer) Pouvez-vous m'aider ? D'avance merci ! (defun c:essais (/ *error* oldcmd ply) (vl-load-com) (defun *error* (msg) (if oldcmd (setvar "CMDECHO" oldcmd)) (if (not (member msg '("Function cancelled" "quit / exit abort"))) (princ (strcat "\n<< Error: " msg " >>")) (princ "\n<< Cancelled >>")) (princ)) (setq oldcmd (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setvar "HPNAME" "ETOILE-02") (setvar "SKETCHINC" 0.001) (setvar "SKPOLY" 1) (command "mainlev" "") (prompt "tracer EC") (while (eq 1 (logand 1 (getvar "CMDACTIVE"))) (command pause)) (vla-put-Closed (command "PEDIT" "M") (setq ply(entlast)) "C" (setq ply(entlast)) (command "_hatch" "_S" ply "" "") (princ))