Параметрические изображения объектов проектирования на основе использования языка АВТОЛИСП в среде АВТОКАД. Притыкин Ф.Н. - 102 стр.

                          Ответы к задачам главы 5


• Задача 5.1 − (command "vslide" " vtulka")
               (setq l1 (getreal "введите – l1:") l2 (getreal "введите – l2: ")
               h1 (getreal "введите – h1: ") h2 (getreal "введите – h2: ")
               p1 (getpoint "введите положение базовой точки: ")
               ) (command "redraw") −
• Задача 5.2 − ***POP1
               [Обрабатываемый материал]
               [Сталь X18H9T]Сталь X18H9T
               [БРАЖ 9-4] БРАЖ 9-4
               [Сплав алюминия АМс6] Сплав алюминия АМс6
                ***POP2
               [Материал режущей части резца]
               [Сталь Р6М5] Сталь Р6М5
                 [Твердый сплав, марки ВК6М] Твердый сплав, марки
               ВК6М
               [Сталь Р18] Сталь Р18
• Задача 5.3 − ***POP10
                **LOAD
               [среда черчения]
               [линии чертежа] (load "D:/Данные/Студенты/
                  sloi1.lsp ")(sloi)
               [системные размерные переменные№1]
               (load"D:/Данные/ Студенты / rasmer.lsp ")(ras)
• Задача 5.4 − (setq ff (open "dan.txt" "r"))
               (setq b (atoi (read-line ff)) h (atoi (read-line ff)) l (atoi
                     (read-line ff))
                 )
              (close ff)




                                      102