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

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

日志

根据与前点坐标增量计算下一点坐标

已有 98 次阅读2018-9-27 13:22 |系统分类:应用

;;;(setq zxbl (getreal"\n  请输入纵向比例<1000>:"))
;;;(if (null zxbl) (setq zxbl 1000.0))
;;;(setq hxbl (getreal"\n  请输入横向比例<1000>:"))
;;;(if (null hxbl) (setq hxbl 1000.0))
;;[功能]根据与前点坐标增量计算下一点坐标
;;[用法](基准点 距离增量 高差增量 横向比例 纵向比例)(基准点 Y增量 X增量)(LC:Previous-point-pt (getpoint) 32.2479 0 1000.0 1000.0
;;[作者]BY 老仓测绘上班记
(defun LC:Previous-point-pt (PT DY DX HXBL ZXBL)
;;;(setq pt1 (mapcar '+ (list (car pt) (cadr pt)) (mapcar '* (mapcar '(lambda(x)(/ 1000.0 x)) (list hxbl zxbl)) (list dy dx))));
  (append (mapcar'+ pt(mapcar '*(mapcar'/'(1000.0 1000.0)(list hxbl zxbl))(list dy dx))) (list 0.000));73哥优化 
)


路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)

facelist doodle 涂鸦板

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

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

GMT+8, 2018-12-11 03:31 , Processed in 0.104514 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部