---

Hallo Leute,

ich schlage mich zur Zeit mit der bescheidenen API rum.

Ergebnis soll sein:

Benutzerdefinierte Positionsnummern auslesen 10,20,25, ...

Mein Weg
1 Erzeugen einer neuern Stückliste
2 Auslesen der Positionsnummern SW 1,2,3
3. Positionsnummern in der Zeichnung suchen und die eigene Nummer auslesen.

Mein Problem:

Ergebnis = View.InsertBomTable(Excell_name, Xloc, Yloc, 0)

Fehlermeldung Typen unverträglich  ?????

Wenn Ich das Objektt Teste mit

1. Stückliste von Hand erzeugen dann:
2. Set BomTable = View.GetBomTable ()
...
Kann ich mit BomTable (von Hand erzeugt) alles tun !

Ich habe es mit 2001 SP 6 und 2003 SP 0 erfolglos versucht.

Hat irgendjwmand einen Rat für mich.

Irgendwie muss man doch die BOM in die Zeichnung kriegen ???
Oder gibt es noch andere Wege um an die Positionsnummern heranzukommen??

Mfg

Rainer

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

---

Hallo Rainer.

Da scheint sich noch jemand, mit der Stücklisten-API rumzuschlagen  !

ich schlage mich zur Zeit mit der bescheidenen API rum.

... Ich finde die SWX-API gar nicht mal sooo bescheiden  , aber...

....gibt es noch andere Wege um an die Positionsnummern heranzukommen??

...in Bezug auf die Stückliste muss ich Dir leider recht geben. Zur Zeit arbeite ich an einem Programm, welches die StüLi direkt nach Excel ausgibt ( mit einigen Optionen natürlich  ) Trotz intensiver Suche und Test's habe ich auch keinen anderen Weg gefunden, als denjenigen über eine SWX-generierte Stüli. Warum SolidWorks nicht eine Funktion zur Verfügung stellt um die Pos-Nr auszulesen ist mir echt schleierhaft  , denn irgendwo im Modell muss doch diese vorhanden sein!!! Ich lasse mich aber gerne eines besseren belehren!

Problem "Typen unverträglich"

Ist IMHO ein VBA-Problem. In der Zuweisung

"Ergebnis = View.InsertBomTable(Excell_name, Xloc, Yloc, 0)"

ist vermutlich eine Variable als falscher Datentyp deklariert. Ohne dies getestet zu haben, vermute ich dass:

Ergebnis = Objekt
Excell_name = String
Xloc, Yloc = Long
0 = ??

sein sollten.

------------------
Gruss
Andreas

A+E Müller AG

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

---

Hallo Rainer,

an diesem mist... habe ich auch schon mal gesessen.

Mal wieder ein Problem der Variablendeklaration und von Fehlern in der SW Hilfe !!!

Dim Error21                As Long
Dim Xloc                    As Double
Dim Yloc                    As Double

Set ERGEBNIS = VIEW.InsertBomTable("", Xloc, Yloc, Error21)

Ohne Set kein Ergebnis !!!

Gruss

Bernd

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

---

Hallo Andreas,

2 Minuten schneller gewesen ?
Aber gleicher Lösungsvorschlag !

Auslesen kann ich über eine bescheidene Schleife:

retval = BomTable.Attach2()

Anzahl = BomTable.GetRowCount()
SUMME = BomTable.GetColumnCount()

'----Feldinhalte erste stelle ist die Zeile nach links
'------Unterdrückte Zeilen werden mit gezählt
'i Ist die Zeile z.B. Pos 1,2,3,4 Maxwert ist ANZAHL
'j Ist Spalte Benennung, nummer Maxwert ist SUMME

For i = 1 To Anzahl
    NUMMER1 = BomTable.GetEntryValue(i, 1)
    Position(i) = i
    MENGE(i) = BomTable.GetEntryValue(i, 2)
    BENENNUNG(i) = BomTable.GetEntryValue(i, 3)
    'DATEI_NAME(i) = BomTable.GetEntryValue(i, 4)
Next i

'---Excell-Schließen
retval = BomTable.Detach()
Ansichtsname = VIEW.Name()

'---Alle NOTEs anwählen !
Do While Ansichtsname <> ""
  Ansichtsname = VIEW.Name()
    For i = 1 To 100
        Part.AndSelectByID "Detailelement" & i & "@" & Ansichtsname & "", "NOTE", 0, 0, 0

    Next i
    Set VIEW = VIEW.GetNextView
    Ansichtsname = VIEW.Name()
    On Error GoTo E1

Loop

E1:

'--Benutzerdefinierte Positionsnummern auslesen
Set SelMgr2 = Part.SelectionManager
Anzahl = SelMgr2.GetSelectedObjectCount

If (Anzahl <> 0) Then
    For i = 1 To Anzahl
        Set BOM_O = SelMgr2.GetSelectedObject2(i)
        ' If selected object is a note, BOM BALLOON
        Type11 = SelMgr2.GetSelectedObjectType(1)
        If (SelMgr2.GetSelectedObjectType(1) = 19) Then
        ' On Error Resume Next
            USERNUMMER = BOM_O.GetBomBalloonText(True)
            ORIGINALNUMMER = BOM_O.GetBomBalloonText(False)
            Position(ORIGINALNUMMER) = USERNUMMER
    Else
        'swapp.SendMsgToUser ("Error changing note text.")
    End If
    Next i
Else

    swapp.SendMsgToUser ("Please Select a Note for this operation.")

End If

For i = 1 To Anzahl
'retval = ModelDoc2.EditBalloonProperties ( style, size, upperTextStyle, upperText, lowerTextStyle, lowerText )
    Set NOTE = Part.EditBalloonProperties(1, 0, 1, "1", 0, "122")
  'retval = Note.SetBomBalloonText(upperTextStyle, upperText, lowerTextStyle, lowerText)

    If NOTE Is Nothing Then
   
    Else
        retval = NOTE.GetBomBalloonText(True)
        retval = NOTE.GetBomBalloonText(False)
    End If

Next i

Die Werte in der SW Stückliste fülle ich über die Datenbank.
Die Schleife über die Zeichenansichten dauert funktioniert aber.

MEIN GRÖßTER WUNSCH zur Zeit für BOM

Den Eigenschaftsbaum in der Zeichnung separat durchscannen!!!
Damit habe ich die Standardnummer 1, 2, 3 aus der SW Reihenfolge.

DAS FUNKTIONIER NICHT NUR BEI TEILEN IM FEATUERBAUM
mit get next Feature

Wenn dir irgendeine bessere Lösung einfällt BITTE MELDEN.

PS deine Ausgabe an Excell ist Standard über DBWorks.
Eine Floatinlizenz würde genügen.

Die Richtigen POS NR können dann wie oben beschrieben ergänzt werden !

Gruss BERND

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

---

@Bernd:

Yesssssssssss, nun war ich mal schneller  !

> PS deine Ausgabe an Excell ist Standard über DBWorks.
> Eine Floatinlizenz würde genügen.

Ich finde einfach, dass solche Dinge zum Standart von SWX gehören sollten, ohne dass man zusätzliche SW haben muss. Ich kenne DBWorks kaum und weiss daher nicht, ob es darmit (oder anderen Programmen) möglich ist, verschiedene Stücklistenvorlagen in Excel zu erstellen und dann beim Exportieren die entspr. auszuwählen. Meine Situation stellt sich so dar, dass ich für verschiedene Kunden tätig bin und somut auch diverse Vorlagen gebrauche. Also möchte ich beim ersten Erstellen der Stückliste dessen Excel-Vorlage auswählen können.

Und nun: guten Appetit!

------------------
Gruss
Andreas

A+E Müller AG

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

---

Hallo Zusammen,

Danke für die Infos.
Es lag an der Deklaration der Variablen.

Leider bin ich immer noch bei den Grundlagenforschungen!

Ich habe eine Zeichnung mit benutzerdefinierten Positionsnummern aber ohne Stückliste.

Jetzt kann ich zwar eine Stückliste automatisch einfügen ABER:

SW setzt alle Positionsnummern wieder auf Baugruppenanordnung zurück und hat halt nur 1,2,3 ... in der Struktur stehen(manchmal manchmal nicht).

Die Positionsnummern in der Stücklist kann ich nur dann steuern, wenn ich ZUERST eine Stückliste einfüge und dann die Positionsnummern neu vergebe und die Werte ändere.

Wir wollen das bestimmt nicht tun!!!

Gibt es nicht den Weg,dass ich vorhandene Nummern in die Tabelle bekomme        ?????????
Warum ist das Soooo kompliziert.
Liegt das an MIR oder SolidWorks, die einfach kein INTERESSE an 2D haben!!!!

Gruss Rainer

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