用于CASS，鸿业断面数据函数

13648893846

;;[功能]距离高程计算下一点坐标
;;[用法](LC:Pt2YZ1 pt dx h)
;;[作者]BY 老仓测绘上班记
;;;(LC:Pt2XY1 pt dx  (- h (caddr pt)))
;;;(LC:Pt2YZ1 点 距离增量 计算点标高 横向比例 纵向比例)
;;;pt点必须有Z值
(defun LC:Pt2YZ1 (PT DX H HXBL ZXBL)
  (mapcar '(lambda (x y) (+ x y)) pt (list (* dx (/ 1000.0 HXBL)) ))(* (- h1 (caddr pt)) (/ 1000.0 ZXBL))
)
;;[功能]距离高程计算下一点坐标
;;[用法](LC:Pt2YZ pt dx h0 h1)
;;;(LC:Pt2YZ 点 距离增量 基准点标高 计算点标高 横向比例 纵向比例)
;;[作者]BY 老仓测绘上班记
;;;pt点没有Z值
(defun LC:Pt2YZ (PT DX H0 H1 HXBL ZXBL)
  (mapcar '(lambda (x y) (+ x y)) pt (list (* dx (/ 1000.0 HXBL)) ))(* (- h1 h0)(/ 1000.0 ZXBL))
)

yeye787

来学习学习

f4800

全被论坛的笑脸处理了  建议楼主优化下 或者在个人日志里更新  多谢