Hallo zusammen,
ich bin gerade dabei mich in die Journal-Funktion von NX einzuarbeiten.
In diesem Zusammenhang möchte ich ein Offset von der Mantelfläche eines variablen Rohres erstellen.
Dies Funktioniert soweit auch. Da der Offsetwert vom Benutzer eingegeben werden soll, ist es bei größeren Werten aber nötig die Offset Toleranz zu erhöhen um ein Ergebnis zu erhalten. Bis zu einem Offsetwert von 37 ist auch dies erfolgreich, bei größeren Werten jedoch findet NX kein Ergebnis, obwohl ich händisch mit der gleichen Toleranz die Offsetfläche erstellen kann.
Die entsprechende Stelle der Fehlerabfrage und Erhöhung der Toleranz lautet (gesamter Code im Anhang):
Code:
Dim T0 As Double
Dim T As Double
Dim L As Single
T0 = 0.01
On Error Resume Next
Do
Err.Clear()offsetSurfaceBuilder1.Tolerance = T0 + T
Dim nXObject1 As NXObject
nXObject1 = offsetSurfaceBuilder1.Commit()
If Err.Number <> 0 Then
L = L + 1
T = T + 0.1
Dim Msg As String
Msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & ControlChars.CrLf & Err.Description & " Toleranz= " & offsetSurfaceBuilder1.Tolerance
MsgBox(Msg, MsgBoxStyle.Information, "Error")
If L >= 12 Then Exit Sub
End If
Loop Until Err.Number = 0
Ich würde mich freuen wenn jemand eine Idee hätte. Vielen Dank im Voraus!
[Diese Nachricht wurde von HANKERUK am 24. Jul. 2014 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP