Invalid selection at vla-Getentity

Hi all,

If I use the following line of code:

(setq check (vl-catch-all-apply 'vla-GetEntity (list utility 'Object 'PP "\nSelect object: ")))

then:

1. check will be nil if I select an object
2. vla-GetEntity will raise an error when I click on the screen without selecting an entity
3. vla-GetEntity will raise the SAME error when I just hit "Enter" at the prompt

Is there a way to make the difference between case 2 and 3?

Thanks for the help!

Stef

 

Hi Stef

Use:

Code:

(vla-InitializeUserInput utility 0 " ")
(setq check (vl-catch-all-apply
'vla-GetEntity (list utility 'Object 'PP "\nSelect object: ")
)
)

and you get two different errors...

Cheers

 

Hi Jürg,

sorry for the late answer, I was suddenly overwhelmed by urgent jobs.

But, vla-InitializeUserInput did the trick! Thanks for the tip.

Cheers

Stef

 

Welcome...¦-)

Cheers