Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Achsen kopieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Achsen kopieren (598 mal gelesen)
Stelly
Mitglied
selbst. Kaufmann

Sehen Sie sich das Profil von Stelly an!   Senden Sie eine Private Message an Stelly  Schreiben Sie einen Gästebucheintrag für Stelly

Beiträge: 2
Registriert: 01.06.2007

erstellt am: 01. Jun. 2007 22:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ich bin der Norbert und seit heute neu in diesem Forum und ausserdem ein Newbie, deshalb erlaubt mir folgende Frage:

Ich habe in V5 ein Product und 2 Parts.
Nun möchte ich per Makro aus Part1 aus der AXS_AP die Achse
AXS_AP_KUNDE in Part2 kopieren.
Händisch klappt das alles aber die Makroaufzeichnung klappt irgendwie
nicht.

Das Makro sieht dann wie folgt aus:
Language="VBSCRIPT"

Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set selection1 = productDocument1.Selection
selection1.Clear
'*************************************************************
Dim axisSystem1
' No resolution found for the object axisSystem1...
'*************************************************************
selection1.Add axisSystem1
selection1.Copy
End Sub


Händisch mache ich das mit Paste Special As Result with Link

Es wäre schön. wenn ich geholfen würde.
mit freundlichen Grüßen
Norbert

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

Stelly
Mitglied
selbst. Kaufmann

Sehen Sie sich das Profil von Stelly an!   Senden Sie eine Private Message an Stelly  Schreiben Sie einen Gästebucheintrag für Stelly

Beiträge: 2
Registriert: 01.06.2007

erstellt am: 02. Jun. 2007 15:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz