根据与前点坐标增量计算下一点坐标
;;;(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)
(append (mapcar'+ pt(mapcar '*(mapcar'/'(1000.0 1000.0)(list hxbl zxbl))(list dy dx))) (list 0.000))
)
支持，好函数
页:
[1]