Hallo,
bin inzwischen etwas weiter:
Sub CATMain()
'-------------------------------- Selektion der Innenfläche
Dim Box
Box = MsgBox ("Bitte selektieren Sie die zu extrahierende Fläche", 64, "Selektion der Fläche")
Dim Was(0)
Was(0) = "Shape"
Dim UserSel As Selection
Set UserSel = MyPartDocument.selection
UserSel.Clear
Dim Auswahl As CATBStr
Auswahl = UserSel.SelectElement(Was, "Fläche wählen!", True)
'-------------------------------- Extrahieren der selektierten Fläche
Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = MyPart.HybridShapeFactory
Dim Flaeche As HybridShape
Set Flaeche = UserSel.Item(1).Value
Dim neueRef As Reference
Set neueRef = MyPart.CreateReferenceFromObject(Flaeche)
Dim hybridShapeExtract1 As HybridShapeExtract
Set hybridShapeExtract1 = hybridShapeFactory1.AddNewExtract(neueRef)
hybridShapeExtract1.PropagationType = 2
hybridShapeExtract1.ComplementaryExtract = False
hybridShapeExtract1.IsFederated = False
hybridBody3.AppendHybridShape hybridShapeExtract1
MyPart.InWorkObject = hybridShapeExtract1
MyPart.Update
End Sub
------------------------------------------
Jetzt bekomme ich keine Fehlermeldung mehr, sondern das Skript läuft durch. Es wird sogar ein Extract erzeugt, allerdings ist es leer, d.h. die Selektion der Fläche wurde nicht übernommen.
Wer weiß was? Vielen Dank im Voraus
Gruß, zizo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP