condition the restraint

[Angelo2449]

Hello everyone,
with this code, I get the restraint of closed areas.

 (defun fills (/ ctrllayer dots controlx riemp)

(setq controlx nil)

(sing)

(setq pointins (getpoint "\nclick the inner point of a closed area (right to end)"))

(if (= controlx nil)
(progn)
(setq ctrllayer)

(if (= ctrllayer nil)
(command "_layer" "_new" color "_color" color "")
);

(cond)

((and (= cods "s") (= codt "s")); solid string
(command "_bhatch" "_pr" "_s" pointins")
(setq riemp 1)
);

((and (= cods "n") (= codt "s")); deduction number
(command "_bhatch" "_pr" "_s" pointins")
(setq riemp 1)
);

((and (= cods "s") (= codt "t")); string deduction
(command "_bhatch" "_pr" "ansi31" (atof disttx) angleu puntoins ")
(setq riemp 1)
);

);

(sing)
(progn)
(command "_change" "_last" "_p" "_layer" color "")
(setq riemp nil)
);
);

(setq controlx nil)
);
);

);

(setq colour nil)
(setq colores nil)
(setq cods nil)
(princ "\ncommand finished")
(princ "\n")

);

I would like to condition the execution of the command "_change" at the result of the variable > riemp < but, its valorization takes place regardless of the outcome of "_bhatch" and the command "_change", it still works.
How can I do that?
run the command "_bhatch" directly on the layer > color i <, how?
Thank you.

 

[Angelo2449]

I solved it like this:

(defun riempis (/ ctrllayer puntins controllox oldlayer)

    (setq controllox nil)
    
    (while

        (setq puntoins (getpoint "\nclicca il punto interno di un'area chiusa (tasto destro per terminare)"))

        (if (= controllox nil)
            (progn
                (setq ctrllayer (tblsearch "layer" colorei))

                (if (= ctrllayer nil)
                        (command "_layer" "_new" colorei "_color" colores colorei "")
                );;if

                (setq oldlayer (getvar 'clayer))
                (setvar 'clayer colorei)
 
                (cond

                    ((and (= cods "s") (= codt "s"))    ;; stringa solid
                        (command "_bhatch" "_pr" "_s" puntoins "")
                    );;if

                   ((and (= cods "n") (= codt "s"))    ;; numero tratteggio
                        (command "_bhatch" "_pr" "_s" puntoins "")
                   );;if

                  (and (= cods "s") (= codt "t"))    ;; stringa tratteggio
                       (command "_bhatch" "_pr" "ansi31" (atof disttx) angolou puntoins "")
                  );;if

               );;cond               

            (setvar 'clayer oldlayer)
            (setq controllox nil)       
            );;progn       
        );;if

    );;while

        (setq colorei nil)
        (setq colores nil)
        (setq cods nil)
    (princ "\ncomando terminato")
    (princ "\n")

    );;defun fine riempis