// // Copyright By R.Nomura http://www.amy.hi-ho.ne.jp/r-nomura/ // ***MENUGROUP=WDOOR ***TOOLBARS **TB_WDOOR **WDOOR ID_TB_WDOOR [_TOOLBAR("WDOOR", _FLOATING, _SHOW, 150, 150, 1)] ID__WDOOR [_BUTTON("WDOOR", "WDOOR.BMP", "ICON_24_BLANK")]^C^C_UCSICON ON _UCS O \_LINE;0,0 \ UCS OB L _ERASE L ARC $M=$(/,$(INDEX,0,$(GETVAR,LASTPOINT)),2),0 E 0,$M=$(/,$(INDEX,0,$(GETVAR,LASTPOINT)),2) A 90 LINE 0,$M=$(/,$(INDEX,0,$(GETVAR,LASTPOINT)),2) 0,0 ARC $M=$(INDEX,0,$(GETVAR,LASTPOINT)),$M=$(/,$(INDEX,0,$(GETVAR,LASTPOINT)),2) E $M=$(/,$(INDEX,0,$(GETVAR,LASTPOINT)),2),0 A 90 LINE $M=$(GETVAR,LASTPOINT) @0,$M=$(/,$(INDEX,0,$(GETVAR,LASTPOINT)),2);;UCS P P