(defun c:gl ()
(setq pt (getpoint "\nPick a point "))
(setq npt (mapcar '0.5* (list pt)))
)
(princ)
stumped...trying to multiply 0.5 by the X value of (list pt) (which then would be the X value in a new list) then the Y value of (list pt) (which then would be the Y value in a new list) and then the Z value of (list pt) (which then would be the Z value in a new list) I have never used mapcar before and didnt know if this (when written properly) would work.