Topic: Error trapping. Question

[Dilan]

Hello.
I get the coordinates of the point:

Code: [Select]

(setq pt (getpoint "\nPick point to extract surface elevation: "))Then I get the surface level in the coordinates of this point:

Code: [Select]

(setq lavelTin (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'FindElevationAtXY (car pt) (cadr pt)))
But if the coordinates of my point "pt" out of border surface - I get an error. And it is clear
How can I do so in this case my variable "lavelTin" was equal for example: "out_of_border"?

Thank you all for your attention.

[rayakmal]

Hello.
I get the coordinates of the point:

Code: [Select]

(setq pt (getpoint "\nPick point to extract surface elevation: "))Then I get the surface level in the coordinates of this point:

Code: [Select]

(setq lavelTin (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'FindElevationAtXY (car pt) (cadr pt)))
But if the coordinates of my point "pt" out of border surface - I get an error. And it is clear
How can I do so in this case my variable "lavelTin" was equal for example: "out_of_border"?

Thank you all for your attention.

Maybe you can use this:

Code: [Select]

(if (AND
      (setq pt (getpoint "\nPick point to extract surface elevation: "))
      (setq lavelTin (vlax-invoke (vlax-ename->vla-object (car (entsel))) 'FindElevationAtXY (car pt) (cadr pt)))
    )
   (princ "OK")
)


[Dilan]

Not. I get the same error

[Lee Mac]

I don't use the Verticals, but try this -

Code - Auto/Visual Lisp: [Select]

1. (if
2.     (and
3.         (setq pt (getpoint "\nPick point to extract surface elevation: "))
4.         (setq en (car (entsel)))
5.     )
6.     (if (vl-catch-all-error-p (setq lavelTin (vl-catch-all-apply 'vlax-invoke (list (vlax-ename->vla-object en) 'FindElevationAtXY (car pt) (cadr pt)))))
7.         (princ "\nError obtaining elevation.")
8.         (princ lavelTin)
9.     )
10. )

[Dilan]

I don't use the Verticals, but try this -

Code - Auto/Visual Lisp: [Select]

1. (if
2.     (and
3.         (setq pt (getpoint "\nPick point to extract surface elevation: "))
4.         (setq en (car (entsel)))
5.     )
6.     (if (vl-catch-all-error-p (setq lavelTin (vl-catch-all-apply 'vlax-invoke (list (vlax-ename->vla-object en) 'FindElevationAtXY (car pt) (cadr pt)))))
7.         (princ "\nError obtaining elevation.")
8.         (princ lavelTin)
9.     )
10. )

thanks. That's what I need.Everything works as it should.