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