1 1 1 1 0 0 1 0 0 1 8 ELEM 3 1 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 1 AF Insulation 25 % 200 8 1 0 0 # 25 % # 25 % 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.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 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 1.5 1 arial 2 1 arial 2 1 arial 1.5 1 arial 1.5 cumulative 5 1 1.5 1 arial 1.5 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 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 " .. k -- Acc ID if v.unit==2 then -- Meters t.cols[2]=Len2Str(v.num) t.cols[3]=ac_environment("units", "length", "dim") else t.cols[2]=string.format("%d", v.num) t.cols[3]=gPcs end i=i+1 res[i]=t end table.sort( res, function(p1, p2) return p1.cols[1] =200 and code<300 then return true end return false end function Len2Str(len) return ac_environment("ntos", len, "length", "dim") end ---------------------------------------- -- ACCESSORIES HELP -- # Frame machinings types EMcFrAngledBegOld = 100 EMcFrAngledBeg = 101 EMcFrAngledBegTenon = 110 -- Also dovetail (OLD) EMcFrBegHiddenShoe = 111 EMcFrAngledBegTenonMort = 112 EMcJointBeg = 113 EMcVCutBeg = 114 EMcFrAngledEndOld = 200 EMcFrAngledEnd = 201 EMcFrAngledEndTenon = 210 EMcFrEndHiddenShoe = 211 EMcFrAngledEndTenonMort = 212 EMcJointEnd = 213 EMcVCutEnd = 214 EMcFrOpening = 300 -- Opening - unused now EMcFrGroove = 301 -- Logsin tapainen vapaa ura EMcFrDrill = 302 -- Drilling EMcFrMarking = 303 -- Marking EMcFrReinforce = 304 EMcFrSaw = 305 EMcFrNailGroup = 306 EMcFrNailLine = 307 EMcFrTenonSide = 400 -- Also dovetail EMcFrBalkJoint = 401 -- Narrowed balk EMcLogTakasBalk = 900 EMcLogTakasLog = 901 EMcLogRounding = 902 EMcLogCutShape = 903 EMcFrTirol = 904 EMcFrBalkShoe = 1000 EMcFrHobaFix = 1001 -- Calcs balk shoes etc: tblAcc's key is the acc id and it has fields: num=quantity, unit: 1=pcs, 2=meters function CalcMcQuant(tblAcc) local i, count, mc, tbl, s, key, c count=ac_objectget("iMc",-1) for i=1,count do mc=ac_objectget("iMc", i, 1) if mc==EMcFrBalkShoe then s=ac_objectget("iMcStr", i) if s and s~="" then tbl=tblAcc[s] if tbl==nil then tbl={} tbl.num=0 tbl.unit=1 tblAcc[s]=tbl end local nBeg, nEnd, n nBeg=1 nEnd=0 n=ac_objectget("iMc",i,2) -- flags if ac_environment("bittest", n, 0)==1 then nBeg=0 nEnd=1 end if ac_environment("bittest", n, 3)==1 then nBeg=1 nEnd=1 end tbl.num=tbl.num+nBeg+nEnd end elseif mc==EMcFrHobaFix then -- Hobafix s=ac_objectget("iMcStr", i) if s and s~="" then tbl=tblAcc[s] if tbl==nil then tbl={} tbl.num=0 tbl.unit=1 tblAcc[s]=tbl end tbl.num=tbl.num+1 end elseif mc==EMcFrReinforce then -- Reinforcement found local height, len, width s=ac_objectget("iMcStr", i) height=ac_objectget("iMc",i,5) len=ac_objectget("iMc",i,4) width=ac_objectget("iMc",i,6) if len==0 then len=GetPlankLen() end c=1 if ac_objectget("iMc",i,8)==1 then -- Both sides c=2 end key=string.format("%s %s x %s x %s", s, ac_environment("ntos", width, "length", "dim"), ac_environment("ntos", height, "length", "dim"), ac_environment("ntos", len, "length", "dim") ) tbl=tblAcc[key] if tbl==nil then tbl={} tbl.num=0 tbl.unit=1 tbl.width=width tbl.height=height tbl.len=len tblAcc[key]=tbl end tbl.num=tbl.num+c end end end -- ACCESSORIES HELP ---------------------------------------- -- Constructs string for col1 (may be overridden by gListSettings.col1str_plank later on) function GetCol1Str(item) if item.type==4 then -- Board, find max size from the polygon local i, count, x1, x2, y1, y2, x, y, s x1=1e10 y1=1e10 x2=-x1 y2=-y1 count=ac_objectget("iPolygon", -1) for i=1,count do x=ac_objectget("iPolygon", i, 1) y=ac_objectget("iPolygon", i, 2) if xx2 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 end -- Check if floor only if made as customer specific customization (not on by default) local nFloorRoof if false then -- Not used in default data if vElem.geo then if math.abs(1 - math.abs(vElem.geo.vecz.z))<0.01 then nFloorRoof=1 elseif math.abs(math.abs(vElem.geo.vecz.z))>0.01 then nFloorRoof=2 end end end elemgroup=GetElemGroupName(isHor, elemgroup, nFloorRoof) 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 s=elemgroup if g_clearElemRole then s="" end idgroup=s .. " " .. plankInfo.typename .. " (" .. id .. ")" -- Actually id is last idgroupshow=idgroup idgroup=idgroup .. Len2Str(plankInfo.len) -- Add length in case we have manual plank numbering end if plankInfo.tblWeather and plankInfo.tblWeather.wbguid then -- Separate weatherboards by wbguid to have different opening pieces not combined idgroup=idgroup .. " " .. plankInfo.tblWeather.wbguid 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 if g_collectAll then idgroup=idgroup .. plankInfo.ptr end s=ac_objectget("iIncludeCutlist") -- Added 8/2019, 1=include (default) if BoardIsInsu() and (not gListSettings or not gListSettings.addinsu) then -- 2/2020: Don't collect insulation unless it is exploded. Change 4/2021: collect if in settings s=0 end if not s or s==1 then s=string.format("%s %s", elemTypeSortNow, idgroup) if g_sepByLayer and vElem and vElem.elemtype then s=s .. vElem.elemtype end --ac_environment("tolog", s) item=tblPlanks[s] if item==nil then item={} item.elemtypesort=elemTypeSortNow item.idgroup=idgroup item.idgroupshow=idgroupshow item.elemgroup=elemgroup item.elemtype=vElem.elemtype item.id=id item.plankinfo=plankInfo item.type=plankInfo.type item.matid=ac_objectget("iMatId") 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) item.external=v.external tblPlanks[s]=item end item.count=item.count+1 item.tblinfos[item.count]=plankInfo end 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.idgroupplankinfo.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 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(pickExternal) 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), matid, typename, typewidth, typeheight, len (numeric), tblids=table of plank ids with id=key, count=number of this type local tblElemSortToName local lang lang=GetLang() v={} v.external=pickExternal tblQuant=af_request("elem_quantities", nil, 1, v) 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 not vElem.geo then vElem.geo=tblQuant.geo -- To have it later on, not exactly for this element, use given if added in future end if vElem.elemtype=="core" then elemId=vElem.id end local elemTypeSort, elemTypeName elemTypeSort="999" if lang=="fin" then elemTypeName="MUUT" elseif lang=="nor" then elemTypeName="ANDRE" 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" elseif lang=="swe" then tblElemSortToName["002"]="Vågrät" elseif lang=="nor" then tblElemSortToName["002"]="ANDRE" 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 -- New logic 1/2020: Collect all boards if it is not cladding layer, if cladding layer collect all boards if no planks or if board is not cladding part --if vElem.tblboards and (not vElem.tblplanks or vElem.layertypenum~=2) then if vElem.tblboards and (not gNoBoard or (elemTypeSort~="040" and elemTypeSort~="050")) then local tbl2 if not vElem.tblplanks or vElem.layertypenum~=2 then tbl2=vElem.tblboards else -- Cladding layer and it has planks, skip all boards having cladding definition tbl2={} for k,v in pairs(vElem.tblboards) do ac_objectopen(v.guid) if ac_objectget("iPanelProfDX")==0 then tbl2[#tbl2+1]=v end ac_objectclose() end end CollectPlanksBoards( vElem, tbl2, tblPlanks, elemTypeSort ) 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.plankinfo, bCladding) ac_objectclose() end table.sort( tblPlanksSort, CmpPlanks ) return tblPlanksSort, tblElemSortToName, elemId end function ParseContentTags(str, v) str=ac_environment("strreplace", str, "#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")) str=ac_environment("strreplace", str, "#pcs#", tostring(v.count)) str=ac_environment("strreplace", str, "#typename#", v.typename) str=ac_environment("strreplace", str, "#matid#", v.matid) str=ac_environment("strreplace", str, "#elemgroup#", v.elemgroup) if string.find(str, "#matname#", 1, true) then local matinfo matinfo=af_request("singlemat", v.matid) if matinfo then str=ac_environment("strreplace", str, "#matname#", matinfo.name) else str=ac_environment("strreplace", str, "#matname#", v.typename) end end str=ac_environment("strreplace", str, "#cutinfo#", v.infotext) -- Parse #par:xxx#: First make find & replace table local pos, parname, parnameorg, parval, partype, tblReplace, pos2 tblReplace={} pos=1 while true do parname=string.match(str, "#par:(.-)#", pos) if not parname then break end parnameorg=parname pos=string.find(str, "#par:", pos, true) pos=pos+1 -- Parameter type partype="" pos2=string.find(parname, ":", 1, true) if pos2 then partype=string.sub(parname,1,pos2-1) parname=string.sub(parname,pos2+1) --ac_environment("tolog", string.format("partype=%s parname=%s", partype, parname)) end parval=ac_getobjparam(v.plankinfo.ptr, parname) if not parval then parval="" else if partype=="lendim" then parval=ac_environment ("ntos", parval, "length", "dim") elseif partype=="lencalc" then parval=ac_environment ("ntos", parval, "length", "calc") else parval=tostring(parval) end end tblReplace[string.format("#par:%s#",parnameorg)]=parval end for pos,parval in pairs(tblReplace) do str=ac_environment("strreplace", str, pos, parval) end return str end -- Table copy values function deepcopy(orig) local orig_type = type(orig) local copy if orig_type == 'table' then copy = {} for orig_key, orig_value in next, orig, nil do copy[deepcopy(orig_key)] = deepcopy(orig_value) end setmetatable(copy, deepcopy(getmetatable(orig))) else -- number, string, boolean, etc copy = orig end return copy 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), matid, typename, elemgroup, 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 local collectExternal -- nil=just direct owned planks local addExternal -- nil=just direct owned planks (when calling 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 then 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 collectExternal=gListSettings.collectexternal addExternal=gListSettings.addexternal if tostring(g_sepByLayer)~=tostring(gListSettings.sepbylayer) or tostring(g_clearElemRole)~=tostring(gListSettings.clearelemrole) then g_tblPlanksSort=nil -- cause rebuilding of the list end g_sepByLayer=gListSettings.sepbylayer g_clearElemRole=gListSettings.clearelemrole g_collectAll=gListSettings.collectall end end if not g_tblPlanksSort or (gListSettings and gListSettings.resetlist) then g_tblPlanksSort, g_tblElemSortToName, g_elemId=DoTable(collectExternal) 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 -- Filter planks now to be able to open them - soon table object will be opened local tblPlanksNow 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 (addExternal or not v.external) and filterFunc(v) then i2=i2+1 tblPlanksNow[i2]=v end end table.sort( tblPlanksNow, CmpPlanks ) -- Resort since filter func may have changed elemtypesort if gListSettings.funcisless then -- New sorting local i3 for i3=1,i2 do tblPlanksNow[i3]=deepcopy(tblPlanksNow[i3]) -- Since we wil set the count again end table.sort( tblPlanksNow, gListSettings.funcisless) -- Resort with new filter func -- Then calculate per type since filter may have changed sorting tags of the plank local tblPlanksScan, i3 tblPlanksScan=tblPlanksNow tblPlanksNow={} i3=1 while tblPlanksScan[i3] do -- Scan if similar using the CmpPlanks-function tblPlanksNow[#tblPlanksNow+1]=tblPlanksScan[i3] while tblPlanksScan[i3+1] and gListSettings.funcisless(tblPlanksScan[i3], tblPlanksScan[i3+1])==false and gListSettings.funcisless(tblPlanksScan[i3+1], tblPlanksScan[i3])==false do -- Combine i3=i3+1 tblPlanksNow[#tblPlanksNow].count=tblPlanksNow[#tblPlanksNow].count+tblPlanksScan[i3].count end i3=i3+1 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 if #tblPlanksNow>0 and tblPlanksNow[1].title then s=tblPlanksNow[1].title end s=ac_environment("strreplace", s, "#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 nRow=nRow+1 nHeightRows=nHeightRows+1 if gListSettings and gListSettings.cols then -- All content defined by the caller local colk,colv,i i=0 for colk,colv in ipairs(gListSettings.cols) do i=i+1 ac_objectset("iColWidth", colv.width, colk) if not gListSettings.cols_skiptitle then ac_objectset("iRows", colv.title, nRow, colk) end end ac_objectset("iColCount", i) if gListSettings.cols_skiptitle then nRow=nRow-1 -- Will be preincremented for the first item to add end else -- Column headers (fixed legacy) 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 elseif lang=="swe" then ac_objectset("iRows", "Material (ID)", nRow, 1) ac_objectset("iRows", "L", nRow, 2) ac_objectset("iRows", "St", nRow, 2+addLen) if addMc~=0 then ac_objectset("iRows", "Bearbetning", nRow, 4) end elseif lang=="nor" then ac_objectset("iRows", "Type", nRow, 1) ac_objectset("iRows", "Len", nRow, 2) ac_objectset("iRows", "Stk", nRow, 2+addLen) if addMc~=0 then ac_objectset("iRows", "Kutt", 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 end local isFirst , prevelemtypesort local tblTexts, tblCurrText, nTexts, addType local str prevelemtypesort="__not_existing__" addEmpty=false addType=false local nResCode=0 if gListSettings and gListSettings.funcgetrows then -- All content defined by the caller perhaps not related to planks & boards (accessories) local rows = gListSettings.funcgetrows() local colk,colv for k,v in ipairs(rows) do nHeightRows=nHeightRows+1 nRow=nRow+1 nResCode=1 for colk,colv in ipairs(v.cols) do ac_objectset("iRows", colv, nRow, colk) end end nResCode=1 -- List created else 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 and (not gListSettings or not gListSettings.singlelist) 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 local name=g_tblElemSortToName[prevelemtypesort] if not name then name="" end if v.title then name=v.title end ac_objectset("iRows", string.format("%s", name), nRow, 1) nRow=nRow+1 nHeightRows=nHeightRows+1 end addType=true end if gListSettings and gListSettings.cols then -- All content defined by the caller local colk,colv nResCode=1 for colk,colv in ipairs(gListSettings.cols) do ac_objectset("iRows", ParseContentTags(colv.content, v), nRow, colk) end else -- Fixed legacy content -- 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.col1func_plank then str=gListSettings.col1func_plank(v) elseif v.type==1 and gListSettings and gListSettings.col1str_plank then -- Plank, parse it here str=ParseContentTags(gListSettings.col1str_plank, v) 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 end addEmpty=true end 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 1 0 0 - 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 if type(o) == 'string' then s = '"' .. tostring(o) .. '"' elseif type(o) == 'number' then -- Less digits to be able to compare results s = '"' .. string.format("%0.4f", o) .. '"' else s = tostring(o) end end return s end -- Dumps a table to the log window with indentation. function DumpTbl(o) ac_environment("tolog", DumpTblInt(o, 0)) end -- Script loaded once and called for each opening -- Return 0.0 to have default weight calculation, otherwise returned value will be used function OnCalcDoorWinWeight(guid) if false then local res res=ac_elemget(guid, "props=1,ifc=1") DumpTbl(res.props) DumpTbl(res.ifc) --return 999 end return 0.0 end ]]> 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=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [boarddialine;default=1] [Show ID in floor plan] [Show ID in 3D] [idpen] [board_fill_2d] [board_fill_pen_from_3dmat;type=real;default=0] [Show ID in front projection] [layer;type=layer;default=AF Panel] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;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=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [cnc_bottom;default=1;type=real] [layer_bottom_plate;] [cnc_top;default=1;type=real] [layer_top_plate;] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [cnc_bottom;default=1;type=real] [cnc_top;default=1;type=real] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [insu_layer;type=layer] 0 [insu_fill_2d;default=25 %] [insu_matid;default=INSULATION XXX] [insu_weight_kg_per_m3;type=real;default=30] 1 1 [insu_rgb_r;type=real;default=0.90] [insu_rgb_g;type=real;default=0.82] [insu_rgb_b;type=real;default=0.50] [insu_cutfillpen;default=] [insu_cutfill_bg_pen;default=] [insu_cutlinepen;default=] [insu_cutfill;default=] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] 3 [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [layer;type=layer] [material3d;default=] [cutfillpen;default=] [cutfill_bg_pen;default=] [cutlinepen;default=] [cutfill;default=] 3 [insu_showid_projside;type=real;default=0] [insu_showid_3d;type=real;default=0] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] *dash*|*stipling* 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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] *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=0] 1 1 [layer;type=layer] 0 0 0 [page1_layout_name;default=INSIDE] 1 arial 30 1 arial 2.5 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] *dash*|*katkoviiva*|*tratteggio* 0 0 0 [layer_weight;type=layer] *25* 0.250 0.325 [page2_layout_name;default=OUTSIDE] 1 arial 2.5 *dash* 0 0 0 2 *dash* 0 0 0 2 [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [layer_weight;type=layer] *25* 0.250 0.325 *dash* 0 0 0 2 [layer;type=layer] [showelemtype;default=0] 1 1 [layer;type=layer] 0 0 0 [page1_layout_name;default=FRAMING] 1 arial 30 1 arial 2.5 1 Arial 1.5 center 1 1 [layer_weight;type=layer] *25* 0.250 0.325 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [layer_weight;type=layer] *25* 0.250 0.325 [page2_layout_name;default=BOARD1] 1 arial 2.5 [framing_contour_line_pen;default=1] [framing_contour_linetype;default=*dash*|*katkoviiva*|*tratteggio*] [framing_contour_line_layer;default=] [page3_layout_name;default=BOARD2] 1 arial 2.5 [framing_contour_line_pen] [framing_contour_linetype] [framing_contour_line_layer;default=] [page4_layout_name;default=INT STUD] 1 arial 2.5 [framing_contour_line_pen] [framing_contour_linetype] [framing_contour_line_layer;default=] [page5_layout_name;default=WS BOARDS] 1 arial 2.5 [framing_contour_linetype] 0 0 0 [framing_contour_line_pen] [page6_layout_name;default=CLADDING] 1 arial 2.5 [framing_contour_line_pen] [framing_contour_linetype] [framing_contour_line_layer;default=] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] *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 *dash*|*katkoviiva* 0 0 0 2 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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=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 [top_angle_markertype;default=5] [top_angle_markersize;default=1] [top_angle_pen;default=1] [top_angle_line_pen;default=1] [top_angle_line_type;default=1] [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 ]]>