// // Copyright By R.Nomura // ***MENUGROUP=STEEL_FRAME ***TOOLBARS **TB_STEEL_FRAME_F **STEEL_FRAME_F ID_TB_STEEL_FRAME_F [_Toolbar("STEEL_FRAME", _Floating, _Show, 150, 150, 1)] ID_STEEL_FRAME_F [_Flyout("STEEL_FRAME", RCDATA_16_BLANK, ICON_24_BLANK, _OtherIcon, STEEL_FRAME.TB_STEEL_FRAME)] **TB_STEEL_FRAME **STEEL_FRAME ID_tb_STEEL_FRAME [_Toolbar("H", _Top, _Hide, 6, 1, 1)] ID_H_U [_Button("H鋼 断面 基点上", "H_U.bmp", "ICON_24_BLANK")]^C^C_ID \_USERR1 \_USERR2 \_USERR3 \_USERR4 \_PLINE @ @$M=$(GETVAR,USERR2),0 @0,$M=$(GETVAR,USERR4) @-$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 @0,$M=$(-,$(GETVAR,USERR1),$(GETVAR,USERR4),$(GETVAR,USERR4)) @$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 @0,$M=$(GETVAR,USERR4) @-$M=$(GETVAR,USERR2),0 @0,-$M=$(GETVAR,USERR4) @$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 @0,-$M=$(-,$(GETVAR,USERR1),$(GETVAR,USERR4),$(GETVAR,USERR4)) @-$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 C;_MOVE L ;0,0 -$M=$(/,$(GETVAR,USERR2),2),-$M=$(GETVAR,USERR1) ID_H_C [_Button("H鋼 断面 基点中央", "H_C.bmp", "ICON_24_BLANK")]^C^C_ID \_USERR1 \_USERR2 \_USERR3 \_USERR4 \_PLINE @ @$M=$(GETVAR,USERR2),0 @0,$M=$(GETVAR,USERR4) @-$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 @0,$M=$(-,$(GETVAR,USERR1),$(GETVAR,USERR4),$(GETVAR,USERR4)) @$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 @0,$M=$(GETVAR,USERR4) @-$M=$(GETVAR,USERR2),0 @0,-$M=$(GETVAR,USERR4) @$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 @0,-$M=$(-,$(GETVAR,USERR1),$(GETVAR,USERR4),$(GETVAR,USERR4)) @-$M=$(/,$(-,$(GETVAR,USERR2),$(GETVAR,USERR3)),2),0 C;_MOVE L ;0,0 -$M=$(/,$(GETVAR,USERR2),2),-$M=$(/,$(GETVAR,USERR1),2)