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

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

;;[功能]根据偏距高程计算横断图端点坐标（用于绘制断面线）
;;[用法](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:03

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

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

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

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

需要的，顶一个
页: [1]
查看完整版本: 根据偏距高程计算横断图端点坐标（用于绘制断面线）