Switch to English version?

Yes

Переключитись на українську версію?

Так

Переключиться на русскую версию?

Да

Przełączyć się na polską wersję?

Tak

Розмістіть свій проєкт безплатно та почніть отримувати пропозиції від фрилансерів-виконавців уже через хвилини після публікації!

400 UAH

Автолісп

400 UAH

Десктопні додатки, Предметне проєктування

6 з 6

проект завершено

публікація
приймання ставок
погодження умов
резервування
виконання проєкту
проект завершено

Проєкт перекладено автоматично. Увійдіть або зареєструйтесь, щоб побачити оригінал

Контрольна робота
Вміст завдання:
Розробка програмного забезпечення для будівництва прокладки за поставленими параметрами
і забезпечити при цьому відповідний інтерфейс (кнопка піктограми, діалогове вікно).Для виконання завдання необхідно виконати наступні кроки:
Розробити пакет команд (скрипт) формування малюнку прокладки за індивідуальним завданням.Змінити пакет команд в програмі на мові AutoLISP.Розширити можливості програми таким чином, щоб незалежні параметри прокладки (розмір) були змінними.Розробка панелі інструментів користувача з піктограмою, яка викликає програму будівництва прокладки
Забезпечити, щоб параметри прокладки вводилися за допомогою діалогового вікна.Основний матеріал для виконання контрольної роботи викладено в модулях дисципліни (у темах 6-10).Виконаний робот у вигляді файлів програми (lsp - файл і dcl - файл).Також з готовою роботою слід додати 5-10 скриншотів поступового виконання роботи з невеликим описом, що необхідно для формування звіту.

Додатки 2

Перегляд додатків доступний тільки зареєстрованим користувачам.

Відгук замовника про співпрацю з Юрою Абрикосовим

Якість

Професіоналізм

Вартість

Контактність

Терміни

Робота виконана швидко, якісно, здана вчасно. Задоволений співпрацею.

Мирослав Хом | Сейф

Відгук фрилансера про співпрацю з Мирославом Хомом

Оплата

Постановка завдання

Чіткість вимог

Контактність

Все пройшло успішно. Я рекомендую .

Юра Абрикосов | Сейф

Ставки 1
Обговорення 15

Переможець400 UAH

Юра Абрикосов

31 1

Переможець400 UAH

Готова виконати цю задачу.
p.s.1: невеликий досвід написання програм в autolisp у мене є (хоча і без графічних можливостей). Надіслано 14 дн. З запасом, спробую зробити раніше.
П.С.2: Що таке теми 8-10? (Міністерство, як ні, закінчується на 7-й темі)

Показати оригінал

Перекласти

29 січня 2021, 7:19

Юра Абрикосов

А какие у вас сроки?

Мирослав Хом

К 30 числу нужно сдать

Юра Абрикосов

А что будет если не успеешь сдать к этому числу?

Остаётся актуальным или нет?

Мирослав Хом

Если к 1 числу успеете будет хорошо, у меня уже сессия стартанула, и препод должен в течении 14 дней пересмотреть

Юра Абрикосов

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

p.s.: если же в это время кто-то более опытный подаст заявку, то выбирай его (обо мне просто не думай).

--------------------------------------------------------------------------------------

Вопрос о версии Autocad. У меня 2014. Попытался я создать пакетный файл (как в теме 5) и у меня круг не нарисовало. Методом проб и ошибок выяснил, что работает по второму варианту:

Т.е., что будет если у преподавателя не заработает из-за версии?

Мирослав Хом

Надеюсь что всё пойдёт)

У препода должно заработать.

Мирослав Хом

Может здесь будет полезная инфа https://api-2d3d-cad.com/vlisp_param_drawing/

Юра Абрикосов

Кажется 1-й пункт сделал.

a) Прежде чем проверять убедись, что загружена пунктирная линия:

Если нет, тогда загрузи.

б) создай блокнотом файл ".txt" и вставь код:

_OSNAP

_OFF

_LINETYPE

_S _bylayer

_LWEIGHT 0.30

_CIRCLE 0,0 _D 100

_CIRCLE 0,0 _D 50

_XLINE

0,37

0,100

_ROTATE

0,37

0,37 45

_XLINE

0,37

0,100

_ROTATE

0,37

0,37 -45

_TRIM

100,105

-100,110

0,50

_TRIM

0,-50

100,105

-100,110

_XLINE

0,37

100,37

_TRIM

100,37

1000,-105

0,-110

_TRIM

100,37

0,-105

-1000,-110

_ERASE

100,37

_LINETYPE

_S JIS_02_4.0

_LWEIGHT 0.05

_LINE

0,-55

0,55

_LINE

-55,0

55,0

_LINETYPE

_S _bylayer

_OSNAP

_END

(пробелы и переводы на новую строку не убирай, - опытным путём определил, что каждый символ важен)

в) измени расширение на:

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

г) В командной строке автокада вводишь ПАКЕТ и надо выбрать файл:

и результат:

Юра Абрикосов

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

Юра Абрикосов

Сделал 2-й пункт работы.

a) В командной строке пишешь:

б) вставляешь код и нажимаешь загрузить:

Сам код (в данном случае не важны пробелы между командами):

(setvar "osmode" 0)

(setvar "3dosmode" 0)

(command "_linetype" "_s" "bylayer" "")

(command "_lweight" 0.30 "")

(command "_circle" '(0 0) "_d" 100 "")

(command "_circle" '(0 0) "_d" 50 "")

(command "_xline" '(0 37) '(0 100) "")

(command "_rotate" '(0 37) "" '(0 37) 45 "")

(command "_xline" '(0 37) '(0 100) "")

(command "_rotate" '(0 37) "" '(0 37) -45 "")

(command "_trim" '(100 105) '(-100 110) "" '(0 50) "")

(command "_trim" '(0 -50) "" '(100 51) '(-100 52) "")

(command "_xline" '(0 37) '(100 37) "")

(command "_trim" '(100 37) "" '(1000 -51) '(-1000 -52) "")

(command "_erase" '(100 37) "")

(command "_linetype" "_s" "JIS_02_4.0" "")

(command "_lweight" 0.05 "")

(command "_line" '(0 -55) '(0 55) "")

(command "_line" '(-55 0) '(55 0) "")

(command "_linetype" "_s" "bylayer" "")

(setvar "osmode" 1)

Юра Абрикосов

Результат должен быть таким же.

Я заметил одну странность: корректный вывод возможен только при условии, что весь будущий чертёж (помещается в квадрат 50х50) располагается на экране, по центру:

Если же ты сдвинешь оси так, что будущий чертёж будет перекрываться (частично или полностью), то вывод будет не корректным:

Я не знаю с чем это связано.

Юра Абрикосов

Вернее квадрат 100х100.

Юра Абрикосов

Во 2-й пункте поправил программу:

(setvar "osmode" 0)

(command "_linetype" "_s" "bylayer" "")

(command "_lweight" 0.30 "")

(command "_circle" '(0 0) "_d" 100 "")

(command "_circle" '(0 0) "_d" 50 "")

(command "_xline" '(0 37) '(0 100) "")

(command "_rotate" '(0 37) "" '(0 37) 45 "")

(command "_xline" '(0 37) '(0 100) "")

(command "_rotate" '(0 37) "" '(0 37) -45 "")

(command "_trim" '(100 105) '(-100 110) "" '(0 50) "")

(command "_trim" '(0 -50) "" '(100 105) '(-100 110) "")

(command "_xline" '(0 37) '(100 37) "")

(command "_trim" '(100 37) "" '(1000 -105) '(0 -110) "")

(command "_trim" '(100 37) "" '(0 -105) '(-1000 -110) "")

(command "_erase" '(100 37) "")

(command "_linetype" "_s" "JIS_02_4.0" "")

(command "_lweight" 0.05 "")

(command "_line" '(0 -55) '(0 55) "")

(command "_line" '(-55 0) '(55 0) "")

(command "_linetype" "_s" "bylayer" "")

(setvar "osmode" 1)

а ту считать не действительной.

Юра Абрикосов

Сделал 3-й пункт.

Определяемые пользователем параметры:

Этот код нужно использовать как в пункте 2-м. Только после "загрузки" станет доступной выбор функции в командной строке автокада:

После чего можно будет ввести основные параметры.

(defun c:KONTRABOTA(/)

(setq D1 (getreal "D1 (50)= "))

(setq D2 (getreal "D2 (100)= "))

(setq R1 (getreal "R1 (37)= "))

(if (= D1 nil) (setq D1 50.0) D1)

(if (= D2 nil) (setq D2 100.0) D2)

(if (= R1 nil) (setq R1 37.0) R1)

(if(and (< D1 (* R1 2)) (< (* R1 2) D2))

(progn

(setvar "osmode" 0)

(command "_linetype" "_s" "bylayer" "")

(command "_lweight" 0.30 "")

(command "_circle" '(0 0) "_d" D1 "")

(command "_circle" '(0 0) "_d" D2 "")

(setq pt0 '(0.0 0.0))

(setq pt1 (mapcar '+ pt0(list 0.0 R1)))

(setq pt2 (mapcar '+ pt0(list 0.0 D2)))

(command "_xline" pt1 pt2 "")

(command "_rotate" pt1 "" pt1 45 "")

(command "_xline" pt1 pt2 "")

(command "_rotate" pt1 "" pt1 -45 "")

(setq pt3 (mapcar '+ pt0(list D2 (+ D2 5))))

(setq pt4 (mapcar '+ pt0(list (- 0.0 D2) (+ D2 10))))

(setq pt5 (mapcar '+ pt0(list 0.0 (/ D2 2))))

(command "_trim" pt3 pt4 "" pt5 "")

(setq pt6 (mapcar '+ pt0(list 0.0 (- 0.0 (/ D2 2)))))

(setq pt7 (mapcar '+ pt0(list (- 0.0 D2) (+ D2 10))))

(command "_trim" pt6 "" pt3 pt7 "")

(setq pt8 (mapcar '+ pt0(list D2 R1)))

(command "_xline" pt1 pt8 "")

(setq del_1 (entlast))

(setq pt9 (mapcar '+ pt0(list (* 10 D2) (- 0.0 (+ D2 5)))))

(setq pt10 (mapcar '+ pt0(list 0.0 (- 0.0 (+ D2 10)))))

(command "_trim" del_1 "" pt9 pt10 "")

(setq pt11 (mapcar '+ pt0(list 0.0 (- 0.0 (+ D2 5)))))

(setq pt12 (mapcar '+ pt0(list (- 0.0 (* 10 D2)) (- 0.0 (+ D2 10)))))

(command "_trim" del_1 "" '(0 -105) '(-1000 -110) "")

(command "_erase" del_1 "")

(command "_linetype" "_s" "JIS_02_4.0" "")

(command "_lweight" 0.05 "")

(setq pt13 (mapcar '+ pt0(list 0.0 (- 0.0 (+ (/ D2 2) 5)))))

(setq pt14 (mapcar '+ pt0(list 0.0 (+ 0.0 (+ (/ D2 2) 5)))))

(command "_line" pt13 pt14 "")

(setq pt13 (mapcar '+ pt0(list (- 0.0 (+ (/ D2 2) 5)) 0.0 )))

(setq pt14 (mapcar '+ pt0(list (+ 0.0 (+ (/ D2 2) 5)) 0.0 )))

(command "_line" pt13 pt14 "")

(command "_linetype" "_s" "bylayer" "")

(setvar "osmode" 1)

)

(alert "Error! D1 < 2*R1, 2*R1 < D2")

)

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

Что касается пунктов 4 и 5-ть, то мне они не знакомы, поэтому возможно будет задержки выполнения. Посмотрим.

Юра Абрикосов

4-й сделал.

Вид -> Панели

создаём новую панель

Копируем любую пиктограмму из соседних панелей. Меняем эмблему и макрос:

Файл ".fas" делается путём компиляции файла ".lsp" с параметром " 'st"

Перезапускаем автокад и в результате получается:

Актуальні фриланс-проєкти в категорії Десктопні додатки

Потрібно терміново отримати POST / GET / PUT запити з мобільного додатку TikTok По суті. Потрібно витягти POST / GET / PUT запити з мобільного додатку TikTok Навіть по суї можна до кінця не реверсити нічого такого, бо підписи є в інтернеті і т.д. Але було б теж супер Вся авторизація (Відправка даних/підтвердження по пошті і введення коду якщо… Веб-програмування, Десктопні додатки ∙ 7 годин 59 хвилин тому ∙ 9 ставок
Розробка кастомного ПЗ (Android-додатка + CMS) для кіосків самообслуговування SUNMI K2 (Фастфуд) 1000 UAH Шукаємо досвідчену команду або Middle/Senior Android-розробника (можливо, з Full-stack навичками) для створення власного програмного забезпечення для кіосків самообслуговування ритейл-мережі закладу швидкого харчування. Зараз наші термінали працюють на базі готового хмарного… CMS, Десктопні додатки ∙ 1 день 2 години тому ∙ 17 ставок	1000 UAH
Потрібно зробити міграцію поточної робочої програми з foxpro на C# Всім привіт! У нас є програма на foxpro (в ній є кілька модулів, програма для обліку), є вихідники програми, при гострій необхідності можна проконсультуватися з людьми по підтримці поточної програми Що потрібно зробити: 1. Аналіз, що і як працює, скласти список всього зайвого,… C#, Десктопні додатки ∙ 6 днів 10 годин тому ∙ 18 ставок
ПО Мастер-програма «KONSTRUCTOR» 185 756 UAH Ми шукаємо дуже досвідченого C++ розробника для модернізації існуючого ПЗ (майстер-програми). Програма відповідає за створення виробного ПЗ, що представляє аудіо-візуальні сеанси психологічної корекції. Поточна версія написана на чистому WinAPI (Visual Studio 2019/2022).… C та C++, Десктопні додатки ∙ 8 днів 22 години тому ∙ 19 ставок	185 756 UAH
Налаштування ODOO Enterprise для будівництва Необхідно побудувати картки та налаштувати зручний імпорт, інтеграцію з ЕДО і загалом Workflow ODOO Компанія займається системною інтеграцією: маємо поставки обладнання В2В або з прямою маржинальністю, або з рібейтами в подальшому. Крім того, ведемо будівельні роботи на об'єктах… Автоматизація управління підприємством, Десктопні додатки ∙ 9 днів 8 годин тому ∙ 7 ставок

Мирослав Хом

Хмельницький 1

Автолісп

Відгук замовника про співпрацю з Юрою Абрикосовим

Відгук фрилансера про співпрацю з Мирославом Хомом

Актуальні фриланс-проєкти в категорії Десктопні додатки

Потрібно терміново отримати POST / GET / PUT запити з мобільного додатку TikTok

Розробка кастомного ПЗ (Android-додатка + CMS) для кіосків самообслуговування SUNMI K2 (Фастфуд)

Потрібно зробити міграцію поточної робочої програми з foxpro на C#

ПО Мастер-програма «KONSTRUCTOR»

Налаштування ODOO Enterprise для будівництва