save the last entity before the user picks to a variable, after the pick
compare the potentially new entlast to the saved variable, if they don't
match, something new has been created.
Dan
--
;;; For reply, change numbers to decimal
"Dean Kurth" wrote in message
news:4050dafa_2@newsprd01...
> Is it possible to get the Entity created when running the -boundary
command
> with out using (entlast).
> My routine runs the boundary and asks user if boundary is correct if not,
> the boundary is erased.
> As it is now I am using (entlast) to get it, but if the user picks in an
> unclosed area Erase entlast is taking away something other than intended.
> Here is a snippet of what I'm doing...
>
> (while (setq qAreaPt (getpoint "\nPick a point:"))
> (command "-boundary" qAreaPt "")
> (setq qBndry (entlast))
> (command "hatch" "S" qBndry "")
> (setq qHatch (entlast))
> (setq qOK "Y")
> (prompt "\nYes, No, eXit")
> (setq uqOK (strcase (getstring (strcat "\nDoes hatch look correct?
<"
> qOK ">: ")))
> )
> (if (= uqOK "")
> (setq uqOK qOK)
> )
> (cond
> ((= uqOK "X")
> (command "Erase" qhatch "")
> (command "Erase" qbndry "")
> )
>
> Thanks in advance....
> Dean
>
>