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

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

日志

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

已有 326 次阅读2018-9-2 16:35 |系统分类:应用

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

路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

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

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

GMT+8, 2018-10-16 23:10 , Processed in 0.096798 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部