@Bernd:
Nein woher das kommt wissen wir wirklich nicht.
Und da wir wussten wie wir es beseitigen können, war auch keine Motivation da, die Ursache zu finden.
@Jens:
Ja das war auch mein erster Ansatz, aber selbst wenn ich die
Biegelinien ausblende, werden sie im DXF mit angezeigt.
(Könnte vieleicht eine SW Option sein)
Naja Ich hab das Problem jetzt anders gelöst.
Da ich unter anderem das Zuschnittsmaß der Abwicklung auslese,
habe ich einfach alle Skizzenpunkte ausgelesen, und dann die
Maximal- und Minimalwerte ermittelt. Mit denen konnte ich dann
wieder ein Zuschnittsmaß errechnen.
Demnach kann ich über den Vergleich der beiden Zuschnittsmaße
feststellen, ob das DXF im Eimer ist.
Das ist zwar von "hinten durch die Brust ins Auge" aber funktioniert.
'Skizzenpunkte auslesen
If Grund_des_Aufrufes = "DXF_Fehler_Kontrolle" Then
SkizzenPunkt_array = swSketch.GetSketchPoints
Punkt_Y_min = 999999999
Punkt_Y_max = 0
Punkt_X_min = 999999999
Punkt_X_max = 0
For o = 0 To UBound(SkizzenPunkt_array)
Set swSkizzenpunkt = SkizzenPunkt_array(o)
Punkt_X = swSkizzenpunkt.X * 1000
Punkt_Y = swSkizzenpunkt.Y * 1000
If Punkt_Y_min > Punkt_Y Then
Punkt_Y_min = Punkt_Y
ElseIf Punkt_Y_max < Punkt_Y Then
Punkt_Y_max = Punkt_Y
ElseIf Punkt_X_min > Punkt_X Then
Punkt_X_min = Punkt_X
ElseIf Punkt_X_max < Punkt_X Then
Punkt_X_max = Punkt_X
End If
A_2 = Punkt_Y_max - Punkt_Y_min
B_2 = Punkt_X_max - Punkt_X_min
Next o
End If
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP