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
Lines
Lines
Front: visible
Back: visible
Lines
Lines
oznaczenie Front
oznaczenie Tył
Lines
Lines
-
Front: visible
Back: not visible
Lines
Single line
Etu: näkyy
Taka: ei näy
Lines
Single line
Front: visible
Back: not visible
Lines
Single line
oznaczenie Front
oznaczenie Tył
Lines
Single line
-
Front: not visible
Back: visible
Single line
Lines
Etu: ei näy
Taka: näkyy
Single line
Lines
Front: not visible
Back: visible
Single line
Lines
oznaczenie Front
oznaczenie Tył
Single line
Lines
-
Front: not visible
Back: not visible
Single line
Single line
Etu: ei näy
Taka: ei näy
Single line
Single line
Front: not visible
Back: not visible
Single line
Single line
oznaczenie Front
oznaczenie Tył
Single line
Single line
-
-
Front: visible
Etu: näkyy
Front: visible
oznaczenie Front
-
Front: not visible
Etu: ei näy
Front: not visible
oznaczenie Front
-
Front: treated
Etu: käsitelty
Front: treated
oznaczenie Front
-
-
Back: visible
Taka: näkyy
Back: visible
oznaczenie Tył
-
Back: not visible
Taka: ei näy
Back: not visible
oznaczenie Tył
-
Back: treated
Taka: käsitelty
Back: treated
oznaczenie Tył
-
-
-
-
-
-
-
-
-
-
-
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()
]]>
EPS then
ac_environment("tolog", string.format("WARNING: Board %s has unsupported rotation - skipped", ac_objectget("#id")))
else
-- Find min & max y-coords
rows = ac_objectget("iPolygon", -1)
t = {}
t.guid = v
t.info = af_request("plankinfo", nil, infoElem)
t.contourend = rows
for row=1,rows do
y = t.info.elemdata.y1 + ac_objectget("iPolygon", row, 2)
if y > maxy then
maxy = y
end
if y < miny then
miny = y
end
if ac_objectget("iPolygon", row, 3)==-1 then
t.contourend = row
break
end
end
--ac_environment("tolog", string.format("%s: elemdata.y1=%f, elemdata.by1=%f", ac_objectget("#id"), t.info.elemdata.y1, t.info.elemdata.by1))
tblHandle[#tblHandle+1] = t
end
ac_objectclose()
end
--ac_environment("tolog", string.format("miny=%f maxy=%f #tblHandle=%d", miny, maxy, #tblHandle))
-- Then adjust all edges at top and bottom (outside/positive to the left of the edge)
for i,v in ipairs(tblHandle) do
ac_objectopen(v.guid)
rows = ac_objectget("iPolygon", -1)
for row=1,rows do
local nextpt, nexty, newy, findy
nextpt = row + 1 -- Index of next point
if nextpt > v.contourend then
nextpt = 1
end
y = v.info.elemdata.y1 + ac_objectget("iPolygon", row, 2)
nexty = v.info.elemdata.y1 + ac_objectget("iPolygon", nextpt, 2)
newy = nil
--ac_environment("tolog", string.format("%d: y=%f nexty=%f infoElem=%s", row, y, nexty, tostring(infoElem)))
if math.abs(y - miny) < EPS and math.abs(nexty - miny) < EPS then
findy = ac_objectget("iPolygon", row, 2)
newy = findy - extendbot
elseif math.abs(y - maxy) < EPS and math.abs(nexty - maxy) < EPS then
findy = ac_objectget("iPolygon", row, 2)
newy = findy + extendtop
end
if newy then
-- Found horizontal edge at min y, adjust it and next
ac_objectset("iPolygon", newy, row, 2)
ac_objectset("iPolygon", newy, nextpt, 2)
-- Then adjust as long as we have the same y in case of multiple parallel edges
while false do
nextpt = nextpt + 1
if nextpt > v.contourend then
nextpt = 1
end
if math.abs(findy - ac_objectget("iPolygon", nextpt, 2)) > EPS then
break
end
ac_objectset("iPolygon", newy, nextpt, 2)
end
end
end
af_request("flushmc") -- Needed to normalize the polygon
ac_objectclose()
end
return #tblHandle
end
function Do()
local tblSel, tblSettings, count
local bRes,sErr
tblSel=af_request ("getselplanks", "board")
if tblSel==nil then
return "Please select the boards"
end
tblSettings={}
tblSettings[1] ={}
tblSettings[1].cfgonly =1
tblSettings[1].type =3
tblSettings[1].prompt ="Move top (positive extends)"
tblSettings[1].key ="top"
tblSettings[1].defvalue =0
tblSettings[2] ={}
tblSettings[2].cfgonly =1
tblSettings[2].type =3
tblSettings[2].prompt ="Move bottom (positive extends)"
tblSettings[2].key ="bot"
tblSettings[2].defvalue =0
bRes,sErr=ac_optiondlg("LDBM", "Move selected boards' top and bottom", tblSettings)
if not bRes then
return
end
count = AdjustBoards(tblSel, tblSettings[2].value, tblSettings[1].value)
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()
]]>
1 then
if string.sub(s, -1) == '\t' then
s = string.sub(s, 1, -2)
end
end
s=s .. '}'
else
s = ""
for i = 0, nIndent do
s = s .. '\t'
end
s=tostring(o)
end
return s
end
function DumpTbl(o)
ac_environment("tolog", DumpTblInt(o, 0))
end
function FindFreeMc()
local rows, row, mc
rows=ac_objectget("iMc", -1)
row=1
while row<=rows do
mc=ac_objectget("iMc", row, 1)
if not mc or mc==0 then
break
end
row=row+1
end
return row
end
function TernaryIf(cond, T , F )
if cond then return T else return F end
end
function AlmostEq(a, b)
if a==nil and b==nil then
return true
elseif a==nil or b==nil then
return false
end
return math.abs(a-b)<=EPS
end
function AlmostEq2D(a, b)
return AlmostEq(a.x, b.x) and AlmostEq(a.y, b.y)
end
function Add3D(vec1, vec2)
return {x=vec1.x+vec2.x, y=vec1.y+vec2.y, z=vec1.z+vec2.z}
end
function Scale3D(vec, length)
return {x=vec.x*length, y=vec.y*length, z=vec.z*length}
end
function Add2D(vec1, vec2)
return {x=vec1.x+vec2.x, y=vec1.y+vec2.y}
end
function Sub2D(vec2, vec1)
return {x=vec2.x-vec1.x, y=vec2.y-vec1.y}
end
function Magnitude2D(vec)
return math.sqrt(vec.x*vec.x+vec.y*vec.y)
end
function Distance2D(p1, p2)
return Magnitude2D(Sub2D(p2, p1))
end
function Normalize2D(vec)
local magnitude=Magnitude2D(vec)
return {x=vec.x/magnitude, y=vec.y/magnitude}
end
function Dir2D(p1, p2)
return Normalize2D(Sub2D(p2, p1))
end
function Dot2D(v1, v2)
return v1.x*v2.x+v1.y*v2.y
end
function Dot3D(v1, v2)
return v1.x*v2.x+v1.y*v2.y+v1.z*v2.z
end
function Scale2D(vec, length)
return {x=vec.x*length, y=vec.y*length}
end
function Flip2D(vec)
return Scale2D(vec, -1)
end
function FlipRight2D(vec)
return {x=vec.y, y=-vec.x}
end
function FlipLeft2D(vec)
return {x=-vec.y, y=vec.x}
end
function GetNextIdxWrapAround(table, i)
return (i % #table) + 1
end
function GetNextValueWrapAround(table, i)
return table[GetNextIdxWrapAround(table, i)]
end
function LineX(lineA, lineB)
local x, y=ac_geo(
"linex",
lineA.begPt.x,
lineA.begPt.y,
lineA.endPt.x,
lineA.endPt.y,
lineB.begPt.x,
lineB.begPt.y,
lineB.endPt.x,
lineB.endPt.y
)
if x==nil then
return nil
end
return {x=x, y=y}
end
function LineDist(point, segment)
return ac_geo(
"linedist",
segment.begPt.x,
segment.begPt.y,
segment.endPt.x,
segment.endPt.y,
point.x,
point.y
)
end
function IsPointOnInfLine(point, segment)
local dx, dy, length=LineDist(point, segment)
return math.abs(dx)\n" ..
" \n" ..
"", gnPlanks + #gtblCreate, GuidToPlankIndex(conn.targetInfo.guid), overwhat)
end
function AddDoubleSupports(
connA, sideA, pointA, distA,
connB, sideB, pointB, distB,
studGroup, operations, supportsAdded, drillsAdded)
local topDistA=gnDistTop
local topDistB=gnDistTop
local studDist=gnDistStud
local dx=gSupportMaterial.thickness
if gbCreateSupports then
operations=operations..CreateSupport(Add2D(pointA, Scale2D(sideA.sideDir, gSupportMaterial.thickness*0.5)), connA)
operations=operations..CreateSupport(Add2D(pointB, Scale2D(sideB.sideDir, gSupportMaterial.thickness*0.5)), connB)
topDistA=distA
topDistB=distB
studDist=gSupportMaterial.height
supportsAdded=supportsAdded+2
end
drillsAdded=drillsAdded+AddStudDrills(studGroup, Add2D(pointA, Scale2D(connA.normal, studDist+gnDrillDia*0.5)))
AddTopDrill(connA, sideA, topDistA)
AddTopDrill(connB, sideB, topDistB)
drillsAdded=drillsAdded+2
return operations, drillsAdded, supportsAdded
end
function AddSingleSupport(conn, side, studGroup, operations, drillsAdded, supportsAdded)
local dx=gSupportMaterial.thickness
local cos=Dot2D(side.targetDir, side.sideDir)
if math.abs(cos)
--
-- (lastSide)
-- side.prevSide side side.nextSide
-- <----------- ------------> ------------>
--
function GetPrevSide(side, lastSide)
if side.prevSide==lastSide then
return side.nextSide, side
end
return side.prevSide, side
end
-- Make sure we don't "go back the way we came" if the next side is the same as the last side
--
-- direction: <-------
-- (lastSide)
-- side.prevSide side side.nextSide
-- <----------- ------------> <-----------
--
function GetNextSide(side, lastSide)
if side.nextSide==lastSide then
side.polySegment.begPt, side.polySegment.endPt=side.polySegment.endPt, side.polySegment.begPt
side.nextSide, side.prevSide=side.prevSide, lastSide
end
-- Sort by distance to beg, so that we can easily compare distances of subsequent beams
SortConnections(side)
return side.nextSide, side
end
function AddSupportsAlongSide(studGroup, side, maxGap, operations, drillsAdded, supportsAdded)
side.visited=true
if #side.connections==0 then
return studGroup, operations, drillsAdded, supportsAdded
elseif #studGroup==0 then
studGroup={side.connections[1]}
end
-- When starting a new side check if there is enough of a gap to the first beam to
-- end the previous support group.
local firstConn=side.connections[1]
if #studGroup>0 and side.prevSide~=nil and #side.prevSide.connections>0 then
local lastConn=side.prevSide.connections[#side.prevSide.connections]
if lastConn.endSide.onLine and firstConn.begSide.onLine and
Distance2D(lastConn.endSide.point, firstConn.begSide.point) > maxGap then
operations, drillsAdded, supportsAdded=AddSupports(studGroup, operations, drillsAdded, supportsAdded)
studGroup={firstConn}
end
end
for i=1, #side.connections-1 do
local currConn=side.connections[i]
local nextConn=side.connections[i+1]
table.insert(studGroup, currConn)
if nextConn.begSide.dy-currConn.endSide.dy>maxGap then
operations, drillsAdded, supportsAdded=AddSupports(studGroup, operations, drillsAdded, supportsAdded)
studGroup={nextConn}
end
end
return studGroup, operations, drillsAdded, supportsAdded
end
function AddSupportsAlongSides(side, maxGap, operations, drillsAdded, supportsAdded)
-- Rewind to the first side in the connected chain
local prevSide, side=GetPrevSide(side, nil)
while prevSide~=nil do
prevSide, side=GetPrevSide(prevSide, side)
end
local studGroup={} -- Current group of connections with gaps < maxGap
local nextSide, side=GetNextSide(side, nil)
while nextSide~=nil do
studGroup, operations, drillsAdded, supportsAdded=AddSupportsAlongSide(studGroup, side, maxGap, operations, drillsAdded, supportsAdded)
nextSide, side=GetNextSide(nextSide, side)
end
-- Last side and connection
studGroup, operations, drillsAdded, supportsAdded=AddSupportsAlongSide(studGroup, side, maxGap, operations, drillsAdded, supportsAdded)
if #side.connections>0 and #studGroup>0 then
table.insert(studGroup, side.connections[#side.connections])
operations, drillsAdded, supportsAdded=AddSupports(studGroup, operations, drillsAdded, supportsAdded)
end
return operations, drillsAdded, supportsAdded
end
function DoSupports(selection, maxGap)
local drillsAdded=0
local supportsAdded=0
for ownerGUID, group in pairs(CollectConnections(selection)) do
af_request("elem_openparent", ownerGUID)
af_request("elem_openlayer", ownerGUID)
gtblCreate={}
local operations=""
for _, beam in pairs(group) do
if not beam.backSide.visited then
operations, drillsAdded, supportsAdded=AddSupportsAlongSides(beam.backSide, maxGap, operations, drillsAdded, supportsAdded)
end
if not beam.frontSide.visited then
operations, drillsAdded, supportsAdded=AddSupportsAlongSides(beam.frontSide, maxGap, operations, drillsAdded, supportsAdded)
end
end
gxmlOperations="" .. operations .. ""
af_request("elem_createplanks")
af_request("elem_closeparent", 1)
af_request("elem_closelayer")
end
return drillsAdded, supportsAdded
end
function Do()
local tblSel, tblMat, tblSorted, tblSettings, t, s, i, v, count
local bRes, sErr, strSep
tblMat = af_request("matlist")
s = ""
strSep = ""
tblSorted = {}
for id,v in pairs(tblMat) do
tblSorted[v.index] = v
end
for i, v in ipairs(tblSorted) do
s = string.format("%s%s\"%s:%s (%s)\"", s, strSep, i, v.name, v.id)
strSep = ","
end
tblSel = af_request ("getselplanks")
if tblSel == nil then
return "Please select planks"
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 = "Drill distance from stud"
tblSettings[2].key = "disttop"
tblSettings[2].defvalue = 0.100
tblSettings[3] = {}
tblSettings[3].cfgonly = 1
tblSettings[3].type = 3
tblSettings[3].prompt = "Drill distance from beam"
tblSettings[3].key = "diststud"
tblSettings[3].defvalue = 0.200
tblSettings[4] = {}
tblSettings[4].cfgonly = 1
tblSettings[4].type = 2
tblSettings[4].prompt = "Create supports"
tblSettings[4].key = "createSupports"
tblSettings[4].defvalue = 0
tblSettings[5] = {}
tblSettings[5].cfgonly = 0
tblSettings[5].type = 1
tblSettings[5].prompt = "Support material"
tblSettings[5].key = "supportMaterial"
tblSettings[5].valuelist = s
tblSettings[5].defvalue = 1
tblSettings[6] = {}
tblSettings[6].cfgonly = 1
tblSettings[6].type = 2
tblSettings[6].prompt = "Use angled drillings on gable roofs"
tblSettings[6].key = "useangleddrillingss"
tblSettings[6].defvalue = 1
bRes, sErr = ac_optiondlg("LDLD", "Support blocks with surrounding drillings", tblSettings)
if not bRes then
return
end
gnDrillDia = tblSettings[1].value
gnDistTop = tblSettings[2].value
gnDistStud = tblSettings[3].value
if tblSettings[4].value == 1 then
gbCreateSupports = true
else
gbCreateSupports = false
end
for k, v in pairs(tblMat) do
if v.index == tblSettings[5].value then
gSupportMaterial = v
end
end
if tblSettings[6].value == 1 then
gbUseAngledDrillings = true
else
gbUseAngledDrillings = false
end
local drillsAdded, supportsAdded=DoSupports(tblSel, gSupportMaterial.thickness*2)
local info=""
if drillsAdded > 0 then
info = string.format("Added %d drills", drillsAdded)
if supportsAdded > 0 then
info = info .. string.format(", %d supports", supportsAdded)
end
end
return info
end
gsStatus = Do()
]]>