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

UptoLike

ВУЗ: 

ОмГТУ | Омск

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

Рубрика: 

75
(setvar "DIMEXE" 2.)( setvar "DIMDLI" 0.)
;задание слоев и функций установки слоев – sl0, sl1, sl3 и sl4
(command "LAYER" "M" "1" "C" "5" "1" "" )
(command "LAYER" "M" "2" "C" "5" "2" "LTYPE" "hidden" "2" "")
(command "LAYER" "M" "3" "C" "5" "3" "LTYPE" "dashdot" "3" "")
(command "LAYER" "M" "4" "C" "3" "4" "")
(defun sl0()(command "LAYER" "S" "0" "")); изобр. основных линий
(defun sl1()(command "LAYER" "S" "1" "")); изобр. тонких линий
(defun sl2()(command "LAYER" "S" "2" "")); изобр. штриховых линий
(defun sl3()(command "LAYER" "S" "3" "")); изобр. штрих-пункт. линий
(defun sl4()(command "LAYER" "S" "4" "")); изобр. размерных линий
(setq ;ввод параметров на этапе отладки программы************
;x 100 y 100 d1 120 d2 64 d3 60 d4 16 d5 96 d6 10 l1 70 l2 24
l3 24 l4 40
; p1 (list x y)
p1 (getpoint " Задайте базовую точку главного вида")
; блок расчета координат точек главного вида************************
p2 (polar p1 1.57 ( / d3 2)) p3 (polar p1 4.71 ( / d3 2))
…
); окончание блока расчета точек главного вида
;блок построения изображения главного вида************************
(sl0)(command "line" p20 p2 p3 p27 p31 p6 p7 p8 p9 p21 p20 ""
"line" p28 p4 p5 p29 p28 "" "line" p37 p16 p15 p36 p37 "")
(command "fillet" "r" 5) (command "fillet" P101 p102
"fillet" P201 p202 "fillet" P301 p302 "fillet" P401 p402)
(sl1)(command "hatch" "jis_wood" "5" "0" "w" P50 P51 ""
"hatch" "jis_wood" "5" "0" "w" P50 P52 "")
(sl0)(command "line" p20 p21 p22 p19 p20 ""
"line" p27 p28 p29 p31 p27 "" "line" p37 p34 p35 p36 p37 "")
(sl3)(command "line" p53 p54 "" "line" p55 p56 "" "line" p57 p58 ""
"line" p61 p62 "" "arc" "c" p60 p63 p64 "" "arc" "c" p60 p66 p65 ""
"arc" "c" p60 p67 p68 "" "arc" "c" p60 p70 p69 "")
;блок расчета координат точек вида слева***************************
(setq 
       (setvar "DIMEXE" 2.)( setvar "DIMDLI" 0.)
      ;задание слоев и функций установки слоев – sl0, sl1, sl3 и sl4
      (command "LAYER" "M" "1" "C" "5" "1" "" )
      (command "LAYER" "M" "2" "C" "5" "2" "LTYPE" "hidden" "2" "")
      (command "LAYER" "M" "3" "C" "5" "3" "LTYPE" "dashdot" "3" "")
      (command "LAYER" "M" "4" "C" "3" "4" "")
     (defun sl0()(command "LAYER" "S" "0" "")); изобр. основных линий
      (defun sl1()(command "LAYER" "S" "1" "")); изобр. тонких линий
     (defun sl2()(command "LAYER" "S" "2" "")); изобр. штриховых линий
     (defun sl3()(command "LAYER" "S" "3" "")); изобр. штрих-пункт. линий
     (defun sl4()(command "LAYER" "S" "4" "")); изобр. размерных линий

      (setq ;ввод параметров на этапе отладки программы************
       ;x 100 y 100 d1 120 d2 64 d3 60 d4 16 d5 96 d6 10 l1 70 l2 24
l3 24 l4 40
       ; p1 (list x y)
             p1 (getpoint " Задайте базовую точку главного вида")
   ; блок расчета координат точек главного вида************************
             p2 (polar p1 1.57 ( / d3 2))             p3 (polar p1 4.71 ( / d3 2))
              …
    ); окончание блока расчета точек главного вида
    ;блок построения изображения главного вида************************
   (sl0)(command "line" p20 p2 p3 p27 p31 p6 p7 p8 p9 p21 p20 ""
           "line" p28 p4 p5 p29 p28 "" "line" p37 p16 p15 p36 p37 "")
           (command "fillet" "r" 5) (command "fillet" P101 p102
            "fillet" P201 p202 "fillet" P301 p302 "fillet" P401 p402)
   (sl1)(command "hatch" "jis_wood" "5" "0" "w" P50 P51 ""
                        "hatch" "jis_wood" "5" "0" "w" P50 P52 "")
   (sl0)(command "line" p20 p21 p22 p19 p20 ""
          "line" p27 p28 p29 p31 p27 "" "line" p37 p34 p35 p36 p37 "")
   (sl3)(command "line" p53 p54 "" "line" p55 p56 "" "line" p57 p58 ""
          "line" p61 p62 "" "arc" "c" p60 p63 p64 "" "arc" "c" p60 p66 p65 ""
                 "arc" "c" p60 p67 p68 "" "arc" "c" p60 p70 p69 "")
   ;блок расчета координат точек вида слева***************************
      (setq

                                       75

Страницы