Discussion :

[PDVT2190]

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.

[Carboleum]

Essaies un truc comme ca (je peux pas tester, j'ai pas autocad sous la main):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
(command "_.pline")
(while (setq p (getpoint)) (command p))
(command "c") ; c pour close
; peut-être un (command "") pour sortir de la commande
(command "_.hatch" "o" (entlast) "") ; o pour object sinon e pour entity, 'me souviens plus