Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Part-Objekte mit Schleife erzeugen

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:  Part-Objekte mit Schleife erzeugen (615 mal gelesen)
TomK79
Mitglied
Maschinenbauingenieur


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

Beiträge: 17
Registriert: 19.04.2005

erstellt am: 19. Apr. 2005 10:01    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 möchte mit folgendem Makro in einem Produkt mehrere ähnliche Part-Objekte erzeugen:

VAR_anzahlbalken = 3
FOR i = 1 TO VAR_anzahlbalken
Set balkenX = products1.AddNewComponent("Part", "Balken X")
NEXT

Wie kann ich die Zählervariable i mit dem Objektaufruf verknüpfen? (Weweils das X durch den Inhalt der Variable ersetzen)
Der Code soll quasi folgendes automatisch/parametrisch erzeugen:
Set balken1 = products1.AddNewComponent("Part", "Balken 1")
Set balken2 = products1.AddNewComponent("Part", "Balken 2")
Set balken3 = products1.AddNewComponent("Part", "Balken 3")

Danke, mfG
TomK79


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

BADU
Mitglied
Konstrukteur


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

Beiträge: 124
Registriert: 02.07.2003

Catia V5R19 x64
Win7 x64

erstellt am: 19. Apr. 2005 11:53    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 TomK79 10 Unities + Antwort hilfreich

Hi TomK79

versuchs mal so:


Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim Name As String
Dim I

For I = 1 To 5

Name = "Balken " & I

Dim product2 As Product
Set product2 = products1.AddNewComponent("Part", Name)

Next
End Sub

------------------
Gruss BADU

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

TomK79
Mitglied
Maschinenbauingenieur


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

Beiträge: 17
Registriert: 19.04.2005

erstellt am: 19. Apr. 2005 14:31    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

Hi BADU!

Danke, es funktioniert.
Ich dachte nur, ich müsste den Namen der Instanz des Objekts (vorderes BalkenX) auch mit dem Zähler erhöhen, um die Instanz später ansteuern zu können. Das geht ja aber auch mit:

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

Danke, Gruß
TomK79

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