Не могу удалить ограничения

[lavgirb]

КОМПАС-3D V22
Задача - отвязать линию-выноску с номером позиции от других объектов чертежа, то есть удалить ограничения, которые автоматом накладываются при простановке номера позиции.
Приведенный ниже код ограничения не удаляет. Что может быть не правильным?

Код Выделить Развернуть

Dim vCons            As Variant
Dim oDrawObj1        As KompasAPI7.IDrawingObject1
Dim oPasiLeader      As KompasAPI7.IPositionLeader
Dim oCon            As KompasAPI7.IParametriticConstraint

Set oDrawObj = vSelObj ' Выделенный объект - линия-выноска с номером позиции
If oDrawObj.DrawingObjectType <> ksDrPosLeader Then GoTo NEXT_SEL_OBJ
Set oPasiLeader = vSelObj
Set oDrawObj1 = oPasiLeader
vCons = oDrawObj1.Constraints
If Not IsEmpty(vCons) Then
  For Each vCon In vCons
      Set oCon = vCon
      If oCon.Delete Then
        oDrawObj.Update
      End If
  Next
End If


[Nipal]

If oCon.Delete Then
Может так написать oCon.Delete, да и обновлять вроде не нужно.

[lavgirb]

If oCon.Delete Then
Может так написать oCon.Delete, да и обновлять вроде не нужно.

Писал, конечно без If ... Then. Не работает. Эта часть не содержит ошибки. В других аналогичных местах If ... Then нормально работает.
Обновление поставил для пробы, без него тоже не работает.
И Rebuild делал. Не помогает.

А, вот заработало!

Код Выделить Развернуть

oDrawObj1.DeleteConstraints
oDrawObj1.UpdateСпасибо, за отклик, Nipal. Обсуждение иногда здорово подталкивает )

[Nipal]

Да не за что, я тоже про него думал, но он все ограничения удаляет.

[lavgirb]

Да не за что, я тоже про него думал, но он все ограничения удаляет.

А у линии-выноски других, наверное и не бывает.
Обновление

Код Выделить Развернуть

oDrawObj1.Updateдействительно не требуется. Без него работает

[lavgirb]

Было

Стало