Определение координат линии в условных единицах

@mv6677 · Регистрация: 06.12.2017

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

Доброе утро форумчане.
Помогите с решением.

Есть макрос, строящий диаграмму по внешнему виду фигуры-линии (правда линия строится - зеркально перевернутой, но это не страшно).
Однако тут есть нюанс.
Этот макрос, в качестве единиц измерения - использует пойнты.
А требуется использовать не пойнты, а какие-то свои условные единицы.

Как определить координаты узлов линии - по условным единицам измерения ?
(В файле - я подсветил ячейки с условными координатами Х и Y - желтым цветом. И показал - как должна выглядеть диаграмма в таком случае.)

@Burk · 16.12.2017, 20:01

Сообщение от mv6677

(Только не говорите, что 700)

И не скажу, по поводу преобразования пойнтов в текст это к гуманоидам высшей цивилизации, я ещё не дорос. А может хватит нести ахинею?

@mv6677 · 16.12.2017, 20:06 **[ТС]**

Burk, не подскажете все-таки - что делает ваш макрос, который вы привели в одном из сообщений.

(Я вам несколько раз этот вопрос задавал - вы так и не ответили.)

@Burk · 16.12.2017, 20:30

Сообщение от mv6677

(Я вам несколько раз этот вопрос задавал - вы так и не ответили.

А я вам несколько раз писал, что удалите числа из желтых ячеек и запустите его, вы так и не удосужились? Даже начинающие программисты запускают макросы, которые им присылают, а уж потом спрашивают непонятные им вещи или говорят, что хотели бы видеть другой результат. Мой макрос, минуя ваши пойнты, по таблице исходных узлов расставляет ваши условные единицы. Даже если вам это не нужно, там есть коды, которые вычисляют минимальные и максимальные значения по осям, чтобы определять размах графика не 800-100=700, а

Visual Basic
1
2
РазмахПоХ=Xmax-Xmin,
РазмахПоY=Ymax-Ymin

@mv6677 · 16.12.2017, 20:35 **[ТС]**

Сообщение от Burk

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

Да я-то удосужился.

Только ваш макрос - не имеет ни малейшего отношения к моей теме.
Я задавал - совершенно другой вопрос и несколько раз прикреплял файл с подробнейшими пояснениями.
Только вы судя по всему - его даже не открыли.

@Burk · 16.12.2017, 21:34

Сообщение от mv6677

Только ваш макрос - не имеет ни малейшего отношения к моей теме.

я вам писал - не нравится выкиньте, а вы снова спрашиваете про него.
Ваши подробнейшие объяснения тоже открывал, но лучше бы вы просто отвечали на поставленные вопросы без повторения подробнейших объяснений. Про это я тоже писал. И, вообще, может пора прекратить обсуждения по этой теме, раз вы слышите только себя. Ваши пойнты - это доставать правое ухо левой рукой через голову, если у вас есть исходные координаты. Опять же удачи.

@OLEGOFF · 17.12.2017, 00:35

mv6677, вы наверное так хотели?

@mv6677 · 17.12.2017, 01:52 **[ТС]**

OLEGOFF, нет.
В своем файле - вы строите полилинию.
Мне ее строить не надо, она уже нарисована.

Нужно только перенести содержимое желтых ячеек - в диапазон Z32:AA46 для каждого узла.
В файле - все детально описано.

@Alex77755 · 17.12.2017, 16:24

Как я понял. Добавил на лист Шапе "ыыы"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Макрос1()
'
' Макрос1 Макрос
m = [z9..aa15].Value
Set s = ActiveSheet.Shapes("ыыы")
With s
      For r = 1 To UBound(m)
        If Len(m(r, 1)) > 0 Then
              .Left = m(r, 1)
              .Top = m(r, 2)
              [z31].Offset(r) = Cells(.BottomRightCell.Row, 6)
              [z31].Offset(r, 1) = Cells(49, .TopLeftCell.Column)
        End If
      Next r
End With
End Sub

@Alex77755 · 17.12.2017, 16:27

добавил файл

@mv6677 · 17.12.2017, 19:13 **[ТС]**

Alex77755, а вот теперь все заработало идеально.
Спасибо за код.

@Alex77755 · 17.12.2017, 19:47

mv6677,
Просто трудно понять вопрос. И так никогда не встречал, чтобы привязывались к координатам точки

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	16.12.2017, 20:06 [ТС]
	Burk, не подскажете все-таки - что делает ваш макрос, который вы привели в одном из сообщений. (Я вам несколько раз этот вопрос задавал - вы так и не ответили.) 0

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	17.12.2017, 19:13 [ТС]
	Alex77755, а вот теперь все заработало идеально. Спасибо за код. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	17.12.2017, 19:47
	mv6677, Просто трудно понять вопрос. И так никогда не встречал, чтобы привязывались к координатам точки 0

Определение координат линии в условных единицах

Решение