田草博客

互联网田草博客网友交流QQ群：11740834 需注明申请加入原因微信公众号：ByCAD 邮箱：tiancao1001x126.com
首页 \| 普通 \| 电脑 \| AutoCAD \| VB/VB.NET \| FLash \| 结构 \| 建筑 \| 电影 \| BIM \| 规范 \| 软件 \| ID

评论列表

tiancao1001
所发表的评论

[17] [18] [19] [20] [21] [22] [23] [24] [25] [26] ... [37]

tiancao1001 于 2010-01-21 05:08 PM 发表评论：

下面的代码效果和AngleFromXAxis是一样的

Public Function P2P_Angle(ByVal PT1 As Point3d, ByVal PT2 As Point3d) As Double
        'Pt1为坐标原点
        Dim DX As Double
        Dim DY As Double
        DX = PT1.X - PT2.X
        DY = PT1.Y - PT2.Y
        Dim A45 As Double = Math.Atan(1) '45度角
        If DX = 0 Then '垂直线
            If DY < 0 Then
                P2P_Angle1 = A45 * 2 '90度
                P2P_Angle1 = A45 * 6 '270
            End If
        ElseIf DX < 0 Then
            If DY <= 0 Then
                P2P_Angle1 = Math.Atan(DY / DX)  '第一象限(包含x轴正方向0度)
            Else
                P2P_Angle1 = A45 * 8 - Math.Atan(-DY / DX) '第四象限
            End If
        ElseIf DX > 0 Then
            P2P_Angle1 = Math.Atan(DY / DX) + A45 * 4 '第二、第三象限(包含x轴负方向180度)
        End If
    End Function

查看所评论的日志：.Net的Entity到VBA的AcadEntity

tiancao1001 于 2010-01-13 09:24 AM 发表评论：

你去研究一下AutoCAD.net就知道怎么回事了

查看所评论的日志：学会了用Jig拽东西了

tiancao1001 于 2010-01-06 03:25 PM 发表评论：

一注基础通过，新年又有新任务了，自己给自己祝福一下吧

查看所评论的日志：田草日志

tiancao1001 于 2009-12-28 02:20 PM 发表评论：

这个东西搜狗推广用的东西，360可以检测到会恢复

查看所评论的日志：注册表中的 OpenHomePage

tiancao1001 于 2009-11-24 04:50 PM 发表评论：

隐藏日志的评论