미안해, 고마워. 사랑해!

MARINE DRAFTING에서 DWG OPEN

-- form
toggle .ckdwgopen 'DwgOpen' at xmax +1 ymin

-- method
import 'marAPI'
handle any
endhandle

using namespace 'Aveva.Marine.Drafting'
!Drafting = object MARDRAFTING()

!opensheet = '/dwg_sheet'

-- 체크되어 있으면
if !this.ckdwgopen.val.eq(true) then
	!chkshee = !Drafting.Dwgcurrent()
	-- 도면이 열려있으면
	if !chkshee then
		-- 저장
		!Drafting.DwgSave()
		-- 닫기
		!Drafting.DwgClose()
		handle any
			-- 오류 발생시
			!message = 'Close Sheet Error'
			return error 1 '$!message'
		endhandle
	endif
    
	-- 도면 열기
	!Drafting.DwgOpen(!opensheet)
	handle any
		!Drafting.DwgClose()
		handle any
			!message = 'Open Sheet Error'
			return error 1 '$!message'
		elsehandle none
			-- 문제 없을때
			!Drafting.DwgOpen(!opensheet)
			handle any
				!!alert.error('Open Sheet Error')
				return
			endhandle
		endhandle
	endhandle
endif