Hallo,
ich hab da ein merkwürdiges Problem mit meinen Code, und zwar möchte ich Linien zeichnen lassen mit .CreateCenterLine welche unterschiedliche Längen und Höhen vom Koordinatenursprung haben.
Code:
For Each Typ1 In Range("G33:G155")
If Typ1 <> "" Then
value1(i) = Typ1
i = i + 1
j = i
End If
Next
j = j - 1For Each Abun In Range("F33:F155")
If Abun <> "" Then
value5(Y) = Abun
Y = Y + 1
End If
Next
i = 0
For i = 0 To j
Set skSegment = Part.SketchManager.CreateCenterLine((value1(i) / 2000) * -1, value5(i) / 1000, 0#, value1(i) / 2000, value5(i) / 1000, 0#)
Next i
Die einzelnen Werte für die Höhen value5(i) und Längen value1(i) werden aus einem Excel Dokument gelesen. Das Problem besteht darin, dass der Code oder SolidWorks plötzlich Linien, die nur einmal erstellt werden müssen, doppelt oder dreifach in der Skizze erstellt, anstatt andere benötigte Linien. Wenn ich mir die einzelnen Werte im Direktbereich anschaue, sind es auch die richtigen Werte, die ich für die Erstellung der Skizze brauche. Sie können es schon mal nicht sein, die den Fehler verursachen.
Also angenommen ich brauche eine erste Linie mit 100mm Länge und 10mm vom Ursprung als Höhe. Sie wird vom Code gezeichnet. Die nächste Linie aber, die 110mm haben soll, wird wieder nur 100mm lang gezeichnet, aber mit der richtigen Höhe.
Das erste Bild zeigt, was ich eigentlich haben will. Das zweite, was mein Code macht , bin verwirrt.
Eine Idee woran das liegen könnte?
Gruß
Eugen
[Diese Nachricht wurde von Steufrit am 02. Jul. 2017 editiert.]
[Diese Nachricht wurde von Steufrit am 03. Jul. 2017 editiert.]
[Diese Nachricht wurde von Steufrit am 03. Jul. 2017 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP