---

Hallo erstmal,

Ich habe da ein Problem und zwar komme ich nicht an die ComponentAttribute von Einzeladern...

VBA Code:
...
DevCnt = Prj.GetCableIds(DevIDs)
For D = 1 To DevCnt
    Dev.SetId DevIDs(D)
    PinCnt = Dev.GetPinIds(PinIDs)
    If Dev.IsWireGroup Then
        For P = 1 To PinCnt
            Pin.SetId PinIDs(P)
            Pin.GetWireType CompName, WireName
            'Versuche an Component bzw ComponentAttribut zu kommen:
            'Com.SetId Com.Search(CompName, "")
            'Com.SetId PinIDs(P)
            'CompNr = Dev.GetComponentAttributeValue("ArticleNumber")
            CompNr = Pin.GetComponentAttributeValue("ArticleNumber")
            'CompNr = Com.GetAttributeValue("ArticleNumber")
            App.PutInfo 0, "Bauteil Nummer = " & CompNr
        Next
    End If
Next
...

Ich denke mal das Hauptproblem ist die Verbindung zwischen Einzelader (Pin) und Component(Com) und solang ich die nicht hab kann ich nix auslesen. Ich habe schon versucht die Componente mit allen möglichen ID's zu setzen aber das Funktioniert nicht. Selbst der versuch die Component zu suchen liefert immer nur 0 zurück. {com.search(Name, version)} 

In der Datenbank sind sie aber vorhanden und über den Datenbankeditor kann ich mir auch die gesuchten Attribute anzeigen lassen (Im Projekt selbst hab ich das auch ohne Skript noch nicht geschafft).

Ich hoffe ich konnte halbwegs darlegen wo das Problem sitzt, wenn nicht stehe ich gern für weitere Infos bereit 

mfg Stug

------------------
Komm auf die dunkle Seite der Macht, wir haben Kekse!!!

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

---

Hi Stug,

Code:

---

DevCnt = Prj.GetCableIds(DevIDs)
For D = 1 To DevCnt
    Dev.SetId DevIDs(D)
    PinCnt = Dev.GetPinIds(PinIDs)
    If Dev.IsWireGroup Then
        For P = 1 To PinCnt
            Pin.SetId PinIDs(P)

            ' Sucht ein Attribut am Draht der Datenbankdrahtgruppen, wenn das Attribut nicht am Draht selber definiert ist.
            CompNr = Pin.GetAttributeValue("ArticleNumber")
            App.PutInfo 0, "Bauteil Nummer = " & CompNr
        Next
    End If
Next

---

Kleiner Hinweis:
Wenn Du im Datenbankeditor eine Drahtgruppe editierst und dann an einem Draht ein Attribut vergeben willst, dann steht der Radiobutton rechts standardmäßig auf 'Ende 1'. Du möchtest das Attribut ja am Körper haben.

Gruß Jörg

[Diese Nachricht wurde von K0NFUZIUS am 07. Mrz. 2014 editiert.]

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

---

Hi Jörg,

Danke erstmal für die Schnelle Antwort.  

Leider hat das nicht funktioniert. Ich bekomme nix zurück...  
Ausserdem rede ich nicht von den Attributen für Ende oder Körper vom Pin, sondern von denen, die bei Bauteil(Component)der Wiregroup im DBE stehen.  

Ich glaube fast, das ich ein falsches Verständniss vom Aufbau hab:  
Das Projekt hat das Device <Wires> welches die Einzeladern(Pin) enthält der Pin gehört zu einem Wire(auch Pin) welche einer Wiregroup(Device) angehört die wiederum eine Component besitzt und an die Component muss ich ran.

Ich brauch von der Wiregroup die Component und davon das Attribut "ArticleNumber" (ne Art Gruppenbeschreibung bei uns   ).

PS: Die ArticleNumber darf nicht mit der Bestellnummer(PartNumber) verwechselt werden. Die Bestellnummer steht an jedem Pin und die kann man auch ohne weiteres auslesen.  

------------------
Komm auf die dunkle Seite der Macht, wir haben Kekse!!!

[Diese Nachricht wurde von stug am 07. Mrz. 2014 editiert.]

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

---

Ah jetzt ja...  

ich glaube JETZT habe ich Dich erstanden:

Code:

---

DevCnt = Prj.GetCableIds(DevIDs)
For D = 1 To DevCnt
    Dev.SetId DevIDs(D)
    PinCnt = Dev.GetPinIds(PinIDs)
    If Dev.IsWireGroup Then
        For P = 1 To PinCnt
            Pin.SetId PinIDs(P)
            Pin.GetWireType CompName, WireName

            Com.SetId dev.GetId()
           
' Diese Suche kann man bestimmt noch optimieren
' z.B. zum Start vom Skript eine Liste aufbauen Component| ArticleNumber           
            cnt = prj.GetCableTypeIds( ids )
            For i = 1 To cnt
                cmp.Setid ids(i)

                If cmp.GetId() = com.GetId() Then
                    anum = cmp.GetAttributeValue( "ArticleNumber" )
                    App.PutInfo 0, "CabTyp=" & cmp.GetName & " ArticleNumber=" & anum

                End If
  Next
        Next
    End If
Next

---

[Diese Nachricht wurde von K0NFUZIUS am 07. Mrz. 2014 editiert.]

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

---

Danke du bist mein Retter!!! 

Das ist genau das was ich brauche... 

mfg stug

------------------
Komm auf die dunkle Seite der Macht, wir haben Kekse!!!

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