Hallo,
ich habe noch ein wenig experimentiert. Nun ist es nicht mehr sehr viel, was nicht funktioniert.
Ich denke wenn ein geübter Makro Programmierer mal ein Auge darauf wirft, wird er meine Fehler bestimmt sofort erkennen.
Vielen Dank nochmal
Stelly
Language="VBSCRIPT"
Sub CATMain()
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Item("PART_1.CATPart")
Set product1 = partDocument1.GetItem("PART_1")
'***********************************************************************
'Die Achse AXS_AP_KUNDE befindet sich im GeometicalSet AXS_AP
'Diese Achse AXS_AP_KUNDE soll kopiert werden
'***********************************************************************
Set reference1 = product1.CreateReferenceFromName("PART_1/!AXS_AP/!AXS_AP_KUNDE")
Set publications1 = product1.Publications
Set publication1 = publications1.Add("AXS_AP_KUNDE")
publications1.SetDirect "AXS_AP_KUNDE", reference1
Set settingControllers1 = CATIA.SettingControllers
Set visualizationSettingAtt1 = settingControllers1.Item("CATVizVisualizationSettingCtrl")
visualizationSettingAtt1.SaveRepository
Set part1 = partDocument1.Part
Set axisSystems1 = product1.Publications
Set axisSystem1 = axisSystems1.Item("AXS_AP_KUNDE")
'***********************************************************************
'*************** Bis hier klappt das
'***********************************************************************
'Das stimmt irgendwie nicht, obwohl das richtig sein sollte...................
'Part1.Inactivate axisSystem1
'Part1.Update
'***********************************************************************
'*************** Von hier
'***********************************************************************
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
selection1.Clear
selection1.Add axisSystem1
'***********************************************************************
'*************** Bis hier klappt das
'***********************************************************************
'***********************************************************************
'Das Copy funktioniert nicht. Warum auch immer
'selection1.Copy
'***********************************************************************
'***********************************************************************
'***************Ab hier klappt das, obwohl nichts kopiert wird
'***********************************************************************
Set productDocument1 = CATIA.ActiveDocument
Set selection2 = productDocument1.Selection
selection2.Clear
Set partDocument2 = documents1.Item("PART_2.CATPart")
Set part2 = partDocument2.Part
selection2.Add part2
selection2.PasteSpecial("CATPrtResult")
part2.Update
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP