2015-02-24
498
Программы автоматического построения разверток поверхностей цилиндров и конусов разработаны как специальные программы на языке программирования AutoLISP, внутреннем языке, встроенном в Автокад.
Программы разработаны по модульному принципу, на основе алгоритмов графоаналитических методов построения полных разверток поверхностей цилиндра и конуса (цельных и усеченных плоскостями, различным образом ориентированными относительно осей).
Программы являются параметрическими, т.е. предназначены для выполнения расчетов и построений разверток цилиндров и конусов по заданным параметрам любых размеров и соотношений в пределах типовых схем. На рис. 2 - 5 показаны различные типовые схемы расчета и построения разверток поверхностей цилиндра, конуса и их частей.
Рис. 2 Схемы построения развертки цилиндра
а) – цельный цилиндр, б) – развертка цельного цилиндра,
в) – усеченный цилиндр, г) – развертка усеченного цилиндра
Рис. 3 Схемы построения развертки конуса
а) – цельный конус и его развертка, б) – конус усеченный плоскостью, параллельной основанию и его развертка
|
|
|
а) б)
Рис. 4 Схема построения развертки конуса,
а) - усеченного плоскостью общего положения,
б) – усеченного плоскостью, проходящей через вершину
а) б)
Рис. 5 Схема построения развертки конуса,
а) - усеченного плоскостью, параллельной образующей,
б) - усеченного плоскостью, параллельной оси
Пример текста программы построения развертки цилиндра:
;------------------------------------------------------------------------
; Программа построения развертки части цилиндра, отсеченного плоскостью
; общего положения
;------------------------------------------------------------------------
(vmon)
(defun razvcil (d h h1 c)
(setq p6 (polar c 0.0 (/ (* pi d) 2))
p1 (polar c 0.0 (/ (* pi d) 12))
p2 (polar p1 0.0 (/ (* pi d) 12))
p3 (polar p2 0.0 (/ (* pi d) 12))
p4 (polar p3 0.0 (/ (* pi d) 12))
p5 (polar p4 0.0 (/ (* pi d) 12))
kc (polar c (/ pi 2) h1)
k1 (polar p1 (/ pi 2) (+ h1 (/ (* (- h h1) (- 2 (sqrt 3))) 4)))
k2 (polar p2 (/ pi 2) (+ h1 (/ (- h h1) 4)))
k3 (polar p3 (/ pi 2) (+ h1 (/ (- h h1) 2)))
k4 (polar p4 (/ pi 2) (+ h1 (/ (* (/ (- h h1)) 3) 4)))
k5 (polar p5 (/ pi 2) (+ h1 (/ (* (- h h1) (+ 2 (sqrt 3))) 4)))
k6 (polar p6 (/ pi 2) h)
o1 (polar kc (/ pi 2) (sqrt (+ (* d d) (* (- h h1) (- h h1)))))
o (polar o1 0.0 (/ (sqrt (+ (* d d) (* (- h h1) (- h h1)))) 2))
o2 (polar o 0.0 (/ d 2)) l (distance o o2)
)
(command "МАРКЕР" "ОТКЛ"
"_LINE" c p6 k6 "" "_MIRROR" "С" c k6 "" c kc ""
"_PLINE" k6 k5 k4 k3 k2 k1 kc "")
(setq e1 (entlast))
(command "_MIRROR" e1 "" c kc ""
"_PEDIT" e1 "Д" "П" "" "СГ" ""
"_CIRCLE" "2Т" c (polar c (/ (* 3 pi) 2) d)
"_ELLIPSE" kc o1 l
"_ZOOM" "Г"
"МАРКЕР" "ВКЛ"
"_SETVAR" "cmdecho" "1")
(setq c nil h1 nil h nil d nil)
(princ "\nOk!")
(princ)
)
(defun c:razvcil () (command "_SETVAR" "cmdecho" "0")
(setq d (getdist
"\nДиаметр цилиндра или первая точка для задания диаметра расстоянием: ")
|
|
|
h (getdist "\nНаибольшая высота цилиндра или первая точка: ")
h1 (getdist "\nНаименьшая высота цилиндра или первая точка: "))
d (float d) h (float h) h1 (float h1)
(setq c (getpoint "\nТочка привязки середины основания развертки боковой поверхности: "))
(razvcil d h h1 c))
Для использования специальных программ расчета и построения развертки, в соответствии с выбранной схемой, необходимо убедиться в наличии этих программ в компьютере. Имена файлов программ:
RAZVCIL.LSP – программа построения полной развертки цилиндра
RAZVKON.LSP – программа построения полной развертки конуса и его частей, отсеченных плоскостями.
После запуска программы “razvcil” нужно ввести параметры в ответ на запросы в командной строке.
После запуска программы “razvkon” на экране появляется слайд с изображением рисунков и номеров расчетных схем, см. рис. 6.
Рис. 6 Расчетные схемы для построения развертки фрагментов поверхности конуса
Из представленных схем нужно выбрать соответствующую и ввести ее номер для продолжения ввода параметров. Схема на рис. 3б реализуется по варианту 5.
Рекомендуется ознакомиться с каждой подпрограммой (построить развертку по каждой из предложенных схем).
