Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  PartFullName auslesen

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:  PartFullName auslesen (762 mal gelesen)
AndreasNilli
Mitglied
MaschBau, 6.Sem


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

Beiträge: 22
Registriert: 09.09.2009

erstellt am: 11. Sep. 2009 10:59    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 wieder 

Ich hänge gerade an der Stelle, dass ich mir den vollen Dateinamen incl. Pfad von jedem einzelnen Part im Produkt anzeigen lassen möchte.

Den Partnumber-Namen bzw Instance-Namen auszulesen, weiß ich, bloß der bringt mir in der Hinsicht ja nicht weiter.
Durch viele Veränderungen habe ich es versuch daraus mir was abzuleiten, aber Fehlanzeige.


Code:
Sub CATMain()
  Set oRoot = CATIA.ActiveDocument
  Set oProducts = oRoot.Product.Products
  SUB_ProdScan oProducts
 
'  oPath = oRoot.Path & "\"
'  MsgBox oPath
'  Am Ende sollen dann die einzelnen Part-Pfade mit dem oPath verglichen werden.
 
End Sub

Sub SUB_ProdScan(oProducts)

  For i = 1 To oProducts.Count
       
        Dim product1 As Product
        Set product1 = oProducts.Item(i)
        MsgBox product1.Name, "64", "test"

  Next
 
End Sub


Hier spuckt er mir die Instance-Namen der Parts aus. Mit PartNumber eben die Partnumber-Namen.
Nun habe ich versucht mit FullName bzw Path den Pfad rauszubekommen, jedoch geht das logischerweise nicht.

Daraufhin habe ich versucht "Item(i)" durch "File(i)" zu ersetzen und verschiedene Varianten auszuprobieren, jedoch will der VB-Editor nie wie ich möchte 
Lustigerweise sucht man aber immer nach den Sachen, die man nirgends finden kann.

Gibt es dafür einen Befehl? Weil mit File klappt es leider nicht.
Sicherlich wüsstet ihr andere Wege (denke ich), jedoch bin ich noch relativ am Anfang, und verstehe eben diese längeren Codes noch nicht.

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

Jens Hansen
Mitglied
Senior Consult


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

Beiträge: 1055
Registriert: 05.08.2000

Win7
CATIA V5 R19
VB.Net
C#

erstellt am: 11. Sep. 2009 13:12    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 AndreasNilli 10 Unities + Antwort hilfreich

Hallo Andreas,
schau mal in den Code folgendes Beitrags in der Unter-Routine "Fullname" - da stehts drin: http://ww3.cad.de/foren/ubb/Forum137/HTML/000890.shtml#000000

SG

Jens

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

AndreasNilli
Mitglied
MaschBau, 6.Sem


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

Beiträge: 22
Registriert: 09.09.2009

erstellt am: 11. Sep. 2009 13:20    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 Jens.

Vielen Dank.
Habe einfach folgendes geändert:


*edit*
So sieht nun der fertige Code aus.
Und funktioniert sogar  

Code:
Public oPath As String


Sub CATMain()
  Set oRoot = CATIA.ActiveDocument
  Set oProducts = oRoot.Product.Products
 
 
  oPath = oRoot.Path
 
'  MsgBox oPath
 
  SUB_ProdScan oProducts
   
   
End Sub

Sub SUB_ProdScan(oProducts)

  For i = 1 To oProducts.Count
   
       
        Dim product1 As Product
        Set product1 = oProducts.Item(i)
       
        Dim pPath As String
        pPath = product1.ReferenceProduct.Parent.Path
       
        If pPath = oPath Then
'        MsgBox "Ok!"
        Else: MsgBox "Es befindet sich '" & product1.ReferenceProduct.Parent.Name & "' nicht im Ordner"

        End If
       
  Next
 
End Sub


[Diese Nachricht wurde von AndreasNilli am 11. Sep. 2009 editiert.]

[Diese Nachricht wurde von AndreasNilli am 11. Sep. 2009 editiert.]

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