Hatch fonction in lisp

Hi,

I'm doing a program with some hatch, but a weard problem always happen. The problem is when I need to choose Pick or Select in the selection options.

If I choose Pick to make my selection, all the lisp expression following that hatch command is not read by the program ?

If I choose Select, everything is ok.

Is there something special I need to do when I choose the Pick option ?

Thanks

 

MarcelGoulet a exprimé avec précision :

Hi.
Look my code.
I have the choice.
By default I Click.
If [Enter] is pressed, i select my object.

---------
(DEFUN c:hwall (/ -pp-)

(SETVAR "cmdecho" 0) ;desactive l'affichage des opérations
(SETQ anc_osmode (GETVAR "osmode"))
(SETQ anc_layer (GETVAR "clayer"))
(SETVAR "osmode" 0)
(COMMAND "_.layer" "_make" "trame" "_C" "254" "" "")
(COMMAND "_color" "12")
(SETVAR "hpname" "ansi31")
(SETVAR "hpang" (/ PI 2))
(SETVAR "hpscale" 20)

(SETQ
-pp-
(GETPOINT
"\nCliquez l'endroit à hachurer: [Enter] Pour sélection
manuelle." ;;; Here I Clik
) ;_ Fin de GETPOINT
) ;_ Fin de SETQ
(IF (= -pp- nil) ;;;; [ENTER] is pressed
(PROGN
(PRINC "\nSelection des Objects à hachurer.")
(COMMAND "_select" pause)
(COMMAND "-bhatch" "_s" "_P" "" "")
) ;_ Fin de progn
) ;_ Fin de if
(WHILE (/= -pp- nil)
(PROGN
(COMMAND "-bhatch" -pp- "")
(SETQ
-pp-
(GETPOINT
"\nCliquez l'endroit à hachurer: "
) ;_ Fin de GETPOINT
) ;_ Fin de SETQ
) ;_ Fin de progn
;; fin du progn
) ;_ Fin de while
;; fin du while
;;; (COMMAND "_.layer" "_set" "0" "")
(SETVAR "clayer" anc_layer)
(COMMAND "_color" "_bylayer")
(SETVAR "osmode" anc_osmode)
(SETVAR "cmdecho" 1)
(PRINC)
) ;_ Fin de defun

(DEFUN c:hw ()
(c:hwall)
) ;_ Fin de defun

(PRINC "\nProgram Hatch Wall loaded. Star with HWall or HW. \n")
(PRINC)

 

The following expression that are after the hatch command are read, but they are read before the command hatch end.

So if the drawing is on layer zero and :
1. I create the layer HATCH
2. I make it current.
3. I create the hatch
4. I put back the original layer current.

The layer is created but the hatch will be on layer zero because the program read de line 4 before ending the hatch