This question has been flagged
277 Vistas
Gavetas
Avatar
Eduardo Fernandes

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