Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  IDWals DWG mit namen der IDW speichern

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
Autor Thema:  IDWals DWG mit namen der IDW speichern (610 mal gelesen)
dero2k
Mitglied
Technicher Zeichner ma bau


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

Beiträge: 53
Registriert: 24.04.2009

Inventor 2008 (hauptsächlich)
win xp

erstellt am: 07. Aug. 2013 11:55    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

Hi

habe mir ein kleines makro gebastelt was eine gerade geöffnete idw als dwg abspeichert.

funktioniert soweit auch supper auser das alle dwg 2.dwg heißen

wie bekomme ich es hin das sie den namen der idw haben ?

hier mein code

Code:

Public Sub DWGOutUsingTranslatorAddIn()


  ' Set a reference to the DWG translator add-in.
    Dim oDWGAddIn As TranslatorAddIn
    Dim i As Long
    For i = 1 To ThisApplication.ApplicationAddIns.Count
    If ThisApplication.ApplicationAddIns.Item(i). _
    ClassIdString = _
    "{C24E3AC2-122E-11D5-8E91-0010B541CD80}" Then
        Set oDWGAddIn = ThisApplication. _
                  ApplicationAddIns.Item(i)
        Exit For
    End If
    Next
   
    If oDWGAddIn Is Nothing Then
        MsgBox "The DWG add-in could not be found."
        Exit Sub
    End If
   
  ' Check to make sure the add-in is activated.
    If Not oDWGAddIn.Activated Then
        oDWGAddIn.Activate
    End If
   
  ' Create a name-value map to supply information
    ' to the translator.
    Dim oNameValueMap As NameValueMap
    Set oNameValueMap = ThisApplication. _
      TransientObjects.CreateNameValueMap
   
    Dim strIniFile As String
    strIniFile = "C:\temp\DWGOut.ini"
   
    ' Create the name-value that specifies
    ' the ini file to use.
    Call oNameValueMap.Add _
        ("Export_Acad_IniFile", strIniFile)
   
  ' Create a translation context and define
    ' that we want to output to a file.
    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects. _
                              CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism
   
   
   
   
  ' Define the type of output by
    ' specifying the filename.
    Dim oOutputFile As DataMedium
    Set oOutputFile = ThisApplication. _
      TransientObjects.CreateDataMedium
    oOutputFile.FileName = "c:/temp/2.dwg"
   
   
 
   
  ' Call the SaveCopyAs method of the add-in.
    Call oDWGAddIn.SaveCopyAs _
              (ThisApplication.ActiveDocument, _
                                      oContext, _
                                  oNameValueMap, _
                                    oOutputFile)
End Sub


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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




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

Beiträge: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 07. Aug. 2013 18: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 dero2k 10 Unities + Antwort hilfreich

Hallo

In der Zeile

Code:
oOutputFile.FileName = "c:/temp/2.dwg"

vergibst du einen festen Dateinamen.

Hier wäre ein Beitrag der sich mit dem Extrahieren des Dateinamens beschäftigt.

------------------
MfG
Ralf

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)2023 CAD.de | Impressum | Datenschutz