如何通过直线外一点绘制与该直线成一定角度的直线？

slw7310 · 发表于 2014-8-19 15:04:00

各位高人，请帮忙！如何通过直线外一点绘制与该直线成一定角度的直线？如下图，如何求出直线2啊？请不吝赐教！！谢谢。

nqbbq4e5hxu.jpg

zzyong00 · 发表于 2014-8-19 16:25:00

你是问数学问题，还是编程代码？

slw7310 · 发表于 2014-8-19 17:18:00

最好是能够执行的 VBA/VB/ActiveX/API 编程代码，给个思路已感谢不尽了！！！

slw7310 · 发表于 2014-8-19 17:20:00

当然应该是在 autocad 环境中的VBA/VB/ActiveX/API 编程！！！

zzyong00 · 发表于 2014-8-19 20:17:00

copy

Public Sub ss()
Dim obj As AcadEntity, pt As Variant
ThisDrawing.Utility.GetEntity obj, pt, "选择直线："
Dim objL As AcadLine, objL2 As AcadLine, pt1 As Variant, dblLen As Double, dblRA As Double, pt2(2) As Double
If obj.ObjectName = "AcDbLine" Then
    Set objL = obj
    pt1 = ThisDrawing.Utility.GetPoint(pt, "选择点：")
    dblLen = ThisDrawing.Utility.GetDistance(pt1, "输入距离:")
    dblRA = ThisDrawing.Utility.GetAngle(pt1, "输入夹角(角度制):")
    pt2(0) = pt1(0) + dblLen * Cos(dblRA + objL.Angle)
    pt2(1) = pt1(1) + dblLen * Sin(dblRA + objL.Angle)
    Set objL2 = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
End If
End Sub