1
1
1
0
0
0
Arial
1.2
1
TOP
FRONT
BOTTOM
BACK
linear
Arial
1.5
linear
Arial
1.5
linear
Arial
1.5
linear
Arial
1.5
Arial
1.0
0.4
0.7
Arial
1.5
1
Arial
1.5
1
Mat: [mat]\nQuality: [quality]\nName: [usage]\nSimilar: [count]\nIDs: [idlist]
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
1
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
0.4
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
14
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
|
|
|
|
|
|
|
|
|
Arial
1.1
55
1
Arial
1.5
2
4
linear
1
1.7
linear
1
linear
1
linear
1
linear
1
1
0.15
Arial
1
<!-- the following SETTINGS block is optional, you can overwrite the default setting (coming from general tag), the result will be applied only to this title -->
<settings>
<elemparam name="pen">16</elemparam>
</settings>
1
0
0
0
<settings>
<elemparam name="pen">15</elemparam>
</settings>
0
0
0
0
0
0
0
0
0
14
0
0
0
14
0
0
0
Arial
1.5
59
6
1
|
|
|
|
|
|
|
|
|
|
-
-
Front: visible
Back: visible
Lines
Lines
Etu: näkyy
Taka: näkyy
-
Front: visible
Back: not visible
Lines
Single line
Etu: näkyy
Taka: ei näy
-
Front: not visible
Back: visible
Single line
Lines
Etu: ei näy
Taka: näkyy
-
Front: not visible
Back: not visible
Single line
Single line
Etu: ei näy
Taka: ei näy
-
-
Front: visible
Etu: näkyy
-
Front: not visible
Etu: ei näy
-
Front: treated
Etu: käsitelty
-
-
Back: visible
Taka: näkyy
-
Back: not visible
Taka: ei näy
-
Back: treated
Taka: käsitelty
-
-
-
-
-
-
-
-
-
-
-
1
3
3
3
mm
10
1
1
0
0
linear
Arial
1.5
11
arial
1.5
cumulative
Arial
1.5
11
arial
1.5
cumulative
5
Arial
1.5
1
arial
1.5
0.0001 then
return false
end
end
return true
end
-- Checks if reinforcement covers the groove
function ReinforceCoversGro(tblReinforce, tblGro)
local x1, x2, xGro
x1=tblReinforce[2]-tblReinforce[4]*0.5
x2=x1+tblReinforce[4]
xGro=tblGro[2]
return x1xGro
end
-- Gets groove info for current plank and mc tblGroMc
-- Sets also boundbox of all lines at side surfaces: sidex1,sidey1,sidex2,sidey2
function GetGroInfo( plankInfo, tblGroMc )
local tblGro, tblGroInfo, x1, y1, x2, y2
tblGro={}
tblGro.guid = plankInfo.ptr
tblGro.x1 = tblGroMc[2]
tblGro.y1 = tblGroMc[3]
tblGro.x2 = tblGroMc[4]
tblGro.y2 = tblGroMc[5]
tblGro.depth = tblGroMc[6]
tblGro.width = tblGroMc[7]
tblGro.groAngleRad = tblGroMc[8]*gDegToRad
tblGro.face = tblGroMc[9]
tblGro.groTiltAngleRad = tblGroMc[10]*gDegToRad
tblGroInfo=af_request("mc_getgroinfo", tblGro)
x1=tblGroInfo.projside1.linebot.x1
y1=tblGroInfo.projside1.linebot.y1
x2=tblGroInfo.projside1.linebot.x2
y2=tblGroInfo.projside1.linebot.y2
if tblGroInfo.projside1.lineref.len>0 then
x1=math.min(x1, tblGroInfo.projside1.lineref.x1)
y1=math.min(y1, tblGroInfo.projside1.lineref.y1)
x2=math.max(x2, tblGroInfo.projside1.lineref.x2)
y2=math.max(y2, tblGroInfo.projside1.lineref.y2)
end
if tblGroInfo.projside1.lineother.len>0 then
x1=math.min(x1, tblGroInfo.projside1.lineother.x1)
y1=math.min(y1, tblGroInfo.projside1.lineother.y1)
x2=math.max(x2, tblGroInfo.projside1.lineother.x2)
y2=math.max(y2, tblGroInfo.projside1.lineother.y2)
end
tblGroInfo.sidex1=x1
tblGroInfo.sidey1=y1
tblGroInfo.sidex2=x2
tblGroInfo.sidey2=y2
return tblGroInfo
end
-- Returns reinforcement id, its height
function GetReinforceCode(height)
local s, dy
if height<0.2195 then
s="SF200"
dy=0.104
elseif height<0.2495 then
s="SF220"
dy=0.134
elseif height<0.2995 then
s="SF250"
dy=0.154
elseif height<0.3495 then
s="SF300"
dy=0.204
elseif height<0.3995 then
s="SF350"
dy=0.254
elseif height<0.4495 then
s="SF400"
dy=0.304
elseif height<0.4995 then
s="SF450"
dy=0.354
elseif height<0.5495 then
s="SF500"
dy=0.404
elseif height<0.5995 then
s="SF550"
dy=0.454
else
s="SF600"
dy=0.504
end
return s,dy
end
-- Calculates reinforcement for given groove, sets tblGro.groInfo also
-- Returns: tbl=reinforcement table with fields x1, x2, groInfo
-- nil=no automatic reinforcement for this groove
function AddReinforce(plankInfo, tblGro)
local tblGroInfo, extend, tbl, tanTilt, cosTilt, len2, add1, add2
-- Must be bottom surface
if tblGro[9]~=3 then
return nil
end
tblGroInfo=GetGroInfo(plankInfo, tblGro)
-- CONDITION: at least 16 mm and for angled planks >=24 mm will cause reinforcement
if tblGroInfo.sidey2<0.0155 or (tblGroInfo.sidey2<0.0235 and math.abs(plankInfo.vecx.z)>0.05) then
return nil
end
-- Extend 200 mm projected to horizontal
extend=0.2
tbl={}
tbl.x1=tblGroInfo.sidex1
tbl.x2=tblGroInfo.sidex2
tbl.groInfo=tblGroInfo
tblGro.groInfo=tblGroInfo
cosTilt=math.sqrt(plankInfo.vecx.x*plankInfo.vecx.x + plankInfo.vecx.y*plankInfo.vecx.y)
if cosTilt>0.01 then
local s, dy, height
tanTilt=plankInfo.vecx.z/cosTilt
height=plankInfo.height
s,dy=GetReinforceCode(height)
tbl.x1=tbl.x1+(height-dy)*0.5*tanTilt-extend/cosTilt
tbl.x2=tbl.x2+(height-dy)*0.5*tanTilt+extend/cosTilt
if tanTilt<0 then
-- Need to extend beg
tbl.x1=tbl.x1+dy*tanTilt
else
tbl.x2=tbl.x2+dy*tanTilt
end
end
-- Extend to the end if close enough
if tbl.x1<0.5005 then
tbl.x1=0
end
if tbl.x2>plankInfo.len-0.5005 then
tbl.x2=plankInfo.len
end
--ac_environment("tolog", string.format("tbl.x1=%f tbl.x2=%f len=%f", tbl.x1, tbl.x2, plankInfo.len))
if tbl.x1<0 then
tbl.x1=0
end
if tbl.x2>plankInfo.len then
tbl.x2=plankInfo.len
end
len2=(RoundLen(tbl.x2-tbl.x1)-(tbl.x2-tbl.x1))*0.5
add1=len2
add2=len2
if tbl.x10 then
angleX=0
x1=x
x2=x+0.150/cosTilt
else
angleX=180
x1=x-0.150/cosTilt
x2=x
end
-- Check if already covered
for i=1,tblNail.count do
if tblNail[i]~=nil then
xOld=tblNail[i][2]
if xOld>x1 and xOld0 and tanTilt>0) or (nDir<0 and tanTilt<0) then
-- Forward
xbot=x+(dyReinforce-0.050)*math.abs(tanTilt)*nDir
end
xbot=xbot+nDir*extraLen
ac_objectset("iMc", 306, row, 1)
ac_objectset("iMc", xbot, row, 2) -- x1
ac_objectset("iMc", y, row, 3) -- y1
ac_objectset("iMc", 1, row, 4) -- cols
ac_objectset("iMc", 2, row, 5) -- rows
ac_objectset("iMc", angleX, row, 6) -- anglex
ac_objectset("iMc", 90, row, 7) -- angley
ac_objectset("iMc", 0.025/cosTilt, row, 8) -- spacingx
ac_objectset("iMc", dyReinforce-0.050, row, 9) -- spacingy
ac_objectset("iMc", 3, row, 10) -- flags, both sides+automatic
ac_objectset("iMc", 2, row, 11) -- side
row=row+1
return row
end
-- Creates reinforce for given groove and also the related nail groups
-- tblNail: Existing nail groups
-- row, where to save next mc
-- Returns row to next mc
function CreateNails(plankInfo, tblGro, tblNail, row)
local height, s, dy, mat, x
if tblGro.groInfo==nil then
return row
end
height=plankInfo.height
s,dy=GetReinforceCode(height)
-- Add nailings. Find x1&x2 coordinates at plank's bottom
local y1, x1, x2, cosTilt, tanTilt
cosTilt=math.sqrt(plankInfo.vecx.x*plankInfo.vecx.x + plankInfo.vecx.y*plankInfo.vecx.y)
if cosTilt<0.01 then
return row
end
tanTilt=plankInfo.vecx.z/cosTilt
x1=99999
x2=-99999
if tblGro.groInfo.projside1.linebot.y1<0.001 then
x1=math.min(x1, tblGro.groInfo.projside1.linebot.x1)
x2=math.max(x2, tblGro.groInfo.projside1.linebot.x1)
end
if tblGro.groInfo.projside1.linebot.y2<0.001 then
x1=math.min(x1, tblGro.groInfo.projside1.linebot.x2)
x2=math.max(x2, tblGro.groInfo.projside1.linebot.x2)
end
if tblGro.groInfo.projside1.lineref.len>0 then
if tblGro.groInfo.projside1.lineref.y1<0.001 then
x1=math.min(x1, tblGro.groInfo.projside1.lineref.x1)
x2=math.max(x2, tblGro.groInfo.projside1.lineref.x1)
end
if tblGro.groInfo.projside1.lineref.y2<0.001 then
x1=math.min(x1, tblGro.groInfo.projside1.lineref.x2)
x2=math.max(x2, tblGro.groInfo.projside1.lineref.x2)
end
end
if tblGro.groInfo.projside1.lineother.len>0 then
if tblGro.groInfo.projside1.lineother.y1<0.001 then
x1=math.min(x1, tblGro.groInfo.projside1.lineother.x1)
x2=math.max(x2, tblGro.groInfo.projside1.lineother.x1)
end
if tblGro.groInfo.projside1.lineother.y2<0.001 then
x1=math.min(x1, tblGro.groInfo.projside1.lineother.x2)
x2=math.max(x2, tblGro.groInfo.projside1.lineother.x2)
end
end
y1=(plankInfo.height-dy)*0.5 + 0.025
x=x1-(0.025/cosTilt-y1*tanTilt)
if x>0.080 then
if tblGro.extbeg==nil then
tblGro.extbeg=0
end
row=AddNailGroup( plankInfo, tblNail, -1, cosTilt, tanTilt, dy, x, y1, row, tblGro.extbeg )
end
x=x2+(0.025/cosTilt+y1*tanTilt)
if xtblReinforceAuto[i2].x1) then
-- Join with existing one and continue joining with other parts
tblNew.x1=math.min(tblNew.x1, tblReinforceAuto[i2].x1)
tblNew.x2=math.max(tblNew.x2, tblReinforceAuto[i2].x2)
tblReinforceAuto[i2]=nil
end
end
tblReinforceAuto.count=tblReinforceAuto.count+1
tblReinforceAuto[tblReinforceAuto.count]=tblNew
end
-- nSgn 1=begin, -1=end
function CalcBegEndGroDist(plankInfo, tblGroMcs, nSgn)
local i, maxDist, nSide
maxDist=0 -- How much further we need to go from begin
nSide=5
if nSgn<0 then
nSide=6
end
for i=1,tblGroMcs.count do
tblNums=tblGroMcs[i]
if tblNums[9]==nSide then
-- Groove at begin surface, get its geometry
local tblGroInfo, tblGro, x1, x2, cosTilt
tblGro={}
tblGro.guid = plankInfo.ptr
tblGro.x1 = tblNums[2]
tblGro.y1 = tblNums[3]
tblGro.x2 = tblNums[4]
tblGro.y2 = tblNums[5]
tblGro.depth = tblNums[6]
tblGro.width = tblNums[7]
tblGro.groAngleRad = tblNums[8]*gDegToRad
tblGro.face = tblNums[9]
tblGro.groTiltAngleRad = tblNums[10]*gDegToRad
tblGroInfo = af_request("mc_getgroinfo", tblGro)
--DumpTbl(tblGro)
--DumpTbl(tblGroInfo)
x1=tblGro.depth*tblGroInfo.vecDown.x*nSgn
x2=x1+tblGro.width*tblGroInfo.vecLeft.x*nSgn
if x2>x1 then
x1=x2
end
cosTilt=math.cos(tblGro.groTiltAngleRad)
if math.abs(tblGro.groTiltAngleRad)>0.1 then
-- Use projected coordinates, x2=distance from end
if tblGroInfo.projside1.linebot.len>0 then
if nSgn>0 then
x2=math.max(tblGroInfo.projside1.linebot.x1, tblGroInfo.projside1.linebot.x2, tblGroInfo.projside2.linebot.x1, tblGroInfo.projside2.linebot.x2)
else
x2=math.min(tblGroInfo.projside1.linebot.x1, tblGroInfo.projside1.linebot.x2, tblGroInfo.projside2.linebot.x1, tblGroInfo.projside2.linebot.x2)
x2=plankInfo.len-x2
end
if x2>x1 then
x1=x2
end
end
end
if x1>maxDist then
maxDist=x1
end
end
end
return maxDist
end
function RoundLen(len)
if len<0.401 then
return 0.400
end
if len<0.601 then
return 0.600
end
if len<0.801 then
return 0.800
end
if len<1.201 then
return 1.200
end
if len<1.501 then
return 1.500
end
return len
end
-- Returns reinforcement needed for begin, creates the nails already
function DoBeg(plankInfo, tblNail, row, tblGroMcs)
local tbl, sCode, dy, cosTilt, tanTilt, tblNums
local extend, x, y, groDist, extraLen
sCode,dy=GetReinforceCode(plankInfo.height)
tbl={}
tbl.xmid=1
tbl.width=2
tbl.ymid=plankInfo.height*0.5
tbl.height=dy
tbl.thickness=0.010
tbl.side=2
tbl.bothsides=1
tbl.begend=-1
x,y=af_request("mc_reinforcecalcsupport", tbl)
-- Extend 25 + 200 mm projected to horizontal
extend=0.225
tbl={}
tbl.x1=0
tbl.x2=x
cosTilt=math.sqrt(plankInfo.vecx.x*plankInfo.vecx.x + plankInfo.vecx.y*plankInfo.vecx.y)
if cosTilt<0.01 then
return nil
end
-- Check if grooves at begin (for the I-steel beams)
groDist=CalcBegEndGroDist(plankInfo, tblGroMcs, 1)
--ac_environment( "tolog", string.format("BEG: x=%f groDist%f", x, groDist) )
tbl.x2=tbl.x2+extend/cosTilt+groDist
tanTilt=plankInfo.vecx.z/cosTilt
if tanTilt>0 then
tbl.x2=tbl.x2+dy*tanTilt
else
-- Move nailings forward if needed
local minx
minx=-(dy-0.025)*tanTilt
if xplankInfo.len then
extraLen=plankInfo.len-tbl.x2
end
tbl.x2=tbl.x2+extraLen
-- Nails
y1=(plankInfo.height-dy)*0.5 + 0.025
x=x+0.025/cosTilt+0.025*tanTilt+groDist
row=AddNailGroup( plankInfo, tblNail, 1, cosTilt, tanTilt, dy, x, y1, row, extraLen )
return tbl, row
end
-- Returns reinforcement needed for end, creates the nails already
function DoEnd(plankInfo, tblNail, row, tblGroMcs)
local tbl, sCode, dy, cosTilt, tanTilt, groDist
local extend, x, y, extraLen
sCode,dy=GetReinforceCode(plankInfo.height)
tbl={}
tbl.xmid=plankInfo.len-1
tbl.width=2
tbl.ymid=plankInfo.height*0.5
tbl.height=dy
tbl.thickness=0.010
tbl.side=2
tbl.bothsides=1
tbl.begend=1
x,y=af_request("mc_reinforcecalcsupport", tbl)
-- Extend 25 + 200 mm projected to horizontal
extend=0.225
tbl={}
tbl.x1=x
tbl.x2=plankInfo.len
cosTilt=math.sqrt(plankInfo.vecx.x*plankInfo.vecx.x + plankInfo.vecx.y*plankInfo.vecx.y)
if cosTilt<0.01 then
return nil
end
-- Check if grooves at begin (for the I-steel beams)
groDist=CalcBegEndGroDist(plankInfo, tblGroMcs, -1)
--ac_environment( "tolog", string.format("END: plankInfo.len-x=%f groDist%f", plankInfo.len-x, groDist) )
x=x
tbl.x1=tbl.x1-extend/cosTilt-groDist
tanTilt=plankInfo.vecx.z/cosTilt
if tanTilt<0 then
tbl.x1=tbl.x1+dy*tanTilt
else
-- Move nailings forward if needed
local minx
minx=(dy-0.025)*tanTilt
if plankInfo.len-xplankinfo.width-EPS and math.abs(y2-y1)plankinfo.height then
local orgSide, depthOrg
orgSide=side
depthOrg=depth
if y1plankinfo.width-EPS and math.abs(x2-x1)0.999 then
s="front"
if side==1 then
s="back"
end
if lang=="fin" then
s="etu"
if side==1 then
s="taka"
end
end
else
s="bottom"
if side==1 then
s="top"
end
if lang=="fin" then
s="ala"
if side==1 then
s="ylä"
end
end
end
if math.abs(distBot)0.99 then
if lang=="fin" then
s=string.format("Lovi %s %sx%s ar:sta %s", s, Len2Str(depth), Len2Str(width), Len2Str(distBot))
else
s=string.format("Slot %s %sx%s from bot %s", s, Len2Str(depth), Len2Str(width), Len2Str(distBot))
end
else
if lang=="fin" then
s=string.format("Lovi %s %sx%s alusta %s", s, Len2Str(depth), Len2Str(width), Len2Str(distBot))
else
s=string.format("Slot %s %sx%s from begin %s", s, Len2Str(depth), Len2Str(width), Len2Str(distBot))
end
end
else
if plankinfo.vecx.z>0.99 then
if lang=="fin" then
s=string.format("Lovi %s %sx%s yr:sta %s", s, Len2Str(depth), Len2Str(width), Len2Str(distTop))
else
s=string.format("Slot %s %sx%s from top %s", s, Len2Str(depth), Len2Str(width), Len2Str(distTop))
end
else
if lang=="fin" then
s=string.format("Lovi %s %sx%s lopusta %s", s, Len2Str(depth), Len2Str(width), Len2Str(distTop))
else
s=string.format("Slot %s %sx%s from end %s", s, Len2Str(depth), Len2Str(width), Len2Str(distTop))
end
end
end
res=res .. s
else
nUnknown=nUnknown+1
end
elseif mc==101 or mc==201 then
-- Cut beg/end
local a1, a2, fmt
a1=ac_objectget("iMc", i, 2)
a2=ac_objectget("iMc", i, 3)
fmt="Angled beg"
if mc==201 then
fmt="Angled end"
end
if lang=="fin" then
fmt="Viiste alku"
if mc==201 then
fmt="Viiste loppu"
end
end
if res~="" then
res=res .. ", "
end
if math.abs(a1-90)>0.4 and math.abs(a2-90)<0.4 then
s=string.format("%s %.0f°", fmt, math.abs(a1-90))
elseif math.abs(a1-90)<0.4 and math.abs(a2-90)>0.4 then
if lang=="fin" then
s=string.format("%s korksuunnassa %.1f°", fmt, math.abs(a2-90))
else
s=string.format("%s in height dir %.1f°", fmt, math.abs(a2-90))
end
else
if lang=="fin" then
s=string.format("%s kahteen suuntaan, katso ohje", fmt)
else
s=string.format("%s double angled, see detail", fmt)
end
end
res=res .. s
elseif mc==305 then
-- Lengthwise cut
local side, x1, width, depth, yoff, angle_c, angle_d, handled, w2, depth, height, plankInfo
side=ac_objectget("iMc", i, 2)
x1=ac_objectget("iMc", i, 3)
width=ac_objectget("iMc", i, 4)
depth=ac_objectget("iMc", i, 5)
yoff=ac_objectget("iMc", i, 6)
angle_c=ac_objectget("iMc", i, 7)
angle_d=ac_objectget("iMc", i, 8)
--ac_environment("tolog", string.format("x1=%f width=%f depth=%f yoff=%f angle_c=%f angle_d=%f", x1, width, depth, yoff, angle_c, angle_d))
w2=plankinfo.height*0.5
if x1<0.001 and width<0.001 and math.abs(depth)<0.001 and (side==2 or side==4) then
if angle_c>0 and math.abs(angle_d)<0.1 then
-- Top of the surface cut
-- 0.017453292=PI/180
depth=w2-yoff
height=depth*math.tan(angle_c*0.017453292)
elseif angle_d>0 and math.abs(angle_c)<0.1 then
-- Bottom of the surface cut
depth=w2+yoff
height=depth*math.tan(angle_d*0.017453292)
end
plankInfo=af_request("plankinfo")
if depth>0 and height>0 and depth0 then
-- Do not calculate as unknown: EMcMarking = 303, EMcNailGroup = 306, EMcNailLine = 307, EMetalShoeEnd = 1000, EMetalHobaFix = 1001
if mc~=303 and mc~=306 and mc~=307 and mc~=1000 and mc~=1001 then
nUnknown=nUnknown+1
end
end
end
if nUnknown>0 and not bCladding then
if res~="" then
res=res .. ", "
end
if lang=="fin" then
s=string.format("muita työstöjä %d kpl - katso ohje", nUnknown)
else
s=string.format("other cuts %d pcs - see detail", nUnknown)
end
res=res .. s
end
return res
end
function SetCalcPars()
local t, s, s2
t=af_request("plankinfo")
if not t then
return
end
if t.matname then -- Missing of old prog version?
s=ac_objectget("iMatName")
--ac_environment("tolog", string.format("s=%s, t.matname=%s", s, t.matname))
if s and s~=t.matname then
ac_objectset("iMatName", t.matname)
end
end
-- Machinings text
s=ac_objectget("iMachiningText")
s2=GetInfoText(t)
if s and s2 and s~=s2 then
--ac_environment("tolog", string.format("s=%s, s2=%s", s, s2))
ac_objectset("iMachiningText", s2)
end
end
function OpenObj(sGuid)
ac_objectopen(sGuid)
end
-- Called just before the plank is saved just after normal cleanup only for master planks (no 2D projections handled here). sGuid is in @ptr form
-- nCode 1=new plank, 2=edit old
-- Return value: 0=no change, 1=changed - do cleanup
function OnPostClean( sGuid, nCode )
local row, rows, col, cols, mc, tblGro, tblReinforce, tblReinforceAuto, tblNail, guid, s, tbl, doBeg, doEnd, doGro, forceRefresh, plankInfo
--ac_objectopen(sGuid)
row, s=pcall(OpenObj, sGuid) -- Silent fail
if not row then
return 0
end
s=ac_objectget("iMatId")
--ac_environment("tolog", string.format("OnPreSave( %s, %d ), guid=%s", sGuid, nCode, ac_objectget("#guid")))
SetCalcPars() -- Added 1/2020
rows=ac_objectget("iMc", -1)
if rows==1 then
-- Bail out if no mcs
ac_objectclose()
return 0
end
-- Birkeland uses the settings from bits 0...3, the common version uses from 10...13
row=ac_objectget("iFlagsCustom")
if row==nil then
-- Bail out if old library
ac_objectclose()
return 0
end
doBeg=ac_environment("bittest", row, 10)
doEnd=ac_environment("bittest", row, 11)
doGro=ac_environment("bittest", row, 12) -- Default is off for general use
forceRefresh=false
if ac_environment("bittest", row, 13)==1 then
forceRefresh=true
ac_objectset("iFlagsCustom", row-8192)
end
if doBeg+doEnd+doGro==0 then
-- No automation
ac_objectclose()
return 0
end
tblGro={}
tblGro.count=0
tblReinforce={}
tblReinforce.count=0
tblReinforceAuto={}
tblReinforceAuto.count=0
tblNail={}
tblNail.count=0
plankInfo=af_request("plankinfo")
for row=1,rows do
mc=ac_objectget("iMc", row, 1)
if mc==301 then
-- Groove
tblGro.count=tblGro.count+1
tblGro[tblGro.count]=GetMcRow(row)
elseif mc==304 then
-- Reinforce
tbl=GetMcRow(row)
if ac_environment("bittest", tbl[12], 0)==1 then
tblReinforceAuto.count=tblReinforceAuto.count+1
tblReinforceAuto[tblReinforceAuto.count]=tbl
else
tblReinforce.count=tblReinforce.count+1
tblReinforce[tblReinforce.count]=tbl
end
elseif mc==306 then
-- Nail group
tblNail.count=tblNail.count+1
tblNail[tblNail.count]=GetMcRow(row)
end
end
guid=ac_objectget("#guid")
ac_objectclose()
local nChangedGro
nChangedGro=tblGro.count
if nCode==2 then
-- Edit old - open previous version and set all mcs similar to old one to nil
local tbl, scan, found
ac_objectopen(">" .. guid)
rows=ac_objectget("iMc", -1)
for row=1,rows do
mc=ac_objectget("iMc", row, 1)
if mc==301 then
-- Groove
tbl=GetMcRow(row)
found=false
for scan=1,tblGro.count do
if IsSameMc(tbl, tblGro[scan]) then
nChangedGro=nChangedGro-1
found=true
break
end
end
if not found then
nChangedGro=nChangedGro+1000
end
end
end
if doGro~=ac_environment("bittest", ac_objectget("iFlagsCustom"), 12) then
-- Changed from off to on, recreate
nChangedGro=nChangedGro+1000
end
ac_objectclose()
end
local nRes
nRes=0
if (doGro==1 and (nChangedGro~=0 or forceRefresh)) or doBeg==1 or doEnd==1 then
-- Changes in grooves or automatic begin and end, recreate all automatic reinforcements
local i1, i2, found, x1, x2, row
ac_objectopen(sGuid)
-- Delete every existing automatic reinforcement
for i1=1,tblReinforceAuto.count do
ac_objectset("iMc", 0, tblReinforceAuto[i1].index, 1)
end
-- The same for the nailing groups
for i1=1,tblNail.count do
if ac_environment("bittest", tblNail[i1][10], 1)==1 then
-- Automatic nail (bit1)
ac_objectset("iMc", 0, tblNail[i1].index, 1)
tblNail[i1]=nil
end
end
tblReinforceAuto={}
tblReinforceAuto.count=0
row=ac_objectget("iMc", -1)
if ac_objectget("iMc", row, 1)~=0 then
row=row+1
end
if doGro==1 then
-- Create new ones GRO
for i1=1,tblGro.count do
tbl=AddReinforce(plankInfo, tblGro[i1])
if tbl then
AddToAutoTbl(tblReinforceAuto, tbl)
end
end
-- Nails for grooves
for i1=1,tblGro.count do
row=CreateNails(plankInfo, tblGro[i1], tblNail, row)
end
end
if doBeg==1 then
tbl,row=DoBeg(plankInfo, tblNail, row, tblGro)
AddToAutoTbl(tblReinforceAuto, tbl)
end
if doEnd==1 then
tbl,row=DoEnd(plankInfo, tblNail, row, tblGro)
AddToAutoTbl(tblReinforceAuto, tbl)
end
-- Create mcs
-- Create automatic reinforcements
for i1=1,tblReinforceAuto.count do
-- Combine with existing non-automatic ones
tbl=tblReinforceAuto[i1]
if tbl~=nil then
for i2=1,tblReinforce.count do
x2=tblReinforce[i2][4]
x1=tblReinforce[i2][2]-x2*0.5
x2=x1+x2
if tbl.x1-0.001x1 then
x1=math.min(x1,tbl.x1)
x2=math.max(x2,tbl.x2)
tblReinforce[i2][2]=(x1+x2)*0.5
tblReinforce[i2][4]=x2-x1
ac_objectset("iMc", tblReinforce[i2][2], tblReinforce[i2].index, 2) -- mid
ac_objectset("iMc", tblReinforce[i2][4], tblReinforce[i2].index, 4) -- width
tbl=nil
break
end
end
if tbl then
local tblAdded
tblAdded, row=CreateReinforce(plankInfo, tbl, row)
-- Add to current reinforcement tbl to work with begin and end, not needed actually
--tblReinforce.count=tblReinforce.count+1
--tblReinforce[tblReinforce.count]=tblAdded
end
end
end
ac_objectclose()
nRes=1
end
return nRes
end
]]>
1
*dash*|*katko*
0
1
*dash*|*katko*
0
0
0
y2 then
-- To have positive angle
af_request("mc_swapgroref", tblGro)
x1 = tblGro.x1
y1 = tblGro.y1
x2 = tblGro.x2
y2 = tblGro.y2
groDepth = tblGro.depth
groAngle = tblGro.groAngleRad
groAngleLen = tblGro.groTiltAngleRad
end
tblGroInfo = af_request("mc_getgroinfo", tblGro)
return tblGroInfo, tblGro
end
-- Asks for the material to use. Last selected plank must be opened when calling this
-- Returns (len=0 if not to be added, all nil if canceled): lenbeg, lenend, tblGroInfos
function SettingsDlg()
local tblSettings, bRes
local tblGroInfos, s, nGro, i, mc, tblTemp, strSep, mcCount
tblGroInfos={}
nGro=0
strSep=""
s=""
mcCount=ac_objectget("iMc", -1)
for i=1,mcCount do
mc=ac_objectget("iMc", i, 1)
if not mc then
break
end
if mc==301 then
-- Groove
tblTemp=GetGroInfo(i)
if tblTemp.isBird then
mulDir2=1
--ac_environment("tolog", dump(tblTemp))
x=tblTemp.projside1.lineref.x1
y=tblTemp.projside1.lineref.y1
if tblTemp.projside1.lineref.len0 then
if lenBeg>tblInfo.len then
lenBeg=tblInfo.len
end
AddReinforcement(lenBeg*0.5, lenBeg)
end
if lenEnd>0 then
if lenEnd>tblInfo.len then
lenEnd=tblInfo.len
end
AddReinforcement(tblInfo.len-lenEnd*0.5, lenEnd)
end
for iGro,vGro in ipairs(tblGro) do
if vGro.len>tblInfo.len then
vGro.len=tblInfo.len
end
if vGro.len>0 then
AddReinforcement(vGro.x, vGro.len)
end
end
nPlanks=nPlanks+1
ac_objectclose()
end
return string.format("Processed %d", nPlanks)
end
gsStatus=Do()
]]>
p2.len
end)
i=2
while tbl[i] do
--ac_environment("tolog", string.format("DEL %s, len=%f", tbl[i].guid, tbl[i].len))
ac_objectopen(tbl[i].guid)
af_request("delplank")
ac_objectclose()
i=i+1
end
end
function Do()
local tblSel, tblSettings, tblOp, tblRes
tblSel=af_request("getselplanks")
if tblSel==nil or tblSel[0]==nil or tblSel[1]==nil then
return "Please select two planks, first to be longer"
end
tblSettings={}
tblSettings.endshape=2
tblSettings.cuttoendplane=1
tblSettings.expandopfind=0.001
tblSettings.skipopsides=16+32 -- Do not check the ends
tblOp={}
tblOp[1]=tblSel[1]
tblRes=af_request("adjusttoside", tblSettings, tblSel[0], tblOp)
if tblRes==nil then
return "WARNING: NOTHING DONE"
end
-- In case of angled corners the result may be split - keep just the longest parts
KeepLongest(tblRes)
-- Short (if changing)
tblSettings.cuttoendplane=0
tblOp[1]=tblSel[0]
tblRes=af_request("adjusttoside", tblSettings, tblSel[1], tblOp)
if tblRes then
KeepLongest(tblRes)
end
end
gsStatus=Do()
]]>
0 then
nChecked=nChecked+1
b=false
for imc=1,cmc do
if ac_objectget("iMc",imc, 1)>0 then
b=true
break
end
end
if b then
nPlanks=nPlanks+1
tblMcPlanks[nPlanks]=v
end
end
ac_objectclose()
end
end
s=string.format("No machinings found, checked %d", nChecked)
if nPlanks>0 then
local b
b = ac_environment("suspendgroups", true)
ac_environment("setsel", tblMcPlanks)
s=""
if not b then
s=". Suspended groups"
end
s=string.format("Mcs found from %d/%d planks%s", nPlanks, nChecked, s)
end
return s
end
gsStatus=Do()
]]>
0 and val and (bSkipProj==false or val==0) then
nChecked=nChecked+1
b=false
for imc=1,cmc do
if ac_objectget("iMc",imc, 1)==304 then
b=true
break
end
end
if b then
nPlanks=nPlanks+1
tblMcPlanks[nPlanks]=v
end
end
ac_objectclose()
end
end
s=string.format("No reinforcements found, checked %d", nChecked)
if nPlanks>0 then
local b
b = ac_environment("suspendgroups", true)
ac_environment("setsel", tblMcPlanks)
s=""
if not b then
s=". Suspended groups"
end
s=string.format("Reinforcements found from %d/%d planks%s", nPlanks, nChecked, s)
end
return s
end
gsStatus=Do()
]]>
0.0001"
end
count=af_request("boardgap", tblSel, t)
return string.format("Edited %d boards", count)
end
gsStatus=Do()
]]>
totlen1+0.100+math.abs(xoff) or len2<-gnDrillDia/2 or len2>totlen2+gnDrillDia/2 then
return
end
--Add to top plate to y-coordinate center of the stud line
local drilly,hory,verty1,verty2
hory1=hor.info.elemdata.by1
hory2=hor.info.elemdata.by2
if hory2gnDistTop then
break
end
i2=i2+1
end
local x1, x2, i3, hor, y1stud, y2stud, y2
x1=tblVert[i1].info.elemdata.x1-gnDistTop
x2=tblVert[i2-1].info.elemdata.x2+gnDistTop
-- We have i1 - i2-1 studs, find intersecting horizontal pieces
y1stud=nil
y2stud=nil
for i3=1,#tblHor do
hor=tblHor[i3]
x,y=AddTopDrill(tblVert[i1], -gnDistTop, hor)
if y then
-- Save min&max y for gable walls. First adjust y to be relative to the stud and decrease distance from top
y=tblVert[i1].info.elemdata.y2
if tblVert[i1].info.elemdata.y1>y then
y=tblVert[i1].info.elemdata.y1 -- Upside down
end
y=y-gnDistStud
if not y1stud or yy2stud then
y2stud=y
end
ndrills=ndrills+1
end
-- Group or not, add last stud's drilling to top
x,y=AddTopDrill(tblVert[i2-1], gnDistTop, hor)
if y then
-- Save min&max y for gable walls. First adjust y to be relative to the stud and decrease distance from top
y=tblVert[i1].info.elemdata.y2
if tblVert[i1].info.elemdata.y1>y then
y=tblVert[i1].info.elemdata.y1 -- Upside down
end
y=y-gnDistStud
if not y1stud or yy2stud then
y2stud=y
end
ndrills=ndrills+1
end
end
if y1stud then
-- Use minimum y to drill the studs
i3=i1
while i3
%f %f", x, y, xres, yres))
return xres, yres
end
-- Adds drill to all items in selection
-- Returns: nil=ok, str=error msg
function DoDrill(clickres, count)
local i, v, info
if false then
-- Dump result
ac_environment("tolog", string.format("begc.x=%f begc.y=%f begc.z=%f", clickres.begc.x, clickres.begc.y, clickres.begc.z))
if clickres.endc then
ac_environment("tolog", string.format("endc.x=%f endc.y=%f endc.z=%f", clickres.endc.x, clickres.endc.y, clickres.endc.z))
end
for i,v in ipairs(clickres.elems) do
ac_environment("tolog", string.format("%d: guid=%s side1=%d x1=%f y1=%f", i, v.guid, v.side1, v.x1, v.y1))
end
end
-- First find a board and use its geometry world
local sideWorld, tblBoards
tblBoards={}
for i,v in ipairs(clickres.elems) do
info=af_request("plankinfo", v.guid)
if info.masterelemguid then
-- Switch to master
v.guid=info.masterelemguid
info=af_request("plankinfo", v.guid)
end
v.info=info
if info.type==4 then
tblBoards[#tblBoards+1]=v
if not sideWorld then
sideWorld=info.tblSides[v.side1]
sideWorld.x=v.x1
sideWorld.y=v.y1
-- Nope, switch to masters for all: break
end
end
end
if not sideWorld then
gsStatus="Please select at least one board also"
return 0
end
-- Then convert all planks int to 2D of the selected world. Pick first plank as reference plank
local t, tblPlanks, tblPlank1, dummy
local w2, side
tblPlanks={}
for i,v in ipairs(clickres.elems) do
info=v.info --af_request("plankinfo", v.guid, geoWorld)
if info.type==1 or info.type==2 then
-- it is a plank
t={}
t.info=info
t.clickres=v
-- Calc dest surface's middle line as our ref line
side=info.tblSides[v.side1]
t.width=side.dy
w2=t.width * 0.5
--ac_environment("tolog", string.format("side.origc.x=%f side.origc.y=%f side.origc.z=%f side.dx=%f side.dy=%f", side.origc.x, side.origc.y, side.origc.z, side.dx, side.dy))
--ac_environment("tolog", string.format("side.vecx.x=%f side.vecx.y=%f side.vecx.z=%f side.vecy.x=%f side.vecy.y=%f side.vecy.z=%f", side.vecx.x, side.vecx.y, side.vecx.z, side.vecy.x, side.vecy.y, side.vecy.z))
t.x1,t.y1=TransformCoord(sideWorld, side, 0, w2)
t.x2,t.y2=TransformCoord(sideWorld, side, side.dx, w2)
t.dx=t.x2 - t.x1
t.dy=t.y2 - t.y1
t.len=math.sqrt(t.dx * t.dx + t.dy * t.dy)
if t.len>0.0001 then
t.dx=t.dx/t.len
t.dy=t.dy/t.len
if not tblPlank1 then
t.dist=0
tblPlank1=t
else
t.dist=ac_geo("linedist", tblPlank1.x1, tblPlank1.y1, tblPlank1.x2, tblPlank1.y2, t.x1, t.y1)
if math.abs(CalcDot3D(t.dx, t.dy, 0, tblPlank1.dx, tblPlank1.dy, 0))<0.99 then
ac_environment("tolog", "Non-parallel planks in selection - operation may fail")
t=nil
end
end
if t then
dummy,t.distfrombeg=ac_geo("linedist", t.x1, t.y1, t.x2, t.y2, sideWorld.x, sideWorld.y)
--ac_environment("tolog", string.format("t.x1=%f, t.y1=%f, t.x2=%f, t.y2=%f, geoWorld.x=%f, geoWorld.y=%f t.distfrombeg=%f t.dist=%f", t.x1, t.y1, t.x2, t.y2, geoWorld.x, geoWorld.y, t.distfrombeg, t.dist))
if t.distfrombeg>-gnDrillDia*0.5 and t.distfrombeg#tblPlanks then
break
end
dist=ac_geo("linedist", tblPlanks[i2].x1, tblPlanks[i2].y1, tblPlanks[i2].x2, tblPlanks[i2].y2, tblPlanks[i2-1].x1, tblPlanks[i2-1].y1)
if math.abs(dist) > tblPlanks[i2].width*0.5 + tblPlanks[i2-1].width*0.5 + gnDrillDia then
break
end
end
-- Add drilling to all boards intersecting with the drilling, calc points on the first and last plank and extend by distance to the board
local x1, x2, y1, y2, dx, dy, len2
x1=tblPlanks[i].x1 + tblPlanks[i].dx * tblPlanks[i].distfrombeg - tblPlanks[i].dy * (tblPlanks[i].width * 0.5 + gnDistBoard)
y1=tblPlanks[i].y1 + tblPlanks[i].dy * tblPlanks[i].distfrombeg + tblPlanks[i].dx * (tblPlanks[i].width * 0.5 + gnDistBoard)
x2=tblPlanks[i2-1].x1 + tblPlanks[i2-1].dx * tblPlanks[i2-1].distfrombeg + tblPlanks[i2-1].dy * (tblPlanks[i2-1].width * 0.5 + gnDistBoard)
y2=tblPlanks[i2-1].y1 + tblPlanks[i2-1].dy * tblPlanks[i2-1].distfrombeg - tblPlanks[i2-1].dx * (tblPlanks[i2-1].width * 0.5 + gnDistBoard)
-- Then scan all boards and add drillings to them
local bi, bv, xb, yb
for bk,bv in ipairs(tblBoards) do
ac_objectopen(bv.guid)
-- Convert drill coordinate from sideWorld to current target side
xb,yb = TransformCoord(bv.info.tblSides[bv.side1], sideWorld, x1, y1)
AddDrill(bv.side1, xb, yb)
--ac_environment("tolog", string.format("Drill from x1=%f y1=%f to side=%d x=%f y=%f", x1, y1, bv.side1, xb, yb))
xb,yb = TransformCoord(bv.info.tblSides[bv.side1], sideWorld, x2, y2)
AddDrill(bv.side1, xb, yb)
--ac_environment("tolog", string.format("Drill from x2=%f y2=%f to side=%d x=%f y=%f", x2, y2, bv.side1, xb, yb))
ac_objectclose()
end
--ac_environment("tolog", string.format("Group beg=%d, last+1=%d", i, i2))
i=i2
end
return ndrill
end
function Do()
local tblSel, tblSettings, t, count
local bRes,sErr
tblSel=ac_environment("getsel")
if tblSel==nil then
return "Please select planks and boards"
end
tblSettings={}
tblSettings[1] ={}
tblSettings[1].cfgonly =1
tblSettings[1].type =3
tblSettings[1].prompt ="Drill diameter"
tblSettings[1].key ="drilldia"
tblSettings[1].defvalue =0.030
tblSettings[2] ={}
tblSettings[2].cfgonly =1
tblSettings[2].type =3
tblSettings[2].prompt ="Distance in top boards from beam sides"
tblSettings[2].key ="distboard"
tblSettings[2].defvalue =0.023
gHelpAnchor="afdlg_floordrills"
bRes,sErr=ac_optiondlg("LDFD", "Lifting drills for floors", tblSettings)
if not bRes then
return
end
gnDrillDia=tblSettings[1].value
gnDistBoard=tblSettings[2].value
count=0
-- Does not work since drills are added after we return from here: while true do
-- Ask user to click the lifting position
tblSettings={}
tblSettings.line=false
tblSettings.prompt="Please click the lifting position, esc to cancel"
tblSettings.elems=tblSel
t=af_request("afclick", tblSettings)
if t then
gsStatus=""
count=count + DoDrill(t)
if gsStatus~="" then
return gsStatus -- Error in adding
end
end
-- end
return string.format("Drilled %d planks", count)
end
gsStatus=Do()
]]>