42561

Создание параметрических чертежей в AutoCAD с применением Visual LISP

Лабораторная работа

Информатика, кибернетика и программирование

Определить исходя из задания исходные параметры, которые необходимо задать для параметрического построения объекта. Если количество этих параметров велико, необходимо в программе считывать их из файла.

Русский

2015-01-27

6.69 MB

36 чел.

ЛАБОРАТОРНАЯ РАБОТА №4
Создание параметрических чертежей в
AutoCAD
с применением
Visual LISP

ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ:

  1.  Получить задание (чертеж) у преподавателя в индивидуальном порядке.
  2.  Определить исходя из задания исходные параметры, которые необходимо задать для параметрического построения объекта. Если количество этих параметров велико, необходимо в программе считывать их из файла.
  3.  Ниже приведен пример параметрического макроса, работой которого является построение рамки со штампом практически любого формата.

; определение функции как пользовательской команды

(defun c:ramka ()

(command "_.erase" "_all" "")

(setq L0 (getreal "Укажите длину рамки в мм:"))

(setq H0 (getreal "Укажите высоту рамки в мм:"))

    ; точки внешней рамки

(setq p0 (getpoint "Укажите точку вставки рамки (левый нижний угол):") )

(setq p1 (list (car p0) (+ (cadr p0) H0)))

(setq p2 (list (+ (car p0) L0) (+ (cadr p0) H0)))

(setq p3 (list (+ (car p0) L0) (cadr p0)))

    ; точки внутренней рамки

(setq pv0 (list (+ (car p0) 20) (+ (cadr p0) 5)))

(setq pv1 (list (+ (car p1) 20) (- (cadr p1) 5)))

(setq pv2 (list (- (car p2) 5) (- (cadr p2) 5)))

(setq pv3 (list (- (car p3) 5) (+ (cadr p3) 5)))

(command "_.pline" p0 "_w" 0 0 p1 p2 p3 "_c")

(command "_.pline" pv0 "_w" 1 1 pv1 pv2 pv3 "_c")

    ;отрисовка штампа от правой нижней точки pv3

    ; внешние точки

(setq _p1 (list (- (car pv3) 185) (cadr pv3)))

(setq _p2 (list (car _p1) (+ (cadr _p1) 55)))

(setq _p3 (list (+ (car _p2) 185) (cadr _p2)))

    ; внутренние точки

(setq _p4 (list (car _p1) (+ (cadr _p1) 30)))

(setq _p5 (list (car _p1) (+ (cadr _p1) 35)))

(setq _p4_1 (list (+ (car _p4) 65) (cadr _p4)))

(setq _p5_1 (list (+ (car _p5) 65) (cadr _p5)))

(setq _p6 (list (+ (car _p2) 7) (cadr _p2)))

(setq _p7 (list (car _p6) (- (cadr _p6) 25)))

(setq _p8 (list (+ (car _p2) 17) (cadr _p2)))

(setq _p9 (list (+ (car _p1) 17) (cadr _p1)))

(setq _p10 (list (+ (car _p2) 40) (cadr _p2)))

(setq _p11 (list (+ (car _p1) 40) (cadr _p1)))

(setq _p12 (list (+ (car _p2) 55) (cadr _p2)))

(setq _p13 (list (+ (car _p1) 55) (cadr _p1)))

(setq _p14 (list (+ (car _p2) 65) (cadr _p2)))

(setq _p15 (list (+ (car _p1) 65) (cadr _p1)))

(setq _p16 (list (+ (car _p2) 65) (- (cadr _p2) 15)))

(setq _p17 (list (+ (car _p2) 185) (- (cadr _p2) 15)))

(setq _p18 (list (+ (car _p2) 65) (- (cadr _p2) 40)))

(setq _p19 (list (+ (car _p2) 185) (- (cadr _p2) 40)))

(setq _p20 (list (- (car _p3) 50) (- (cadr _p3) 15)))

(setq _p21 (list (- (car _p3) 50) (- (cadr _p3) 55)))

(setq _p22 (list (car _p20) (- (cadr _p20) 5)))

(setq _p23 (list (+ (car _p20) 50) (- (cadr _p20) 5)))

(setq _p24 (list (car _p20) (- (cadr _p20) 20)))

(setq _p25 (list (+ (car _p20) 50) (- (cadr _p20) 20)))

(setq _p26 (list (+ (car _p20) 15) (cadr _p20)))

(setq _p27 (list (+ (car _p20) 15) (- (cadr _p20) 20)))

(setq _p28 (list (+ (car _p20) 32) (cadr _p20)))

(setq _p29 (list (+ (car _p20) 32) (- (cadr _p20) 20)))

(setq _p30 (list (+ (car _p24) 20) (cadr _p24)))

(setq _p31 (list (+ (car _p24) 20) (- (cadr _p24) 5)))

    ; рисование жирных линий штампа

(command "_.pline" _p1 _p2 _p3 "")

(command "_.pline" _p4 _p4_1 "")

(command "_.pline" _p5 _p5_1 "")

(command "_.pline" _p6 _p7 "")

(command "_.pline" _p8 _p9 "")

(command "_.pline" _p10 _p11 "")

(command "_.pline" _p12 _p13 "")

(command "_.pline" _p14 _p15 "")

(command "_.pline" _p16 _p17 "")

(command "_.pline" _p18 _p19 "")

(command "_.pline" _p20 _p21 "")

(command "_.pline" _p22 _p23 "")

(command "_.pline" _p24 _p25 "")

(command "_.pline" _p26 _p27 "")

(command "_.pline" _p28 _p29 "")

(command "_.pline" _p30 _p31 "")

    ; рисование тонких линий строчек в штампе

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 5))

 "_w"

 0

 0

 (list (+ (car _p2) 65) (- (cadr _p2) 5))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 10))

 (list (+ (car _p2) 65) (- (cadr _p2) 10))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 15))

 (list (+ (car _p2) 65) (- (cadr _p2) 15))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 10))

 (list (+ (car _p2) 65) (- (cadr _p2) 10))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 15))

 (list (+ (car _p2) 65) (- (cadr _p2) 15))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 30))

 (list (+ (car _p2) 65) (- (cadr _p2) 30))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 35))

 (list (+ (car _p2) 65) (- (cadr _p2) 35))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 40))

 (list (+ (car _p2) 65) (- (cadr _p2) 40))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 45))

 (list (+ (car _p2) 65) (- (cadr _p2) 45))

 ""

)

(command "_.pline"

 (list (car _p2) (- (cadr _p2) 50))

 (list (+ (car _p2) 65) (- (cadr _p2) 50))

 ""

)

    ; задание лимитов и обзора

(command "_.zoom" "_a")

(command "_.limits" p0 p2)

) ; конец программы



  1.  Создать новый файл чертежа File (Файл)  New (Создать) на базе файла шаблона acadiso.dwt. Запустить Tools (Инструменты)  AutoLISP (АвтоЛИСП)  Visual LISP Editor (Редактор ЛИСП).
  2.  В Visual LISP Editor (редакторе ЛИСПа) написать программу по вычерчиванию заданного преподавателем элемента и выполнить ее.
  3.  Подобрать исходные данные для параметрического чертежа, при использовании которых построенный чертеж выглядит наиболее точно (по сравнению с заданным).
  4.  В программе ввести ограничения, при учете которых невозможно искажение графического объекта.
  5.  Оформить отчет по работе.


Варианты заданий
(свой вариант уточнить у преподавателя)

Вариант 1


Вариант 2


Вариант 3


Вариант 4


Вариант 5


Вариант 6


Вариант 7


Вариант 8


Вариант 9


Вариант 10


Вариант 11


Вариант 12


Вариант 13


Вариант 14


Вариант 15


Вариант 16


Вариант 17


Вариант 18


Вариант 19


Вариант
20


Вариант
21

Примечание. Соединение с гайкой допускается упростить.


Вариант
22


Вариант
23


Вариант
24


Вариант
25


Вариант
26


Вариант
27


Вариант 28


Вариант 29


Вариант
30


Вариант
31


Вариант
32


Вариант
33


Вариант
34


Вариант
35


Вариант
36


Вариант 37


Вариант 38


Вариант 39


Вариант
40


Вариант
41


Вариант
42

PAGE 3


 

А также другие работы, которые могут Вас заинтересовать

28005. Функционирование агроэкосистем в условиях техногенеза 4.85 KB
  Функционирование агроэкосистем в условиях техногенеза. Агроэкосистема АЭС совокупность биогенных и абиогенных компонентов участков суши преобразованных человеком используемых для производства сельхозпродукции. Основа АгроЭкоСистем почва с х угодия. Типы АгроЭкоСистем: Пропашное земледелие Многолетнее земледелие Многоурожайное земледелие МезоАЭС крупномасштабная МикроАЭС грядка Суша занимает площадь 149 млрд.
28006. Экологизация сельскохозяйственного производства 4.56 KB
  Природоразрушающий ресурсоемкий тип развития АПК требует пересмотра сложившейся теории и на практике техногенной концепции развития АПК. Главным принципом развития АПК должна стать экологизация с х производства всех мероприятий по развитию с х учет природных особенностей функционирования земельных ресурсов. для изменения приоритетов в распределении ресурсов капитальных вложений в АПК усилить природоохранную роль затрат. Для преодоления негативных тенденций в развитии АПК скорейшего решения...
28007. Экологическая биотехнология. Возможности увеличения производства экологически безопасной продукции на основе биопроизводства 2.52 KB
  Возможности увеличения производства экологически безопасной продукции на основе биопроизводства. Среди новых направлений биотехнологии способствующих получению экологически безопасной продукции следует отметить применение микробиологических удобрений промышленную переработку бытовых отходов индустриальную технологию компостирования отходов животноводства и др. микробиологические удобрения повышают продуктивность растений и кол во растительной продукции. Азотфиксирующие микроорганизмы служат прекрасной основой для...
28008. Экологически безопасные технологии и оптимизация обработки почвы 3.73 KB
  Поэтому нужна разработка таких сельскохозяйственных машин и орудий которые при общей эффективности должны оказывать минимальный вред окружающей среде а именно: Сократить выбросы от с х машин и орудий Уменьшить нагрузку на почву путем изменения конструктивной особенности техники Внедрение двигателей с высоким КПД но низким потреблением топлива.
28009. Экологические аспекты применения сточных вод при орошении. Ценность сточных вод в повышении плодородия почв. Контроль загрязнения почв 12.86 KB
  Ценность сточных вод в повышении плодородия почв. Сточные воды используются для орошения на специальных участках земледельческих полях орошения ЗПО. Под последними понимаются водохозяйственные объекты оборудованные для непрерывного приема определенного количества сточных вод в течение всего года с целью их очистки или доочистки и использования для орошения.
28010. Экологические особенности и значимость биогумуса. Препараты получаемые на основе биогумуса. Экологические аспекты подготовки и применения биогумуса 2.93 KB
  Препараты получаемые на основе биогумуса. Экологические аспекты подготовки и применения биогумуса. Установлена возможность биогумуса связывать радионуклиды находящиеся в почве органических удобрений резко уменьшать поступление тяжелых металлов в растения.
28011. Экологические проблемы мелиорации. Виды и целевое назначение современных мелиораций. Положительные и отрицательные изменения в ОС под влиянием гидротехнических мелиораций 4.85 KB
  К этим мероприятиям относятся: Орошение и обводнение Осушение земель Противоэрозионные мероприятия закрепление оврагов сыпучих песков почво и полезащитное лесонасаждение. Рассоление почв Выравнивание микрорельефа и т. Мелиорация земель призвана способствовать получению высоких и стабильных урожаев повышению плодородия почв рациональному использованию земельных ресурсов. Орошение способ повышения продуктивности почв важнейшее направление интенсификации с х производства.
28012. Экологические проблемы механизации. Влияние средств механизации на почвенно- биотический комплекс, воздушную среду 14.46 KB
  В результате неоднократного передвижения машин по полю происходит значительное переуплотнение почвы которое распространяется на большую глубину до 100 см а машинные следы покрывают до 80 поля. Докучаева плотность почвы возросла к настоящему времени на 20. Угнетение активности почвенных микроорганизмов переуплотненные почвы и нарушение ее структуры снос перемолотой почвы водой и ветром т. машинная деградация почвы все это отрицательные последствия воздействия на пашню ходовых систем и рабочих...