[求助] 帮我看看程序里面的问题，需要高手！
本帖最后由 作者 于 2005-5-8 22:11:23 编辑 <br /><br /> 当调用它时出现提示 “LIMITS.scr” 未找到文件 ，可是当我把这句注释掉以后又会出现 “layer.scr” 未找到文件 是怎么回事啊？哪位高手能指教一下啊？谢谢！Sub thno()<BR>hc = d4 / 2 + h + l<BR> If hc <= 148 Then<BR> no = 5<BR> ElseIf hc > 148 And hc <= 210 Then<BR> no = 4<BR> ElseIf hc > 210 And hc <= 297 Then<BR> no = 3<BR> ElseIf hc > 297 And hc <= 420 Then<BR> no = 2<BR> ElseIf hc > 420 And hc <= 594 Then<BR> no = 1<BR> ElseIf hc > 594 Then<BR> no = 0<BR> End If
<BR> <BR>If no = 0 Then<BR> bb = 1189: ll = 841: cc = 10<BR>ElseIf no = 1 Then<BR> bb = 841: ll = 594: cc = 10<BR>ElseIf no = 2 Then<BR> bb = 594: ll = 420: cc = 10<BR>ElseIf no = 4 Then<BR> bb = 420: ll = 297: cc = 5<BR>ElseIf no = 5 Then<BR> bb = 297: ll = 210: cc = 5<BR> End If<BR> <BR> aa = 25<BR> '定作图极限<BR>Dim ww, hh As String<BR>ww = LTrim(Str(bb))<BR>hh = LTrim(Str(ll))<BR>Print #1, ""<BR>Print #1, "LIMITS 0,0"; ww; ","; hh<BR>'画外框<BR>Print #1, "LAYER S 0"<BR>Print #1, "Rectangle"<BR>Print #1, "0,0"<BR>Print #1, ww; ","; hh<BR>'微锁缩摄影线<BR>Dim wl, hl, w0, w6, h0, h5 As String<BR>For i = 1 To 3<BR> wl = LTrim(Str(i * bb / 4))<BR> hl = LTrim(Str(i * hh / 4))<BR> h0 = LTrim(Str(cc))<BR> w0 = LTrim(Str(aa))<BR> h5 = LTrim(Str(hh - cc))<BR> w0 = LTrim(Str(aa))<BR> w6 = LTrim(Str(ww - cc))<BR> '竖<BR> Print #1, "line" '上<BR> Print #1, wl; ","; hh<BR> Print #1, wl; ","; h5<BR> Print #1, ""<BR> Print #1, "LINE " '下<BR> Print #1, wl; ","; h0<BR> Print #1, wl; ","; "0"<BR> Print #1, ""<BR> '横<BR> Print #1, "LINE" '左<BR> Print #1, "0"; ","; hl<BR> Print #1, w0; ","; hl<BR> Print #1, ""<BR> Print #1, "LINE" '右<BR> Print #1, w6; ","; hl<BR> Print #1, ww; ","; hl<BR> Print #1, ""
Next i<BR>'画内框<BR>Print #1, "LAYER S 2" '换层<BR> wl = LTrim(Str(bb - cc))<BR> hl = LTrim(Str(ll - cc))<BR>Print #1, "Rectangle "<BR>Print #1, w0; ","; h0<BR>Print #1, w6; ","; h5<BR>Print #1, ""<BR>'画标题栏<BR>Dim hh1, h2, h3, h4, xx, x1, w1, w2, w3, w4, w5 As String<BR> h0 = LTrim(Str(cc))<BR> h1 = LTrim(Str(cc + ll / 24))<BR> h2 = LTrim(Str(cc + ll / 12))<BR> h3 = LTrim(Str(cc + ll / 8))<BR> h4 = LTrim(Str(cc + ll / 6))<BR> x1 = (bb - cc) * 3 / 5<BR> xx = (bb - cc - x1) / 5<BR> w1 = LTrim(Str(x1))<BR> w2 = LTrim(Str(x1 + xx))<BR> w3 = LTrim(Str(x1 + 2 * xx))<BR> w4 = LTrim(Str(x1 + 3 * xx))<BR> w5 = LTrim(Str(x1 + 4 * xx))<BR> '粗线<BR>Print #1, "LINE"<BR>Print #1, w1; ","; h0<BR>Print #1, w1; ","; h4<BR>Print #1, w6; ","; h4<BR>Print #1, ""<BR>'画横格细线<BR>'Print #1, "LAYER S 0" '换层<BR>Print #1, "LINE"<BR>Print #1, w1; ","; hh1<BR>Print #1, w6; ","; hh1<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, w1; ","; h2<BR>Print #1, w6; ","; h2<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, w4; ","; h3<BR>Print #1, w6; ","; h3<BR>Print #1, ""<BR>Print #1, ""<BR>'画竖格细线<BR>Print #1, w2; ","; h0<BR>Print #1, w2; ","; h2<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, w3; ","; h0<BR>Print #1, w3; ","; h2<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, w4; ","; h0<BR>Print #1, w4; ","; h4<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, w5; ","; hh1<BR>Print #1, w5; ","; h4<BR>Print #1, ""<BR>'填标题栏项目<BR>h0 = LTrim(Str(cc + ll / 6 - 18))<BR>h1 = LTrim(Str(cc + ll / 24 - 8))<BR>h2 = LTrim(Str(cc + ll / 12 - 8))<BR>h3 = LTrim(Str(cc + ll / 8 - 8))<BR>h4 = LTrim(Str(cc + ll / 6 - 8))<BR>w0 = LTrim(Str(x1 + 12))<BR>w1 = LTrim(Str(x1 + 6))<BR>w2 = LTrim(Str(x1 + xx + 6))<BR>w3 = LTrim(Str(x1 + 2 * xx + 2))<BR>w4 = LTrim(Str(x1 + 3 * xx + 6))<BR>w5 = LTrim(Str(x1 + 4 * xx + 6))<BR>w6 = LTrim(Str(x1 + 3 * xx + 2))<BR>'Call common.Style(2)<BR>Print #1, "TEXT"<BR>Print #1, w0; ","; h0<BR>Print #1, "10"<BR>Print #1, "0"<BR>Print #1, TextBox19.Text<BR>Print #1, ""<BR>Print #1, w1; ","; h2<BR>Print #1, "5"<BR>Print #1, ""<BR>Print #1, "制 图"<BR>Print #1, ""<BR>Print #1, w2; ","; h2<BR>Print #1, "5"<BR>Print #1, ""<BR>Print #1, TextBox20.Text<BR>Print #1, ""<BR>Print #1, w1; ","; hh1<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, "审 核"<BR>Print #1, ""<BR>Print #1, w2; ","; hh1<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, TextBox22.Text<BR>Print #1, ""<BR>Print #1, w4; ","; h4<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, "图 号"<BR>Print #1, ""<BR>Print #1, w4; ","; h3<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, "材 料"<BR>Print #1, ""<BR>Print #1, w4; ","; h2<BR>Print #1, ""<BR>Print #1, ""<BR>Print #1, "件 数"<BR>Print #1, ""<BR>Print #1, w6; ","; hh1<BR>Print #1, ""<BR>Print #1, ""<BR>If num > 2 Then<BR> Print #1, "学校"; TextBox24.Text; "级"<BR>Else<BR> Print #1, "学校"; TextBox24.Text; "级"<BR>End If<BR> 'Call common.Style(1)<BR> Print #1, "TEXT"<BR> Print #1, w3; ","; h2<BR> Print #1, ""<BR> Print #1, ""<BR> Print #1, TextBox25.Text<BR> Print #1, ""<BR> Print #1, w3; ","; hh1<BR> Print #1, ""<BR> Print #1, ""<BR> Print #1, TextBox26.Text<BR> Print #1, ""<BR> Print #1, w5; ","; h4<BR> Print #1, ""<BR> Print #1, ""<BR> Print #1, TextBox27.Text<BR> Print #1, ""<BR> Print #1, w5; ","; h2<BR> Print #1, ""<BR> Print #1, ""<BR> Print #1, TextBox22.Text<BR> Print #1, ""<BR> Print #1, w5; ","; h3<BR> Print #1, ""<BR> Print #1, ""<BR> Print #1, TextBox21.Text<BR> Print #1, ""<BR> Print #1, ""<BR>End Sub<BR> 又没人？？ 我还需要一个加载填充样式的程序，谁能给我一个吗？
页:
[1]