This question has been flagged
48 Vistas

Este UCS tem como principio aplicar operações nas portas para colocar um esticador de afinação. Tal como o do seguinte exemplo: 

A posição de referência será com um espaçamento no topo e no fundo de 100mm até ao centro dos furos e um deslocamento à largura de 100mm ao centro do rasgo. 


1. Para o utilizar, temos que garantir que temos o UCS ligado e na ordem apresentada (ver UCS no fim da página)


2. No projeto, devemos selecionar o componente da porta para ativar/desativar as operações as operações 


O UCS coloca as operações com base no lado da dobradiça Esquerda ou Direita.


PORTAS - ESTICADOR PARA PORTA (1/2)

;ESTICADOR PORTA - ATIVA UCS

For each DOR part

If ESTICADOR_PORTA == NULL THEN ;SE A VARIAVEL NAO ESTIVER CRIADA
ESTICADOR_PORTA<BOOL> = 0 ;Tipo de variavel
ESTICADOR_PORTA<STYLE> = 1 ;Atributo
ESTICADOR_PORTA<DESC> = 'EST.PORTA) ESTICADOR?' ;Descrição
End If

PORTAS - ESTICADOR PARA PORTA (2/2)

;ESTICADOR PORTA - APLICA OPERAÇÕES

For Each S_DSLAB part

If ESTICADOR_PORTA = TRUE THEN

If HNG = 1 Then

If name = 'S_DSLAB' then

Dim RASGO_ESTICADOR as new DadoEx
RASGO_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
RASGO_ESTICADOR.Name = 'Rasgo Esticador'
RASGO_ESTICADOR.DX<meas> := 9MM ;Medida em X
RASGO_ESTICADOR.DY<meas> := :DY - 200MM ;Medida em Y
RASGO_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
RASGO_ESTICADOR.AX := 0 ;Rotação em X
RASGO_ESTICADOR.AY := 0 ;Rotação em Y
RASGO_ESTICADOR.AZ := 0 ;Rotação em Z
RASGO_ESTICADOR.X<meas> := 100MM - 4.5MM ;Posição em X
RASGO_ESTICADOR.Y<meas> := 100MM ;Posição em Y
RASGO_ESTICADOR.Z<meas> := 0 ;Posição em Z

Dim FURO1_ESTICADOR as new Hole
FURO1_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO1_ESTICADOR.Name = 'Furo Esticador 1' ;Furo do Fundo
FURO1_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO1_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO1_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO1_ESTICADOR.AX := 0 ;Rotação em X
FURO1_ESTICADOR.AY := 0 ;Rotação em Y
FURO1_ESTICADOR.AZ := 0 ;Rotação em Z
FURO1_ESTICADOR.X<meas> := 100MM ;Posição em X
FURO1_ESTICADOR.Y<meas> := 100MM ;Posição em Y
FURO1_ESTICADOR.Z<meas> := 0 ;Posição em Z

Dim FURO2_ESTICADOR as new Hole
FURO2_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO2_ESTICADOR.Name = 'Furo Esticador 2' ;Furo do Centro
FURO2_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO2_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO2_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO2_ESTICADOR.AX := 0 ;Rotação em X
FURO2_ESTICADOR.AY := 0 ;Rotação em Y
FURO2_ESTICADOR.AZ := 0 ;Rotação em Z
FURO2_ESTICADOR.X<meas> := 100MM ;Posição em X
FURO2_ESTICADOR.Y<meas> := :DY/2 ;Posição em Y
FURO2_ESTICADOR.Z<meas> := 0 ;Posição em Z

Dim FURO3_ESTICADOR as new Hole
FURO3_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO3_ESTICADOR.Name = 'Furo Esticador 3' ;Furo do Topo
FURO3_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO3_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO3_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO3_ESTICADOR.AX := 0 ;Rotação em X
FURO3_ESTICADOR.AY := 0 ;Rotação em Y
FURO3_ESTICADOR.AZ := 0 ;Rotação em Z
FURO3_ESTICADOR.X<meas> := 100MM ;Posição em X
FURO3_ESTICADOR.Y<meas> := :DY - 100MM ;Posição em Y
FURO3_ESTICADOR.Z<meas> := 0 ;Posição em Z

End if

End If

If HNG = 2 Then

If name = 'S_DSLAB' then

Dim RASGO_ESTICADOR as new DadoEx
RASGO_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
RASGO_ESTICADOR.Name = 'Rasgo Esticador'
RASGO_ESTICADOR.DX<meas> := 9MM ;Medida em X
RASGO_ESTICADOR.DY<meas> := :DY - 200MM ;Medida em Y
RASGO_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
RASGO_ESTICADOR.AX := 0 ;Rotação em X
RASGO_ESTICADOR.AY := 0 ;Rotação em Y
RASGO_ESTICADOR.AZ := 0 ;Rotação em Z
RASGO_ESTICADOR.X<meas> := :DX - 100MM - 4.5MM ;Posição em X
RASGO_ESTICADOR.Y<meas> := 100MM ;Posição em Y
RASGO_ESTICADOR.Z<meas> := 0 ;Posição em Z

Dim FURO1_ESTICADOR as new Hole
FURO1_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO1_ESTICADOR.Name = 'Furo Esticador 1' ;Furo do Fundo
FURO1_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO1_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO1_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO1_ESTICADOR.AX := 0 ;Rotação em X
FURO1_ESTICADOR.AY := 0 ;Rotação em Y
FURO1_ESTICADOR.AZ := 0 ;Rotação em Z
FURO1_ESTICADOR.X<meas> := :DX - 100MM ;Posição em X
FURO1_ESTICADOR.Y<meas> := 100MM ;Posição em Y
FURO1_ESTICADOR.Z<meas> := 0 ;Posição em Z

Dim FURO2_ESTICADOR as new Hole
FURO2_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO2_ESTICADOR.Name = 'Furo Esticador 2' ;Furo do Centro
FURO2_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO2_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO2_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO2_ESTICADOR.AX := 0 ;Rotação em X
FURO2_ESTICADOR.AY := 0 ;Rotação em Y
FURO2_ESTICADOR.AZ := 0 ;Rotação em Z
FURO2_ESTICADOR.X<meas> := :DX - 100MM ;Posição em X
FURO2_ESTICADOR.Y<meas> := :DY/2 ;Posição em Y
FURO2_ESTICADOR.Z<meas> := 0 ;Posição em Z

Dim FURO3_ESTICADOR as new Hole
FURO3_ESTICADOR._FACEWP<int> = 2 ;Identificação da face
FURO3_ESTICADOR.Name = 'Furo Esticador 3' ;Furo do Topo
FURO3_ESTICADOR.DX<meas> := 35MM ;Medida em X
FURO3_ESTICADOR.DY<meas> := 0MM ;Medida em Y
FURO3_ESTICADOR.DZ<meas> := 10MM ;Medida em Z
FURO3_ESTICADOR.AX := 0 ;Rotação em X
FURO3_ESTICADOR.AY := 0 ;Rotação em Y
FURO3_ESTICADOR.AZ := 0 ;Rotação em Z
FURO3_ESTICADOR.X<meas> := :DX - 100MM ;Posição em X
FURO3_ESTICADOR.Y<meas> := :DY - 100MM ;Posição em Y
FURO3_ESTICADOR.Z<meas> := 0 ;Posição em Z

End if

End If

End if

Avatar
Descartar