Forum:CATIA V5 Programmierung
Thema:Part suchen/selektieren - Dateipfad auslesen
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
ARA1702

Beiträge: 7 / 0

Hallo Zusammen,

ich möchte gerne aus einem Produkt ein Part suchen/selektieren und den Dateipfad des Parts auslesen. Den Namen des Parts konnte ich schon auslesen, den Dateipfad leider noch nicht.

Kann mir hier Jemand weiter helfen?

So sieht meine Produktstruktur aus:

Produkt
|
|- Part1
|- Part2
...

So konnte ich den Namen auslesen:

Dim Partsearch As Selection
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Set Partsearch = CATIA.ActiveDocument.Selection
Partsearch.Search "name=" & "(Bauteilnummer Part)" & "*;all"

MsgBox (Partsearch.Item(1).Value.Name)    '.FullName funktioniert hier leider nicht.


Vielen Dank schon mal

ARA

joehz

Beiträge: 1057 / 0

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

Hi ARA,

Probier mal:

Code:

MsgBox (Partsearch.Item(1).Value.ReferenceProduct.Parent.FullName)

Wenn Du den Namen aber schon kennst, kannst auch so vorgehen:

Code:

Sub Catmain()
  Dim oAD As ProductDocument
  Dim oADP As Product
  Dim strPName As String

  strPName = "G000198__xxxx__Boden_kurz_breit.1"
  Set oAD = CATIA.ActiveDocument
  Set oADP = oAD.Product.Products.Item(strPName)

  MsgBox oADP.ReferenceProduct.Parent.FullName
End Sub


Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

ARA1702

Beiträge: 7 / 0

Hi Joe,

vielen Dank, hat geklappt :-)

Grüße ARA