APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject,TECH.RegisteredObject TECH.Svg.Basis.SvgBox APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory TECH.Svg.BasisElementFactory APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm TECH.Svg.Basis.SvgBox.ElementToevoeger BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory,BeslagBoringSpecialevorm:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm,ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger 1 1 %Status 1 KaderdeurObject:Prod.GADef.KaderDeur Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer 2) { #Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos, XPos) Do ..ElementToevoeger.VoegToeElement(SvgBox, SvgBoxTest) } ElseIf (BoorType="Z") { Set GrootteBoring = 14 Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0) Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos, YPos, GrootteBoring, GrootteBoring, Rotation, Kleur) Do ..ElementToevoeger.VoegToeElement(SvgBox,ZijBoring) } ElseIf(Boring.IsSpecialeBoring()){ Set GrootteBoring = 10 if (YPos < 0) { Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos), ##class(TECH.Math).Abs(YPos), GrootteBoring, GrootteBoring, Kleur) } Else { Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos), YPos, GrootteBoring, GrootteBoring, Kleur) } Do ..ElementToevoeger.VoegToeElement(SvgBox, SpecialeBoring) } ElseIf (Boring.BoorDiepte < 0) { Set GrootteBoring = 10 Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, GrootteBoring/2, Kleur) Do ..ElementToevoeger.VoegToeElement(SvgBox, DoorBoring) } ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){ Set GrootteBoring = 10 if (YPos < 0) { Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos), GrootteBoring, GrootteBoring, Kleur) } Else { Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos), GrootteBoring, GrootteBoring, Kleur) } Do ..ElementToevoeger.VoegToeElement(SvgBox, PuntBoring) } Else { #dim Straal As %Integer = GrootteBoring/2 If (GrootteBoring<10) { Set RugBoring = ..BoringElementFactory.MaakPuntBoring(XPos, YPos, 10, 10, Kleur) Do ..ElementToevoeger.VoegToeElement(SvgBox, RugBoring) } Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, Straal, Kleur) Do ..ElementToevoeger.VoegToeElement(SvgBox, DoorBoring) } } Do ..ElementToevoeger.VoegToeElement(SvgBox, Rechthoek) Do SvgBox.VoegToeID("beslag") Do ..Group.VoegToeElement(SvgBox) ]]>