This question has been flagged
326 Vistas

Este UCS tem o objetivo de permitir alterar o nome dos componentes das frentes, de forma a ser mais fácil identificar o componente, principalmente para quem está na produção: 


 

UTILITÁRIO - NOMES DAS FRENTES

;Altera nomes de painéis
For Each S_DSLAB Part
Public AdicionaLabel = 1 ; Adiciona Etiqueta (1=SIM 0=NAO)
Etiqueta = :_LABEL
If :Name == 'DOR' Then ;Portas
If :Hng == 1 Then
If AdicionaLabel Then
Name = 'Porta Esquerda ({Etiqueta})'
Else
Name = 'Porta Esquerda'
End If
End If
If :Hng == 2 Then
If AdicionaLabel Then
Name = 'Porta Direita ({Etiqueta})'
Else
Name = 'Porta Direita'
End If
End If
If :Hng == 3 or :Hng == 4 Then
If AdicionaLabel Then
Name = 'Porta Basculante ({Etiqueta})'
Else
Name = 'Porta Basculante'
End If
End If
End If
If :Name == 'DWR' Then ;Frentes de Gaveta
If AdicionaLabel Then
Name = 'Frente de Gaveta ({Etiqueta})'
Else
Name = 'Frente de Gaveta'
End If
End If
If :Name == 'DWR' Then ;Frentes Falsas
If ::.BBT.Pid == 0 Then
If AdicionaLabel Then
Name = 'Frente Falsa ({Etiqueta})'
Else
Name = 'Frente Falsa'
End If
End If
End If
If :Name == 'DOR' and Etiqueta == 0 Then ;Laterais
If ::AY == -90 Then
Name = 'Lateral Esquerda'
End If
If ::AY == 90 Then
Name = 'Lateral Direita'
End If
End If
Avatar
Descartar