Arbeitspunkt - Objekt exportieren

[Anonymous]

Guten Tag,

bei meinem Autodesk Inventor Professional 2016 fehlen CAD-Dateiformate im Exportieren. Es fehlen insbesondere stl und die ProE Formate. Bei unseren anderen Usern tritt dieser Fehler nicht auf. Eine Neuinstallation hat nicht geholfen.

Vielen Dank im Voraus

Holger Mühlig

holger.muehlig@uni-jena.de

Tel: 03641 947381

[frederic.vandenplas]

Hi,

Are the translaters available? Maybe you can copy the dll's from another workstation.

Do you use the export button?

[Anonymous]

Hallo,
thanks for your help. The export button is active and all .dll are in
the correct folder: Programme/Autodewsk/Inventor 2016/bin. The path is
also ok.

greetings

Holger Mühlig

--
Dipl.-Ing.(FH) Holger Mühlig

Friedrich-Schiller-Universität Jena
Institut für Festkörperphysik
Helmholtzweg 5
07743 Jena

Tel: +49 3641 9 47381
Fax: +49 3641 9 47372
Email: holger.muehlig@uni-jena.de
Web: www.ifk.uni-jena.de

[Anonymous]

Hallo,

do you have a remove tool for cleaning all entry about Autocad Inventor in the registry and so on? I cant find this problem...

The export button is active and all .dll are in the correct folder: Programme/Autodewsk/Inventor 2016/bin. The path is also ok. But it doesn't work!

greetings

Holger Mühlig

[frederic.vandenplas]

Hi,

And if you try to run this vba module, what happens? (need to have a part open and file will be save at C:\temp\Plate.stl

Public Sub ExportToSTL()
On Error GoTo errhandler
  ' Get the STL translator Add-In.
  Dim oSTLTranslator As TranslatorAddIn
  Set oSTLTranslator = ThisApplication.ApplicationAddIns _
        .ItemById("{533E9A98-FC3B-11D4-8E7E-0010B541CD80}")
  If oSTLTranslator Is Nothing Then
    MsgBox "Could not access STL translator."
    Exit Sub
  End If
 
  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
 
  Dim oContext As TranslationContext
  Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
 
  Dim oOptions As NameValueMap
  Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
  
  If oSTLTranslator.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
 
    ' Set accuracy.
    '   2 = High,  1 = Medium,  0 = Low
    oOptions.value("Resolution") = 1
   
    ' Set output file type:
    '   0 - binary,  1 - ASCII
    oOptions.value("OutputFileType") = 1
   
    oContext.Type = kFileBrowseIOMechanism
   
    Dim oData As DataMedium
    Set oData = ThisApplication.TransientObjects.CreateDataMedium
    oData.FileName = "C:\temp\Plate.stl"
 
    Call oSTLTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
  End If
 
  Beep
  MsgBox "Completed"
  Exit Sub
errhandler:
  Call MsgBox(Err.Description & vbCr & Err.Number)
End Sub