---

Hallo zusammen,

ich möchte mit VB einen Verwendungsnachweis programmieren. Es will mir aber nicht gelingen. Sicher hat jemand im Formum sowas schon gemacht. Mein Code sieht folgendermassen aus:

Dim objApp As RevisionManager.Application
Dim objDoc As RevisionManager.Document
Dim objModelLinks As RevisionManager.LinkedDocuments
Dim objmodellinksitem As RevisionManager.Document
       

        Try
            objApp = CType(GetObject(, "RevisionManager.Application"), RevisionManager.Application)
        Catch
            objApp = CType(CreateObject("RevisionManager.Application"), RevisionManager.Application)
        End Try

'Es soll nur nach Baugruppen durchsucht werden, "D:\Konstruktion" ist das oberste Suchverzeichnis, Unterordner werden auch durchsucht.

objApp.WhereUsedCriteria("*.asm",true) = "D:\Konstruktion"

'Die Schraube wird gesucht

objDoc = objApp.FindWhereUsed("D:\Konstruktion\Schrauben\Schraube M3x10.par")

        ListBox3.Items.Add(objDoc.FullName)
        objModelLinks = objDoc.LinkedDocuments
        For Each objmodellinksitem In objModelLinks
            ListBox3.Items.Add(objmodellinksitem.FullName.ToString)
        Next

Obwohl ich den Filter "*.asm" gesetzt habe bekomme ich auch Partdateien zurück. Irgendwie sehe ich nicht durch. Wenn ich von Hand im Revisionmanager den Verwendungsnachweis durchführe, bekomme ich sämtliche asm Dokumente zurück, wo ich die Schraube eingebaut habe. Wahrscheinlich liegt es daran, dass der Befehl:

objDoc = objApp.FindWhereUsed("D:\Konstruktion\Schrauben\Schraube M3x10.par")

genau ein Dokument zurückgibt und ich nachher auf dessen LinkedDocuments Collection zugreife. Ich sollte aber alle asm Dokumente haben und nicht nur das zuerst gefundene.

Bin für jede Hilfe dankbar.

Gruss Matthias

------------------
SE V18 SP6
SePropManager.NET von
www.leemann-software.net

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

---

Moin,

[...]
genau ein Dokument zurückgibt und ich nachher auf dessen LinkedDocuments Collection zugreife. Ich sollte aber alle asm Dokumente haben und nicht nur das zuerst gefundene.
[...]

Help fuer FindWhereUsed():

Using the WhereUsedCriteria property, this method searches for the
specified document in other files. For example, this method finds
all the assemblies that use a particular part.

Das ist der Punkt welcher:

You may specify the
pathname for the document when calling this method for the first time;
however, call this method without a parameter to continue the search.
If a document is found, this method returns a Document object.

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

---

Danke Klaus,

wer lesen kann und es versteht, ist im Vorteil. Da Englisch nicht so meine Stärke ist, überlese ich oft die entscheidenden Details...

Vielen Dank 

------------------
SE V18 SP6
SePropManager.NET von
www.leemann-software.net

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