[CDR X5-X8] помогите с GetIntersections(SubPaths)

[bitmind]

пишу код типа

Set SubPathLinia = lina.Curve.SubPaths(1)
Set SubPathVaza = Vaza.Curve.SubPaths(1)
Set peresechenie = SubPathVaza.GetIntersections(SubPathLinia)

для corel`a, при проходе результата в peresechenie нет, хотя при отрисовке явно видно, что они пересекаются, ну.

ps подскажите, пожалуйста, что я делаю не так, и что курить, чтобы получить координаты пересечения?

pps vba осваиваю меньше недели, поэтому можно прямо тыкать носом в глупые вещи

 

[_MBK_]

А можно скриншот глянуть?
Вы уверены, что GetIntersections возвращает именно часть сегмента, а не точки сегмента, попадающие в пересечение? В доке ведь сказано

The GetIntersections method finds all points of intersection between two segments.

 

[bitmind]

Вы уверены, что GetIntersections возвращает именно часть сегмента

Вообще ни в чем не уверен, только пробую vba

скриншот

скрины листа и часиков приложил, lina рисуется в цикле, код естественно тоже внутри цикла

 

[bitmind]

неужели нет ответа на такие фокусы от vba?

 

[_MBK_]

Не знаю, сейчас проверил, у меня похожий вариант работает:

Sub tst()
Set Sel = ActiveSelectionRange
Set peresechenie = Sel(1).Curve.SubPaths(1).GetIntersections(Sel(2).Curve.SubPaths(1))
a = peresechenie.Count
End Sub

Значит проблема в чем то другом.

 

[bitmind]

Проблема все же во мне) я делал без "Set Sel = ActiveSelectionRange". Сейчас попробовал руками выбрать кривую и отрезок - точка упала в переменную. Спасибо большое) Теперь вопрос-как выделить отрезок программно?

 

[_MBK_]

Ну на самом деле выделять вовсе не обязательно. Это я для примера выделенные отрезки попробовал на пересечение, чтобы удобно было, но можно же просто перебирать все шейпы на активном слое или как вам надо?

 

[bitmind]

да, так и нужно. Смысл в том, чтобы укоротить отрезки до уровня кривой. Может быть я извращаюсь, но по-другому не придумал

 

[_MBK_]

Тогда покажите более полный код, раз уже разобрались что ошибка не в топикстартовых трех строках

 

[bitmind]

Блин, пытался напрямую через

peresechenie =ActivePage.Layers("Vneshniy").Shapes(1).Curve.SubPaths(1).GetIntersections(ActivePage.Layers("Vneshniy").Shapes(2).Curve.SubPaths(1))

но не хочет! Придется, похоже, с выделением мучаться. Вот код:

'polosi
    For Position = 130 To edVis - NizOtstup + 1 Step ShirinaPolos
   
    Dim lina As Shape
    Set lina = ActiveLayer.CreateLineSegment(Position, GorOtstup, Position, edShir - GorOtstup)
   
    tochqa1 = Position
    tochqa2 = edShir - GorOtstup
   
    Dim zagotovka As Curve
    Set zagotovka = ActiveDocument.CreateCurve
    With zagotovka.CreateSubPath(tochqa1, GorOtstup)
        .AppendLineSegment tochqa1, tochqa2
    End With
   
    lina.Curve.CopyAssign zagotovka
    'тут планировалось найти точку пересечения готового отрезка lina с кривой Vaza и "подрезать" его
   
    Next Position

 

[_MBK_]

Все равно мало данных
Откуда берется кривая Vaza? Вы точно в отладчике видите что на вход
GetIntersections подаются правильные валидные шейпы?
Далее - а как вы потом отрезки подрезать собрались?
Может, проще было бы не заморачиваться с методом GetIntersections, а создать маску для Trim которой разом все отрезки обрезать?

 

[bitmind]

Может, проще было бы не заморачиваться с методом GetIntersections, а создать маску для Trim

Может быть, если бы я умел)
Так или иначе, мне удалось программно выделять поочередно отрезки, находить точку пересечения. Потом я рисую новый отрезок до точки пересечения и удаляю старый. Такой вот колхоз И тем не менее ОГРОМНОЕ Вам спасибо, без вашей помощи не вкурил бы ничего, слишком мало опыта)

 

[_MBK_]

Так или иначе, мне удалось программно выделять поочередно отрезки, находить точку пересечения.

Я ж говорю - поочередное выделение отрезков - это лишнее звено в технологической цепочке. Все равно чтобы закипятить полный чайник, вылить из него сперва воду, чтоб свести задачу к задаче кипячения пустого чайника.
У отрезки должны обрезаться и без выделения, у вас просто где то незаметный баг в коде.

 

[Volodey]

Блин, пытался напрямую через

peresechenie =ActivePage.Layers("Vneshniy").Shapes(1).Curve.SubPaths(1).GetIntersections(ActivePage.Layers("Vneshniy").Shapes(2).Curve.SubPaths(1))

но не хочет! Придется, похоже, с выделением мучаться. Вот код:

'polosi
    For Position = 130 To edVis - NizOtstup + 1 Step ShirinaPolos
  
    Dim lina As Shape
    Set lina = ActiveLayer.CreateLineSegment(Position, GorOtstup, Position, edShir - GorOtstup)
  
    tochqa1 = Position
    tochqa2 = edShir - GorOtstup
  
    Dim zagotovka As Curve
    Set zagotovka = ActiveDocument.CreateCurve
    With zagotovka.CreateSubPath(tochqa1, GorOtstup)
        .AppendLineSegment tochqa1, tochqa2
    End With
  
    lina.Curve.CopyAssign zagotovka
    'тут планировалось найти точку пересечения готового отрезка lina с кривой Vaza и "подрезать" его
  
    Next Position

Как все же найти координаты точки пересечения. в дебагере вдно, что они в item1 записаны, но не могу понять как их оттуда вытянуть... У Вас код на самом интерсном месте про точку пересечения заканчивается! =)

 

[_MBK_]

Гм а в чем собственно проблема?
Item(1).PositionX ... не?

 

[Volodey]

Спасибо! Так вроде пробовал - не работало, а сейчас заработало! Целый день убил чтобы до этого форума добраться, мозг плавится уже. А тут оперативно выручили!