Monat: November 2019

Hi, Ihr wollt ein Geoset aus einem Part in ein anders Part mit der Mehtode PasteSpecial bewerkstelligen? Hier habe ich euch mal einen Code bereitgestellt. Viel Spaß Dim oSel As Selection Set oSel = CATIA.ActiveDocument.Selection oSel.Clear oSel.Search (“Name:7385091*,all”) Dim oProduct As Product Set oProduct = oSel.Item(1).Value Dim oPart As Part Set oPart = oProduct.ReferenceProduct.Parent.Part oSel.Clear oSel.Add oPart.HybridBodies.Item(“Fertigteil_Flaechen”) oSel.Copy Dim oZielProduct As Product Dim oZielPart As Part oSel.Search (“Name:Part1*,all”) Set oZielProduct = oSel.Item(1).Value Set oZielPart = oZielProduct.ReferenceProduct.Parent.Part oSel.Clear oSel.Add oZielPart oSel.PasteSpecial … Continue reading “CATIA GeoSet copy mit specialPaste mit CATPrtResultWithOutLink”