Glas met boringen en extra bewerkingen persistent Prod.GADef.AfgeleidDef Prod.GADef.emKadBoring array %Library.Float %Library.Float Prod.GADef.emKadVulling Voor bepaalde leveranciers moet de vulling getransformeerd worden naar een ander assen stelsel of ook wordt het glas getoond op een bepaalde manier. %this.Breedte Set Key="" Set Inv=0 For Set VullingExtraId=%this.Vulling.VullingExtra.GetObjectIdNext(.Key) Quit:Key="" Do . Set:VullingExtraId["INV" Inv=1 Set Spiegel=(Inv+Draai90)#2 ; Spiegel via Y-as (via breedte) indien oftewel Invers OF (niet EN) Draaiing90. ; ;ZWrite Spiegel,Draai90 If 'Draai90,'Spiegel Quit ; Niets te draaien of te spiegelen ; Draaing en spiegeling uitvoeren Set Hoogte=%this.Hoogte Set Breedte=%this.Breedte If Draai90 Do . Set %this.Hoogte=Breedte . Set %this.Breedte=Hoogte Set Key="" For Set emBoring=%this.Boringen.GetNext(.Key) Quit:Key="" Do . ;Do DumpObject^%apiOBJ(emBoring) . Set:Spiegel emBoring.XPos=Breedte-emBoring.XPos . If Draai90 Do .. Set Pos=emBoring.XPos .. Set emBoring.XPos=emBoring.YPos .. Set emBoring.YPos=Pos . ;Do DumpObject^%apiOBJ(emBoring) . Do emBoring.%Close() Quit ]]> %Library.CacheStorage VullingDefaultData Boringen subnode "BOR" "VUL" Vulling Breedte Hoogte "Vulling" Breedte Hoogte