기계및 설비 cover 설계 프로그램

1. cover.fas
모든 기계 및 설비는 최종적으로 바깥부분에 Cover를 제작하여 덮어주게된다. 그런데 이 cover란 것이 단순하면서도 설계에 시간이 많이 걸리는 귀찮은 일중의 하나라 하겠다. 이프로그램은 이러한 cover제작에 필요한 도면을 1분도 안 걸리는 시간에 그려주는 프로그램이다.
캐드 비숙련자가 사용하려면
command에서 appload를 치고 본 프로그램을 저장한 곳에 가서 선택하여 load시킨 후
command에서 cover를 치고 나오는 사항에 따라서 cover를 부착시킬 구역에 구석 지점을 단 2번만 지적하고 지시에 따르면 도면의 전면도, 우측면도 그리고 상측면도를 안성하여 준다.
도면이 작고 cover그림이 크면 안 보일수 있으니 그런 때는 Zoom all로 하여 본다.
;;; by Sam Cha Won Ki Kea ; 2012-06-13
(defun c:cover(/)
(if (/= (type thk0) 'REAL)
(setq thk0 1.6)
);if
(setq thk1 (getreal (strcat "\n철판의 두께는[mm]? <" (rtos thk0 2 1) ">-.... :")))
(if (/= thk1 nil)
(setq thk0 thk1)
);if
(if (/= (type gap0) 'REAL)
(setq gap0 1.5)
);if
(setq gap1 (getreal (strcat "\n틈새는 얼마로[mm]? <" (rtos gap0 2 1) ">-.... :")))
(if (/= gap1 nil)
(setq gap0 gap1)
);if
(command "osnap" "end,int")
(setq llp0 (getpoint "\nFrame에서 아래 왼쪽 Corner point?....... :"))
(command "osnap" "int")
(command "orthomode" 0)
(setq urp0 (getcorner llp0 "\nFrame에서 위의 오른쪽 Corner point?....... :"))
(command "osnap" "non")
cover, 외장, 커버, 카바