Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Instance name

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:  Instance name (849 mal gelesen)
OFRADE
Mitglied
Konstrukteur


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

Beiträge: 14
Registriert: 31.10.2008

WIN 7 x64
CATIA V5 R19SP9

erstellt am: 25. Mrz. 2009 10:03    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


Testbaugruppe_1.jpg


Testbaugruppe_2.jpg

 
Hallo zusammen,

folgendes Problem versuche ich zu lösen, doch mit meinen begrenzten VB Kenntnissen komme ich da nicht weiter. Habe schon hier mehrer Berichte durchsucht aber nichts gefunden, vielleicht auch mangels Wissen nicht verstanden  .

Das nachfolgende Script, hier gefunden http://www.catiav5forum.de/wbb3/wbb/index.php?page=Thread&postID=16775,  nummeriert die Anzahl der Produkte nach der vorhanden Anzahl der Teile durch (siehe auch Bild 1). Jetzt ist es nun so das ich entsprechend einer Stückliste von oben beginnend fortlaufend eine Nummerierung für jedes unterschiedlich Bauteil haben möchte (siehe Bild 2 - manuell erstellt). Sprich der hintere Teil des Instance Name ist Ok jedoch nicht der vordere, dort soll nicht die Teilenummer sondern eine Nummerierung stehen.


der Code:

Sub CATMain()
Dim ProductDoc As ProductDocument
Dim Product As Product
Dim ItemToRename As Product
Dim ItemToRenamePartNumber As String
Dim oDict1
Dim lNumberOfItems As Long
Dim i As Integer

Set ProductDoc = CATIA.ActiveDocument
Set Product = ProductDoc.Product 'The top product containing the items to rename
Set oDict1 = CreateObject ("Scripting.Dictionary")

lNumberOfItems = Product.Products.Count

for i = 1 To lNumberOfItems
Set ItemToRename =  Product.Products.Item(i)
ItemToRenamePartNumber = ItemToRename.PartNumber

If oDict1.Exists (ItemToRenamePartNumber)Then
oDict1.Item(ItemToRenamePartNumber) = oDict1.Item (ItemToRenamePartNumber) + 1
Else: oDict1.Add (ItemToRenamePartNumber), "1"
End If

'Rename the items instance name like this: Part Number + ".1#" + suffix number

ItemToRename.Name = ItemToRenamePartNumber & ".1#" & oDict1.Item(ItemToRenamePartNumber)
Next

Set oDict1 = Nothing

End Sub

Danke im Voraus,

Gruß,

Oliver

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