Hello again, liebe Freunde der Automatisierung
Wie im Threadtitel schon erwähnt schmeißt mein derzeitiges Projekt beim einhängen einer Plane in ein Geo Set den Error 438 raus.
Beschreibung: "Object doesn't support this property or method"
Google macht mich da nicht wirklich schlauer.
Hier mal ein bisschen Code:
Code:
Dim Ordner As HybridBody
Dim WorkSet As HybridBody
Set Ordner = hybBodies.Add()
Ordner.Name = "Aufbau" & Chr(32) & Date & Chr(32) & Time
Set WorkSet = Ordner.HybridBodies.Add()
If Arbeitsplatz = 1 Then 'Fallunterscheidung für Namensvergabe
WorkSet.Name = "Fahrzeug_vorne"
ElseIf Arbeitsplatz = 2 Then
WorkSet.Name = "Fahrzeug_hinten"
Else
MsgBox ("Unerwarteter Fehler.") & Chr(13) & ("Da hat jemand rumgepfuscht. Makro wird beendet.")
End If
ActivePart.Update
If Inputtyp = 1 Then
'+++++++++++++++++++++++++++ InputCase 1 +++++++++++++++++++++++++++
'+++++++++++++++++++++++++++ Erkennen welche Fläche am weitesten aussen liegt +++++++++++++++++++++++++++
'Erzeugen der NearPlane
Dim RefPlane As Reference
Dim NearPlane_Y As HybridShapePlaneOffset
Set RefPlane = ActivePart.CreateReferenceFromObject(ActivePart.OriginElements.PlaneZX)
Set NearPlane_Y = hybShapeFac.AddNewPlaneOffset(RefPlane, -3000, False)
NearPlane_Y.Name = "NearPlane_Y-3000"
WorkSet.AppendHybridShape (NearPlane_Y) '<- HIER GIBTS DEN FEHLEREnd If
Die Sets oben werden wie gewünscht erzeugt, hab den Teil nur drin gelassen, damit ihr die Dims und Variablen zuordnen könnt.
Laut Watches geht auch die Erzeugung der Plane i.O. Das Objekt ist da.Laut Automation Help ist AppendHybridShape definitiv eine Method von HybridBody, und als solches ist das Set ja schließlich deklariert.
Habe schon versucht WorkSet oben als Objekt zu deklarieren, wird dadurch aber auch nicht besser.
Auch nicht durch eine Deklaration der erzeugten Plane als einfaches "HybridShape".
Wer findet meinen Fehler?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP