Перейти к публикации

Помощь в написании макроса


Рекомендованные сообщения

Всем привет. У себя на роботе при оформлении чертежей используем вот такие заметки в углу:

post-53859-0-66648400-1457189567.png

2шт - количество; R - резка детали; Z - рубка и гибка; T - токарные работы).

Сейчас приходится вносить через редактирование основной надписи, что занимает лишнее время.

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

Хотелось бы что-то вот такого вида:

post-53859-0-47289900-1457189926.png

Заранее благодарен всем!

Ссылка на сообщение
Поделиться на других сайтах


Что конкретно НЕ получилось?

Не получилось что бы надпись появлялась (исчезала) при нажатии применить/закрыть. Получается что когда ставлю отметку буква сразу появляется на листе.

Ссылка на сообщение
Поделиться на других сайтах
делал через добавление заметки

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

 

Раз не хотите отвечать что именно не получается (обычно под этим подразумевается что у пользователя проблема в программировании какого-то участка кода), ждите, пока за вас всё сделают другие  :smile: Тут есть кому.

Если же проблема глубже, то изначально надо правильно формулировать вопрос: сделайте мне пожалуйста маленький макрос по добавлению и редактированию пары заметок на чертеже.

Изменено пользователем streamdown
Ссылка на сообщение
Поделиться на других сайтах

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

 

Раз не хотите отвечать что именно не получается (обычно под этим подразумевается что у пользователя проблема в программировании какого-то участка кода), ждите, пока за вас всё сделают другие  :smile: Тут есть кому.

Если же проблема глубже, то изначально надо правильно формулировать вопрос: сделайте мне пожалуйста маленький макрос по добавлению и редактированию пары заметок на чертеже.

Скорее так и получится, что придется просить сделать кого-то другого, так как в программировании я ноль (образование то техническое). Вот и пытался сам что-то сделать методом тыка, но увы.

Ссылка на сообщение
Поделиться на других сайтах
что-то сделать методом тыка
 Такое может сработать, но всё равно придётся почитать хоть что-то. А точнее - справку к SW API. 
Ссылка на сообщение
Поделиться на других сайтах

После выходных постараюсь сделать. Только опишите подробно, что должно происходить при открытии макроса, при редактировании текстового поля, при нажатии на чекбоксы, при нажатии на "применить/закрыть".

Если вы один раз внесли эти поля в основную надпись, нужна ли вам возможность их удалять потом или редактировать через макрос? И какие должны быть размеры ячеек вашей таблицы?

Ссылка на сообщение
Поделиться на других сайтах

После выходных постараюсь сделать. Только опишите подробно, что должно происходить при открытии макроса, при редактировании текстового поля, при нажатии на чекбоксы, при нажатии на "применить/закрыть".

Если вы один раз внесли эти поля в основную надпись, нужна ли вам возможность их удалять потом или редактировать через макрос? И какие должны быть размеры ячеек вашей таблицы?

Буду очень благодарен если сделаете. Что качается макроса: при открытии должно появится окно на подобии этого:

post-53859-0-24916100-1457281677.png

В выпадающем списке значения от 0 (пусто) до 20 скажем, в штуках (пример: 10шт). После выбора нужного количества должно свернутся.

Ниже возможность выбора обозначения на листе трех букв: R, Z, T. Если отметка стоит, то при нажатии на "применить/закрыть" соответствующая буква появится на листе.

В дальнейшем нужна возможность внесения изменений через макрос (к примеру было 4шт, R, Z, а изменилось на 6шт, Z). Зашли, изменили количество, сняли отметку с R, нажали применить и все.

Размеры по минимуму, только что бы влезла нужная информация. 

И еще, если не сложно оставьте макрос в "swp" формате, потому как хотелось бы иметь возможность изменить координаты ввода текста, шрифт ну и еще мало ли что.

Предварительно координаты:

Количество - 0.024, 0.273

R - 0.024, 0.267

Z - 0.024, 0.261

T - 0.024, 0.255

 

Ссылка на сообщение
Поделиться на других сайтах

А таблица у вас нарисована в основной надписи? Нужно только заметки отрисовывать или линии таблички тоже? Ячейка вашей табличке остается пустой или удаляется, если соответствующая операция не нужна?

Ссылка на сообщение
Поделиться на других сайтах

А таблица у вас нарисована в основной надписи? Нужно только заметки отрисовывать или линии таблички тоже? Ячейка вашей табличке остается пустой или удаляется, если соответствующая операция не нужна?

Таблица уже нарисована, так что рисовать линии таблицы не нужно. Ячейку лучше удалять или просто задать что при снятой отметке стоит "пробел" (пустая заметка же будет в виде квадрата с крестом)

Ссылка на сообщение
Поделиться на других сайтах

Таблица уже нарисована, так что рисовать линии таблицы не нужно. Ячейку лучше удалять или просто задать что при снятой отметке стоит "пробел" (пустая заметка же будет в виде квадрата с крестом)

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

Ссылка на сообщение
Поделиться на других сайтах

Сделал пока для вставки. Для редактирования уже существующих заметок будет посложнее, но тоже можно. Посмотрите пока это, так ли вы хотели, будут ли вопросы.

 

Table.rar

Ссылка на сообщение
Поделиться на других сайтах

Сделал пока для вставки. Для редактирования уже существующих заметок будет посложнее, но тоже можно. Посмотрите пока это, так ли вы хотели, будут ли вопросы.

Все отлично, немного подредактировал координаты.

Table.rar

И еще бы добавить надпись "шт" после количества.

Ссылка на сообщение
Поделиться на других сайтах

Все отлично, немного подредактировал координаты.

attachicon.gifTable.rar

И еще бы добавить надпись "шт" после количества.

Напишите вместо

N = ComboBox1.Text 'количество
N = ComboBox1.Text+" шт." 'количество

Вообще есть возможность привязываться к левому углу независимо от его формата. Или у вас только А4?

Ссылка на сообщение
Поделиться на других сайтах

Напишите вместо

N = ComboBox1.Text 'количество
N = ComboBox1.Text+" шт." 'количество

Вообще есть возможность привязываться к левому углу независимо от его формата. Или у вас только А4?

Нет, у нас разніе форматы, так что привязка была бы к месту.

Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

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

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...