LISP : Clore automatiquement une ligne et hachurer la zone.
Bonsoir à tous,
Je rencontre un petit soucis avec le programme suivant :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| (defun c:Aire_de_stockage (/ p0 p1 p2)
;; si l'utilisateur spécifie le premier point
(if (setq p0 (getpoint "\nPremier point: "))
(progn
;; on stocke le premier point
(setq p1 p0)
;; tant que l'utilisateur spéciife le point suivant
(while (setq p2 (getpoint p1 "\nPoint suivant: "))
;; on dessine la ligne
(command "_.line" p1 p2 "")
;; on affecte p2 à p1
(setq p1 p2)
)
;; on ferme la polyligne
(command "_.line" p1 p0 "")
)
)
(princ)
) |
Je souhaiterai dans un premier temps clore automatiquement la ligne afin de définir ma zone Aire de Stockage.
Dans un second temps je voudrais hachurer automatiquement à la suite du programme la zone qui vient d'être fermée...
Si quelqu'un peut m'apporter son aide...
En vous remerciant par avance.