中尉
UID2404492
U币1
G币2855
技术0
主题4
精华0
阅读权限90
注册时间2015-9-14
最后登录2024-11-23
在线时间347 小时
手机18002520192
中尉
|
fmt "TOOL - " 4 tnote #Note format
fmt "DIA. OFF. - " 4 toffnote #Note format
fmt "LEN. - " 4 tlngnote #Note format
fmt "TOOL DIA. - " 1 tldia$ #Note format
fmt "XY STOCK TO LEAVE - " 2 xy_stock #Note format
fmt "Z STOCK TO LEAVE - " 2 z_stock #Note format
# --------------------------------------------------------------------------
fmt 4 year2 #Calculated year value
fmt 18 time2 #Capture 24-hour time value into 'time2' variable
fmt 19 hour #Hour
fmt 20 min #Minutes
year2 = year$ + 2000
#endregion
#region Tool comment, tool table, manual entry output
# --------------------------------------------------------------------------
# Tool Comment / Manual Entry Section
# --------------------------------------------------------------------------
ptoolcomment #Comment for tool
tnote = t$, toffnote = tloffno$, tlngnote = tlngno$
if tool_info = 1 | tool_info = 3,
sopen_prn, pstrtool, sdelimiter, *tnote, sdelimiter, *toffnote, sdelimiter, *tlngnote, sdelimiter, *tldia$, sclose_prn, e$
ptooltable #Tooltable output
sopen_prn, *t$, sdelimiter, pstrtool, sdelimiter, *tlngno$,
[if comp_type > 0 & comp_type < 4, sdelimiter, *tloffno$, sdelimiter, *scomp_type, sdelimiter, *tldia$],
[if xy_stock <> 0 | z_stock <> 0, sdelimiter, *xy_stock, sdelimiter, *z_stock],
sclose_prn, e$
xy_stock = 0 #Reset stock to leave values
z_stock = 0 #Reset stock to leave values
|
|