明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 112|回复: 1

计算坐标方位角函数

[复制链接]
发表于 2018-1-7 05:22 | 显示全部楼层 |阅读模式
;;计算坐标方位角函数
;;(azimuth (getpoint) (getpoint))
;;返回从pt1到pt2的方位角弧度值
;;by 半边书生
  1. (defun azimuth (pt1 pt2 / dxy fwj)
  2.     (setq dxy (mapcar '- pt2 pt1))
  3.     (setq fwj (atan (car dxy) (cadr dxy)))
  4.     (if (< fwj 0) (setq fwj (+ fwj (* 2 pi))))
  5.      fwj
  6. )


评分

参与人数 1明经币 +1 收起 理由
USER2128 + 1 赞一个!

查看全部评分

发表于 2018-1-14 03:25 来自手机 | 显示全部楼层
跟angle有区别吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2018-1-21 18:29 , Processed in 0.227496 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表