This question has been flagged
168 Vistas

Este UCS adiciona operações para aplicação de um estabilizador central frente/fundo em gavetas a partir de uma determinada largura do fundo, neste caso, quando o fundo é maior que 600mm de largura e apenas em determinadas configurações de corrediças.



Primeiro, criar o componente na pasta das corrediças, dentro do gestor de componentes com o nome ESTCNT:



De seguida, criar um material diverso, do acessório. Neste caso, a placa estabilizadora de gavetas:



Após estes passos, é necessário associar o material ao componente, nas configurações de material de corrediça e acrescentar o parâmetro GAV_FURO_ESTB_CENT em todas as configurações de ferragens que queremos que o UCS atue: 




Criar a conexão no menu de Intelli-Joints, dois IJ com o nome "Furos Estabilizador [1]" e Furos Estabilziador [2] e parametrizar a conexão, conforme o necessário em termos de posicionamento e as dimensões das operações. É necessário haver os dois, devido a existirem métodos de construção que rotacionam o fundo da gaveta:


 


GAVETAS - PLACA ESTABILIZADORA FRENTE/FUNDO

;Associar Placa Estabilizadora Frente/Fundo a Gavetas 

For Each BBT Part

FURO_ESTB_CENT = DG._MS:GAV_FURO_ESTB_CENT

If FURO_ESTB_CENT = 1 Then

If BBT.AY = 0 Then

If DX > Imp(600) Then ;LARGURA > 600MM

Dim FurosEstabilizadorW1 as New IJoint
FurosEstabilizadorW1._EDGWP = 1
FurosEstabilizadorW1.DX = :DZ
FurosEstabilizadorW1.DY = :DX
FurosEstabilizadorW1.DZ = 0
FurosEstabilizadorW1.X = 0
FurosEstabilizadorW1.Y = 0
FurosEstabilizadorW1.Z = 0
FurosEstabilizadorW1.AX = 0
FurosEstabilizadorW1.AY = 0
FurosEstabilizadorW1.AZ = 0
FurosEstabilizadorW1.IJNT = IJointID('Furos Estabilizador [1]')

Dim ESTCNT as New Part
ESTCNT.Visible = False
ESTCNT.DX = 50MM
ESTCNT.DY = 50MM
ESTCNT.DZ = 10MM
ESTCNT.X = 0
ESTCNT.Y = 0
ESTCNT.Z = 0
ESTCNT.AX = 0
ESTCNT.AY = 0
ESTCNT.AZ = 0
ESTCNT.OWNER = OWNER

End If

End If

If BBT.AY = 90 Then

If DY > Imp(600) Then ;LARGURA > 600MM

Dim FurosEstabilizadorW1 as New IJoint
FurosEstabilizadorW1._EDGWP = 4
FurosEstabilizadorW1.DX = :DZ
FurosEstabilizadorW1.DY = :DX
FurosEstabilizadorW1.DZ = 0
FurosEstabilizadorW1.X = 0
FurosEstabilizadorW1.Y = 0
FurosEstabilizadorW1.Z = 0
FurosEstabilizadorW1.AX = 0
FurosEstabilizadorW1.AY = 0
FurosEstabilizadorW1.AZ = 0
FurosEstabilizadorW1.IJNT = IJointID('Furos Estabilizador [2]')

Dim ESTCNT as New Part
ESTCNT.Visible = False
ESTCNT.DX = 50MM
ESTCNT.DY = 50MM
ESTCNT.DZ = 10MM
ESTCNT.X = 0
ESTCNT.Y = 0
ESTCNT.Z = 0
ESTCNT.AX = 0
ESTCNT.AY = 0
ESTCNT.AZ = 0
ESTCNT.OWNER = OWNER

End If

End If

End If
Avatar
Descartar