``` ;|函数名称:        XD::Vec:Normalize 调用格式:        (XD::Vec:Normalize v) 参数说明:        v ------ 向量 返回值:        向量 函数简介:        单位向量函数 来源:        原创 函数作者:        marting 适用版本:        不限  最后更新时间:        2017-06-06 备注:        向量-- 用点表示|; (defun XD::VEC:Normalize (v) ( (lambda (n) (if (equal0.0 n 1e-14) nil (XD::VEC:v\*s v (/1.0 n)) ) ) (XD::VEC:length v) ) ) ```