AutoLISP
Developer's Guide > Using the AutoLISP
Language > Using AutoLISP to
Communicate with AutoCAD >

Geometric Utilities

Geometric Functions in AutoLISP Function Synopsis for a complete list of geometric utility functions.

A group of functions allows applications to obtain pure geometric information and geometric data from the drawing. See*angle*
function finds the angle in radians between a line and the
*X* axis (of the current UCS), *distance* finds
the distance between two points, and *polar* finds a point by means of
polar coordinates (relative to an initial point). The *inters* function
finds the intersection of two lines. The *osnap* and
*textbox* functions are described
separately.

The following code fragment shows calls to the geometric utility functions:

(setq pt1 '(3.0 6.0 0.0))

(setq pt2 '(5.0 2.0 0.0))

(setq base '(1.0 7.0 0.0))

(setq rads (angle pt1 pt2)) ; Angle in XY plane of current UCS

; (value is returned in radians)

(setq len (distance pt1 pt2)) ; Distance in 3D space

(setq endpt (polar base rads len))

*polar*
sets endpt to a point that is the same
distance from (1,7) as pt1 is from
pt2, and at the same angle from the
*X* axis as the angle between pt1 and pt2.