Este UCS tem como principio aplicar operações nas portas para colocar um esticador de afinação. Tal como o do seguinte exemplo: 
A posição de referência será com um espaçamento no topo e no fundo de 100mm até ao centro dos furos e um deslocamento à largura de 100mm ao centro do rasgo.
1. Para o utilizar, temos que garantir que temos o UCS ligado e na ordem apresentada (ver UCS no fim da página)
2. No projeto, devemos selecionar o componente da porta para ativar/desativar as operações as operações
O UCS coloca as operações com base no lado da dobradiça Esquerda ou Direita.
PORTAS - ESTICADOR PARA PORTA (1/2)
;ESTICADOR PORTA - ATIVA UCS
For each DOR part
If ESTICADOR_PORTA == NULL THEN ;SE A VARIAVEL NAO ESTIVER CRIADA
ESTICADOR_PORTA<BOOL> = 0 ;Tipo de variavel
ESTICADOR_PORTA<STYLE> = 1 ;Atributo
ESTICADOR_PORTA<DESC> = 'EST.PORTA) ESTICADOR?' ;Descrição
End If
PORTAS - ESTICADOR PARA PORTA (2/2)
;ESTICADOR PORTA - APLICA OPERAÇÕES
For Each S_DSLAB part
If ESTICADOR_PORTA = TRUE THEN
If HNG = 1 Then
If name = 'S_DSLAB' then
Dim RASGO_ESTICADOR as new DadoEx
RASGO_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
RASGO_ESTICADOR.Name = 'Rasgo Esticador'
RASGO_ESTICADOR.DX<meas> := 9MM ;Medida em X
RASGO_ESTICADOR.DY<meas> := :DY - 200MM ;Medida em Y
RASGO_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
RASGO_ESTICADOR.AX := 0 ;Rotação em X
RASGO_ESTICADOR.AY := 0 ;Rotação em Y
RASGO_ESTICADOR.AZ := 0 ;Rotação em Z
RASGO_ESTICADOR.X<meas> := 100MM - 4.5MM ;Posição em X
RASGO_ESTICADOR.Y<meas> := 100MM ;Posição em Y
RASGO_ESTICADOR.Z<meas> := 0 ;Posição em Z
Dim FURO1_ESTICADOR as new Hole
FURO1_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO1_ESTICADOR.Name = 'Furo Esticador 1' ;Furo do Fundo
FURO1_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO1_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO1_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO1_ESTICADOR.AX := 0 ;Rotação em X
FURO1_ESTICADOR.AY := 0 ;Rotação em Y
FURO1_ESTICADOR.AZ := 0 ;Rotação em Z
FURO1_ESTICADOR.X<meas> := 100MM ;Posição em X
FURO1_ESTICADOR.Y<meas> := 100MM ;Posição em Y
FURO1_ESTICADOR.Z<meas> := 0 ;Posição em Z
Dim FURO2_ESTICADOR as new Hole
FURO2_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO2_ESTICADOR.Name = 'Furo Esticador 2' ;Furo do Centro
FURO2_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO2_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO2_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO2_ESTICADOR.AX := 0 ;Rotação em X
FURO2_ESTICADOR.AY := 0 ;Rotação em Y
FURO2_ESTICADOR.AZ := 0 ;Rotação em Z
FURO2_ESTICADOR.X<meas> := 100MM ;Posição em X
FURO2_ESTICADOR.Y<meas> := :DY/2 ;Posição em Y
FURO2_ESTICADOR.Z<meas> := 0 ;Posição em Z
Dim FURO3_ESTICADOR as new Hole
FURO3_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO3_ESTICADOR.Name = 'Furo Esticador 3' ;Furo do Topo
FURO3_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO3_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO3_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO3_ESTICADOR.AX := 0 ;Rotação em X
FURO3_ESTICADOR.AY := 0 ;Rotação em Y
FURO3_ESTICADOR.AZ := 0 ;Rotação em Z
FURO3_ESTICADOR.X<meas> := 100MM ;Posição em X
FURO3_ESTICADOR.Y<meas> := :DY - 100MM ;Posição em Y
FURO3_ESTICADOR.Z<meas> := 0 ;Posição em Z
End if
End If
If HNG = 2 Then
If name = 'S_DSLAB' then
Dim RASGO_ESTICADOR as new DadoEx
RASGO_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
RASGO_ESTICADOR.Name = 'Rasgo Esticador'
RASGO_ESTICADOR.DX<meas> := 9MM ;Medida em X
RASGO_ESTICADOR.DY<meas> := :DY - 200MM ;Medida em Y
RASGO_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
RASGO_ESTICADOR.AX := 0 ;Rotação em X
RASGO_ESTICADOR.AY := 0 ;Rotação em Y
RASGO_ESTICADOR.AZ := 0 ;Rotação em Z
RASGO_ESTICADOR.X<meas> := :DX - 100MM - 4.5MM ;Posição em X
RASGO_ESTICADOR.Y<meas> := 100MM ;Posição em Y
RASGO_ESTICADOR.Z<meas> := 0 ;Posição em Z
Dim FURO1_ESTICADOR as new Hole
FURO1_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO1_ESTICADOR.Name = 'Furo Esticador 1' ;Furo do Fundo
FURO1_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO1_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO1_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO1_ESTICADOR.AX := 0 ;Rotação em X
FURO1_ESTICADOR.AY := 0 ;Rotação em Y
FURO1_ESTICADOR.AZ := 0 ;Rotação em Z
FURO1_ESTICADOR.X<meas> := :DX - 100MM ;Posição em X
FURO1_ESTICADOR.Y<meas> := 100MM ;Posição em Y
FURO1_ESTICADOR.Z<meas> := 0 ;Posição em Z
Dim FURO2_ESTICADOR as new Hole
FURO2_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO2_ESTICADOR.Name = 'Furo Esticador 2' ;Furo do Centro
FURO2_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO2_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO2_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO2_ESTICADOR.AX := 0 ;Rotação em X
FURO2_ESTICADOR.AY := 0 ;Rotação em Y
FURO2_ESTICADOR.AZ := 0 ;Rotação em Z
FURO2_ESTICADOR.X<meas> := :DX - 100MM ;Posição em X
FURO2_ESTICADOR.Y<meas> := :DY/2 ;Posição em Y
FURO2_ESTICADOR.Z<meas> := 0 ;Posição em Z
Dim FURO3_ESTICADOR as new Hole
FURO3_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO3_ESTICADOR.Name = 'Furo Esticador 3' ;Furo do Topo
FURO3_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO3_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO3_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO3_ESTICADOR.AX := 0 ;Rotação em X
FURO3_ESTICADOR.AY := 0 ;Rotação em Y
FURO3_ESTICADOR.AZ := 0 ;Rotação em Z
FURO3_ESTICADOR.X<meas> := :DX - 100MM ;Posição em X
FURO3_ESTICADOR.Y<meas> := :DY - 100MM ;Posição em Y
FURO3_ESTICADOR.Z<meas> := 0 ;Posição em Z
End if
End If
End if