Hallo
Ich habe in Catia meine Daten eingelesen, leider sind diese mir ein wneig zu lang, kann ich die nur mit 3 Nachkommestellen auslesen? oder anzeigen lassen?!?
muss ich das Autosize anmachen?
hier mein Text
Sub Vergleich()
Dokument_Name = ""
If (Dokument_Name = "") Then FindDocuments2
Set Temp_Dok = CATIA.Documents.Item(Dokument_Name)
Temp_Dok.Activate
Dokument_Name = Temp_Dok.Part.Name
Set parameters1 = Temp_Dok.Part.Parameters
Dim Wert1, Wert2, Wert3, Wert4, Wert5, Wert6, Wert7, Wert8, Wert9, Wert10, Wert11
Dim Wert12, Wert13, Wert14, Wert15, Wert16
'Aushebende Tür
Wert1 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_aus_mit_Scharnier_unten").Value
Wert2 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_aus_mit_Scharnier_oben").Value
Wert3 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_aus_mit_A_Saeule").Value
'Freigang
Wert4 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_ein_KTFL_min_Abstand").Value
'Ausgehobene Tür zu Kötflügel
Wert5 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_aus_KTFL").Value
'Eindrehene Tür
Wert6 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_ein_mit_Scharnier_unten").Value
Wert7 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_ein_mit_Scharnier_oben").Value
Wert8 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_Tuer_ein_mit_A_Saeule").Value
'oberer Scharnierpunkt
Wert9 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_SA_unterer_Punkt_zur_Tuer_ausgehoben").Value
Wert10 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_SA_unterer_Punkt_zur_A_Saeule").Value
Wert11 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_SA_unterer_Punkt_zum_Strak").Value
' unterer Scharnierpunkt
Wert12 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_SA_oberer_Punkt_zur_Tuer_ausgehoben").Value
Wert13 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_SA_oberer_Punkt_zur_A_Saeule").Value
Wert14 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Abstand_SA_oberer_Punkt_zum_Strak").Value
'Neigungswinkel
Wert15 = parameters1.Item(Dokument_Name & "\Messen\#Messen_Neigungswinkel").Value
Dim TB_E_1 As Double
Dim TB_E_2 As Double
Dim TB_E_3 As Double
Dim TB_E_4 As Double
Dim Angle_S 'As Angle
Set Angle_S = parameters1.Item(Dokument_Name & "\Grenz_Neigung")
Angle_S = UF6.TB_E_1.Value
Dim Length_1 'As Length
Set Length_1 = parameters1.Item(Dokument_Name & "\Grenz_Freigang")
Length_1 = UF6.TB_E_2.Value
Dim Length_2 'As Length
Set Length_2 = parameters1.Item(Dokument_Name & "\Grenz_KTFL")
Length_2 = UF6.TB_E_3.Value
Dim Length_3 'As Length
Set Length_3 = parameters1.Item(Dokument_Name & "\Grenz_Tuer_Schar")
Length_3 = UF6.TB_E_3.Value
TB_E_1 = UF6.TB_E_1.Value
TB_E_2 = UF6.TB_E_2.Value
TB_E_3 = UF6.TB_E_3.Value
TB_E_4 = UF6.TB_E_4.Value
'Neigung der Scharnierachse
UF6.LB_Wert_1.Caption = Wert15 & "deg"
'UF6.LB_Wert_1.AutoSize = True
If Wert15 > TB_E_1 Then
UF6.LB_Wert_1.BackColor = &HFF&
UF6.LB_Warnung_1.Visible = True
Else
UF6.LB_Wert_1.BackColor = &HFF00&
UF6.LB_Warnung_1.Visible = False
End If
'Mindestabstand beim Öffnen der Tür
UF6.LB_Wert_2.Caption = Wert4 & "mm"
'UF6.LB_Wert_2.AutoSize = True
If Wert4 < TB_E_2 Then
UF6.LB_Wert_2.BackColor = &HFF&
UF6.LB_Warnung_2.Visible = True
Else
UF6.LB_Wert_2.BackColor = &HFF00&
UF6.LB_Warnung_2.Visible = False
End If
'Abstand zwischen ausgehobener Tür und Kotflügel
UF6.LB_Wert_3.Caption = Wert5 & "mm"
'UF6.LB_Wert_3.AutoSize = True
If Wert5 < TB_E_3 Then
UF6.LB_Wert_3.BackColor = &HFF&
UF6.LB_Warnung_3.Visible = True
Else
UF6.LB_Wert_3.BackColor = &HFF00&
UF6.LB_Warnung_3.Visible = False
End If
'Abstand zwischen eingedrehter Tür und dem oberen Scharnier
UF6.LB_Wert_4_1.Caption = Wert7 & "mm"
'UF6.LB_Wert_4_1.AutoSize = True
If Wert7 < TB_E_4 Then
UF6.LB_Wert_4_1.BackColor = &HFF&
UF6.LB_Warnung_4_1.Visible = True
Else
UF6.LB_Wert_4_1.BackColor = &HFF00&
UF6.LB_Warnung_4_1.Visible = False
End If
'Abstand zwischen eingedrehter Tür und dem unteren Scharnier
UF6.LB_Wert_4_2.Caption = Wert6 & "mm"
'UF6.LB_Wert_4_2.AutoSize = True
If Wert6 < TB_E_4 Then
UF6.LB_Wert_4_2.BackColor = &HFF&
UF6.LB_Warnung_4_2.Visible = True
Else
UF6.LB_Wert_4_2.BackColor = &HFF00&
UF6.LB_Warnung_4_2.Visible = False
End If
Dim TB_W_1 As Double
Dim TB_W_2 As Double
Dim TB_W_3 As Double
Dim TB_W_4 As Double
Dim TB_W_5 As Double
Dim TB_W_6 As Double
UF6.TB_W_1 = Wert14
UF6.TB_W_2 = Wert13
UF6.TB_W_3 = Wert12
UF6.TB_W_4 = Wert11
UF6.TB_W_5 = Wert10
UF6.TB_W_6 = Wert9
UF6.TB_W_1.AutoSize = True
UF6.TB_W_2.AutoSize = True
UF6.TB_W_3.AutoSize = True
UF6.TB_W_4.AutoSize = True
UF6.TB_W_5.AutoSize = True
UF6.TB_W_6.AutoSize = True
On Error GoTo 0
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
