📄 印刷盒型.tbl
字号:
<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="8" activesheetindex="2" range="0,0,1024,715" backcolor="$FFFFFF" frontcolor="$0" pattern="1">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="贴边位" bounds="32,16,48,112">
<line name="Line2" origin="34,61" pattern="1">
<points>
48,16,6
32,32,2
32,96,2
48,112,2
</points>
</line>
<line name="Line1" origin="48,61" linetype="3">
<points>
48,16,6
48,112,2
</points>
</line>
<line name="Line3" origin="48,64" linkmode="3" points="48,64,6">
<link>
Line1,P0,Center
</link>
</line>
<group name="Group1">
Line2
Line1
</group>
<programe>
Private Function OnResize(Sender)
if Height < 32 then
Height = 32
end if
Line2.Top=Top
Line2.Points[2].y = Top + Height - ( Line2.Points[1].y - Line2.Points[0].y )
Line2.Points[3].y = Top + Height
Line2.Refresh()
Line1.Top=Top
Line1.Height=Height
i=0
while i < LinkCount
link = Links[i]
if link.LinkTo = Sender then
link.LinkFrom.Top = Top
link.LinkFrom.Height = Height
end if
i = i + 1
wend
End Function
</programe>
</sheet>
<sheet name="盒正面" bounds="24,40,128,128">
<shape name="Rect1" bounds="24,40,128,128" origin="76,84" linetype="3" pattern="1"/>
<line name="Line3" origin="74,40">
<points>
24,40,6
128,40,2
</points>
</line>
<line name="Line4" origin="74,128">
<points>
24,128,6
128,128,2
</points>
</line>
<text name="Text1" bounds="64,104,94,124" origin="79,114" linecolor="$FFFFFF" fontname="宋体" fontsize="12" text="长"/>
<text name="Text2" bounds="104,72,124,92" origin="119,82" linecolor="$FFFFFF" fontname="宋体" fontsize="12" text="高"/>
<line name="Line1" origin="24,84" linkmode="2" points="24,84,6"/>
<line name="Line2" origin="76,40" linkmode="3" points="76,40,6">
<link>
Line3,P0,Center
</link>
</line>
<line name="Line5" origin="128,84" linkmode="2" points="128,84,6"/>
<line name="Line6" origin="76,128" linkmode="3" points="76,128,6">
<link>
Line4,P0,Center
</link>
</line>
<group name="Group1">
Line3
Line4
</group>
<programe>
Private Function OnResize(Sender)
Rect1.Left=Left;Rect1.Top=Top;Rect1.Width=Width;Rect1.Height=HeightLine1.MoveTo( Left, Top + Height / 2 )Line5.MoveTo( Left + Width, Top + Height / 2 )Line3.Left=Left;Line3.Top=Top;Line3.Width=WidthLine4.Left=Left;Line4.Top=Top + Height;Line4.Width=WidthText1.MoveTo( Left + Width / 2 - Text1.Width / 2, Top + Height - Text1.Height - 2 )Text2.MoveTo( Left + Width - Text2.Width - 2, Top + Height / 2 - Text2.Height / 2 )i=0while i < LinkCount link = Links[i] if link.LinkTo = Sender then if( link.LinkToFoot = "Line1" ) or ( link.LinkToFoot = "Line5" ) then link.LinkFrom.Top = Top link.LinkFrom.Height = Height else link.LinkFrom.Left = Left link.LinkFrom.Width = Width end if end if i = i + 1wend
End Function
</programe>
</sheet>
<sheet name="盒则面" bounds="16,16,72,104">
<shape name="Rect1" bounds="16,16,72,104" origin="68,60" linetype="3" pattern="1"/>
<line name="Line3" origin="66,16">
<points>
16,16,6
72,16,2
</points>
</line>
<line name="Line4" origin="66,104">
<points>
16,104,6
72,104,2
</points>
</line>
<text name="Text1" bounds="24,80,54,100" origin="39,90" linecolor="$FFFFFF" fontname="宋体" fontsize="12" text="宽"/>
<text name="Text2" bounds="48,48,68,68" origin="63,58" linecolor="$FFFFFF" fontname="宋体" fontsize="12" text="高"/>
<line name="Line1" origin="16,60" linkmode="3" points="16,60,6"/>
<line name="Line2" origin="44,16" linkmode="3" points="44,16,6">
<link>
Line3,P0,Center
</link>
</line>
<line name="Line5" origin="72,60" linkmode="3" points="72,60,6"/>
<line name="Line6" origin="44,104" linkmode="3" points="44,104,6">
<link>
Line4,P0,Center
</link>
</line>
<programe>
Private Function OnResize(Sender)
Rect1.Left=Left;Rect1.Top=Top;Rect1.Width=Width;Rect1.Height=HeightLine1.MoveTo( Left, Top + Height / 2 )Line5.MoveTo( Left + Width, Top + Height / 2 )Line3.Left=Left;Line3.Top=Top;Line3.Width=WidthLine4.Left=Left;Line4.Top=Top + Height;Line4.Width=WidthText1.MoveTo( Left + Width / 2 - Text1.Width / 2, Top + Height - Text1.Height - 2 )Text2.MoveTo( Left + Width - Text2.Width - 2, Top + Height / 2 - Text2.Height / 2 )i=0while i < LinkCount link = Links[i] if link.LinkTo = Sender then if( link.LinkToFoot = "Line1" ) or ( link.LinkToFoot = "Line5" ) then link.LinkFrom.Top = Top link.LinkFrom.Height = Height else link.LinkFrom.Left = Left link.LinkFrom.Width = Width end if end if i = i + 1wend
End Function
</programe>
</sheet>
<sheet name="盒底面" bounds="8,16,112,104">
<shape name="Rect1" bounds="8,16,112,104" origin="60,60" linetype="3" pattern="1"/>
<line name="Line3" origin="58,16">
<points>
8,16,6
8,104,2
</points>
</line>
<line name="Line4" origin="106,104">
<points>
112,16,6
112,104,2
</points>
</line>
<text name="Text1" bounds="48,80,72,100" origin="63,90" linecolor="$FFFFFF" fontname="宋体" fontsize="12" text="长"/>
<text name="Text2" bounds="88,48,108,68" origin="103,58" linecolor="$FFFFFF" fontname="宋体" fontsize="12" text="宽"/>
<line name="Line1" origin="8,60" linkmode="3" points="8,60,6">
<link>
Line3,P0,Center
</link>
</line>
<line name="Line2" origin="60,16" linkmode="1" points="60,16,6"/>
<line name="Line5" origin="112,60" linkmode="3" points="112,60,6">
<link>
Line4,P0,Center
</link>
</line>
<line name="Line6" origin="60,104" linkmode="1" points="60,104,6"/>
<programe>
Private Function OnResize(Sender)
Rect1.Left=Left;Rect1.Top=Top;Rect1.Width=Width;Rect1.Height=HeightLine2.MoveTo( Left + Width / 2, Top )Line6.MoveTo( Left + Width / 2, Top + Height )Line3.Left=Left;Line3.Top=Top;Line3.Height=HeightLine4.Left=Left+Width;Line4.Top=Top;Line4.Height=HeightText1.MoveTo( Left + Width / 2 - Text1.Width / 2, Top + Height - Text1.Height - 2 )Text2.MoveTo( Left + Width - Text2.Width - 2, Top + Height / 2 - Text2.Height / 2 )i=0while i < LinkCount link = Links[i] if link.LinkTo = Sender then if( link.LinkToFoot = "Line1" ) or ( link.LinkToFoot = "Line5" ) then link.LinkFrom.Top = Top link.LinkFrom.Height = Height else link.LinkFrom.Left = Left link.LinkFrom.Width = Width end if end if i = i + 1wend
End Function
</programe>
</sheet>
<sheet name="盒舌" bounds="16,8,64,40">
<line name="Line1" origin="40,20" pattern="1">
<points>
16,8,6
24,40,2
56,40,2
64,8,2
</points>
</line>
<line name="Line2" origin="40,8" linetype="3">
<points>
16,8,6
64,8,2
</points>
</line>
<line name="Line3" origin="40,8" linkmode="3" points="40,8,6">
<link>
Line2,P0,Center
</link>
</line>
<group name="Group1">
</group>
<programe>
Private Function OnResize(Sender)
if Width < 16 then
Width = 16
end if
Line1.Left=Left
Line1.Points[2].x = Left + Width - ( Line1.Points[1].x - Line1.Points[0].x )
Line1.Points[3].x = Left + Width
Line1.Refresh()
Line2.Left=Left
Line2.Width = Width
i=0
while i < LinkCount
link = Links[i]
if link.LinkTo = Sender then
link.LinkFrom.Left = Left
link.LinkFrom.Width = Width
end if
i = i + 1
wend
End Function
</programe>
</sheet>
<sheet name="插口位" bounds="16,16,112,32">
<line name="Line6" origin="64,24" pattern="1">
<points>
16,32,6
32,16,2
96,16,2
112,32,2
</points>
</line>
<line name="Line5" origin="64,32" linetype="3">
<points>
16,32,6
112,32,2
</points>
</line>
<line name="Line1" origin="64,32" linkmode="3" points="64,32,6">
<link>
Line5,P0,Center
</link>
</line>
<group name="Group1">
</group>
<programe>
Private Function OnResize(Sender)
if Width < 32 then
Width = 32
end if
Line6.Left=Left
Line6.Points[2].x = Left + Width - ( Line6.Points[1].x - Line6.Points[0].x )
Line6.Points[3].x = Left + Width
Line6.Refresh()
Line5.Left=Left
Line5.Width = Width
i=0
while i < LinkCount
link = Links[i]
if link.LinkTo = Sender then
link.LinkFrom.Left = Left
link.LinkFrom.Width = Width
end if
i = i + 1
wend
End Function
</programe>
</sheet>
</vg>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -