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

UptoLike

ВУЗ: 

ОмГТУ | Омск

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

Рубрика: 

40
(defun kontur () ;функция построения параметрических изображений
;видов детали
(setq ;расчет точек главного вида ******************************
x 50 y 50 l 100 l1 50 h1 25 h 50 d 20 u 0.78
p1 (list x y) p2 ( polar p1 0 l)
p3 (polar p2 1.57 h) p4 (polar p3 3.14 5)
р5 (polar p1 u 5) р6 (inters p1 p5 p3 p4 nil)
р7 (list (+ x l1) (+ y h1)) р8 (polar p1 4.71 10)
р9 (polar p1 4.71 20)
) ; окончание функции - setq
; формирование изображения главного вида*********************
(command "line" p1 p2 p3 p6 p1 "" "circle" p7 (/ d 2) )
; формирование изображения разреза
(command "рline" p10 p11 p12 p13 p10 "")
(command "рline" p14 p15 p16 p17 p14 "")
;нанесение изображения штриховки на разрезе
(command "hatch" "jis_wood" "10" "0" p10 р14 "")
(command "line" p15 p10 "" "line" p16 p13 "" )
; нанесение размеров на чертеже
(command "dim" "horiz" P1 P2 P9 "" "horiz" P1 P7 P8 ""
"vertical" P3 P2 P19 ""
" vertical " p13 p16 p18 (strcat "%%c" (rtos d 2 0)) "exit")
); окончание функции – kontur
Рис. 3.12. Пример составления текста программы для получения
параметрических изображений детали
P1
P6
Р5
P3
h
h1
P4
l1
l
P2
Р
7
P8
u
d
P9
∅
P10
P11
P12
P13
P14
P15
P16
P17
P18
P19
P19 
                                        P6        P4 P3         P11   P12
                          Р7
                                                   d                  P13
                                                               P10
                         Р5                                h          ∅
                                    u                h1         P15         P18
                    P1                                                P16
                                                               P14
                    P8         l1                     P2              P17
                                                               P19
                    P9                  l
                                                                      P19

(defun kontur () ;функция построения параметрических изображений
                   ;видов детали
         (setq ;расчет точек главного вида ******************************
              x 50 y 50 l 100 l1 50 h1 25 h 50 d 20 u 0.78
              p1 (list x y)                 p2 ( polar p1 0 l)
              p3 (polar p2 1.57 h)          p4 (polar p3 3.14 5)
              р5 (polar p1 u 5)             р6 (inters p1 p5 p3 p4 nil)
              р7 (list (+ x l1) (+ y h1)) р8 (polar p1 4.71 10)
              р9 (polar p1 4.71 20)
         ) ; окончание функции - setq
        ; формирование изображения главного вида*********************
       (command "line" p1 p2 p3 p6 p1 "" "circle" p7 (/ d 2) )
        ; формирование изображения разреза
               (command "рline" p10 p11 p12 p13 p10 "")
               (command "рline" p14 p15 p16 p17 p14 "")
         ;нанесение изображения штриховки на разрезе
       (command "hatch" "jis_wood" "10" "0" p10 р14 "")
       (command "line" p15 p10 "" "line" p16 p13 "" )
         ; нанесение размеров на чертеже
       (command "dim" "horiz" P1 P2 P9 "" "horiz" P1 P7 P8 ""
                             "vertical" P3 P2 P19 ""
                   " vertical " p13 p16 p18 (strcat "%%c" (rtos d 2 0)) "exit")
 ); окончание функции – kontur

         Рис. 3.12. Пример составления текста программы для получения
                      параметрических изображений детали


                                             40

Страницы