This question has been flagged
123 Vistas

Este UCS tem o objetivo de permitir alterar o nome dos componentes das caixas de gaveta, em conjunto com o UCS para os nomes das frentes, de forma a ser mais fácil identificar o componente, principalmente para quem está na produção e na montagem:

 



UTILITÁRIO - NOMES CAIXA DE GAVETA

;Adiciona nome aos componentes da caixa de gaveta

For Each BF|BBT|BBK|BS Part

;Adiciona nome à Frente Intermédia de Caixa de Gaveta

If Name == 'BF' Then

DWR_PART_NOME = 'Frente Intermédia de Caixa de Gaveta'
DWR_ETIQUETA = DBOX.DWR._LABEL

Name = '{DWR_PART_NOME} ({DWR_ETIQUETA})'

End If

;Adiciona nome ao Fundo de Caixa de Gaveta

If Name == 'BBT' Then

DWR_PART_NOME = 'Fundo de Caixa de Gaveta'
DWR_ETIQUETA = DBOX.DWR._LABEL

Name = '{DWR_PART_NOME} ({DWR_ETIQUETA})'

End If

;Adiciona nome a Traseira de Caixa de Gaveta

If Name == 'BBK' Then

DWR_PART_NOME = 'Traseira de Caixa de Gaveta'
DWR_ETIQUETA = DBOX.DWR._LABEL
   
Name = '{DWR_PART_NOME} ({DWR_ETIQUETA})'

End If

;Adiciona nome a Lados de Caixa de Gaveta

If Name == 'BS' Then

DWR_PART_NOME_ESQ = 'Lado Esquerdo de Caixa de Gaveta'
DWR_PART_NOME_DRT = 'Lado Direito de Caixa de Gaveta'
DWR_ETIQUETA = DBOX.DWR._LABEL

If AZ == 90 Then
Name = '{DWR_PART_NOME_ESQ} ({DWR_ETIQUETA})'
End If
If AZ == -90 Then
Name = '{DWR_PART_NOME_DRT} ({DWR_ETIQUETA})'
End If

End If

UTILITÁRIO - NOMES CAIXA DE GAVETA INTERIOR

;Adiciona nome aos componentes da caixa de gaveta interior

For Each ROF|ROBT|ROBK Part

;Adiciona nome à Frente de Caixa de Gaveta Interior

If Name == 'ROF' Then

DWR_INT_PART_NOME = 'Frente de Caixa de Gaveta Interior'
DWR_INT_ETIQUETA = TRAY_OPEN.BOXH

Name = '{DWR_INT_PART_NOME} ({DWR_INT_ETIQUETA})'

End If

;Adiciona nome ao Fundo de Caixa de Gaveta Interior

If Name == 'ROBT' Then

DWR_INT_PART_NOME = 'Fundo de Caixa de Gaveta Interior'
DWR_INT_ETIQUETA = TRAY_OPEN.BOXH

Name = '{DWR_INT_PART_NOME} ({DWR_INT_ETIQUETA})'

End If

;Adiciona nome à Traseira de Caixa de Gaveta Interior

If Name == 'ROBK' Then

DWR_INT_PART_NOME = 'Traseira de Caixa de Gaveta Interior'
DWR_INT_ETIQUETA = TRAY_OPEN.BOXH

Name = '{DWR_INT_PART_NOME} ({DWR_INT_ETIQUETA})'

End If


Avatar
Descartar