Artigos de CABINET VISION

0

UCS - Nomes Componentes de Caixa de Gaveta

Avatar
Eduardo Fernandes

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:

 


É necessário ter os três UCS ativos para funcionar, sendo que cada um, está para cada tipo de componente da caixa de gaveta (Lados, Fundo e Traseira):
 


BIT_GEN - NOMES CAIXA DE GAVETA (1/3)

;Adiciona nome ao Fundo de Caixa de Gaveta

For Each BBT Part

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

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

BIT_GEN - NOMES CAIXA DE GAVETA (2/3)

;Adiciona nome a Traseira de Caixa de Gaveta

For Each BBK Part

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

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

BIT_GEN - NOMES CAIXA DE GAVETA (3/3)

;Adiciona nome a Lados de Caixa de Gaveta

For Each BS Part

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
Avatar
Descartar