Запрет пересечения объектов

@SergVrn3 · Регистрация: 01.12.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте.
У меня есть макрос, в котором фигура - двигаясь по стрелочкам - не может пересечь линии.
Но вот другие фигуры - она вполне себе пересекает.

Ответьте если кто знает - как изменить макрос, чтобы фигура - не могла пересекать не только линии, но и другие фигуры тоже ?

@Burk · 17.04.2019, 14:41

SergVrn3, для начала уберите Sqr(2) и у вас останется DStep = NStep и погоняйте ещё.
Уменьшите размер кружка и Nstep сейчас 15, сделайте 10

@Burk · 18.04.2019, 05:56

SergVrn3, там была одна неточность, попробуйте сейчас. И удалите все предыдущие, чтобы не путаться. Новая жизнь!

@Burk · 18.04.2019, 05:59

файл забыл

@SergVrn3 · 18.04.2019, 20:02 **[ТС]**

Burk, спасибо.
Теперь все работает.

Остался вопрос - как запустить этот макрос на Excel2013 ?

@Burk · 19.04.2019, 02:34

SergVrn3, это я помню, найду 2013, посмотрю. А на 2016 пробовали? Или на 2013 на другом компе, где работает человек, знающий вба, чтобы установки были верными.

@Burk · 21.04.2019, 09:11

SergVrn3, а дело вот в чём, имена фигур в 2013 и выше на английском, а в 2008 на русском. Наверно можно где-то в настройках экселя изменить язык, но чтобы не рыться, исправьте в начале макроса Shift

Visual Basic
1
2
       If InStr(S, "Прямо") > 0 Or InStr(S, "Овал") > 0 Or _
          InStr(S, "Recta") > 0 Or InStr(S, "Oval") > 0 Then ' or other conditions

поэтому я всегда переименовываю стандартные имена на удобные мне. Всегда знаешь что искать.

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

Visual Basic
1
2
3
4
      S = UCase(Sh.Name)
      If S <> "КРУЖОК" Then
        If InStr(S, "ПРЯМО") > 0 Or InStr(S, "ОВАЛ") > 0 Or _
           InStr(S, "RECTA") > 0 Or InStr(S, "OVAL") > 0 Then ' or other conditions

а ещё лучше как я писал, переименовать все внутренние фигуры, например так Фиг1 Фиг2 и т.д, первые буквы одинаковые у всех (необязательно три и необязательно Фиг) и тогда проще можно записать
фигуры можно будет внедрять любые

Visual Basic
1
2
3
      S = UCase(Sh.Name)
      If S <> "КРУЖОК" Then  'эту строку тогда можно убрать и, соответствующий ей End If, тоже 
        If InStr(S, "ФИГ") > 0 Then ' or other conditions

@SergVrn3 · 25.04.2019, 18:43 **[ТС]**

Burk, понял, спасибо за уточнение.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 31: модель микоризы - это модель ещё нескольких явлений, социальных и экономических anaschu 18.07.2026 Теория «Всего»: апдейт v1. 1. 2 — 28‑мерное ядро стабилизировано Коллеги, фиксирую разбор инженерных правок и их изоморфную проекцию на экономику, меметику и половой отбор. Модель теперь не. . .	сукцессия 30. Массив проверяющих друг друга моделей anaschu 18.07.2026 Архитектура сети взаимопроверяющих моделей микоризной сукцессии (v2. 0) Развитие тензорного ОДУ-ядра и создание кросс-платформенного калибровочного полигона Уважаемые коллеги! В продолжение. . .	Грибы - это женщины, деревья - это мужчины. Анти инь янь для союза мужчины и женщины. anaschu 18.07.2026 ГЛАВНЫЙ НАУЧНО-ФИЛОСОФСКИЙ ВЫВОД: Сексуально-Репродуктивный Капитализм против Государства Моногамии Коллеги, мы вышли на финишную прямую 20-мерного ОДУ-моделирования вековой сукцессии (ветка. . .	Текстовый слайдер с нумерацией страниц и кроссбраузерность. russiannick 18.07.2026 Один мой друг написал текстовый слайдер с нумерацией страниц. Сегодня я расскажу как он умудрился подружить его с кроссбраузерностью. Очевидно сложно угодить с шириной каждому браузеру. Один крадет. . .
Грибы - это мемы, дерево - это человек. Применение микоризной модели к теории меметики Докинза. anaschu 18.07.2026 Меметический изоморфизм теории «всего»: Грибная сукцессия как модель эволюции идей Докинза Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а универсальную. . .	Грибы - это корпорации, деревья - это государства. Механизм массонского захвата власти anaschu 18.07.2026 Макроэкономический изоморфизм теории «всего»: Грибная сукцессия как модель транснационального капитализма Базовый код системы ОДУ микоризной сукцессии описывает не просто биологию, а. . .	Расчёт периметра прямоугольника по координатам вершин Maks 18.07.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Вычислить периметр прямоугольника, заданного координатами своих вершин на плоскости. Решение: Создан документ со следующими. . .	Подсчёт частоты трёхбуквенных слов в тексте Maks 18.07.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Выясните, сколько раз в предложенном тексте встречается каждое трехбуквенное слово. Решение: Создан документ с единственным. . .

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	17.04.2019, 14:41
	SergVrn3, для начала уберите Sqr(2) и у вас останется DStep = NStep и погоняйте ещё. Уменьшите размер кружка и Nstep сейчас 15, сделайте 10 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	18.04.2019, 05:56
	SergVrn3, там была одна неточность, попробуйте сейчас. И удалите все предыдущие, чтобы не путаться. Новая жизнь! 0

@SergVrn3 0 / 0 / 0 Регистрация: 01.12.2018 Сообщений: 36
	18.04.2019, 20:02 [ТС]
	Burk, спасибо. Теперь все работает. Остался вопрос - как запустить этот макрос на Excel2013 ? 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	19.04.2019, 02:34
	SergVrn3, это я помню, найду 2013, посмотрю. А на 2016 пробовали? Или на 2013 на другом компе, где работает человек, знающий вба, чтобы установки были верными. 0

@SergVrn3 0 / 0 / 0 Регистрация: 01.12.2018 Сообщений: 36
	25.04.2019, 18:43 [ТС]
	Burk, понял, спасибо за уточнение. 0

Запрет пересечения объектов

Решение