1 1 1 1 0 0 1 0 0 1 8 ELEM 3 1 1 1 -1 -0.1 7 1 8 - 1 0 7 1 8 - *25* 0.250 0.325 0.325 1 1 AF Board 8 1 1 25 % 1 # 1 1 25 % # 0 4 0 15 1 8 1 *dash* *dash* 15 1 linear 1 Arial 1.5 2 1 1 1 arial 1.5 1 arial 1.5 1 arial 1.5 2 1 arial 1.5 1 arial 1.5 2 1 arial 1.5 1 arial 1.5 1 arial 1.5 cumulative 5 1.5 cumulative 5 1 arial 1.5 1.5 cumulative 5 1 arial 1.5 1 arial 1.5 1 arial 1.5 2 2 cumulative cumulative 5 1 arial 1.5 cumulative 5 1 arial 1.5 1 arial 1.5 2 2 1 arial 2 cumulative cumulative 5 1 arial 1.5 1 arial 1.5 1 arial 1.5 cumulative 5 1 arial 1.5 1 arial 1.5 1 arial 1.5 cumulative 5 1 arial 1.5 1 arial 1.5 2 2 cumulative cumulative 5 1 arial 1.5 1 arial 1.5 2 1 arial 1.5 2 1 arial 1.5 cumulative cumulative 5 1 arial 1.5 1 arial 1.5 1 arial 1.5 1 arial 1.5 1 arial 1.5 1 arial 1.5 1 arial 2 1 arial 2 8 Arial 1.5 center 1 1 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 1 Arial 2.5 x2 then x2=x end if yy2 then y2=y end end -- 2018_03 boards named TS 9*width*height, take just first part -- Allow also x: local i2, sep s=item.typename sep="*" i=string.find(s, "*") i2=string.find(s, "x") if not i or (i and i2 and i2=1 do if string.sub(id,pos,pos)==s then break end pos=pos-1 end if pos then id=string.sub(id, pos+1) end end if isHor then -- Horizontal structure if elemgroup==nil then elemgroup="" elseif string.match(elemgroup, "^top%a*") or string.match(elemgroup, "^2ndtop%a*") or string.match(elemgroup, "^contour_x.*") then elemgroup="Stud" if lang=="fin" then elemgroup="Tolppa" end elseif string.match(elemgroup, "^bottom%a*") or string.match(elemgroup, "^2ndbottom%a*") then elemgroup="Stud" if lang=="fin" then elemgroup="Tolppa" end elseif string.match(elemgroup, "^vertical_x%a*") or string.match(elemgroup, "^vertical_y%a*") or string.match(elemgroup, "^contourtilted_opening%a*") then elemgroup="Door/win" if lang=="fin" then elemgroup="Ikk/ovi" end elseif string.match(elemgroup, "^vertical%a*") then elemgroup="Hor" if lang=="fin" then elemgroup="Vaaka" end elseif string.match(elemgroup, "^contourtilted%a*") then elemgroup="Angled" if lang=="fin" then elemgroup="Vinojuoksu" end elseif string.match(elemgroup, "^balk.*") then elemgroup="Beam" if lang=="fin" then elemgroup="Palkki" end elseif string.match(elemgroup, "^lintel.*") then elemgroup="W/D beam" if lang=="fin" then elemgroup="Aukkopalkki" end elseif string.match(elemgroup, "^reinforce.*") then elemgroup="Reinforcement" if lang=="fin" then elemgroup="Vahvike" end else if elemTypeSort~="030" then -- Not cladding elemgroup="? (" .. elemgroup .. ")" else elemgroup="" end end else -- Vertical structure if elemgroup==nil then elemgroup="" elseif string.match(elemgroup, "^top%a*") or string.match(elemgroup, "^2ndtop%a*") then elemgroup="Top plate" if lang=="fin" then elemgroup="Yläjuoksu" end elseif string.match(elemgroup, "^bottom%a*") or string.match(elemgroup, "^2ndbottom%a*") then elemgroup="Bottom plate" if lang=="fin" then elemgroup="Alajuoksu" end elseif string.match(elemgroup, "^contour_x.*") then elemgroup="Top/bottom plate" if lang=="fin" then elemgroup="Ylä/alajuoksu" end elseif string.match(elemgroup, "^vertical_x%a*") or string.match(elemgroup, "^contourtilted_opening%a*") then elemgroup="Win/door" if lang=="fin" then elemgroup="Ikk/ovi" end elseif string.match(elemgroup, "^vertical%a*") or string.match(elemgroup, "^contour_y.*") then elemgroup="Stud" if lang=="fin" then elemgroup="Tolppa" end elseif string.match(elemgroup, "^contourtilted%a*") then elemgroup="Angled" if lang=="fin" then elemgroup="Vinojuoksu" end elseif string.match(elemgroup, "^balk.*") then elemgroup="Beam" if lang=="fin" then elemgroup="Palkki" end elseif string.match(elemgroup, "^lintel.*") then elemgroup="W/D beam" if lang=="fin" then elemgroup="Aukkopalkki" end else if elemTypeSort~="030" then -- Not cladding elemgroup="? (" .. elemgroup .. ")" else elemgroup="" end end end elemTypeSortNow=elemTypeSort if elemTypeSortNow=="001" then if math.abs(plankInfo.vecx.z-1)>EPS then -- Ei pysty elemTypeSortNow="002" end end if bPanel then -- Exploded panels without ID, forget elemgroup idgroup=string.format("%s %s %s %s", plankInfo.typename, Len2Str(plankInfo.width), Len2Str(plankInfo.height), Len2Str(plankInfo.len)) idgroupshow=plankInfo.typename else idgroup=elemgroup .. " " .. plankInfo.typename .. " (" .. id .. ")" -- Actually id is last idgroupshow=idgroup end if (bPanel or string.match(vElem.elemtype, "^finish.*")) and gListSettings and gListSettings.cladaddmat then -- Add AC 3D material name to the cladding piece local smat smat=" " .. ac_objectget("#matname") idgroup=idgroup .. smat idgroupshow=idgroupshow .. smat end s=string.format("%s %s", elemTypeSortNow, idgroup) --ac_environment("tolog", s) item=tblPlanks[s] if item==nil then item={} item.elemtypesort=elemTypeSortNow item.idgroup=idgroup item.idgroupshow=idgroupshow item.elemtype=vElem.elemtype item.id=id item.plankinfo=plankInfo item.type=plankInfo.type item.typename=plankInfo.typename item.typewidth=plankInfo.width item.typeheight=plankInfo.height item.len=plankInfo.len item.fillpen=fillpen item.tblids={} item.tblinfos={} item.count=0 item.col1str=GetCol1Str(item) tblPlanks[s]=item end item.count=item.count+1 item.tblinfos[item.count]=plankInfo ac_objectclose() end end end function CmpPlanks( p1, p2 ) if p1.type~=p2.type then return p1.type0.001 then -- Actually for similar type boards the thickness should be the same return p1.typewidth>p2.typewidth end if math.abs(p1.typeheight-p2.typeheight)>0.001 then return p1.typeheight>p2.typeheight end if math.abs(p1.len-p2.len)>0.001 then return p1.len>p2.len end return false end -- Owning element type if p1.elemtypesort~=p2.elemtypesort then return p1.elemtypesort0.001 then return p1.typewidth>p2.typewidth end if math.abs(p1.typeheight-p2.typeheight)>0.001 then return p1.typeheight>p2.typeheight end if p1.typename~=p2.typename then return p1.typename0.001 then return p1.len>p2.len end return p1.idgrouptblCurrPlank.plankinfo.width-EPS and math.abs(y2-y1)tblCurrPlank.plankinfo.height then local orgSide, depthOrg orgSide=side depthOrg=depth if y1tblCurrPlank.plankinfo.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.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=tblCurrPlank.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 nUnknown=nUnknown+1 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 GetDist3D(c1, c2) local dx, dy, dz dx=c2.x-c1.x dy=c2.y-c1.y dz=c2.z-c1.z dx=math.sqrt(dx*dx + dy*dy + dz*dz) return dx end function IsNeighbour(item1, item2) if GetDist3D(item1.begc, item2.begc)>item1.width+0.001 then return false end if GetDist3D(item1.endc, item2.endc)>item1.width+0.001 then return false end if math.abs(item1.vecx.x-item2.vecx.x)>0.001 or math.abs(item1.vecx.y-item2.vecx.y)>0.001 or math.abs(item1.vecx.z-item2.vecx.z)>0.001 then return false end if math.abs(item1.vecz.x-item2.vecz.x)>0.001 or math.abs(item1.vecz.y-item2.vecz.y)>0.001 or math.abs(item1.vecz.z-item2.vecz.z)>0.001 then return false end return true end -- Creates string for studs next to each other -- tblinfos 1-based table of plankinfos function GetGroupedStudsStr(inStr, tblinfos) local i, v, res, tblGroup, tblUsed, i2, added, tblNow, i3, collected, s local lang=GetLang() res=inStr tblGroup={} -- Index=number grouped planks, value=count of groups (not planks) tblUsed={} -- Index=ptr for used planks i=1 while tblinfos[i] do v=tblinfos[i] if not tblUsed[v.ptr] and v.vecx.z>0.999 and v.type==1 then -- Find any connecting local x1, x2 tblUsed[v.ptr]=true -- Collect the group tblNow={} tblNow[1]=v collected=1 repeat added=false i2=i+1 while tblinfos[i2] do for i3=1,collected do if IsNeighbour(tblNow[i3], tblinfos[i2]) and tblUsed[tblinfos[i2].ptr]==nil then tblUsed[tblinfos[i2].ptr]=true collected=collected+1 tblNow[collected]=tblinfos[i2] added=true break end end i2=i2+1 end until not added if collected>1 then if tblGroup[collected]==nil then tblGroup[collected]=0 end tblGroup[collected]=tblGroup[collected]+1 end end i=i+1 end for i=2,10 do if tblGroup[i] then if i==2 then if lang=="fin" then s="tuplatolppa" else s="double stud" end else if lang=="fin" then s=string.format("%d x tolppa", i) else s=string.format("%d x stud", i) end end if res~="" then res = res .. ", " end if lang=="fin" then res=res .. string.format("%d kpl %s", tblGroup[i], s) else res=res .. string.format("%d pcs %s", tblGroup[i], s) end end end return res end -- Collects all planks&boards related to all element layers -- Returns it sorted function DoTable() local s, k, v, i, nElem, vElem, tblQuant, plankInfo, id, item, elemId local tblPlanks -- Also boards, key="type typename length", fields: type (1=plank, 2=log object, 4=board), typename, typewidth, typeheight, len (numeric), tblids=table of plank ids with id=key, count=number of this type local tblElemSortToName local lang lang=GetLang() tblQuant=af_request("elem_quantities") elemId="(ID MISSING)" tblPlanks={} tblElemSortToName={} -- Maps element type sort str -> its name (001->RUNKO, 002->SP KOOLAUS, 003->MUUT) for nElem,vElem in ipairs(tblQuant.tblelems) do if vElem.elemtype=="core" then elemId=vElem.id end local elemTypeSort, elemTypeName elemTypeSort="999" if lang=="fin" then elemTypeName="MUUT" else elemTypeName="OTHERS" end if vElem.elemtype=="core" then elemTypeSort="001" if lang=="fin" then elemTypeName="TOLPAT" else elemTypeName="STUDS" end if lang=="fin" then tblElemSortToName["002"]="MUUT" else tblElemSortToName["002"]="OTHERS" end elseif string.match(vElem.elemtype, "^intstud*") then elemTypeSort="010" if lang=="fin" then elemTypeName="SISÄKOOLAUS" else elemTypeName="INT STUDDING" end elseif string.match(vElem.elemtype, "^extstud*") then elemTypeSort="020" if lang=="fin" then elemTypeName="ULKOKOOLAUS" else elemTypeName="EXT STUDDING" end elseif string.match(vElem.elemtype, "^finish_ext*") then elemTypeSort="030" -- This number used not to include mc-info if lang=="fin" then elemTypeName="VERHOILU" else elemTypeName="CLADDING" end elseif string.match(vElem.elemtype, "^boarding_ext*") then elemTypeSort="040" if lang=="fin" then elemTypeName="LEVY ULKO" else elemTypeName="BOARD EXT" end elseif string.match(vElem.elemtype, "^boarding_int*") then elemTypeSort="050" if lang=="fin" then elemTypeName="LEVY SISÄ" else elemTypeName="BOARD INT" end end if elemTypeSort then local isHor isHor=false if vElem.templateid and (vElem.templateid=="framing_horlong" or vElem.templateid=="framinghor1") then isHor=true end tblElemSortToName[elemTypeSort]=elemTypeName if vElem.tblboards and (not vElem.tblplanks or vElem.layertypenum~=2) then if not gNoBoard or (elemTypeSort~="040" and elemTypeSort~="050") then CollectPlanksBoards( vElem, vElem.tblboards, tblPlanks, elemTypeSort ) end end if vElem.tblplanks then CollectPlanksBoards( vElem, vElem.tblplanks, tblPlanks, elemTypeSort, isHor ) end end end -- Sort by type, len local tblPlanksSort, bCladding tblPlanksSort={} i=0 for k,v in pairs(tblPlanks) do i=i+1 tblPlanksSort[i]=v bCladding=false if v.elemtypesort=="030" then bCladding=true end ac_objectopen(v.plankinfo.ptr) v.infotext=GetInfoText(v, bCladding) ac_objectclose() end table.sort( tblPlanksSort, CmpPlanks ) return tblPlanksSort, tblElemSortToName, elemId end -- nSeqNum: 0=tolpat, 1=juoksut, 2=TS-levyt, 3=verhoilu, (lopulta 4=eristeet), 4=sisäkoolaus function DoCutList(nSeqNum, sSettingsLua) local s, k, v, i, nElem, vElem, tblQuant, plankInfo, id, item local tblPlanks -- Also boards, key="type typename length", fields: type (1=plank, 2=log object, 4=board), typename, typewidth, typeheight, len (numeric), tblids=table of plank ids with id=key, count=number of this type local tblCollElemTypes, typeName local addMc, addLen local lang=GetLang() local filterFunc addMc=0 addLen=1 gListSettings=nil if sSettingsLua and sSettingsLua~="" then -- String contains lua script that fills global gListSettings local f --ac_environment("tolog", string.format("SETTINGS: %s", sSettingsLua)) f=loadstring(sSettingsLua) if not f then ac_environment("tolog", string.format("Cut list: Bad settings Lua-script: %s", sSettingsLua)) end f() -- Creates gListSettings if gListSettings.addmc and gListSettings.addmc==1 then addMc=1 end if gListSettings.addlen and gListSettings.addlen==0 then addLen=0 end filterFunc=gListSettings.funccollect end if not g_tblPlanksSort then g_tblPlanksSort, g_tblElemSortToName, g_elemId=DoTable() end if not nSeqNum then ac_environment("tolog", "DoCutList(nSeqNum): nSeqNum missing - old program version, update ArchiFrame") nSeqNum=0 end -- what to collect tblCollElemTypes={} typeName=g_tblElemSortToName["001"] if gListSettings then -- NOP on purpose elseif gType and gType=="ffbc" then if nSeqNum==0 then typeName=g_tblElemSortToName["001"] tblCollElemTypes["001"]=true tblCollElemTypes["999"]=true addMc=1 elseif nSeqNum==1 then typeName=g_tblElemSortToName["002"] tblCollElemTypes["002"]=true addMc=1 -- Juoksuihin myös työstöt 1/2018 elseif nSeqNum==2 then -- Windshield boards typeName=g_tblElemSortToName["040"] tblCollElemTypes["040"]=true addLen=0 elseif nSeqNum==3 then if lang=="fin" then typeName="ULKOKOOLAUS JA VERHOILU" else typeName="EXT STUD AND CLADDING" end tblCollElemTypes["030"]=true tblCollElemTypes["020"]=true else ac_environment("tolog", string.format("DoCutList(nSeqNum=%d): Bad nSeqNum - nothing collected", nSeqNum)) typeName="NONE" end elseif not gSingle then if nSeqNum==0 then typeName=g_tblElemSortToName["001"] tblCollElemTypes["001"]=true tblCollElemTypes["999"]=true addMc=1 elseif nSeqNum==1 then typeName=g_tblElemSortToName["002"] tblCollElemTypes["002"]=true addMc=1 -- Juoksuihin myös työstöt 1/2018 elseif nSeqNum==2 then -- Windshield boards typeName=g_tblElemSortToName["040"] tblCollElemTypes["040"]=true addLen=0 elseif nSeqNum==3 then typeName=g_tblElemSortToName["030"] tblCollElemTypes["030"]=true if gType and gType=="1.1" then -- ext studding will be collected first tblCollElemTypes["020"]=true if lang=="fin" then typeName="ULKOKOOLAUS" else typeName="EXT STUDDING" end end elseif nSeqNum==4 then typeName=g_tblElemSortToName["010"] tblCollElemTypes["010"]=true elseif nSeqNum==5 then typeName=g_tblElemSortToName["050"] tblCollElemTypes["050"]=true addLen=0 else ac_environment("tolog", string.format("DoCutList(nSeqNum=%d): Bad nSeqNum - nothing collected", nSeqNum)) typeName="NONE" end end if gSingle and addMc==0 then -- Add mc row if it is used for k,v in ipairs(g_tblPlanksSort) do if v.infotext and v.infotext~="" then addMc=1 break end end end local nRow, nHeightRows, rowHeight ac_objectopen(nil) -- ### Table object opened -- Settings local bImperial rowHeight=0.170 if gListSettings and gListSettings.rowheight then rowHeight=gListSettings.rowheight end ac_objectset("#pen", 1) bImperial=false nRow,s=ac_environment("units", "length", "dim") if nRow and nRow>2 and s~="mm" then bImperial=true end ac_objectset("iFontName", "Arial") ac_objectset("iRowHeight", rowHeight) ac_objectset("iMargin", rowHeight*0.1) ac_objectset("iColCount", 2+addMc+addLen) if addMc~=0 then if bImperial then ac_objectset("iColWidth", 0.31, 1) ac_objectset("iColWidth", 0.18, 2) ac_objectset("iColWidth", 0.06, 3) ac_objectset("iColWidth", 0.45, 4) ac_objectset("A", 5.0) else ac_objectset("iColWidth", 0.42, 1) ac_objectset("iColWidth", 0.10, 2) ac_objectset("iColWidth", 0.08, 3) ac_objectset("iColWidth", 0.40, 4) ac_objectset("A", 4.5) end else if addLen~=0 then ac_objectset("iColWidth", 0.70, 1) ac_objectset("iColWidth", 0.20, 2) ac_objectset("iColWidth", 0.10, 3) else -- Just two cols ac_objectset("iColWidth", 0.875, 1) ac_objectset("iColWidth", 0.125, 2) end ac_objectset("A", 3.5) end if gListSettings and gListSettings.tablewidth then ac_objectset("A", gListSettings.tablewidth) end if not typeName then typeName="(EMPTY)" end -- Title nRow=1 nHeightRows=1 if gListSettings and gListSettings.title then s=gListSettings.title s=ac_environment("strreplace", gListSettings.title, "#id#", g_elemId) ac_objectset("iRows", "" .. s, 1, 1) else if nSeqNum==0 then ac_objectset("iRows", "" .. g_elemId .. " " .. typeName, 1, 1) else ac_objectset("iRows", "" .. typeName, 1, 1) end end -- Column headers nRow=nRow+1 nHeightRows=nHeightRows+1 if lang=="fin" then ac_objectset("iRows", "Tyyppi", nRow, 1) ac_objectset("iRows", "Pit", nRow, 2) ac_objectset("iRows", "Kpl", nRow, 2+addLen) if addMc~=0 then ac_objectset("iRows", "Työstöt", nRow, 4) end else ac_objectset("iRows", "Type", nRow, 1) ac_objectset("iRows", "Len", nRow, 2) ac_objectset("iRows", "Pcs", nRow, 2+addLen) if addMc~=0 then ac_objectset("iRows", "Cut info", nRow, 4) end end local isFirst , prevelemtypesort local tblTexts, tblCurrText, nTexts, addType local str, tblPlanksNow prevelemtypesort="__not_existing__" addEmpty=false addType=false tblPlanksNow=g_tblPlanksSort if filterFunc then -- 1/2019 made mechanism: collect only needed ones now and prehaps resort local i2 tblPlanksNow={} i2=0 for k,v in ipairs(g_tblPlanksSort) do if filterFunc(v) then i2=i2+1 tblPlanksNow[i2]=v end end end local nResCode=0 for k,v in ipairs(tblPlanksNow) do --ac_environment("tolog", string.format("v.typename=%s\n", v.typename)) if gSingle or tblCollElemTypes[v.elemtypesort] or filterFunc then nRow=nRow+1 nHeightRows=nHeightRows+1 if v.elemtypesort~=prevelemtypesort then -- Element type changes prevelemtypesort=v.elemtypesort if addEmpty then ac_objectset("iRows", "", nRow, 1) nRow=nRow+1 nHeightRows=nHeightRows+1 end if addType then -- Add material type to col1 ac_objectset("iRows", string.format("%s", g_tblElemSortToName[prevelemtypesort]), nRow, 1) nRow=nRow+1 nHeightRows=nHeightRows+1 end addType=true end -- Add material type to col1 nResCode=1 s="" if false and v.fillpen and v.fillpen>0 then -- Material fill pen to table background color s=string.format("", v.fillpen) end str=v.col1str if v.type==1 and gListSettings and gListSettings.col1str_plank then -- Plank, parse it here str=ac_environment("strreplace", gListSettings.col1str_plank, "#id#", v.id) str=ac_environment("strreplace", str, "#matwidth#", ac_environment("ntos", v.typewidth, "length", "dim")) str=ac_environment("strreplace", str, "#matheight#", ac_environment("ntos", v.typeheight, "length", "dim")) str=ac_environment("strreplace", str, "#len#", ac_environment("ntos", v.len, "length", "dim")) end ac_objectset("iRows", string.format("%s%s", s, str), nRow, 1) -- Rest if addLen~=0 then ac_objectset("iRows", "" .. Len2Str(v.len), nRow, 2) end ac_objectset("iRows", string.format("%d", v.count), nRow, 2+addLen) if addMc~=0 then str=v.infotext if v.elemtypesort=="001" then str=GetGroupedStudsStr(str, v.tblinfos) end ac_objectset("iRows", "" .. str, nRow, 4) end addEmpty=true end end ac_objectset("B", nHeightRows*rowHeight) ac_objectclose() -- ### Table object return nResCode end gLang=GetLang() -- Make it global for ]]> 1 Arial 2.5 1 Arial 2.5 =1 do if string.sub(id,pos,pos)==s then break end pos=pos-1 end if pos then id=string.sub(id, pos+1) end end s=string.format("%d %s %s", plankInfo.type, plankInfo.typename, ac_environment("ntos", plankInfo.len, "length", "work")) item=tblPlanks[s] if item==nil then item={} item.type=plankInfo.type item.typename=plankInfo.typename item.typewidth=plankInfo.width item.typeheight=plankInfo.height item.len=plankInfo.len item.fillpen=fillpen item.tblids={} item.count=0 tblPlanks[s]=item end if item.tblids[id]==nil then item.tblids[id]=1 else item.tblids[id]=item.tblids[id]+1 end item.count=item.count+1 end end function CmpPlanks( p1, p2 ) if p1.type~=p2.type then return p1.type0.001 then -- Actually for similar type boards the thickness should be the same return p1.typewidth>p2.typewidth end if math.abs(p1.typeheight-p2.typeheight)>0.001 then return p1.typeheight>p2.typeheight end if math.abs(p1.len-p2.len)>0.001 then return p1.len>p2.len end return false end -- Bigger first if math.abs(p1.typewidth-p2.typewidth)>0.001 then return p1.typewidth>p2.typewidth end if math.abs(p1.typeheight-p2.typeheight)>0.001 then return p1.typeheight>p2.typeheight end if p1.typename~=p2.typename then return p1.typename0.001 then return p1.len>p2.len end return false end function DoCutList() local s, k, v, i, nElem, vElem, tblQuant, plankInfo, id, item, elemId local tblPlanks -- Also boards, key="type typename length", fields: type (1=plank, 2=log object, 4=board), typename, typewidth, typeheight, len (numeric), tblids=table of plank ids with id=key, count=number of this type tblQuant=af_request("elem_quantities") elemId="(ID MISSING)" tblPlanks={} for nElem,vElem in ipairs(tblQuant.tblelems) do if vElem.elemtype=="core" then elemId=vElem.id end if vElem.tblboards then -- No boards: CollectPlanksBoards( vElem.tblboards, tblPlanks ) end if vElem.tblplanks then CollectPlanksBoards( vElem.tblplanks, tblPlanks ) end end -- Sort by type, len local tblPlanksSort tblPlanksSort={} i=0 for k,v in pairs(tblPlanks) do i=i+1 tblPlanksSort[i]=v end table.sort( tblPlanksSort, CmpPlanks ) local nRow, nHeightRows, rowHeight ac_objectopen(nil) -- ### Table object opened -- Settings rowHeight=0.100 ac_objectset("#pen", 1) ac_objectset("iFontName", "Arial") ac_objectset("iRowHeight", rowHeight) ac_objectset("iMargin", rowHeight*0.1) ac_objectset("iColCount", 4) ac_objectset("iColWidth", 0.25, 1) ac_objectset("iColWidth", 0.25, 2) ac_objectset("iColWidth", 0.25, 3) ac_objectset("iColWidth", 0.25, 4) --ac_objectset("iColWidth", 0.25, 5) ac_objectset("A", 2) -- (2.4385 m=8 feet) -- Title nRow=2 nHeightRows=3 -- In row height ac_objectset("iRows", "" .. elemId, 1, 1) ac_objectset("iRows", "", 2, 1) -- Empty line -- Column headers nRow=nRow+1 nHeightRows=nHeightRows+1 ac_objectset("iRows", "MATERIAL", nRow, 1) ac_objectset("iRows", "PIECE", nRow, 2) ac_objectset("iRows", "QTY", nRow, 3) ac_objectset("iRows", "LENGTH", nRow, 4) --ac_objectset("iRows", "REMARKS", nRow, 5) -- All plank types local prevtype, kid, vid, isFirst prevtype="__not_existing__" addEmpty=false for k,v in ipairs(tblPlanksSort) do --ac_environment("tolog", string.format("v.typename=%s\n", v.typename)) nRow=nRow+1 nHeightRows=nHeightRows+1 if v.typename~=prevtype then if addEmpty then ac_objectset("iRows", "", nRow, 1) nRow=nRow+1 nHeightRows=nHeightRows+1 end addEmpty=true -- Add material type to col1 s="" if v.fillpen and v.fillpen>0 then -- Material fill pen to table background color s=string.format("", v.fillpen) end ac_objectset("iRows", string.format("%s%s", s, v.typename), nRow, 1) prevtype=v.typename end -- IDs id="" for kid,vid in pairs(v.tblids) do if id~="" then id=id .. " " end id=id .. kid end ac_objectset("iRows", id, nRow, 2) -- Rest ac_objectset("iRows", string.format("%d", v.count), nRow, 3) ac_objectset("iRows", "" .. ac_environment("ntos", v.len, "length", "dim"), nRow, 4) ac_objectset("iRows", "~", nRow, 5) end ac_objectset("B", nHeightRows*rowHeight) ac_objectclose() -- ### Table object end ]]> 1 Arial 10 1 ID Type Date Project Designer Project num 0 0 1 0 0 1 1 1 0 0 0 AF Panel 0 1 1 1 0 0 0 [layer_weight;type=layer] *25* 0.250 0.325 1 1 1 1 [layer;type=layer;default=AF Board] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [boarddialine;default=1] [idpen] [layer;type=layer;default=AF Panel] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] 0 [panelrot;type=angle;default=0] [panelanchor;type=real;default=1] [panel_offset_X;type=length;default=0] [panel_offset_Y;type=length;default=0] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [cnc_bottom;default=1;type=real] [layer_bottom_plate;] [cnc_top;default=1;type=real] [layer_top_plate;] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [cnc_bottom;default=1;type=real] [cnc_top;default=1;type=real] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] 3 [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutlinepen;default=] [cutfill;default=] 3 [layer;type=layer] [showelemtype;default=0] 1 1 [layer;type=layer] 0 0 0 1 arial 30 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer_weight;type=layer] *25* 0.250 0.325 [layer;type=layer] [showelemtype;default=0] 1 1 [layer;type=layer] 0 0 0 1 arial 30 1 arial 2.5 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 *dash* 0 0 0 2 [layer_weight;type=layer] *25* 0.250 0.325 [layer;type=layer] [showelemtype;default=0] 1 1 [layer;type=layer] 0 0 0 1 arial 30 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer_weight;type=layer] *25* 0.250 0.325 [layer;type=layer] [showelemtype;default=0] 1 1 [layer;type=layer] 0 0 0 MAIN 1 arial 30 1 arial 2.5 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 *dash* 0 0 0 2 [layer_weight;type=layer] *25* 0.250 0.325 EXTERIOR 1 arial 2.5 *dash* 0 0 0 2 1 arial 2.5 *dash*|*katkoviiva* 0 0 0 2 INTERIOR 1 arial 2.5 0 0 0 1 arial 2.5 *dash*|*katkoviiva* 0 0 0 2 [layer;type=layer] [showelemtype;default=1] 1 1 [layer;type=layer] 0 0 0 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer_weight;type=layer] *25* 0.250 0.325 1 Arial 1.5 center 1 1 [layer;type=layer] [showelemtype;default=1] 1 1 [layer;type=layer] 0 0 0 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer_weight;type=layer] *25* 0.250 0.325 1 Arial 1.5 center 1 1 [layer;type=layer] [showelemtype;default=1] 1 1 [layer;type=layer] 0 0 0 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer;type=layer] [showelemtype;default=1] 1 1 [layer;type=layer] 0 0 0 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer;type=layer] [showelemtype;default=1] 1 1 [layer;type=layer] 0 0 0 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [layer;type=layer] [showelemtype;default=1] 1 1 [layer;type=layer] 0 0 0 0.001 and v.thickness>matInfo.thickness+0.001 and v.thickness2 then return end dir=1 if nCorner==2 then -- Right dir=-1 end ac_objectopen(guidElem) s=ac_objectget("iElemTypeId") ac_objectclose() if string.match(s, "%a*HOR$") then -- Horizontal element if layerType=="intstud" and nType>=2 and nType<=5 then -- Change top piece to bigger local i, s, newType, info af_request("elem_getpoly") for i=1,gnPlanks do ac_objectopen(string.format("#%d", i)) s=ac_objectget("iElemGroup") if (s=="top_force" and nCorner==1) or (s=="bottom_force" and nCorner==2) then info=af_request("plankinfo") s=ac_objectget("iMatId") tblEdit={} tblEdit.elemdata=ac_objectget("#af_elemdata") tblEdit.guid=tblEdit.elemdata.ptr tblEdit.mat=nil if s=="45x45" then if af_request("singlemat", "45x95")~=nil then -- Ökoehituse tblEdit.mat="45x95" end end if tblEdit.mat==nil then -- Block tblEdit.mat="block" tblEdit.thickness=info.width tblEdit.height=info.height*2 end tblEdit.elemdata.rotangle=-90 if nCorner==2 then tblEdit.elemdata.rotangle=90 end tblEdit.elemdata.x1=tblEdit.elemdata.x1-info.width*dir*0.5 tblEdit.elemdata.z1=tblEdit.elemdata.z1+info.height*0.5 tblEdit.elemdata.x2=tblEdit.elemdata.x2-info.width*dir*0.5 tblEdit.elemdata.z2=tblEdit.elemdata.z1 af_request("editplank", tblEdit) end ac_objectclose() end end return end af_request("elem_getpoly") tblStuds,nStuds=FindStuds() if #tblStuds<1 then return end -- Sort so that corner piece is the first one in the table if nCorner==1 then -- Left side table.sort(tblStuds, function (n1, n2) return n1.elemdata.x1 < n2.elemdata.x1 end) else -- Right side table.sort(tblStuds, function (n1, n2) return n1.elemdata.x1 > n2.elemdata.x1 end) end local nStud, stud, x1, x2, w2 if layerType=="core" then -- core - Duplicate the corner stud nStud=1 while tblStuds[1] and tblStuds[nStud] and math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] plank={} plank.guidsettings=stud.elemdata.ptr w2=stud.plankinfo.width*0.5 if (nType>=2 and nType<=5) or nType==8 or nType==9 or nType==108 or nType==109 then -- L local orgMatId, addx ac_objectopen(stud.elemdata.ptr) orgMatId=ac_objectget("iMatId") ac_objectclose() addx=0 if nType==8 or nType==9 or nType==108 or nType==109 then -- Duplicate end piece and make the last one slightly thicker - find the thicker material local newMat newMat=FindThickerMat(orgMatId) if newMat then local tblEdit, dx addx=(af_request("singlemat", newMat).thickness-stud.plankinfo.width) * 0.5 dx=dir*addx tblEdit={} tblEdit.guid=stud.elemdata.ptr tblEdit.elemdata=stud.elemdata tblEdit.elemdata.x1=tblEdit.elemdata.x1+dx tblEdit.elemdata.x2=tblEdit.elemdata.x2+dx tblEdit.mat=newMat af_request("editplank", tblEdit) end -- Duplicate corner stud plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.width+addx) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 plank.id=orgMatId nCreate=nCreate+1 gtblCreate[nCreate]=plank plank={} plank.guidsettings=stud.elemdata.ptr addx=addx+stud.plankinfo.width end if nType==4 or nType==5 or nType==8 or nType==9 or nType==108 or nType==109 then plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.width+stud.plankinfo.height+addx) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 plank.id=orgMatId nCreate=nCreate+1 gtblCreate[nCreate]=plank plank={} plank.guidsettings=stud.elemdata.ptr end plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(w2+addx) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 if nType==3 or nType==5 or nType==9 then plank.zoff=w2 else plank.zoff=stud.plankinfo.height-w2 end plank.rotangle=-90*dir plank.extendtoelem=1 plank.id=orgMatId x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*(w2+addx+stud.plankinfo.height) if nType>=4 then x2=x2+dir*stud.plankinfo.width end elseif nType==100 or nType==102 then -- Hedalm Long, Omatalo long duplicate end if nType==100 then plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*stud.plankinfo.width plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 nCreate=nCreate+1 gtblCreate[nCreate]=plank end -- Duplicate another plank={} plank.guidsettings=stud.elemdata.ptr plank.group="vertical_force" if nType==100 then plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.height+0.063) -- Gives 229-36/2 mm for 148 mm stud else plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.height-stud.plankinfo.width) end plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*w2 elseif nType==101 then -- Anybyhus duplicate closer plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.height-w2-w2) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*w2 elseif nType==110 then -- Plusshus duplicate further plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.height+0.045) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*w2 elseif nType==120 then -- YIT long ext -- Duplicate another plank={} plank.guidsettings=stud.elemdata.ptr plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(stud.plankinfo.height-stud.plankinfo.width+0.009) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*w2 elseif nType==121 then -- YIT long ext inner -- Duplicate another plank={} plank.guidsettings=stud.elemdata.ptr plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*0.290 plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*w2 else -- Duplicate, types 1,6,7 plank.group="vertical_force" if nType==7 then plank.x1=stud.elemdata.x1+dir*stud.plankinfo.width else plank.x1=stud.elemdata.x1+dir*stud.plankinfo.height if nType==1 then plank.x1=plank.x1-dir*w2 end end plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 x1=stud.elemdata.x1-dir*w2 x2=plank.x1+dir*w2 end nCreate=nCreate+1 gtblCreate[nCreate]=plank af_request("elem_marknoplanks", x1, plank.y1-10, x2, plank.y2+10) nStud=nStud+1 end elseif layerType=="intstud" and nType==120 then nStud=1 while tblStuds[nStud] and math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] -- Corner piece duplicated plank={} plank.guidsettings=stud.elemdata.ptr plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*(0.009+0.198) plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.extendtoelem=1 plank.force=true nCreate=nCreate+1 gtblCreate[nCreate]=plank nStud=nStud+1 end elseif layerType=="intstud" and nType==121 then local x1, x2 nStud=1 while tblStuds[nStud] and math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] -- Corner piece rotated and different material tblEdit={} tblEdit.elemdata=stud.elemdata tblEdit.guid=tblEdit.elemdata.ptr tblEdit.mat="48x98" tblEdit.elemdata.rotangle=-90 if nCorner==2 then tblEdit.elemdata.rotangle=90 end tblEdit.elemdata.x1=tblEdit.elemdata.x1-0.048*dir*0.5 tblEdit.elemdata.z1=tblEdit.elemdata.z1+0.048*0.5 tblEdit.elemdata.x2=tblEdit.elemdata.x2-0.048*dir*0.5 tblEdit.elemdata.z2=tblEdit.elemdata.z1 af_request("editplank", tblEdit) x1=stud.elemdata.x1 x2=stud.elemdata.x1+dir*0.098 nStud=nStud+1 end if x1 then af_request("elem_marknoplanks", x1, -10, x2, 10) end elseif layerType=="extstud" and (nType==8 or nType==9 or nType==108 or nType==109) then local finishThick finishThick=0.023 nStud=1 while math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] -- Corner piece, plank={} plank.guidsettings=stud.elemdata.ptr plank.group="vertical_force" plank.id="block" plank.thickness=0.022 plank.height=0.123 plank.x1=stud.elemdata.x1-stud.plankinfo.height-stud.plankinfo.width-finishThick+plank.height plank.rotangle=90 if dir<0 then plank.x1=stud.elemdata.x1+stud.plankinfo.height+stud.plankinfo.width+finishThick-plank.height plank.rotangle=-90 end plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.zoff=-finishThick-plank.thickness*0.5 -- change zoff sign if element built from in to out, 0.023 is thickness of finishing layer plank.extendtoelem=2 plank.force=true nCreate=nCreate+1 gtblCreate[nCreate]=plank nStud=nStud+1 end elseif layerType=="intstud" or (layerType=="extstud" and nType==100) then -- intstud, rotate corner stud and move it local tblEdit, height, x1, x2, w2, orgMatId nStud=1 while tblStuds[nStud] and math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] ac_objectopen(stud.elemdata.ptr) orgMatId=ac_objectget("iMatId") ac_objectclose() if math.abs(stud.elemdata.rotangle)<1 then w2=stud.plankinfo.width*0.5 tblEdit=nil if layerType=="extstud" and nType==100 then -- do not rotate, change from 19x48 to 19x73 if math.abs(stud.plankinfo.width-0.048)<0.001 then local newWidth newWidth=0.073 stud.elemdata.x1=stud.elemdata.x1+(newWidth - stud.plankinfo.width)*0.5*dir stud.elemdata.x2=stud.elemdata.x1 tblEdit={} tblEdit.guid=stud.elemdata.ptr tblEdit.elemdata=stud.elemdata tblEdit.mat="block" tblEdit.thickness=newWidth tblEdit.height=stud.plankinfo.height -- No planks area if nCorner==1 then x1=tblEdit.elemdata.x1 x2=tblEdit.elemdata.x1+tblEdit.thickness elseif nCorner==2 then x1=tblEdit.elemdata.x1-tblEdit.thickness x2=tblEdit.elemdata.x1 end end else -- intstud -- Zero rotate, set size and rotate stud.elemdata.rotangle=-90 if nCorner==2 then stud.elemdata.rotangle=90 end stud.elemdata.x1=stud.elemdata.x1-w2*dir stud.elemdata.z1=stud.elemdata.z1+stud.plankinfo.height*0.5 stud.elemdata.x2=stud.elemdata.x2-w2*dir stud.elemdata.z2=stud.elemdata.z1 tblEdit={} tblEdit.guid=stud.elemdata.ptr tblEdit.elemdata=stud.elemdata tblEdit.mat="block" tblEdit.thickness=stud.plankinfo.height tblEdit.height=stud.plankinfo.height*2 if nType==100 then -- Hedalm Long, different material tblEdit.height=stud.plankinfo.width*2 end if nType==110 then -- Plusshus, corner is bigger tblEdit.mat="45x195" tblEdit.thickness=stud.plankinfo.height tblEdit.height=0.195 end -- No planks area if nCorner==1 then x1=tblEdit.elemdata.x1 x2=tblEdit.elemdata.x1+tblEdit.height elseif nCorner==2 then x1=tblEdit.elemdata.x1-tblEdit.height x2=tblEdit.elemdata.x1 end end if tblEdit then af_request("editplank", tblEdit) if nType==101 then -- Anebyhus corner, duplicate another rotated plank={} plank.guidsettings=tblEdit.guid -- is a ptr plank.group="vertical_force" plank.id=tblEdit.mat plank.thickness=tblEdit.thickness plank.height=tblEdit.height plank.x1=stud.elemdata.x1+dir*(0.195) -- HARD CODED core STUD plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.zoff=stud.elemdata.z1 plank.extendtoelem=1 plank.rotangle=stud.elemdata.rotangle plank.force=true nCreate=nCreate+1 gtblCreate[nCreate]=plank if nCorner==1 then x2=plank.x1+plank.height else x1=plank.x1-plank.height end elseif nType==110 then -- Plusshus corner, duplicate two 45x45 next to 45x195 at corner local plank2 plank={} plank.guidsettings=stud.elemdata.ptr plank.id=orgMatId plank.group="vertical_force" plank.x1=stud.elemdata.x1+dir*tblEdit.height -- HARD CODED core STUD plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.zoff=stud.elemdata.z1 plank.extendtoelem=1 plank.rotangle=stud.elemdata.rotangle plank.force=true nCreate=nCreate+1 gtblCreate[nCreate]=plank -- Another one plank2={} plank2.guidsettings=stud.elemdata.ptr plank2.id=orgMatId plank2.thickness=stud.plankinfo.width plank2.height=stud.plankinfo.height plank2.group="vertical_force" plank2.x1=plank.x1+dir*stud.plankinfo.height plank2.y1=stud.elemdata.y1 plank2.x2=plank2.x1 plank2.y2=stud.elemdata.y2 plank2.zoff=stud.elemdata.z1 plank2.extendtoelem=1 plank2.rotangle=stud.elemdata.rotangle plank2.force=true nCreate=nCreate+1 gtblCreate[nCreate]=plank2 if nCorner==1 then x2=plank2.x1+stud.plankinfo.width else x1=plank2.x1-stud.plankinfo.width end end --ac_environment("tolog", string.format("x1=%f x2=%f\n", x1, x2)) af_request("elem_marknoplanks", x1, tblEdit.elemdata.y1-10, x2, tblEdit.elemdata.y2+10) -- Remove any stud in x1, x2 area (double studding) local scan, vscan for scan,vscan in ipairs(tblStuds) do if vscan.elemdata.x1-vscan.plankinfo.width*0.5+0.010>x1 and vscan.elemdata.x1+vscan.plankinfo.width*0.5-0.0100 then af_request("elem_createplanks") end end -- Adjusts planks for given corner 1/2 -- nType See top -- Called with element planks opened function DoShortPlanks(layerType, nCorner, nType, guidElem) local tblStuds, plank, i, s, nStuds, dir, nCreate gtblCreate={} nCreate=0 if nCorner>2 then return end ac_objectopen(guidElem) s=ac_objectget("iElemTypeId") ac_objectclose() if string.match(s, "%a*HOR$") then return end af_request("elem_getpoly") tblStuds,nStuds=FindStuds() if #tblStuds<1 then return end -- Sort so that corner piece is the first one in the table if nCorner==1 then -- Left side dir=1 table.sort(tblStuds, function (n1, n2) return n1.elemdata.x1 < n2.elemdata.x1 end) else -- Right side dir=-1 table.sort(tblStuds, function (n1, n2) return n1.elemdata.x1 > n2.elemdata.x1 end) end local nStud, stud, x1, x2, w2 if layerType=="extstud" and (nType==8 or nType==9 or nType==108 or nType==109) then local finishThick finishThick=0.023 nStud=1 while math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] -- Corner piece, plank={} plank.guidsettings=stud.elemdata.ptr plank.group="vertical_force" plank.id="block" plank.thickness=0.022 plank.height=0.148 plank.x1=stud.elemdata.x1-stud.plankinfo.height-stud.plankinfo.width-finishThick-plank.thickness+plank.height plank.rotangle=90 if dir<0 then plank.x1=stud.elemdata.x1+stud.plankinfo.height+stud.plankinfo.width+finishThick+plank.thickness-plank.height plank.rotangle=-90 end plank.y1=stud.elemdata.y1 plank.x2=plank.x1 plank.y2=stud.elemdata.y2 plank.zoff=-finishThick-plank.thickness*0.5 -- change zoff sign if element built from in to out, 0.023 is thickness of finishing layer plank.extendtoelem=2 plank.force=true nCreate=nCreate+1 gtblCreate[nCreate]=plank nStud=nStud+1 end elseif layerType=="intstud" and nType==121 then nStud=1 while tblStuds[nStud] and math.abs(tblStuds[1].elemdata.x1 - tblStuds[nStud].elemdata.x1)<0.001 do stud=tblStuds[nStud] -- Corner piece rotated and different material tblEdit={} tblEdit.elemdata=stud.elemdata tblEdit.guid=tblEdit.elemdata.ptr tblEdit.mat="48x148" tblEdit.elemdata.rotangle=-90 if nCorner==2 then tblEdit.elemdata.rotangle=90 end tblEdit.elemdata.x1=tblEdit.elemdata.x1-0.048*dir*0.5 tblEdit.elemdata.z1=tblEdit.elemdata.z1+0.048*0.5 tblEdit.elemdata.x2=tblEdit.elemdata.x2-0.048*dir*0.5 tblEdit.elemdata.z2=tblEdit.elemdata.z1 af_request("editplank", tblEdit) x1=stud.elemdata.x1 x2=stud.elemdata.x1+dir*0.148 nStud=nStud+1 end if x1 then af_request("elem_marknoplanks", x1, -10, x2, 10) end end if nCreate>0 then af_request("elem_createplanks") end end -- Save connections for this script to be able to make shape for related element(s) function AddConn(guidthis, cornerthis, relData) if not IsAdjustOther() then return end local item --ac_environment("tolog", string.format("guidthis=%s, cornerthis=%s, guidother=%s, cornerother=%s\n", tostring(guidthis), tostring(cornerthis), tostring(guidother), tostring(cornerother))) item={} item.guidthis =guidthis item.cornerthis =cornerthis item.guidother =relData.this.guidother item.cornerother=relData.other.reltype item.reldata =relData -- Also full relData gtblConn[#gtblConn+1]=item end -- Handles every layer not having tblParent[nLayer].handled set to true function DoDefaultLong(tblParent, nCorner, coreElem, nType) if not gAdjustElems then return end local i, v, off if nType==nil then nType=1 end if nType==110 then return -- NOP for Plusshus end -- Keep core in place, move all others for i,v in ipairs(tblParent.tblelems) do if not v.handled then af_request("elem_openlayer", v.guid) off=nil if nType==100 or nType==102 then -- Hedalm if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then if v.type=="panel_ext" then off=off+0.049 elseif v.type=="boarding_ext" then off=off+v.thickness end end elseif nType==120 then -- YIT ext 1 if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then if v.type=="finish_ext" then off=off+0.034 elseif v.type=="boarding_int" then off=off-0.009-0.198 end end elseif nType==121 then -- YIT ext int 1 if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then if v.type=="finish_ext" or string.match(v.type, "^extstud%a*") then off=off-0.305 elseif v.type=="boarding_int" or string.match(v.type, "^intstud%a*") then off=off+0.048 end end else if nType==101 then -- This type is made from int to ext off=(v.zoff+v.thickness)-(coreElem.zoff+coreElem.thickness) if v.type=="intstud" then -- Extend this as far as core off=off+coreElem.thickness end else -- Default ext to int off=coreElem.zoff-v.zoff end if nCorner==1 then off=off-v.x1off elseif nCorner==2 then off=off-v.x2off elseif nCorner==3 then off=off-v.y1off elseif nCorner==4 then off=off-v.y2off else error(string.format("bad corner %s", tostring(nCorner))) end end if gAdjustElems and off then af_request("elem_moveside", nCorner, off) end af_request("elem_closelayer") end end end -- Looks for core layer relation and returns information for long core layer -- layerType nil="core", others=override -- Returns (anything can be nil): relFound, x1offCore, x2offCore, coreLayer function FindCoreRel(tblParent, nCorner, layerType) if not IsFindOther() then return end local i, v, tblRel, coreLayer local iRel, vRel, relFound local x1offCore, x2offCore if layerType==nil then layerType="core" end for i,v in ipairs(tblParent.tblelems) do if v.type==layerType then coreLayer=v tblRel=af_request("elem_getrelations", v.guid) if tblRel then if nCorner==1 then for iRel,vRel in ipairs(tblRel) do if vRel.this.reltype==1 then relFound=vRel x1offCore=-vRel.this.x1 break end end elseif nCorner==2 then for iRel,vRel in ipairs(tblRel) do if vRel.this.reltype==2 then relFound=vRel x2offCore=vRel.this.x2-v.xsize break end end end end end end return relFound, x1offCore, x2offCore, coreLayer end function DoWithRelLong(tblParent, nCorner, coreElem, nType) local i, v, off, tblRel local iRel, vRel, relFound, reFoundCore local x1offCore, x2offCore -- How much the core must be adjusted reFoundCore, x1offCore, x2offCore=FindCoreRel(tblParent, nCorner) --ac_environment("tolog", string.format("LONG %s x1offCore=%s, x2offCore=%s", tostring(nType), tostring(x1offCore), tostring(x2offCore))) if nType==100 or nType==102 then -- Hedalm long, find core relation for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore if v.type=="panel_ext" then off=off+0.049 elseif v.type=="boarding_ext" then off=off+v.thickness end elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore if v.type=="panel_ext" then off=off+0.049 elseif v.type=="boarding_ext" then off=off+v.thickness end end if off then AddConn(v.guid, nCorner, reFoundCore) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return end if nType==120 then -- YIT Long 1 for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore+0.009 -- Add crossing wall's windshield board thickness if v.type=="finish_ext" then off=off+0.034 elseif v.type=="boarding_int" then off=off-0.009-0.198 end elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore+0.009 if v.type=="finish_ext" then off=off+0.034 elseif v.type=="boarding_int" then off=off-0.009-0.198 end end if off then AddConn(v.guid, nCorner, reFoundCore) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return end if nType==121 then -- YIT Long inner 1 for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore if v.type=="finish_ext" or string.match(v.type, "^extstud%a*") then off=off-0.290 elseif v.type=="boarding_int" or v.type=="intstud" then off=off+0.048 end elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore if v.type=="finish_ext" or string.match(v.type, "^extstud%a*") then off=off-0.290 elseif v.type=="boarding_int" or v.type=="intstud" then off=off+0.048 end end if off then AddConn(v.guid, nCorner, reFoundCore) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return end -- Check if built from out to in local firstExt, s firstExt=false s=tblParent.tblelems[1].type if string.match(s, "_ext.*") or string.match(s, "^ext.*") then firstExt=true end --ac_environment("tolog", string.format("tblParent.tblelems[1].type=%s firstExt=%s", tblParent.tblelems[1].type, tostring(firstExt))) -- Match to related element for i,v in ipairs(tblParent.tblelems) do tblRel=nil if IsFindOther() then tblRel=af_request("elem_getrelations", v.guid) end if tblRel and (gGuidElemToPlank==nil or gGuidElemToPlank==v.guid) then af_request("elem_openlayer", v.guid) off=nil if nCorner==1 then for iRel,vRel in ipairs(tblRel) do if vRel.this.reltype==1 then relFound=vRel off=-vRel.this.x1 break end end elseif nCorner==2 then for iRel,vRel in ipairs(tblRel) do if vRel.this.reltype==2 then relFound=vRel off=vRel.this.x2-v.xsize --ac_environment("tolog", string.format("vRel.this.x2=%f vRel.this.angledeg=%f vRel.other.angledeg=%f v.xsize=%f", vRel.this.x2, vRel.this.angledeg, vRel.other.angledeg, v.xsize)) break end end else error(string.format("bad corner %s", tostring(nCorner))) end s=v.type if relFound and (nType==8 or nType==9 or nType==108 or nType==109 or nType==110) and (string.match(s, "_ext.*") or string.match(s, "^ext.*")) and (s~="boarding_ext" or nType==110) then -- Make extstud, finish_ext shorter (adjust to boarding_ext) if found -- For type 110/Plusshus: Adjust to main framing local relBoard, x1offBoard, x2offBoard, boardLayer if nType==110 then relBoard, x1offBoard, x2offBoard, boardLayer=FindCoreRel(tblParent, nCorner, "core") else relBoard, x1offBoard, x2offBoard, boardLayer=FindCoreRel(tblParent, nCorner, "boarding_ext") end if relBoard then if (relFound.this.angledeg>0 and firstExt==true) or (relFound.this.angledeg<0 and firstExt==false) then -- Outer corner if nCorner==1 then off=boardLayer.x1off-v.x1off off=off+x1offBoard elseif nCorner==2 then off=boardLayer.x2off-v.x2off off=off+x2offBoard end else -- Inner corner, reduce thickness of all layers from this to the last exterior layer local i2 if firstExt then i2=i while i2>0 do off=off-tblParent.tblelems[i2].thickness i2=i2-1 end else i2=i while tblParent.tblelems[i2]~=nil do off=off-tblParent.tblelems[i2].thickness i2=i2+1 end end end end end if off then if (nType==101 or nType==110) and v.type=="intstud" then -- Extend this as far as core off=off+coreElem.thickness end AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end end end -- Handles every layer not having tblParent[nLayer].handled set to true function DoDefaultShort(tblParent, nCorner, coreElem, nType) local i, v, off if nType==110 then return -- NOP for Plusshus end -- Keep core in place, move all others for i,v in ipairs(tblParent.tblelems) do if not v.handled then af_request("elem_openlayer", v.guid) off=nil if nType==100 then -- Hedalm if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then if v.type=="panel_ext" then off=off+coreElem.thickness+0.061+0.028 elseif v.type=="extstud" or v.type=="boarding_ext" then off=off+coreElem.thickness+0.061 end end elseif nType==120 then -- YIT Short ext 1 if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then if string.match(v.type, "^extstud%a*") then off=off+0.274 elseif string.match(v.type, "^finish_ext%a*") then off=off+0.330 end end elseif nType==121 then -- YIT Short ext inner 1 if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then -- Should stop inner studding&boarding to next stud end elseif nType==102 then -- Omatalo if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off end if off then if v.type=="boarding_ext" then off=off+coreElem.thickness+0.013 end end else if nType==101 then -- This type is made from int to ext off=(v.zoff)-(coreElem.zoff) if nType==101 and v.type=="core" and tblParent.tblelems[i-1]~=nil and tblParent.tblelems[i-1].type=="intstud" then -- Core gives space for long one's intstud off=off-tblParent.tblelems[i-1].thickness end else -- Default ext to int off=(coreElem.zoff+coreElem.thickness)-(v.zoff+v.thickness) end if nCorner==1 then off=off-v.x1off elseif nCorner==2 then off=off-v.x2off elseif nCorner==3 then off=off-v.y1off elseif nCorner==4 then off=off-v.y2off else error(string.format("bad corner %s", tostring(nCorner))) end end if gAdjustElems and off then af_request("elem_moveside", nCorner, off) end af_request("elem_closelayer") end end end function DoWithRelShort(tblParent, nCorner, coreElem, nType) local i, v, off, tblRel local iRel, vRel, relFound if nType==100 then local x1offCore, x2offCore, coreLayer -- How much the core must be adjusted -- Hedalm short, find core relation relFound, x1offCore, x2offCore, coreLayer=FindCoreRel(tblParent, nCorner) for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore-coreLayer.thickness-0.061 if v.type=="panel_ext" then off=off+coreLayer.thickness+0.061+0.028 elseif v.type=="extstud" or v.type=="boarding_ext" then off=off+coreLayer.thickness+0.061 end elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore-coreLayer.thickness-0.061 if v.type=="panel_ext" then off=off+coreLayer.thickness+0.061+0.028 elseif v.type=="extstud" or v.type=="boarding_ext" then off=off+coreLayer.thickness+0.061 end end if off then AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return elseif nType==120 then local x1offCore, x2offCore, coreLayer -- How much the core must be adjusted -- YIT short, find core relation relFound, x1offCore, x2offCore, coreLayer=FindCoreRel(tblParent, nCorner) for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore-coreLayer.thickness-0.048-0.028 elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore-coreLayer.thickness-0.048-0.028 end if off then if v.type=="boarding_int" then off=off elseif string.match(v.type, "^extstud%a*") then off=off+coreLayer.thickness+0.048+0.028 elseif string.match(v.type, "^finish_ext%a*") then off=off+coreLayer.thickness+0.048+0.028+0.009+0.045+0.002 end AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return elseif nType==121 then local x1offCore, x2offCore, coreLayer -- How much the core must be adjusted -- YIT short inner, find core relation relFound, x1offCore, x2offCore, coreLayer=FindCoreRel(tblParent, nCorner) for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore-coreLayer.thickness-0.024 elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore-coreLayer.thickness-0.024 end if off then if v.type=="boarding_int" then off=off+0.283 elseif string.match(v.type, "^intstud%a*") then off=off+0.100 end AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return elseif nType==102 then -- Omatalo local x1offCore, x2offCore, coreLayer -- How much the core must be adjusted -- Hedalm short, find core relation relFound, x1offCore, x2offCore, coreLayer=FindCoreRel(tblParent, nCorner) for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore-coreLayer.thickness-0.013 if v.type=="core" then off=off-0.010 elseif v.type=="boarding_ext" then off=off+coreLayer.thickness+0.013 end elseif nCorner==2 and x2offCore then off=-v.x1off+x2offCore-coreLayer.thickness-0.013 if v.type=="core" then off=off-0.010 elseif v.type=="boarding_ext" then off=off+coreLayer.thickness+0.013 end end if off then AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return elseif nType==110 then -- Plusshus (short) local x1offCore, x2offCore, coreLayer -- How much the core must be adjusted relFound, x1offCore, x2offCore, coreLayer=FindCoreRel(tblParent, nCorner) for i,v in ipairs(tblParent.tblelems) do af_request("elem_openlayer", v.guid) off=nil if nCorner==1 and x1offCore then off=-v.x1off+x1offCore-coreLayer.thickness-0.053 -- 0.045+0.008 if string.match(v.type, "_ext.*") or string.match(v.type, "^ext.*") then off=off+coreLayer.thickness+0.053 end elseif nCorner==2 and x2offCore then off=-v.x2off+x2offCore-coreLayer.thickness-0.053 if string.match(v.type, "_ext.*") or string.match(v.type, "^ext.*") then off=off+coreLayer.thickness+0.053 end end if off then AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end return end -- Check if built from out to in local firstExt, s firstExt=false s=tblParent.tblelems[1].type if string.match(s, "_ext.*") or string.match(s, "^ext.*") then firstExt=true end for i,v in ipairs(tblParent.tblelems) do tblRel=nil if IsFindOther() then tblRel=af_request("elem_getrelations", v.guid) end if tblRel then af_request("elem_openlayer", v.guid) off=nil if nCorner==1 then for iRel,vRel in ipairs(tblRel) do if vRel.this.reltype==1 then relFound=vRel off=-(vRel.this.x2-vRel.this.x2off) break end end elseif nCorner==2 then for iRel,vRel in ipairs(tblRel) do if vRel.this.reltype==2 then relFound=vRel off=(vRel.this.x1+vRel.this.x1off)-v.xsize break end end else error(string.format("bad corner %s", tostring(nCorner))) end s=v.type if relFound and (nType==8 or nType==9 or nType==108 or nType==109) and (string.match(s, "_ext.*") or string.match(s, "^ext.*")) and s~="boarding_ext" then -- Make extstud, finish_ext shorter if found local relBoard, x1offBoard, x2offBoard, boardLayer relBoard, x1offBoard, x2offBoard, boardLayer=FindCoreRel(tblParent, nCorner, "boarding_ext") if relBoard then local i2 if (relFound.this.angledeg>0 and firstExt==true) or (relFound.this.angledeg<0 and firstExt==false) then -- Outer corner i2=i while true do if firstExt then i2=i2+1 else i2=i2-1 end if tblParent.tblelems[i2]==nil then break end s=tblParent.tblelems[i2].type if s=="boarding_ext" or not (string.match(s, "_ext.*") or string.match(s, "^ext.*")) then break end off=off-tblParent.tblelems[i2].thickness end else -- Inner corner, reduce thickness of all layers from this to the last exterior layer i2=i while true do if firstExt then i2=i2-1 else i2=i2+1 end if i2<1 or i2>#tblParent.tblelems then break end off=off-tblParent.tblelems[i2].thickness end end end end if off then if nType==101 and v.type=="core" and tblParent.tblelems[i-1]~=nil and tblParent.tblelems[i-1].type=="intstud" then -- Core gives space for long one's intstud off=off-tblParent.tblelems[i-1].thickness end AddConn(v.guid, nCorner, relFound) if gAdjustElems then af_request("elem_moveside", nCorner, off) end v.handled=true end af_request("elem_closelayer") end end end -- nType as for creating planks: nil=no specs function SetLongElem( sSettings, guidElem, nCorner, nType ) local tblParent local coreElem, nSaveElems gtblConn={} tblParent=af_request("elem_openparent", guidElem) -- Find core layer coreElem=nil for i,v in ipairs(tblParent.tblelems) do if v.type=="core" then coreElem=v break end end if coreElem==nil then af_request("elem_closeparent", 0) return end gGuidElemToPlank=guidElem nSaveElems=0 if gAdjustElems then nSaveElems=1 gGuidElemToPlank=nil end DoWithRelLong(tblParent, nCorner, coreElem, nType) DoDefaultLong(tblParent, nCorner, coreElem, nType) af_request("elem_closeparent", nSaveElems) if #gtblConn>0 and gAdjustElems then -- To other part local v v=gtblConn[1] if v.cornerother==1 or v.cornerother==2 then v.idother="short" -- To be saved into other element's settings if nType==100 then v.idother="short_hedalm" elseif nType==101 then v.idother="short_anebyhus" elseif nType==102 then v.idother="short_omatalo" elseif nType==8 or nType==9 or nType==108 or nType==109 then v.idother="short3" elseif nType==110 then v.idother="plusshus_short_ext1" elseif nType==120 then v.idother="yit_short1" elseif nType==121 then v.idother="yit_shortint1" end tblParent=af_request("elem_openparent", v.guidother) DoWithRelShort(tblParent, v.cornerother, nil, nType) af_request("elem_closeparent", 1) end end end function SetShortElem( sSettings, guidElem, nCorner, nType ) local tblParent local coreElem gtblConn={} tblParent=af_request("elem_openparent", guidElem) -- Find core layer coreElem=nil for i,v in ipairs(tblParent.tblelems) do if v.type=="core" then coreElem=v break end end if coreElem==nil then af_request("elem_closeparent", 0) return end gGuidElemToPlank=guidElem nSaveElems=0 if gAdjustElems then nSaveElems=1 gGuidElemToPlank=nil end DoWithRelShort(tblParent, nCorner, coreElem, nType) DoDefaultShort(tblParent, nCorner, coreElem, nType) af_request("elem_closeparent", nSaveElems) if #gtblConn>0 and gAdjustElems then -- To other part local v v=gtblConn[1] if v.cornerother==1 or v.cornerother==2 then v.idother="long" -- To be saved into other element's settings if nType==100 then v.idother="long_hedalm" elseif nType==101 then v.idother="long_anebyhus" elseif nType==102 then v.idother="long_omatalo" elseif nType==8 or nType==9 or nType==108 or nType==109 then if v.reldata.other.angledeg>0 then v.idother="long_l_left3" else v.idother="long_l_right3" end elseif nType==110 then v.idother="plusshus_long_ext1" elseif nType==120 then v.idother="yit_long1" elseif nType==121 then v.idother="yit_longint1" end tblParent=af_request("elem_openparent", v.guidother) DoWithRelLong(tblParent, v.cornerother, coreElem, nType) af_request("elem_closeparent", 1) end end end -- Example of offsetting layers with constant values function DoDefaultTopBottom(tblParent, nCorner, coreElem, nType) local i, v, off -- Keep core in place, move all others for i,v in ipairs(tblParent.tblelems) do -- Following condition is always true for bottom & top since no element relation are used if not v.handled then af_request("elem_openlayer", v.guid) off=nil -- Keep core unmoved if v~=coreElem then if nCorner==3 then -- Bottom off=-v.y1off else -- Top off=-v.y2off end if v.type=="intstud" or v.type=="boarding_int" then if nCorner==3 then off=off-0.050 else off=2.5 - v.ysize -- Height=2500 end elseif v.type=="boarding_ext" then if nCorner==3 then -- Adjust bottom to core else off=off+0.1 -- Top 100 mm over core end elseif v.type=="extstud" or v.type=="finish_ext" then if nCorner==3 then off=off-0.15 -- Bottom 150 mm up from core bottom else off=off+0.15 -- Top 150 mm over core end else ac_environment("tolog", string.format("Unknown element layer type=%s", v.type)) off=nil -- No change end end if gAdjustElems and off then af_request("elem_moveside", nCorner, off) end af_request("elem_closelayer") end end end function SetTopBottomEx( sSettings, guidElem, nCorner, nType ) local tblParent local coreElem gtblConn={} tblParent=af_request("elem_openparent", guidElem) -- Find core layer coreElem=nil for i,v in ipairs(tblParent.tblelems) do if v.type=="core" then coreElem=v break end end if coreElem==nil then af_request("elem_closeparent", 0) return end gGuidElemToPlank=guidElem nSaveElems=0 if gAdjustElems then nSaveElems=1 gGuidElemToPlank=nil end DoDefaultTopBottom(tblParent, nCorner, coreElem, nType) af_request("elem_closeparent", nSaveElems) end function SetTopBottom( guidElem, nCorner, offBoardInt, offBoardExt, offStuddingExt1, offStuddingExt2, offFinishExt ) local tblParent local coreElem local i, v, off tblParent=af_request("elem_openparent", guidElem) -- Find core layer coreElem=nil for i,v in ipairs(tblParent.tblelems) do if v.type=="core" then coreElem=v break end end if coreElem==nil then af_request("elem_closeparent", 0) return end gGuidElemToPlank=guidElem nSaveElems=0 if gAdjustElems then nSaveElems=1 gGuidElemToPlank=nil end -- Keep core in place, move all others for i,v in ipairs(tblParent.tblelems) do -- Following condition is always true for bottom & top since no element relation are used af_request("elem_openlayer", v.guid) off=nil -- Keep core unmoved if v~=coreElem then if nCorner==3 then -- Bottom off=-v.y1off else -- Top off=-v.y2off end if string.match(v.type, "^intstud%a*") or string.match(v.type, "^boarding_int%a*") then off=off+offBoardInt elseif string.match(v.type, "^boarding_ext%a*") then off=off+offBoardExt elseif string.match(v.type, "^extstud%a*") then off=off+offStuddingExt1 elseif string.match(v.type, "^extstud2%a*") then off=off+offStuddingExt2 elseif string.match(v.type, "^finish_ext%a*") then off=off+offFinishExt else ac_environment( "tolog", string.format("WARNING: SET TOP&BOTTOM, UNKONWN LAYER: %s", v.type)) off=nil -- No change end end if gAdjustElems and off then af_request("elem_moveside", nCorner, off) end af_request("elem_closelayer") end af_request("elem_closeparent", nSaveElems) end function SetStraight( guidElem, nCorner ) local tblParent local coreElem local i, v, off tblParent=af_request("elem_openparent", guidElem) -- Find core layer coreElem=nil for i,v in ipairs(tblParent.tblelems) do if v.type=="core" then coreElem=v break end end if coreElem==nil then af_request("elem_closeparent", 0) return end gGuidElemToPlank=guidElem nSaveElems=0 if gAdjustElems then nSaveElems=1 gGuidElemToPlank=nil end -- Keep core in place, move all others for i,v in ipairs(tblParent.tblelems) do -- Following condition is always true for bottom & top since no element relation are used af_request("elem_openlayer", v.guid) off=nil -- Keep core unmoved if v~=coreElem then if nCorner==1 then off=-v.x1off elseif nCorner==2 then off=-v.x2off elseif nCorner==3 then off=-v.y1off elseif nCorner==4 then off=-v.y2off end end if gAdjustElems and off and math.abs(off)>0.0001 then af_request("elem_moveside", nCorner, off) end af_request("elem_closelayer") end af_request("elem_closeparent", nSaveElems) end ]]>