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
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