Distance with if/then

I am trying to write a routine that does different things depending on the
length of the line. I am having the user pick two points:

(setq pt1 (getpoint "\nPick first point..."))
(if pt1 (setq pt2 (getpoint "\nPick end point...")))

from here, I want the routine to act as follows:

if the distance between PT1 and PT2 is 5" or greater, do this
if the distance between PT1 and PT2 is less than 5", do something else

Can someone point me in the right direction ?

Thanks!

 

Something like this....

(initget 1) (setq p1 (getpoint "\npick first point"))
(initget 1) (setq p2 (getpoint p1 "\npick second point"))

(if (< (distance p1 p2) 5.0)
(progn

; do stuff that is less than 5"

)

(progn

; do stuff that is greater than 5"

)
)

 

I'll give it a try .....
What about = 5"?
also, what does (initget 1) do?

 

The first test is less than 5, after that it is either
equal to or greater than 5 by default.

For the initget function see....

Help -> Developer Help -> AutoLISP reference ->
I functions -> iniget

My comment should have read.

; do stuff that is greater than or equal to 5"

 

Thanks for the help .... works great now!

After I posted, I realized the stupidity of the equaled to 5" question ....
I'll look up the initget