请教大虾

ufo313

请问斑竹，有没有一个函数可以实现以下功能：已知一点坐标及另一点相对于他的x增量与y增量，化出的下一点坐标。就象AutoCAD下line命令，然后给定起点，当要求输入下一点时，可以利用@20.30化出下一点，问有没有这样的函数？

subtlation

2. '根据另一点的相对直角坐标创建直线
3. Public Function AddLineReXY(ByVal ptSt As Variant, ByVal x As Double, ByVal y As Double) As AcadLine
4.        '定义终点
5.        Dim ptEn As Variant
6.       
7.        ptEn = GetPoint(ptSt, x, y)
8.       
9.        Set AddLineReXY = AddLine(ptSt, ptEn)
10. End Function
11. '创建直线的基准函数
12. Public Function AddLine(ByVal ptSt As Variant, ByVal ptEn As Variant) As AcadLine
13.        Set AddLine = ThisDrawing.ModelSpace.AddLine(ptSt, ptEn)
14. End Function
15. '获得相对已经点偏移一定距离的点
16. Public Function GetPoint(pt As Variant, x As Double, y As Double) As Variant
17.        Dim ptTarget(0 To 2) As Double
18.       
19.        ptTarget(0) = pt(0) + x
20.        ptTarget(1) = pt(1) + y
21.        ptTarget(2) = 0
22.       
23.        GetPoint = ptTarget
24. End Function

'根据另一点的相对直角坐标创建直线 Public Function AddLineReXY(ByVal ptSt As Variant, ByVal x As Double, ByVal y As Double) As AcadLine        '定义终点        Dim ptEn As Variant               ptEn = GetPoint(ptSt, x, y)               Set AddLineReXY = AddLine(ptSt, ptEn) End Function '创建直线的基准函数 Public Function AddLine(ByVal ptSt As Variant, ByVal ptEn As Variant) As AcadLine        Set AddLine = ThisDrawing.ModelSpace.AddLine(ptSt, ptEn) End Function '获得相对已经点偏移一定距离的点 Public Function GetPoint(pt As Variant, x As Double, y As Double) As Variant        Dim ptTarget(0 To 2) As Double               ptTarget(0) = pt(0) + x        ptTarget(1) = pt(1) + y        ptTarget(2) = 0               GetPoint = ptTarget End Function

ufo313

xiexie