注册 登录
明经CAD社区 返回首页

13648893846的个人空间 http://www.mjtd.com/?7322544 [收藏] [复制] [分享] [RSS]

日志

距离高程计算下一点坐标

已有 2016 次阅读2018-10-29 22:12 |系统分类:应用| lambda, list, 计算点, 标高, 横向

;;[功能]距离高程计算下一点坐标
;;[用法](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))
)


路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 注册

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 13:54 , Processed in 0.093292 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部