---

Wir wollen immer mal wieder aus 50 oder mehr Zeichnungen die Stücklistendaten auslesen lassen. Bei Genius 14 war das mit "attext" per Lispprogramm möglich. Dieser Befehl liest aber bei Mechancial 2000iPP Zeichnungen keine Stücklistendaten mehr aus. Das Auslesen per Exportfunktion in z.B. Excel ist toll, aber mir ist nicht bekannt wie ich diese Funktion im Batchbetrieb ausführen kann. Hat hierzu jemand eine Idee?

Gruß

Felix Klinkenbergh

------------------
Felix Klinkenbergh

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

---

Ich hatte das Thema auch schon mal hier angesprochen und leider keinen Tipp erhalten. Wenn Du also was findest, lass es mich wissen.

Gruß
Lothar

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

---

Hallo

Habe mir ein Lisp-Tool dafür geschrieben.
Die Ausgabe ist im ASSCI-Format.
Da ich die Stückliste jedoch auch im Excel-
Format benötige, werde ich dieses in der nächsten
Zeit programmieren.

Gruß
Dietmar

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

---

Kann man diese Routine erwerben, oder kann jemand sagen, welche Befehle in Mechanical ausgeführt werden müssen, um das ganze von Hand einzeln durchzuführen, damit man diese in eine Routine einbauen kann.

Schönen Feiertag!

Gruß

Felix

------------------
Felix Klinkenbergh

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

---

Gleiches Problem!
dringende Antwort gesucht

------------------
gringo

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

---

Hallo,

habe ein kleines Tool geschrieben.
Es werden alle Infopunkte aus Mechanical 2000 , 2000i und 2002
bzw MDT4, MDT5, und MDT6 ausgelesen und in eine Access-Datei
gechrieben.
Bitte ausprobieren.

Möglich wäre es auch, dieses in eine Text- bzw. Excel-Datei zu  schreiben.

Gruss Dietmar

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

---

EA.zip

Hoppla die Datei fehlt noch.

Gruss Dietmar

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

---

Original erstellt von Dammfeld:
...
Möglich wäre es auch, dieses in eine Text- bzw. Excel-Datei zu  schreiben.
...

Na das wäre doch eine feine Sache, ich hab nämlich kein Access. Wenn das nicht zuviel Aufwand ist, kann ich dich nur dazu ermutigen.

Gruß
Lothar

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

---

Hallo Dietmar,

wollte mal nachfragen ob Du das Tool für Excel geschrieben hast?

Gruß HM

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

---

Sehr geehrter Herr Klingenberg,

diese Aufgabenstellung lässt sich z.B. mittels VBA lösen.

Egal ob VBA unter Excel - Zugriff auf AM oder aber von AM aus und Daten nach Excel.

Wir haben den Weg "über VBA von Excel aus" gewählt.
In eine erste Tabelle bringen wir sämtliche Attributdaten.
Mit denen wird der Stücklistenkopf ausgefüllt.

Anschliessend werden die BOM (Stücklistendaten) eingelesen.
Diese Daten in dem ersten Rechenblatt können schön sortiert werden,
das war bei der Programmerstellung ein gangbarer Weg, Sonderzeichen sollten noch ausgetauscht werden (z.B. Durchmesser, plus/minus, usw.).

Ein zweites Rechenblatt ist nunmehr die Stüli. Der Vordruck.
Sämtliche Daten aus dem ersten Rechenblatt werden nunmehr in diesen Vordruck eingelesen, jeweils in die richtige Spalte und Zeile.

Information zu diesem speziellen Thema Stücklisten i.e. der PartRef, der BOM und der Balloon findet sich im Installationsverzeichnis von Ihrem AM im Ordner Hilfe:
1. mcadvba.chm
Kapitel 9 beschreibt Symbols and Bill of Material.
insbesondere der letzte Abschnitt, Sub BOM Automation() ist für den Interessenten von Bedeutung. Daneben
2. mcadauto.hlp
Die beiden Routinen unter Examples sind anzusehen.

Zu der Aufgabe von Excel aus auf das AutoCAD bzw. das AM zuzugreifen finden sich auch Beispiele.

Mit obigen Tipps hoffe ich etwas beigetragen zu haben.
Für weitere Ausführungen bzw. Beispiele wird uns der Moderator eh ins ACAD VBA verbannen.

Vielleicht für Interessenten von VBA zur Einführung folgendes:

Sub SuFind()
    Dim Such As String
    Such = InputBox("gesuchte Positions-Nummer : ")
    Dim symbb As McadSymbolBBMgr
    Set symbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
    Dim objName As String
    Dim entry As AcadEntity
    For Each entry In ThisDrawing.ModelSpace
        objName = entry.ObjectName
        If objName = "AcmBalloon" Then
            Dim Items As McadBOMItems
            Set Items = entry.BOMItems
            Dim Pos As String
            Dim Item As McadBOMItem
            For Each Item In Items
                Pos = Item.ItemNumber
                If Pos = Such Then
                    entry.Highlight True
                    ThisDrawing.Application.Update
                    entry.GetBoundingBox MinPunkt, MaxPunkt
                    ZoomWindow MinPunkt, MaxPunkt
                    MsgBox "Pos-Nr.", vbOKOnly + vbInformation, Pos
                    entry.Highlight False
                End If
            Next
        End If
    Next
    End Sub

laden Sie sich das als Makro. Schalten Sie unter Verweis die notwendigen Bibliotheken zu (AutoCAD MCADAuto Type Library und die Autodesk SymBBAuto Type Library.

Das Beispiel-Makro dient der Suche nach einer Positionsnummer.

Den Zugriff auf die Stücklistendaten können Sie daraus bereits ableiten: Bringen Sie einen Stop-Befehl nach Pos=Item.ItemNumber ein.
Schalten Sie in der Ansicht das Lokal-Fenster dazu und suchen Sie nachdem das Programm anhält nach Item, Data. Sie finden die Stücklistendaten der betreffenden Position:
(Data(0), Data(1)...) als ein zweidimensionales Feld.

Den Zugriff finden sie in o.g. Beispielen dargestellt

mit freundlichem Gruss

Hans Krissler

PS. Sollten Sie eine schön formattierte Stüli haben, die von meinem Mandanten mag ich nicht veröffentlichen: eMail ib-krissler@t-online.de

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

---

Hallo Herr Krissler,

vielen Dank für die Hinweise. Die Aufgabe ist mittlerweile von einem Programmierer gelöst worden und das Tool funktioniert prima.

Es werden immer die Stücklisten und die dazu passenden Schriftkopfinformationen in Excel ausgelesen.

Gruß

Felix

------------------
Felix Klinkenbergh
www.cad-ausbildung.de

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

---

Hallo Herr Krissler,

???
musste Ihren Beitrag mehrmals lesen und hab immer noch nicht alles kapiert.
Leider kann ich kein VBA.
Ich suche wie Herr Klinkenbergh nach einem kleinen Tool. In unserem Unternehmen gibt es aber nicht die Möglichkeit ein Tool programmieren zu lassen (nicht intern und auch nicht extern, leider!)
Deshalb noch einmal meine Frage an Dietmar ob er das Exel-Tool geschrieben hat.

Gruß HM

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

---

Sehr geehrter Herr HM,

auf VBA als Programmiesprache für die Stüli-Erstellung sind wir aufgrund der sehr hervorragenden Unterlagen gegangen, die Autodesk dem Anwender mitliefert.

Bestimmt lässt sich die Aufgabe auch anders lösen, aber es liegt doch von Autodesk alles bereits (fast) fertig programmiert mit guter Anleitung ( leider englische Sprache ) vor !

Sehen Sie sich einmal im Unterverzeichnis Sample, VBA in Ihrem Installationsordenr an, was es zur Attributs-Extraktion  (Stücklistenerstellung) "vorgefertigt" zur Verfügung steht.

Wir sind mit unseren Kenntnissen leider nicht so gut in der Lisp-Sprache, dass wir dies alles einfach ignorieren können.

Als dann der PartRef dazu kam, konnte unser Makro sehr einfach modifiziert werden und die AM-BOM Geschichte aufgenommen werden.

Weiterführende Literatur habe ich im Hilfe-Ordner angeführt. Sie finden in dieser Literatur bereits die Aufbereitung der Daten, die Sie nur noch in Ihr Excel eintragen müssen. Gehen Sie um sich schlau zu machen wie Sie eine Anwendung von einem Microsoft-Programm aus starten und ein Dokument öffen um darauf zuzugreifen und zu manipulieren doch auf die hervorragende Homepage von Stefan Berlitz, dem Moderator von SolidWorks.

mit freundlichem Gruss

H. Krissler
(www.ib-krissler.de)

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