如何获得直线的倾斜角度.谢谢啊

zxlllw

如何获得直线的倾斜角度？  本人想实现得到，选择的直线的，倾斜角度，做为另外对象的参照.谢谢.有代码例子更好.

zzcctt

告诉你实现的方法,代码你自己写一下,很简单的

1,获取直线,可以得到直线的两个端点

2,根据两点,

Sub Example_AngleFromXAxis()
    ' This example finds the angle, in radians, between the X axis
    ' and a line defined by two points.
        
    Dim pt1(0 To 2) As Double
    Dim pt2(0 To 2) As Double
    Dim retAngle As Double
        
    pt1(0) = 2:pt1(1) = 5:pt1(2) = 0
    pt2(0) = 5:pt2(1) = 2:pt2(2) = 0
        
    ' Return the angle
    retAngle = ThisDrawing.Utility.AngleFromXAxis(pt1, pt2)
        
    ' Create the line for a visual reference
    Dim lineObj As AcadLine
    Set lineObj = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
    ZoomAll
        
    ' Display the angle found
    MsgBox "The angle in radians between the X axis and the line is " & retAngle, , "AngleFromXAxis Example"
        
End Sub

3,角度算出了(是以PI表示),根据自己的需要进行转换

zxlllw

谢谢，我是新手，有个问题，就是vba在有窗体运行的时候，是不能再去选择已经画的图形进行编辑的了...头大。有没有什么方法，比如说，我要在3条直线相交的三角形里面加一行文字，那么我要在运行程序后，去选择3条直线，但是vba这点好想办不到？能方法的话，请各位大大介绍下，小生，先谢过。

dfgs

你这后面的问题其实比较简单，如果要手工选择那三条线的话，可以将窗体先隐藏，me.hide，然后用选择集执行屏幕选择，SelectOnScreen。最后计算三条直线的交点，IntersectWith，就可以计算出文字需要的坐标。最后重新显示窗口,me.show

如果不是手工选择三条直线，你就要说明如何确定需要的直线，大家才好解答。

英雄无敌

如果是直线，直接用line.angle就可以返回角度，不过为弧度。

兰州人

帮助文件有实例

Sub Example_Angle()
   ' This example adds a line in model space and returns the angle of the new line
   
    Dim lineObj As AcadLine
    Dim startPoint(0 To 2) As Double, endPoint(0 To 2)  As Double
    
    ' Define the start and end points for the line
    startPoint(0) = 1: startPoint(1) = 1: startPoint(2) = 0
    endPoint(0) = 5: endPoint(1) = 5: endPoint(2) = 0
    
    ' Create the line in model space
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

    ThisDrawing.Application.ZoomAll
    
    MsgBox "The angle of the new Line is: " & lineObj.angle
End Sub

edi-000

如果是一张已知的CAD图，如何选择其中一条样条曲线，然后得到其拟合点的坐标值呢？谢谢