---

Hallo zusammen,

Wie bekomme ich ein normales Part als toten Basiskörper abgespeichert?

Habe zwar folgende Lösung gefunden, aber vielleicht geht es ja einfacher!

Meine Notlösung (über VBA):

1. Part öffnen
2. als SAT speichern
3. die SAT öffnen
4. die SAT als Part speichern

Funktioniert zwar bestens, dauert aber entsprechend, und die Properties gehen "erstmal" verloren.

Hat jemand eine bessere Lösung griffbereit?

MrBurns

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

---

Hi,

du kannst es mal mit einer abgeleiteten Komponente versuchen und dann denn Link zum Basisteil löschen. Dann hast du einen dummen Körper, aber die Properties sind glaube ich noch da.

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

---

Hallo Waldi,

im Prinzip funktioniert das mit der abgeleiteten Komponente, hatte ich auch schon getestet.

Bleibt aber trotzdem der Umstand, das Part zu erstellen, abzuspeichern, neues Part erstellen, Ursprungspart als "abgeleitet" einfügen und dann wieder zu speichern.

Das sind mir zu viele temporäre "speichern" und "öffnen" Vorgänge!
Ich suche hier die Möglichkeit das Part direkt platt-zu-machen und dann direkt neu als Basisteil zu speichern.
Vielleicht gibt es nen Ursprungs-Befehl oder Methode ähnlich wie in AutoCAD.

Trotzdem vielen Dank für Deine Antwort!

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

---

Kleiner Nachtrag meinerseits:

Die Properties sind bei "abgeleitet" auch futsch!

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

---

hier ein beispiel aus der inventorhilfe

The export file format is determined by the filename extension, e.g. SAT or IGS.

Public Sub ExportToSat()
    ' Set reference to active document.
    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument
 
    ' Check the Document type is an assembly or part
    If (oDoc.DocumentType <> kAssemblyDocumentObject And _
      oDoc.DocumentType <> kPartDocumentObject) Then
        MsgBox "Error ocument type is not assembly/part"
        Set oDoc = Nothing
        Exit Sub
    End If
 
    ' Get document's full file name
    Dim sFname As String
    sFname = oDoc.FullFileName

    ' The file format will depend on the extension
    ' Set file name extension to ".SAT"
    sFname = Left$(sFname, Len(sFname) - 3) & "sat"
   
    ' Push the filename onto the Inventor clipboard
    Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, _
                                                        sFname)
   
    ' Start the Save Copy As command. The file extension decides the file type
    Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)
    Set oDoc = Nothing
End Sub

durch nutzung einer externen zusammenstellungsdatei kann dieser vorgang automatisiert werden. habe schon mal so etwas entwickelt nur nicht jetzt hier zur hand.

------------------
gruß
robby

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

---

Genau diesen Part benutze ich schon um die SAT zu schreiben.
Anschließend lade ich die frisch erzeugte SAT (über VBA) und hab dann das neue "tote" Basisteil. Die Properties vom Ursprungspart übertrage ich anschließend auf dieses neue Teil. Anschließend speichere und schließe ich - das tote Teil ist fertig!
Von der Sache her auch kein Problem.
Nur leider erscheint mir das Ganze sehr umständlich und durch die vielen Datei öffnen und schließen Vorgänge als sehr zeitaufwendig.
Als Ziel möchte ich nämlich im Scriptbetrieb Teile (z.B Schrauben etc.) erzeugen lassen, dass heißt, es könnten durchaus mal hunderte Dateien erzeugt werden... und das dauert!

Meine angestrebte Lösung sieht deshalb so aus:
1. Template-Part öffnen
2. Parameter ändern lassen (auch kein Problem)
3. Part direkt "abtöten" (da weiß ich nicht ob und wie)
4. als neues totes Basisteil speichern

Trotzdem vielen Dank für Eure Anworten

MrBurns

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

---

XEXport.TXT

keine komfortables programm, aber für einige hundert
datei zum konvertieren ausreichend gewesen.
wer zeit hat kann ja mal ein formular drumherumbauen.

voraussetzungen:
- geöffneter inventor
- vorbereite textdatei

------------------
gruß
robby

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