---

Hallo Zusammen,

ich bin mal wieder am probieren und fest gefahren
Und zwar möchte ich in dem Script ein Set auswählen und in diesen ein Join erstellen lassen.
das Problem ist wie komme ich an das Set. ich hab folgendes als Basis.

Dim FolderSel As Object
Set FolderSel = CATIA.ActiveDocument.Selection
FolderSel.Clear

Dim F
Dim Was1(0)
Was1(0) = "AnyObject"

F = FolderSel.SelectElement2(Was1, "Geoset waehlen", False)
Set Folder1 = FolderSel.Item(1).Value
.
.
.
Set Join = Factory.AddNewJoin(ref1, Nothing)
Folder1.HybridBodies.AppendHybridShape Join
Next

aber hier kommt nur "Object doesnt Support this Property or Method"

Danke für die Hilfe

Gruß
Garamond77

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Folder1 ist doch schon ein HybridBody (wenn einer gewählt wurde), dann sollte

Code:

---

Folder1.AppendHybridShape Join

---

funktionieren.
Allerdings solltest du den Filter für die Selektion einschränken (nur Hybridbodies)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

das Script hatte ich vorher auch wie du sagst führt aber zur gleichen Fehlermeldung.

Hab ich da irgend einen anderen Fehler drin?

Was ich bisher habe sieht wie folgt aus und es gibt noch ein paar Sachen die noch eingebaut werden:

Sub CATMain()

Dim Document As Document
Set Document = CATIA.ActiveDocument
Dim MyPart As Part
Set MyPart = Document.Part

Dim FolderSel As Object
Set FolderSel = CATIA.ActiveDocument.Selection
FolderSel.Clear

Dim F
Dim Was1(0)
Was1(0) = "HybridBodies"

F = FolderSel.SelectElement2(Was1, "Geoset waehlen", False)
Set Folder1 = FolderSel.Item(1).Value

Dim UserSel As Object
Set UserSel = CATIA.ActiveDocument.Selection
UserSel.Clear

Dim E
Dim Was2(0)
Was2(0) = "AnyObject"

E = UserSel.SelectElement2(Was2, "Uebergabegeometrie auswaehlen", False)
For i = 1 To UserSel.Count
Dim ref1 As Reference
Set ref1 = MyPart.CreateReferenceFromObject(UserSel.Item(i).Value)
Dim Factory As HybridShapeFactory
Set Factory = MyPart.HybridShapeFactory

'  Join erzeugen

Dim Join As HybridShapeAssemble
Set Join = Factory.AddNewJoin(ref1, Nothing)
Folder1.AppendHybridShape Join
Next

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Dimensioniere mal das Objekt "folder1":

Code:

---

Dim folder1 As hybridBody

---

Dann läuft der Code bei mir durch.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP