Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Körper hinzufügen

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:  Körper hinzufügen (1462 mal gelesen)
Esterbauer
Mitglied



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

Beiträge: 62
Registriert: 26.09.2008

erstellt am: 28. Dez. 2017 12:06    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


3.gif

 
Hallo,

Habe folgendes Problem.
Habe ein Produkt mit unterschiedlichen Parts , in den Parts gibt es jeweils einen Körper mit den Namen (Abzugskörper)
Gibt es eine Möglichkeit per Makro alle Körper im Produkt zu suchen und diese anschließende zusammen in anderes Part (basismodell_auswerfer) im Hauprkörper Hinzufügen zu lassen.
Das Suchen per Makro funktioniert soweit schon, da die Anzahl und Benennung der Parts immer unterschiedlich ist funktioniert das ganze dann nicht mehr.
Muss man das mit Variablen Programmieren?,

Kann mir da wer helfen

Mein Makro

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set selection1 = productDocument1.Selection

selection1.Search "Name=*Abzugskörper,all"

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set product2 = products1.Item("_auswerfer_rund_.1")

Set product2 = products1.Item("_auswerfer_rund_.1")

Set product2 = products1.Item("_auswerfer_rund_.1")

Set product3 = products1.Item("_auswerfer_rund_.2")

Set product3 = products1.Item("_auswerfer_rund_.2")

Set product3 = products1.Item("_auswerfer_rund_.2")

Set product4 = products1.Item("_auswerfer_rund_.3")

Set product4 = products1.Item("_auswerfer_rund_.3")

Set product4 = products1.Item("_auswerfer_rund_.3")

Set product5 = products1.Item("_auswerfer_rund_.4")

Set product5 = products1.Item("_auswerfer_rund_.4")

Set product5 = products1.Item("_auswerfer_rund_.4")

Set product6 = products1.Item("_auswerfer_rund_.5")

Set product6 = products1.Item("_auswerfer_rund_.5")

Set product6 = products1.Item("_auswerfer_rund_.5")

Set product7 = products1.Item("_auswerfer_rund_.6")

Set product7 = products1.Item("_auswerfer_rund_.6")

Set product7 = products1.Item("_auswerfer_rund_.6")

Set product8 = products1.Item("_auswerfer_rund_.7")

Set product8 = products1.Item("_auswerfer_rund_.7")

Set product8 = products1.Item("_auswerfer_rund_.7")

Set product9 = products1.Item("_auswerfer_rund_.8")

Set product9 = products1.Item("_auswerfer_rund_.8")

Set product9 = products1.Item("_auswerfer_rund_.8")

Set product10 = products1.Item("_auswerfer_rund_.9")

Set product10 = products1.Item("_auswerfer_rund_.9")

Set product10 = products1.Item("_auswerfer_rund_.9")

Set product11 = products1.Item("_auswerfer_rund_.10")

Set product11 = products1.Item("_auswerfer_rund_.10")

Set product11 = products1.Item("_auswerfer_rund_.10")

Set product12 = products1.Item("_auswerfer_rund_.11")

Set product12 = products1.Item("_auswerfer_rund_.11")

Set product12 = products1.Item("_auswerfer_rund_.11")

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("basismodell_auswerfer.CATPart")

Set part1 = partDocument1.Part

Set shapeFactory1 = part1.ShapeFactory

Set bodies1 = part1.Bodies

Set body2 = bodies1.Item("Hauptkörper")

Set shapes1 = body2.Shapes

part1.Update

End Sub

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 28. Dez. 2017 12:21    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 Nur für Esterbauer 10 Unities + Antwort hilfreich

Servus

Die Körper zu suchen geht über Bearbeiten -> Suchen (lässt sich per Makrorekorder aufzeichnen)
Das Kopieren und Einfügen der Körper wird da schon komplexer. Dazu such mal hier im Forum nach dem Thema da gibt es schon mehrere Diskussionen (zB hier)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

Esterbauer
Mitglied



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

Beiträge: 62
Registriert: 26.09.2008

erstellt am: 28. Dez. 2017 12:24    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 Danke
Kann es sein das der Link nicht funktioniert?

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 28. Dez. 2017 12:29    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 Nur für Esterbauer 10 Unities + Antwort hilfreich

Servus

Der Link funktioniert jetzt.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

Esterbauer
Mitglied



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

Beiträge: 62
Registriert: 26.09.2008

erstellt am: 03. Jan. 2018 11:23    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

Das suchen Funktioniert schon mal, aber das Hinzufügen der gefunden Körper bekomme ich einfach nicht hin.
Hab unten ein Scriptteil gefunden weis aber nicht was ich da falsch mache. Hat wer einen Tipp für mich !

Sub CATMain()

    Dim partDocument1 As Document
    Set partDocument1 = CATIA.ActiveDocument

    Dim selection1 As Selection
    Set selection1 = partDocument1.Selection
    selection1.Search "Name=*Abzugskörper,all"

End Sub



Dim j As Integer
  For j = 1 To UBound(aSelectedElements)
      Set oZPBodies = oZP.ReferenceProduct.Parent.Part.Bodies
      oSelection.Clear
      oSelection.Add aSelectedElements(j)
      oSelection.Copy
      oSelection.Clear
      oSelection.Add oZPBodies
      oSelection.PasteSpecial "CATPrtResultWithOutLink"
      oSelection.Clear
      oZP.Update
       
      Set oLastBody = oZPBodies.Item(oZPBodies.Count)
      aLastBodyName = Split(aSelectedElements(j).Displayname, "!")
      oLastBody.Name = aLastBodyName(0) & aLastBodyName(1)
      oZP.ReferenceProduct.Parent.Part.Update   
  Next

  oSelection.Clear

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 03. Jan. 2018 12:18    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 Nur für Esterbauer 10 Unities + Antwort hilfreich

Servus

Versuch mal das komplette Script (aus dem du deinen Code-Schnipsel hast) nachvollziehen und zu verstehen. (zB im VBA-Editor schrittweise ausführen)
Vermutlich musst du "nur" die SelectElement3 durch den Search ersetzen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

Esterbauer
Mitglied



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

Beiträge: 62
Registriert: 26.09.2008

erstellt am: 05. Mrz. 2018 15:48    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 komme hier einfach nicht weiter kann mir jemand einen noch einen Tipp geben wie ich die Selektierten Körper in eine Part geballt zusammenbauen kann.

Danke

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 05. Mrz. 2018 16:09    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 Nur für Esterbauer 10 Unities + Antwort hilfreich

Servus

Hast du mal den Code aus der verlinkten Diskussion angeschaut (möglichst weit unten)?
Hast du diesen Code mal ausgeführt (ggf auch mal schrittweise)?
Hast du den Code verstanden?
Der Kernproblem beim Kopieren ist dass ein Pfad für die Reference (CreateReferenceFromName) zusammengesetzt werden muss.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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