|
Autor
|
Thema: Existierende Parts in Produkt einlesen (860 mal gelesen)
|
Erich
Mitglied
Senior Consultant selbstständig
   Beiträge: 198
Registriert: 03.10.2000 i7-9850H
RAM 32,0 GB
Nvidia Quadro T2000
Windows 7 Professional 64Bit
|
erstellt am: 09. Feb. 2015 21:32  <-- editieren / zitieren -->   Unities abgeben:          
Hallo anbei mein Programmschnipsel welches bei "AddComponentsFromFiles" einen Fehler erzeugt! Dim product1
Set product1 = productDocument1.Product
Dim products1
Set products1 = product1.Products
Dim Liste(0)
For n=1 to Anzahl
Liste(0) = Pfad & Dateinamen(n)
products1.AddComponentsFromFiles Liste,"CATPart"
Next Wo liegt der Fehler?
Bin für jeden Hinweis dankbar.
------------------
mfg
Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann
Moderator
Konstrukteur
    
Beiträge: 11780
Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 09. Feb. 2015 21:58 <-- editieren / zitieren --> Unities abgeben: Nur für Erich 
Servus Erich Wie lautet die Fehlermeldung? Stimmt der Dokumententyp den du bei AddComponentsFromFiles angibst? Stimmt der Pfad zur Datei? Gruß
Bernd ------------------
Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joehz
Moderator
Freiberuflicher Konstrukteur
Beiträge: 1057
Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20
Dell Precision M6600 i7-2960XM 2.7GHz 16GB
NVidia Quadro M5010
Catia V5R19
VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 09. Feb. 2015 22:03 <-- editieren / zitieren --> Unities abgeben: Nur für Erich
|
Erich
Mitglied
Senior Consultant selbstständig
Beiträge: 198
Registriert: 03.10.2000 i7-9850H
RAM 32,0 GB
Nvidia Quadro T2000
Windows 7 Professional 64Bit
|
erstellt am: 10. Feb. 2015 07:05 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd die Fehlermeldung lautet: "The method AddComponentsFromFiles failed" Der Doku-Typ stimmt, den Pfad + Namen habe ich auch geprüft, ist in Ordnung.
Schon mal Danke. ------------------
mfg
Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
imation1999
Mitglied
dipl.-ing. Maschinenbau
Beiträge: 276
Registriert: 02.08.2011 Dell Precision T3500
Intel® Xeon® Quad Core
NVIDIA Quadro® 5000
Win7 x64 Ultimate
CATIA V5 R20 SP2
|
erstellt am: 10. Feb. 2015 07:13 <-- editieren / zitieren --> Unities abgeben: Nur für Erich
Morgen Erich, mach bitte ein Versuch mit "Anzahl = 1" oder einfach ohne Schleife. [EDIT:]...oder so:
Code:
For n=1 to Anzahl
Liste(0) = Pfad & Dateinamen(n)
Set products1Variant = products1
products1Variant.AddComponentsFromFiles Liste,"CATPart"
Next
[Diese Nachricht wurde von imation1999 am 10. Feb. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Erich
Mitglied
Senior Consultant selbstständig
Beiträge: 198
Registriert: 03.10.2000 i7-9850H
RAM 32,0 GB
Nvidia Quadro T2000
Windows 7 Professional 64Bit
|
erstellt am: 10. Feb. 2015 08:11 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd Anfängerfehler, ich hatte tatsächlich Dateien im Verzeichnis, die nicht den richtigen Typ hatten und damit das Script zu Fall brachten. Aber wie so oft, einfach aus dem Wald treten und das ganze von Aussen anschauen. Danke. ------------------
mfg
Erich Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
