Kategorie: CATIA

Bestimmt haben sich einige schon gefragt, wie man die CATMain Prozedure aus verschieden CATVBA aufrufen kann. Beispiel: Ihr habt zwei CATVBA-Dateien 1. meineErsteCatVBADatei.CATVBA 2. meineZeiteCatVBADatei.CATVBA   Jetzt wollt Ihr einen Aufruf von der ersten meineErsteCatVBADatei.CATVBA zur zweiten meineZeiteCatVBADatei.CATVBA machen. Und das geht so.   Public Function startArbeitsinhalteUpdate() Dim sFilePath As String Dim sFileName As String Dim sModule As String Dim sProcedure As String Dim sFilePathAndName As String Dim CatSysServ As Variant Dim Params(5) As Variant Dim vRetVal As Variant ‘Everything … Continue reading “CATIA VBA – Von CATVBA zu CATVBA”

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”