根据偏距高程计算横断图端点坐标（用于绘制断面线）

13648893846 · 发表于 2018-9-2 16:34

;;[功能]根据偏距高程计算横断图端点坐标（用于绘制断面线）
;;[用法](LC:Offset-Elevation-pt jzdpt sjgc2 dmpj1 dmgc1)
;;[作者]BY 老仓测绘上班记
;;;(setq jzdpt (getpoint "\n 请选择基准点：")
;;;    sjgc2 (getreal "请输入基准点设计高程")
;;;    dmpj1 (getdist "请输入偏距：")
;;;    dmgc1 (getreal "请输入计算点高程：")
;;;    )
(defun LC:Offset-Elevation-pt (jzdpt sjgc2 dmpj1 dmgc1)
  (if (< dmpj1 0);如果偏距小于0
   (setq ysdmdmpt (polar (polar jzdpt pi (abs dmpj1)) (if (> dmgc1 sjgc2) (/ pi 2) (+ pi (/ pi 2))) (abs (- dmgc1 sjgc2))));左边点
   (setq dmpt (polar (polar jzdpt 0 (abs dmpj1)) (if (> dmgc1 sjgc2) (/ pi 2) (+ pi (/ pi 2))) (abs (- dmgc1 sjgc2))));右边点
  )
)

snight523 · 发表于 2018-9-3 07:13

不明所以老兄的程序在下浅薄不能理解，

spp_wall · 发表于 2018-9-3 08:21

专业性的东西有个图最好！！！

技术工作室 · 发表于 2022-9-8 14:41

需要的，顶一个

账号		自动登录	找回密码
密码			注册

[函数] 根据偏距高程计算横断图端点坐标（用于绘制断面线）