VBA　开发精彩实例教程中的　例子问题？

szwbluesky · 发表于 2004-12-20 21:03:00

Set AddLine = ThisDrawing.ModelSpace.AddLine(ptSt, ptEn)
End Function
Public Function AddLineXY(ByVal x1 As Double, ByVal y1 As Double, _
                                             ByVal x2 As Double, ByVal y2 As Double) As AcadLine

                     '定义起点和终点
                     Dim pt1(2) As Double
                     Dim pt2(2) As Double

                     '为点的坐标赋值
                     pt1(0) = x1: pt1(1) = y1: pt1(2) = 0
                     pt2(0) = x2: pt2(1) = y2: pt1(2) = 0

                     Set AddLineXY = AddLine(pt1, pt2)
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
                                             ByVal length As Double) As AcadLine
               '定义终点
                     Dim ptEn As Variant
                     peEn = GetPointAR(ptSt, angle, length)
                     Set AddLineReAL = AddLine(ptSt, ptEn)
End Function
                     Dim ptSt(0 To 2) As Double
                     Dim ptEn(0 To 2) As Double

                     ptSt(0) = 100: ptSt(1) = 100: ptSt(2) = 0
                     ptEn(0) = 150: ptEn(1) = 100: ptSt(2) = 0

                     '(1)
                     AddLine ptSt, ptEn
                     '(2)
                     AddLineXY 100, 120, 150, 120
                     '(3)
                     AddLineReXY ptSt, 50, 50
                     '(4)
                     'AddLineReAL ptSt, 3, 50

End Sub
Windows2000,2002环境下，Function AddLineReXY和
Function AddLineReAL编译通不过，出现对话框，说：“编译错误：
子程序或函数未定义”，请高手指点一下。

mccad · 发表于 2004-12-20 21:17:00

GetPoint函数和GetPointAR函数你没有按照书中的要求输入。

szwbluesky · 发表于 2004-12-20 21:41:00

这是我的第一个程序，不好意思，水平有点洼。能不能说的详细一点，
我是照书上写的，和书上一样的，我的哪个错了，应该咋写呀？

mccad · 发表于 2004-12-20 21:52:00

在第38页中找找：
其中，GetPoint函数的输入参数是一点、另一点相对于该点在X和Y方向上的偏移量，计算另一点的坐标，其实现代码为：

copy


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

还有：
其中，GetPointAR函数输入参数是一点、另一点相对于该点的极坐标值，求另一点的绝对坐标，实现代码为：

copy


Public Function GetPointAR(ByVal ptBase As Variant, ByVal angle As Double, ByVal length As Double) As Variant
       Dim pt(0 To 2) As Double
       pt(0) = ptBase(0) + length * Cos(angle)
       pt(1) = ptBase(1) + length * Sin(angle)
       pt(2) = ptBase(2)
       GetPointAR = pt
End Function

需要注意的是，上面的angle为弧度值。