---

Hallo Zusammen,

ich möchte ein Makro erstellen, das das geöffnete Bauteil als Stl abgespeichert wird.
Funktioniert auch, nur nicht in der von mir gewünschten Qualität.
Die Qualität kann man normalerweise unter Optionen bei Speichern Unter Stl definieren. Kann ich das Makro nicht so schreiben, dass diese Einstellungen übernommen werden?

Danke

Beste Grüße

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

---

Willkommen im WBF.
Hier kann dir sicher geholfen werden, allerdings solltest du vor dem Absenden eines Beitrags immer daran denken, dass die anderen mitlesenden Mitglieder nur das von deinem Problem wissen, was du hier zur Verfügung stellst.
Du schreibst was von Makro - VBA, iligoc , C## Addin - am besten du stellt deinen Code hier zur Verfügung, das erhöht die Chance einen brauchbaren Tipp zu bekommen.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

bis jetzt verwende ich folgenden Code:

FileName = ThisDoc.FileName(False) 'without extension
ThisDoc.Document.SaveAs(FileName & ".pdf" , True)

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

---

Dein Code endet auf PDF, das klappt so gar nicht.
Außerdem muss die die SaveAS Optionen passend setzen:
Hier eine Übersicht über die SaveAs STL Optionen

Code:

---

Name Value Map:
        ExportUnits = 4
        Resolution = 1
        AllowMoveMeshNode = False
        SurfaceDeviation = 60
        NormalDeviation = 14
        MaxEdgeLength = 100
        AspectRatio = 40
        ExportFileStructure = 0
        OutputFileType = 0
        ExportColor = True

---

und auch noch eine Alternative mit mehr Einstellmöglichkeiten über das Addin.
http://adndevblog.typepad.com/manufacturing/2013/01/inventor-export-model-to-ascii-or-binary-stl.html

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

1.jpg 2.jpg

Sorry habe oben die falsche Regel kopiert, für das Stl speichern hatte ich natürlich ".Stl" verwendet

Danke für deinen Hinweis, hat mir schon sehr weitergeholfen, habe die Regel jetzt so erstellt:
---------------------------------------------------------------------------------------------------------------------
Dim oSTLTranslator As TranslatorAddIn
oSTLTranslator = ThisApplication.ApplicationAddIns.ItemById("{533E9A98-FC3B-11D4-8E7E-0010B541CD80}")
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
Dim oOptions As NameValueMap
  oOptions = ThisApplication.TransientObjects.CreateNameValueMap
    oOptions.Value("ExportUnits") = 4
    oOptions.Value("Resolution") = 0
oOptions.Value("AllowMoveMeshNode") = False
oOptions.Value("SurfaceDeviation") = 0.0004
oOptions.Value("NormalDeviation") = 22
oOptions.Value("MaxEdgeLength") = 1.5
oOptions.Value("AspectRatio") = 21.5
oOptions.Value("ExportFileStructure") = 0
oOptions.Value("OutputFileType") = 0
oOptions.Value("ExportColor") = False
  oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
Dim oData As DataMedium
    oData = ThisApplication.TransientObjects.CreateDataMedium
FileName = ThisDoc.FileName(False) 'without extension
oData.FileName = "C:\example" & FileName & ".stl"  
oSTLTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext, oOptions, oData)
----------------------------------------------------------------------------------------------------------
Die Regel funktioniert auch soweit, nur wenn ich eine Fläche lösche,
und dann die Regel anwenden will, kommt eine Fehlermeldung (Screenshot im Anhang)

[Diese Nachricht wurde von Sonne13 am 06. Mrz. 2014 editiert.]

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

---

Zitat:

---

Original erstellt von Sonne13:
[B]...Die Regel funktioniert auch soweit, nur wenn ich eine Fläche lösche,
und dann die Regel anwenden will, kommt eine Fehlermeldung ...

---

Dann lösche die Fläche nicht 

STL Dateien müssen umschlossene Volumen sein, deshalb muss nach dem "Fläche Löschen" das Modell zu einem Volumen repariert werden, eine Ausgabe eines Flächenmodells in STL ist nicht möglich (würde auch manuell fehl schlagen, nur mit besserer Fehlermeldung).

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

ja stimmt!!
alles wäre einfacher, wenn man die Flächen nicht löschen müsste.
Muss sie dann wohl oder übel noch mit einer anderen Software öffen und bearbeiten...

AUf alle Fälle Vieln Dank!

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

---

Eine Frage hätte ich doch noch:
Wie kann ich anschließend das Dokument schließen?
Bzw. Warum funktioniert dieser befehl nicht?

Document.Close([SkipSave As Boolean = False])

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

---

Interne oder Externe Regel?

ThisApplication.ActiveDocument.Close(True)

würde funktionieren?

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo,

sry für die späte Rückmeldung, aber ich habe es zeitlcih nicht geschafft, mich mit diesem Thema weiter auseinander zu setzten.

Ich habe eine Externe Regel erstellt.
ThisApplication.ActiveDocument.Close(True)  funktioniert.
Wie würde evt. der Befehl lauten, das Aktive Invontor komplett zu schließen, nicht nur das aktive Dokument?

Der Tag "ExportUnits = 4" wofür stehen die "4"? Werden hie die Eineiten geändert?
4=Zoll; 5= mm ?

Vielen Dank!

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