[st_as]

как удалить исходную линию при применении offset?

Код:

[Выделить все]

Sub Example_Offset()
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    points(10) = 4: points(11) = 1
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    plineObj.Closed = True
    ZoomAll
    Dim offsetObj As Variant
    offsetObj = plineObj.offset(0.25)
    ' как удалить исходную линию или задать параметр при применении offset удаление исходника
End Sub

[Кулик Алексей aka kpblc]

plineObj.Erase - кажется, так.

[st_as]

оказалось все просто, спасибо.
91 ошибку исправили в применении функции offset?

[Кулик Алексей aka kpblc]

Вот сколько я с vla-offset ни работал, ни одной ошибки не видел. А их, оказывается, уже 91?