by AutoLISP
10 USDThe content of the task:
Developing a software application for building a plate according to the specified parameters
and provide the appropriate interface (pictogram button, dialog window).To accomplish the task, the following steps must be taken:
Develop a package of commands (scripts) for the formation of the drawing of the plaque on an individual task.Modify the command package in the program in AutoLISP language.Expand the program’s capabilities in such a way that the independent layout parameters (size) are variable.Develop a user panel of tools with a pictogram that causes the program to build a layer
Ensure that the layout parameters are entered using a dialogue window.The basic material for the performance of the control work is presented in the discipline modules (in the subjects 6-10).The robot is executed in the form of program files (lsp - file and dcl - file).Also with the finished work should be attached to 5-10 screenshots of the gradual performance of the work with a small description, which is necessary for the formation of the report.
Контрольная работа
Содержание задания:
Разработать программное приложение построения прокладки по заданным параметрам
и обеспечить при этом соответствующий интерфейс (кнопка пиктограммы, диалоговое окно).
<!--[if !vml]--><!--[if !vml]-->
Для выполнения завдания необходимо выполнить следующие шаги:
Разработать пакет команд (скрипт) формирования чертежа прокладки по индивидуальному заданию.
Модифицировать пакет команд в программу на языке AutoLISP.
Расширить возможности программы таким образом, чтобы независимые параметры прокладки (размеры) были переменными.
Разработать пользовательскую панель инструментов с пиктограммой, которая вызывает программу построения прокладки
Обеспечить, чтобы параметры прокладки вводились с помощью диалогового окна.
Основной материал для выполнения контрольной работи изложен в модулях дисциплини (в темах 6-10).
Выполненная робота в виде файлов программы (lsp – файл и dcl – файл). Также с готовой работой следует приложить 5-10 скриншотов поетапного выполнения работы с небольшим описанием, это необходиом для формирования отчета.
Applications 2
Client's feedback on cooperation with Yura Abrikosov
by AutoLISPThe work is done quickly, quality, delivered in time. Pleased with cooperation.
Freelancer's feedback on cooperation with Miroslav Hom
by AutoLISPEverything went successfully. I recommend it.
-
401 31 1 Ready to fulfill this task.
p.s.1: I have a little experience writing programs in autolisp (although without graphic capabilities). I put 14dns. With the stock, I will try it earlier.
p.s.2 What are the topics 8-10? (The methodology, as if, ends on the 7th topic)
Готов выполнить данное задание.
p.s.1: небольшой опыт написания программ в autolisp у меня имеется (хотя и без графических возможностей). Поставил 14дн. с запасом, - постараюсь раньше сделать.
p.s.2: что такое темы 8-10? (методичка, как бы, на 7-й теме заканчивается)
-
А какие у вас сроки?
-
А что будет если не успеешь сдать к этому числу?
Остаётся актуальным или нет?
-
Я наверно начну делать и если дело пойдёт, то оформим сделку (я отдельно сообщу об этом). А если не успею, - то мне ничего не надо (буду считать, что тренировался с целью учёбы. Я начинающий фрилансер).
p.s.: если же в это время кто-то более опытный подаст заявку, то выбирай его (обо мне просто не думай).
--------------------------------------------------------------------------------------
Вопрос о версии Autocad. У меня 2014. Попытался я создать пакетный файл (как в теме 5) и у меня круг не нарисовало. Методом проб и ошибок выяснил, что работает по второму варианту:
Т.е., что будет если у преподавателя не заработает из-за версии?
-
Кажется 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)
-
Во 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"
Перезапускаем автокад и в результате получается:
-
Current freelance projects in the category Application programming
Automatic dialing program
200 USD
It is necessary to write a program for calling employees of the company. There is an Asterisk server, SIP account, the administrator has allocated 5 lines. The database is stored locally. The operator should form the call database: 1. Full name 2. Position 3. Phone number 4.… IP-telephony and VoIP, Application programming |
Import products to Simpla website and update themHello, you need to import products through data export. There are different export formats - csv, xml, xls. Also, it is necessary to update the availability of products from a Google spreadsheet. It is required that products with the same SKU from different sources (currently… Web programming, Application programming ∙ 3 proposals |
Develop a smart home on Raspberry.make friends with some touch screen with raspberry When the screen is loaded, there should be 10 pictures and all when you click on the picture with the image of a light bulb, signal 3v one should be when you click on the picture with the image of a kettle, signal 3v another… Application programming |
Set up the feed for exporting goods from Horoshop to KastaSet up a feed for exporting products from an online store on the Horoshop platform to Kasta, according to Kasta's requirements and instructions. 4-5 product categories, up to 50 products per category. Data parsing, Application programming ∙ 2 proposals |
Make importing goods to the Simpla website and updating themGood day, you need to import goods from the upload. There are different upload formats - csv, xml, xls. Also, it is necessary to update the availability of goods from Google Sheets. Web programming, Application programming ∙ 2 proposals |