Hallo Daniel
habe hier noch so einen lustigen Fehler
Da ich die Arrays als Schuhkartons sehe
mit allen möglichen Arten von Schuhen möcht eich mal wissen wo hier der Fehler liegt?!?
'Punkte erzeugen
Dim i As Integer
Dim AbstandPunkte As Double
Dim RefVGProj As Reference
Set RefVGProj = part1.CreateReferenceFromObject(ProjectVG)
Dim PunktVG As HybridShapePointOnCurve
AnzahlPunkte = 14
For i = 0 To AnzahlPunkte Step 1
AbstandPunkte = i / AnzahlPunkte
Set PunktVG = Wzk3DH.AddNewPointOnCurveFromPercent(RefVGProj, AbstandPunkte, False)
PunktVG.Name = "PunktVG" & i + 1
GeoSet_PunkteVG.AppendHybridShape PunktVG
part1.Update
Next
'Geo Set Punkt PunkteHG erzeugen
Dim GeoSet_PunkteHG As HybridBody
Set GeoSet_PunkteHG = HB4.Add()
GeoSet_PunkteHG.Name = "Referenzpunkte_fuer_HG"
'Punkte erzeugen
Dim RefHGProj As Reference
Set RefHGProj = part1.CreateReferenceFromObject(ProjectHG)
Dim PunktHG As HybridShapePointOnCurve
AnzahlPunkte = 14
For i = 0 To AnzahlPunkte Step 1
AbstandPunkte = i / AnzahlPunkte
Set PunktHG = Wzk3DH.AddNewPointOnCurveFromPercent(RefHGProj, AbstandPunkte, True)
PunktHG.Name = "PunktHG." & i + 1
GeoSet_PunkteHG.AppendHybridShape PunktHG
part1.Update
Next
'---Geo Set TOELPunkte erzeugen---
Dim GeoSet_PunkteTOEL As HybridBody
Set GeoSet_PunkteTOEL = HB4.Add()
GeoSet_PunkteTOEL.Name = "Referenzpunkte_TOEL"
'---MittelPunkte erzeugen---
Dim Ref_PunkteVG As Reference
Dim Ref_PunkteHG As Reference
Dim PunkteT As HybridShapePointBetween
For i = 0 To AnzahlPunkte Step 1
-->Fehler ab hier Set Ref_PunkteVG = part1.CreateReferenceFromItem("PunktVG" & i + 1)
Set Ref_PunkteHG = part1.CreateReferenceFromItem("PunktVG" & i + 1)
Set PunkteT = Wzk3DH.AddNewPointBetween(Ref_PunkteVG, Ref_PunkteHG, 0.5, 1)
GeoSet_PunkteTOEL.AppendHybridShape PunkteT
PunkteT.Name = "PunktTOEL." & i + 1
part1.Update
Next
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP