Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Standardformat beim Exportieren umstellen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
Varianten effizient konstruieren mit Autodesk Inventor, ein Webinar am 29.01.2025
Autor Thema:  Standardformat beim Exportieren umstellen (880 / mal gelesen)
TLipo
Mitglied



Sehen Sie sich das Profil von TLipo an!   Senden Sie eine Private Message an TLipo  Schreiben Sie einen Gästebucheintrag für TLipo

Beiträge: 58
Registriert: 11.05.2022

Inventor 2024

erstellt am: 17. Mai. 2022 14:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ich exportiere regelmäßig Dateien und dann immer als Step. Die Voreinstellung bei "Exportieren -  CAD-Format" ist aber dwg (glaub ich - wenn ich die Teile nacheinander öffne, dann merkt er sich das zuletzt genutzte, aber meistens öffne ich sie geichzeitig und muss dann jedes mal umstellen). Kann man das allgemein umstellen, dass die Voreinstellung step ist?
Danke!
Tabita

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

3d-freelancer
Mitglied



Sehen Sie sich das Profil von 3d-freelancer an!   Senden Sie eine Private Message an 3d-freelancer  Schreiben Sie einen Gästebucheintrag für 3d-freelancer

Beiträge: 259
Registriert: 10.02.2011

Intel Core i7-950, 3,06GHz Quad Core, 24GB RAM,
WIN10 Prof. 64bit
Nvidia Quadro M4000
Space Controller
AIP2021

erstellt am: 17. Mai. 2022 15:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TLipo 10 Unities + Antwort hilfreich

Hallo,
da gibt es hier im Forum bestimmt jemanden der ein VBA Schnipsel hat, welches man dann unter den Benutzerbefehlen ablegen kann.
Gruß
Burkhard

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

Leo Laimer
Moderator
CAD-Dienstleister




Sehen Sie sich das Profil von Leo Laimer an!   Senden Sie eine Private Message an Leo Laimer  Schreiben Sie einen Gästebucheintrag für Leo Laimer

Beiträge: 26123
Registriert: 24.11.2002

IV bis 2019

erstellt am: 17. Mai. 2022 21:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TLipo 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von TLipo:
Ich exportiere regelmäßig Dateien und dann immer als Step. Die Voreinstellung bei "Exportieren -  CAD-Format" ist aber dwg (glaub ich - wenn ich die Teile nacheinander öffne, dann merkt er sich das zuletzt genutzte, aber meistens öffne ich sie geichzeitig und muss dann jedes mal umstellen). Kann man das allgemein umstellen, dass die Voreinstellung step ist?
Danke!
Tabita

Komisch, habs jetzt schon länger nicht mehr gemacht, aber aus der Erinnerung gesagt geht das doch einfach "Datei/Kopie speichern unter/1x Format auswählen/enter und fertig.
Das gewählte Dateiformat bleibt erhalten, der Ablageort leider nicht.
Wenn man mehrere Dateien gleichzeitig offen hat und eine nach der anderen exportieren will, braucht man nach dem ersten Exportvorgang nur per Alt+Tab auf die nächste Datei springen und Enter (oder Leertaste) drücke für Befehlswiederholung.

------------------
mfg - Leo

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

Lothar Boekels
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3835
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 18. Mai. 2022 08:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TLipo 10 Unities + Antwort hilfreich

Code:

Public Sub ExportToSTEP()
    ' Get the STEP translator Add-In.
    Dim oSTEPTranslator As TranslatorAddIn
    Set oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")

    If oSTEPTranslator Is Nothing Then
        MsgBox "Could not access STEP translator."
        Exit Sub
    End If

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap
   
    Dim oDoc As Inventor.Document
    Set oDoc = ThisApplication.ActiveDocument
   
    If oSTEPTranslator.HasSaveCopyAsOptions(oDoc, oContext, oOptions) Then
        ' Set application protocol.
        ' 2 = AP 203 - Configuration Controlled Design
        ' 3 = AP 214 - Automotive Design
        oOptions.Value("ApplicationProtocolType") = 3

        ' Other options...
        'oOptions.Value("Author") = Application.UserName
        'oOptions.Value("Authorization") = ""
        'oOptions.Value("Description") = ""
        'oOptions.Value("Organization") = ""

        oContext.Type = kFileBrowseIOMechanism

        Dim oData As DataMedium
        Set oData = ThisApplication.TransientObjects.CreateDataMedium
       
        Dim sExportFullFileName As String
        Dim sRev As String
       
        Select Case oDoc.DocumentType
        Case Is = kPartDocumentObject
            If oDoc.ComponentDefinition.IsiPartFactory Then
                'MsgBox "iPart-Factory - gehe durch die Instanzen ..."
               
                Dim oFactoryDoc As PartDocument
                Set oFactoryDoc = oDoc
               
                ' Set a reference to the component definition.
                Dim oCompDef As PartComponentDefinition
                Set oCompDef = oFactoryDoc.ComponentDefinition
               
                ' Set a reference to the factory.
                Dim oFactory  As iPartFactory
                Set oFactory = oFactoryDoc.ComponentDefinition.iPartFactory
               
                ' Get the number of rows in the factory.
                Dim iNumRows As Integer
                iNumRows = oFactory.TableRows.Count
   
                'MsgBox "Anzahl Varianten: " & CStr(iNumRows)
               
                ' Iterate through the rows
                Dim oRow As iPartTableRow
                Dim i As Long
                For Each oRow In oFactory.TableRows
                    i = i + 1
                    If InStr(1, oRow.PartName, "drw", vbTextCompare) = 0 Then
                        ' Make this the active row so the model will recompute.
                        oFactory.DefaultRow = oRow
                        sRev = Property_lesen(oDoc, "Revision Number")
                        If sRev = "" Then sRev = "0"
                       
                        sMsg = "Variante : " & oRow.Index & vbCrLf & _
                              "Dateiname: " & oRow.PartName & vbCrLf & _
                              "Revision : [" & sRev & "]" & vbCrLf & _
                            "."
                        MsgBox sMsg
                        Debug.Print sMsg
                        oData.FileName = CalcMemberFileName(oDoc, oRow.PartName) & ".stp"
                        Call oSTEPTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
                       
                    End If
                Next
            Else 'no Factory
                oData.FileName = CalcFileName(oDoc) & ".stp"
                Call oSTEPTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
            End If
        Case Is = kAssemblyDocumentObject
               
            If oDoc.ComponentDefinition.IsiAssemblyFactory Then
                MsgBox "Factory - nur aktive Variante wird exportiert ..."
               
                oData.FileName = CalcFileName(oDoc) & ".stp"
                Call oSTEPTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
           
            Else 'no Factory
                oData.FileName = CalcFileName(oDoc) & ".stp"
                Call oSTEPTranslator.SaveCopyAs(oDoc, oContext, oOptions, oData)
            End If
       
        End Select
    End If
End Sub




HTH

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

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

KraBBy
Mitglied
Maschinenbau-Ingenieur


Sehen Sie sich das Profil von KraBBy an!   Senden Sie eine Private Message an KraBBy  Schreiben Sie einen Gästebucheintrag für KraBBy

Beiträge: 721
Registriert: 19.09.2007

Inventor Professional 2020
WinX

erstellt am: 18. Mai. 2022 17:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TLipo 10 Unities + Antwort hilfreich

@Lothar
da fehlen noch diese Subs/Functions:
  • Property_lesen
  • CalcFileName
  • CalcMemberFileName

Danke fürs Teilen!

------------------
Gruß KraBBy

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

TLipo
Mitglied



Sehen Sie sich das Profil von TLipo an!   Senden Sie eine Private Message an TLipo  Schreiben Sie einen Gästebucheintrag für TLipo

Beiträge: 58
Registriert: 11.05.2022

Inventor 2024

erstellt am: 19. Mai. 2022 14:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke für die zwei Ideen! Beim VBA schließ ich mich KraBBy an. Und dann guck ich mal, dass ich ein bisschen mehr bei VBA durchsteige...

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

Lothar Boekels
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3835
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 19. Mai. 2022 15:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TLipo 10 Unities + Antwort hilfreich

Da rächt sich, dass ich nun doch eher ein Selfmade-Coder bin.
Ich such die mal zusammen.

------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

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

Lothar Boekels
Ehrenmitglied V.I.P. h.c.
Dipl.-Ing. Maschinenbau und CAD-Trainer



Sehen Sie sich das Profil von Lothar Boekels an!   Senden Sie eine Private Message an Lothar Boekels  Schreiben Sie einen Gästebucheintrag für Lothar Boekels

Beiträge: 3835
Registriert: 15.02.2001

DELL Precision 7520 Win10Pro-64
Inventor mit Vault Professional 2024
---------------------
Während man es aufschiebt,
verrinnt das Leben.
Lucius Annaeus Seneca
(ca. 4 v. Chr - 65 n. Chr.)

erstellt am: 19. Mai. 2022 15:02    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für TLipo 10 Unities + Antwort hilfreich

Code:


Public Function Property_lesen(oDoc As Document, sPropName As String) As Variant
' Liest eine Property.
' Ist die Property nicht vorhanden, so wird "" zurückgegeben.

    Property_lesen = ""

If oDoc Is Nothing Then Return


    ' Obtain the PropertySets collection object
    Dim oPropSets As PropertySets
    Set oPropSets = oDoc.PropertySets

    Dim oProp As Property
   
    ' Iterate through all the PropertySets one by one using for loop
    Dim oPropSet As PropertySet
    For Each oPropSet In oPropSets
   
        For Each oProp In oPropSet
            'Debug.Print oProp.Name
            If oProp.name = sPropName Then
                Property_lesen = oProp.Value
                Exit For
            End If
        Next
       
    Next

End Function

Private Function CalcFileName(oDoc As Document) As String
        sRev = Property_lesen(oDoc, "Revision Number")
        If sRev = "" Then sRev = "0"
        sTitle = Property_lesen(oDoc, "Title")
        sPath = FilePath(oDoc.FullFileName)
        sFileName = FileName(oDoc.FullFileName)
      ' Debug.Print sPath
        'Debug.Print sFileName
        sExportFullFileName = sExportFullFileName & sPath
        sExportFullFileName = sExportFullFileName & sFileName
        sExportFullFileName = sExportFullFileName & "[" & sRev & "]"
        sExportFullFileName = sExportFullFileName & sTitle
        'sExportFullFileName = sExportFullFileName & ".stp"
        Debug.Print sExportFullFileName
        'Debug.Print FileName
        CalcFileName = sExportFullFileName
End Function
Private Function CalcMemberFileName(oDoc As Document, sMemberName As String) As String
        sRev = Property_lesen(oDoc, "Revision Number")
        If sRev = "" Then sRev = "0"
        sTitle = Property_lesen(oDoc, "Title")
        sPath = FilePath(oDoc.FullFileName)
        sFileName = FileName(sMemberName)
      ' Debug.Print sPath
        'Debug.Print sFileName
        sExportFullFileName = sExportFullFileName & sPath
        sExportFullFileName = sExportFullFileName & sFileName
        sExportFullFileName = sExportFullFileName & "[" & sRev & "]"
        sExportFullFileName = sExportFullFileName & sTitle
        'sExportFullFileName = sExportFullFileName & ".stp"
        Debug.Print sExportFullFileName
        'Debug.Print FileName
        CalcMemberFileName = sExportFullFileName
End Function



------------------
mit freundlichem Gruß
aus der Burggemeinde Brüggen
Lothar Boekels

[Diese Nachricht wurde von Lothar Boekels am 19. Mai. 2022 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz