ПЗ (1218806), страница 10
Текст из файла (страница 10)
(setq alpha -0.0906601583674)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
) ; end if
(if (and (= getType 0)
(= getMark 0)
(= getView 1)
(= getDirection 1)
);0011 - P65 - 1/11 - Правостороннее - Противошерстное
(progn
(setq a -14.063); от оси передних стыков до центра стрелочного перевода
(setq b -19.304); от стрелочного перевода до торца крестовины
(setq alpha -0.0906601583674)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 0)
(= getMark 1)
(= getView 0)
(= getDirection 0)
);0100 - P65 - 1/9 - Левостороннее - Пошерстное
(progn
(setq a -15.227); от оси передних стыков до центра стрелочного перевода
(setq b -15.812); от стрелочного перевода до торца крестовины
(setq alpha 0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 0)
(= getMark 1)
(= getView 0)
(= getDirection 1)
) ; 0101 - P65 - 1/9 - Левостороннее - Противошерстное
(progn
(setq a 15.227); от оси передних стыков до центра стрелочного перевода
(setq b 15.812); от стрелочного перевода до торца крестовины
(setq alpha 0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 0)
(= getMark 1)
(= getView 1)
(= getDirection 0)
); 0110 - P65 - 1/9 - Правостороннее - Пошерстное
(progn
(setq a 15.227); от оси передних стыков до центра стрелочного перевода
(setq b 15.812); от стрелочного перевода до торца крестовины
(setq alpha -0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 0 b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 0)
(= getMark 1)
(= getView 1)
(= getDirection 1)
);0111 - P65 - 1/9 - Правостороннее - Противошерстное
(progn
(setq a -15.227); от оси передних стыков до центра стрелочного перевода
(setq b -15.812); от стрелочного перевода до торца крестовины
(setq alpha -0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 0)
(= getView 0)
(= getDirection 0)
);1000 - P50 - 1/11 - Левостороннее - Пошерстное
(progn
(setq a -14.475); от оси передних стыков до центра стрелочного перевода
(setq b -19.054); от стрелочного перевода до торца крестовины
(setq alpha 0.0906601583674)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 0)
(= getView 0)
(= getDirection 1)
);1001 - P50 - 1/11 - Левостороннее - Противошерстное
(progn
(setq a 14.475); от оси передних стыков до центра стрелочного перевода
(setq b 19.054); от стрелочного перевода до торца крестовины
(setq alpha 0.0906601583674)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 0)
(= getView 1)
(= getDirection 0)
);1010 - P50 - 1/11 - Правостороннее - Пошерстное
(progn
(setq a 14.475); от оси передних стыков до центра стрелочного перевода
(setq b 19.054); от стрелочного перевода до торца крестовины
(setq alpha -0.0906601583674)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 0)
(= getView 1)
(= getDirection 1)
);1011 - P50 - 1/11 - Правостороннее - Противошерстное
(progn
(setq a -14.475); от оси передних стыков до центра стрелочного перевода
(setq b -19.054); от стрелочного перевода до торца крестовины
(setq alpha -0.0906601583674)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 alpha b))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 1)
(= getView 0)
(= getDirection 0)
); 1100 - P50 - 1/9 - Левостороннее - Пошерстное
(progn
(setq a -15.459); от оси передних стыков до центра стрелочного перевода
(setq b -15.602); от стрелочного перевода до торца крестовины
(setq alpha 0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 1)
(= getView 0)
(= getDirection 1)
); 1101 - P50 - 1/9 - Левостороннее - Противошерстное
(progn
(setq a 15.459); от оси передних стыков до центра стрелочного перевода
(setq b 15.602); от стрелочного перевода до торца крестовины
(setq alpha 0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 1)
(= getView 1)
(= getDirection 0)
); 1110 - P50 - 1/9 - Правостороннее - Пошерстное
(progn
(setq a 15.459); от оси передних стыков до центра стрелочного перевода
(setq b 15.602); от стрелочного перевода до торца крестовины
(setq alpha -0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (+ a b));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
(if (and (= getType 1)
(= getMark 1)
(= getView 1)
(= getDirection 1)
); 1111 - P50 - 1/9 - Правостороннее - Противошерстное
(progn
(setq a -15.459); от оси передних стыков до центра стрелочного перевода
(setq b -15.602); от стрелочного перевода до торца крестовины
(setq alpha -0.110658722713)
(setq beta (* alpha getMultiPlier))
(setq L (* (+ a b) -1));полная длина перевода
(setq Pa2 (getpoint "Выберите местоположение"))
(setq Pa1 (polar Pa2 beta (- a))) ; +beta
(setq center1 (polar Pa2 (+ (/ pi 2) beta) 1))
(setq center2 (polar Pa2 (+ (/ (* 3 pi) 2) beta) 1))
(setq PL (polar Pa2 beta b))
(setq Pb1 (polar Pa2 0 0))
(setq Pb2 (polar Pb1 (+ beta alpha) b))
); end progn
); end if
;; отрисовка ;;;;
(setq po (getvar "osmode"))
(setvar "osmode" 0); привязка только конточки!
(command "PLINEWID" getWidthStr)
(command "_PLINE" Pa1 Pa2 PL Pb1 Pb2 "")
(command "_.pline" center1 center2 "")
(setvar "osmode" 7)
); end defun
;----------получение параметров---
(defun menu ()
(setq getType (atoi (get_tile "list_type_r")))
(setq getMark (atoi (get_tile "list_mark")))
(setq getView (atoi (get_tile "view")))
(setq getDirection (atoi (get_tile "direction")))
(setq getMultiPlier (atoi (get_tile "mn_ang")))
)
;----------диалоговое окно---
(defun C:strelochka (/ dcl_id getType getMark getView getDirection getMultiPlier)
(setq dcl_id (load_dialog
"C:/Users/Игорь/Desktop/diplom/group/Dialogs/strel_menu.dcl"
)
)
(if (null (new_dialog "strelka" dcl_id))
(exit)
)
(action_tile "accept" "(menu) (done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq ddi (start_dialog))