Name: distance

Syntax:
(distance pt1 pt2)

Description:
Returns the distance between two points. Works just like the distance command in AutoCAD.

Example(s):
(setq pt1 '(0 0))
(setq pt2 (getpoint))
(distance pt1 pt2)