Switch to English version?

Yes

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

Так

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

Да

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

Tak

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

400 UAH

AutoLISP

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дн. с запасом, - постараюсь раньше сделать.
p.s.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"

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

Актуальные фриланс-проекты в категории Десктопные приложения

Небольшая правка на сайте 700 UAH Нужно переподвизать договор оферты в футтере на новый , в компании поменялся регламент Задача на 20 минут Веб-программирование, Десктопные приложения ∙ 1 час 28 минут назад ∙ 65 ставок	700 UAH
Инструмент сверки счетов с банком, картами и бухгалтером Техническое задание: инструмент сверки счетов с банком, картами и бухгалтеромОбщая цель Нужен локальный инструмент (скрипт/небольшое приложение на Python), который запускается вручную раз в 1-2 месяца на моём компьютере и делает сверку между: Счетами, которые я выставил клиентам… Python, Десктопные приложения ∙ 2 дня 8 часов назад ∙ 40 ставок
Добавить паузы 10-30 секунд между отправками писем Здравствуйте! Ищу опытного программиста 1С / BAS (BAF) для оперативного решения технической проблемы с почтовой рассылкой.Суть проблемы: Используем бухгалтерскую программу BAF (Business Automation Framework), редакция 2.0. Раз в месяц возникает необходимость массово отправлять… Веб-программирование, Десктопные приложения ∙ 8 дней назад ∙ 10 ставок
Реверс-инжиниринг консольных утилит для опроса контроллеров SSD (Flash ID) 1. Цель работы Выделение программного интерфейса (API) взаимодействия с контроллерами SSD/NVMe из предоставленного набора консольных утилит (Phison, Silicon Motion, Realtek, Maxiotek, Marvell, JMicron и др.). Результатом должно стать рабочий код на языке C/C++ или точная… C и C++, Десктопные приложения ∙ 8 дней 11 часов назад ∙ 6 ставок

Мирослав Хом

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

AutoLISP

Отзыв заказчика о сотрудничестве с Юрой Абрикосовым

Отзыв фрилансера о сотрудничестве с Мирославом Хомом

Актуальные фриланс-проекты в категории Десктопные приложения

Небольшая правка на сайте

Инструмент сверки счетов с банком, картами и бухгалтером

Добавить паузы 10-30 секунд между отправками писем

Реверс-инжиниринг консольных утилит для опроса контроллеров SSD (Flash ID)