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

UptoLike

ВУЗ: 

ОмГТУ | Омск

Составители: 

Рубрика: 

70
(defun svarka()
; программа задания технологических параметров сварки
(load "menu" "svarka"); загрузка файл меню с названием “svarka”
;блок запроса значений сроковых констант в интерактивном режиме
(setq a (getstring "введите вид сварки:")
b (getstring "введите способ сварки:")
с (getstring "введите размеры прерывистого вида:")
)
(load “menu” “acad”) ;замена пользовательского меню "svarka", меню
; Автокад
); окончание программы - svarka
Если при запросе значения строковой константы b пользователь ука-
зывает элемент падающего меню [обозначение шва], а затем выбирает оп-
цию [Т3], то переменной b будет присвоено значение строковой констан-
ты "Т3" и т. п.
Текст файла меню пользователя .mnu
Рис. 5.2. Изображение меню пользователя
Обозначения ***POP1 и т. д. задают номер по порядку элементов па-
дающего меню. С помощью меню пользователя можно осуществлять за-
Вид сварки
Т1
Т3
Т6
Т9
У4
У5
У6
У7
1 – ручная
2 – автоматическая
3 – полуавтоматическая
обозначение
шва
Способ
сва
р
ки
1- электродуговая
2- газовая
3- электроконтактная
***POP1
[ Вид сварки]
[1 - электродуг.] ГОСТ 5264-80
[2–газовая] ГОСТ 11533-75
[3- электрокон.] ГОСТ 15164-78
***POP2
[Способ сварки]
[1- ручная] Р
[2- автоматическая] А
[3- полуавтоматическая] П
***POP3
[обозначение шва]
[Т1] Т1
[Т3] Т3
[Т6] Т6
…
(defun svarka()
  ; программа задания технологических параметров сварки
    (load "menu" "svarka"); загрузка файл меню с названием “svarka”
   ;блок запроса значений сроковых констант в интерактивном режиме
   (setq    a (getstring "введите вид сварки:")
            b (getstring "введите способ сварки:")
            с (getstring "введите размеры прерывистого вида:")
    )
    (load “menu” “acad”) ;замена пользовательского меню "svarka", меню
                          ; Автокад
); окончание программы - svarka

    Если при запросе значения строковой константы b пользователь ука-
зывает элемент падающего меню [обозначение шва], а затем выбирает оп-
цию [Т3], то переменной b будет присвоено значение строковой констан-
ты "Т3" и т. п.

Текст файла меню пользователя .mnu

  Вид сварки    Способ        обозначение   ***POP1
                сварки        шва           [ Вид сварки]
                                            [1 - электродуг.] ГОСТ 5264-80
                                            [2–газовая] ГОСТ 11533-75
                                            [3- электрокон.] ГОСТ 15164-78
 1- электродуговая               Т1
                                            ***POP2
 2- газовая                      Т3
                                            [Способ сварки]
 3- электроконтактная            Т6
                                            [1- ручная] Р
                                 Т9
                                            [2- автоматическая] А
                                 У4
     1 – ручная                             [3- полуавтоматическая] П
                                 У5
     2 – автоматическая                     ***POP3
                                 У6
     3 – полуавтоматическая                 [обозначение шва]
                                 У7
                                            [Т1] Т1
                                            [Т3] Т3
                                            [Т6] Т6
                                            …
                 Рис. 5.2. Изображение меню пользователя

   Обозначения ***POP1 и т. д. задают номер по порядку элементов па-
дающего меню. С помощью меню пользователя можно осуществлять за-


                                      70

Страницы