CATIA / VBA- изменить свойство Point

Question

Я создал макрос, который изменяет свойство объекта воздушного шара в чертеже CAT, но проблема в том, что я не могу изменить свойство Point и его линию (см. Ниже)

Мой код:

    myBalloon.Text = Right(myBalloon.Text, 3)
    myBalloon.SetFontSize 0, 0, 2.5
    myBalloon.FrameType = 0

Решение, которое я пробовал:

  Dim myview As DrawingView

  Set myview = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView

  Dim mytext As DrawingText

  Set mytext = myview.Texts.Item(1)
  Dim myleader As DrawingLeader

  Set myleader = mytext.Leaders.Item(1)
  myleader.HeadSymbol = 0

Это работает только на 1 балл. Есть ли возможность изменить другие точки в этом Activeview? Кто-нибудь Может подсказать мне об этом?

Answer 1

Возможно, вы захотите что-то вроде этого:

Dim myview As DrawingView

  Set myview = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView

  Dim mytext As DrawingText
  Dim myleader As DrawingLeader


  For Each mytext In myview.Texts

    For Each myleader In dText.Leaders

        myleader.HeadSymbol = 0

    Next

  Next

Приведенный выше код не проверен, но вам следует начать.