Easy way to find a point on XLINE and LINE

[Anonymous]

Hi,

I have two questions for experts

1) Is there an easy way in LISP to calculate a mid point of a line and get an X, Y, Z coordinates for this point? I know I can pull end points from the entity data

(setq current_line (entsel "\n Select line")

(setq point1 (cdr (assoc 10 (entget (car current_line)))))

(setq point2 (cdr (assoc 11 (entget (car current_line)))))

2) I also would like to find X,Y,Z coordinates of a point on an xline located, say, 20 units away from xline origination point.

 Your input is highly appreciated

[Anonymous]

Great explanation. Thanks