Guten Tag ins Forum,
kann mir bitte jemand auf die Sprünge helfen.
Ich möchte die Bahnkurve (Kurve durch XYZ-Punkte) eines Sweeps per VB/ VBA editieren.
Die Bahnkurve ist die Wendel eines sogenannten Stufentopfes und soll neben anderen Werten per VB änderbar sein.
Die Bahn habe ich berechnet, die anderen Werte (Höhe, Ø, Bohrungen etc.) an das CAD-Modell übergeben. Es "schüttelt" sich und hat alle Werte bis auf die der Kurve übernommen.
Die "Kurve durch XYZ-Punkte" wird leider neu angelegt und nicht als SubFeature des Sweeps (Wendel) editiert.
Mein Code sieht an der Übergabestelle (-> SWX) wie unten gezeigt aus.
Ist dieses SubFeature (Curve) denn editierbar? Hat jemand einen Tip?!
Codeausschnitt:
If FeatType = "Sweep" Then
Dim name As String
name = swFeat.Name
If name = "Wendel" Then
lngEnd = UBound(Wendel, 2)
swPart.InsertCurveFileBegin()
For i = 0 To lngEnd
x = Decimal.Round(Wendel(0, i) / 1000, 8)
y = Decimal.Round(Wendel(1, i) / 1000, 8)
z = Decimal.Round(Wendel(2, i) / 1000, 8)
swPart.InsertCurveFilePoint(x, y, z)
Next
swPart.InsertCurveFileEnd()
End If
------------------
mfg
Patrick
EINFACH sein, einfach SEIN!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP