我在用VBA编程中使用了偏移语句，程序如下：
Dim p(0 To 2) As Double, p1(0 To 2) As Double
Dim l As AcadLine
p(0) = 0: p(1) = 20: p(2) = 0
p1(0) = 100: p1(1) = 400: p1(2) = 0
Set l = ThisDrawing.ModelSpace.AddLine(p, p1)
Dim l1 As Variant
l1 = l.Offset(80)
偏移后所得的l1并不是直线实体，请问我如何将偏移后所得的l1转换成直线实体？
Sub test()
Dim p(0 To 2) As Double, p1(0 To 2) As Double
Dim l As AcadLine
p(0) = 0: p(1) = 20: p(2) = 0
p1(0) = 100: p1(1) = 400: p1(2) = 0
Set l = ThisDrawing.ModelSpace.AddLine(p, p1)
Dim l1 As Variant
l1 = l.Offset(80)
'获得偏移后的直线实体
Dim l2 As AcadLine
Set l2 = l1(0)
l2.color = acRed '把偏移后的直线变成红色
End Sub
置顶卡
