;;;(setq zxbl (getreal"\n  请输入纵向比例<1000>:"))
;;;(if (null zxbl) (setq zxbl 1000.0))
;;;(setq hxbl (getreal"\n  请输入横向比例<1000>:"))
;;;(if (null hxbl) (setq hxbl 1000.0))
;;[功能]根据与前点坐标增量计算下一点坐标
;;[用法](基准点 距离增量 高差增量 横向比例 纵向比例)(基准点 Y增量 X增量)(LC:Previous-point-pt (getpoint) 32.2479 0 1000.0 1000.0
;;[作者]BY 老仓测绘上班记
(defun LC:Previous-point-pt (PT DY DX HXBL ZXBL)
;;;(setq pt1 (mapcar '+ (list (car pt) (cadr pt)) (mapcar '* (mapcar '(lambda(x)(/ 1000.0 x)) (list hxbl zxbl)) (list dy dx))));
  (append (mapcar'+ pt(mapcar '*(mapcar'/'(1000.0 1000.0)(list hxbl zxbl))(list dy dx))) (list 0.000));73哥优化 
)