乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 22|回复: 1

[求助]已知两个点求角度?

[复制链接]

57

主题

127

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
355
发表于 2007-4-18 14:24:00 | 显示全部楼层 |阅读模式
各位大侠
      已知两个点PT1和PT2,如何用VBA求出连接这两个点的线段的角度(弧度),另外知道这条线的角度后,VBA里有没有类似LISP里的POLAR()的函数来求得顺着该角度走X距离的点,先谢谢了!
回复

使用道具 举报

25

主题

219

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
319
发表于 2007-4-18 20:57:00 | 显示全部楼层
Public Function fwj(ByVal x As Double, ByVal y As Double) As Double
If x = 0 Then
    If y > 0 Then
    fwj = 3.14159265358979 / 2
    Else
    fwj = 3.14159265358979 * 1.5
    End If
Else
    fwj = Atn(y / x)
    If x > 0 And y > 0 Then fwj = fwj
    If x > 0 And y
不知道对你有帮助没有
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 13:13 , Processed in 0.495693 second(s), 57 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表