Positie van beslag op de profielen van een kaderdeur. De postie wordt relatief gedefinieerd voor het bepaald beslag. De absolute positie wordt door het omvattend object bepaald. serial %Library.SerialObject Dit type wordt aangegeven in de array-property "AfstandBoorMaat" van Res.PI.Beslag.
De array-index is "TYP", mogelijke waarden worden in de vernoemde property beschreven.]]> %Library.Float %Library.Float %Library.String sCode:%Library.String="L",KadObj:Prod.GADef.KaderDeur,blnAbsOnly:%Library.Integer=0 %Library.Float 0 Do . Set AbsPos=RelIPos Else If (RelIPos'="") Do . Set AbsPos=KadObj.AbsPosCalc("S",RelIPos) . Set:(AbsPos=RelIPos) AbsPos="" Set:($G(AbsPos)="") AbsPos=IPos Quit AbsPos ]]> Copy maken van een beslagPosite in een nieuw object. Verschillende CopyModes: "FullCopy" (=Default), "Empty" CopyMode:%Library.String="FullCopy" Prod.GADef.emKadBeslagPos %Library.CacheSerialState emKadBeslagPosState ^Prod.GAD.emKadBeslagPosS list AfstandRand LengtePos RelatievePos RelLengtePos