1 1 1 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] 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-x" .. 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() ]]>