Bonsoir à tous,
Je rencontre un petit soucis avec le programme suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.