check the deduction point

[Angelo2449]

Hello everyone,
with this code I ask to click the internal point of a closed area to proceed with the desired dash.
How can I verify that the clicked point is actually within a closed area?
Thank you.

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

        (if puntoins
            (progn
            (setq ctrllayer (tblsearch "layer" colorei))
                (if (= ctrllayer nil)
                            (command "_layer" "_new" colorei "_color" colores colorei "")   
                    );;if
 
            (cond

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

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

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

            );;cond         

            (command "_change" "_last" "" "_p" "_layer" colorei "")
          
            );;progn
        );;if

 

[Gio_S]

I don't understand, with intellicad the command only works if the area is closed, and in the help tells me the same happens for autocad, maybe you want to prevent the change or the creation of the layer?

 

[Angelo2449]

I would like to prevent layer creation but above all I would like to create a loop that works until pointins is placed inside a closed area.

 

[Gio_S]

a loop that acts looking on the entire design extension?
in that case you first create the layer, and if the loop does not find where to intervene, return to the active layer before the operation and delete the created one.