Результаты поиска

Ответ: Графические построения Ага, установил, работает. Пасибки, бум разбирать.

Всем доброго времени. Встречалась ли у кого нибудь надобность отражать чего либо относительно направляющей или отрезка (лайн сегмент) который расположен под углом(не горизонталь и не вертикаль) Вот столкнулся с данной проблемой... Теоретически у меня вышло так: Например Есть прямоугольник...

Ответ: Графические построения То ли все в отпусках, то ли ни кому не интересна эта тема. Вот как я решил для себя. Получаем 2 точки от направляющей. s4.Guide.GetPoints Po1X, Po1Y, Po2X, Po2Y s5.Guide.GetPoints Po21X, Po21Y, Po22X, Po22Y Через эти две точки проводим...

'sos' А вот еще вопросик наболел. Имеем 2 направляющие. Надо получить координаты их пересечения. Пересмотрел все свойства и методы ничего подходящего не нашел. Я так понял надо математически решать, или я ошибаюсь? Если нет, то допишите код. Sub Glushman()...

Ответ: Графические построения Только хотел спросить кто это так красиво текст проги расставил? Огромнейшее спасибо за помощь.

Ответ: Графические построения Имеем некую кривую. Dim s1 As Shape Set s1 = ActiveLayer.CreateCurveSegment2(3.178642, 2.138701, 3.870484, -0.340402, 4.043445, -4.606764, 9.635839, -4.54911) Ее надо разбить (получить координаты)в пропорции 2 к 1 Лучше всего подходит GetPointPositionAt На...

Ответ: Графические построения Еще вопросик есть. Вот например имеем курв сегмент2 отдельно взятый. Как воспользоваться SubPath.GetPointPositionAt к данной кривой. В хелповских примерах все в циклы зашито, не могу разобраться. Sub Macro2() Dim sp As SubPath Dim t As...

Ответ: Графические построения Вот так работает. А почему в 1 варианте не работало? Sub Macro3() Dim s1 As Shape Dim s2 As Shape Dim s3 As Shape Dim x(1, 2) As Double Dim y(1, 2) As Double Set s1 = ActiveLayer.CreateEllipse2(0#, 0#, 0.03, -0.03)...

Ответ: Графические построения осваиваю по хелпу, ногами не бейте. Вот есть такое свойство у эллипса Ellipse.CenterX Property CenterX As Double Хотел воспользоваться, не получилось. Хочу построить 2 точки(эллипсы) И соединить их центры отрезком. Sub Macro3() Dim s1 As...

Ответ: Графические построения Спасибо за оперативность. Работает.

Всем привет. Поможите люди добрые. Имеем 2 сплайна, как при помощи вба промаркировать (найти координаты) их точек пересечения. Максимум 2. Заранее благодарен. Надо средствами кореловского вба. Есть 2 кривые, выделяем 2 вместе, применяем команду исключить. В нижней кривой добавятся...