---

Hallo,
mein Programm zum Erstellen der dwg aus einer idw via Menü funktioniert bereits, jetzt möchte ich aber noch das dwg-Format und die Layerzuordnungen durch das Programm bestimmen (auch das mit Modell- und Papierbereich).
Derzeit wird die dwg mit den Optionen abgespeichert, wie diese zuvor durch die manuellen Einstellungen in dem Option-fenster vorgenommen worden sind.

Wie kann ich diese Einstellungen via VB vornehmen?

------------------
Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt!

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

---

Hi Arpi....

Hab zu diesem Thema mal ein bißchen gewühlt....

Der folgende Code ist vollständig (beinhaltet also auch das speichern!):
Bei Bedarf mußt du Dir die benötigten Zeilen hier raus fischen und in deinen fertigen Code einbauen.

Viel Spaß.. Und Gruß aus Kiel .......

Andreas

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Sub DWGTEST()
'Aufruf der Funktion "Export2DWG" - Zeichnungsname ohne .dwg

Call Export2DWG("TestDWG", "C:\")

End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Public Function Export2DWG(ByVal strFN As String, ByVal strFP As String)

Dim oApp As Application
Set oApp = ThisApplication

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim bSaveAsCopyOptions As Boolean
Dim oAppAddIns As ApplicationAddIns
Dim oDataMedium As DataMedium
Dim oDWGTransl As TranslatorAddIn
Dim oTransObjs As TransientObjects
Dim oTranslCntxt As TranslationContext
Dim oNameValMap As NameValueMap
Dim intIndex As Integer

Set oAppAddIns = oApp.ApplicationAddIns

For intIndex = 1 To oAppAddIns.Count
  If oAppAddIns(intIndex).ShortDisplayName = "Autodesk DWG-Translator" Then
    Set oDWGTransl = oAppAddIns.Item(intIndex)
    Exit For
  End If
Next intIndex

'Translation Objekte setzen

Set oTransObjs = oApp.TransientObjects
Set oNameValMap = oTransObjs.CreateNameValueMap
Set oTranslCntxt = oTransObjs.CreateTranslationContext
Set oDataMedium = oTransObjs.CreateDataMedium

oTranslCntxt.Type = kFileBrowseIOMechanism

bSaveAsCopyOptions = oDWGTransl.HasSaveCopyAsOptions(oDataMedium, oTranslCntxt, oNameValMap)

oDataMedium.FileName = strFP & strFN & ".dwg"

'Hier Pfad und Dateiname angeben wo die .ini Datei sich befindet!!!
oNameValMap.Value("Export_Acad_IniFile") = "c:\test.ini"

oDWGTransl.SaveCopyAs oDoc, oTranslCntxt, oNameValMap, oDataMedium

Set oAppAddIns = Nothing
Set oDataMedium = Nothing
Set oDWGTransl = Nothing
Set oTransObjs = Nothing
Set oTranslCntxt = Nothing
Set oNameValMap = Nothing

End Function

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

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

---

Hallo Evil,

ich beschäftige mich Momentan auch mit der Automatisierung des dwg-Exports. Ich habe versucht, Deinen Code zu übernehmen. Aber ich bekomme immer die Fehlermeldung, dass das die Methode "SaveCopyAs" fehlschlägt.

Weißt Du worann es liegen kann?

Vielen Dank im Vorraus

Ulrich

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

---

Hi Ulrich

War nun etwas länger nicht mehr hier im Forum.. (Soll sich aber wieder ändern. ;o))

Ist das Problem noch da??

LG
Andreas

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

---

Hallo Andreas,
klappt ja einwandfrei, bis auf die Zuweisung der ini Tabelle. Dieses macht er bei mir absolut nicht. Etwa bei Dir? (Inv8)

Seher

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

---

Hi,

Bin auch dabei mich damit zu beschäftigen, leider kann ich keine sichere Angabe dazu machen: Aber ich denke daß Inventor die INI ignoriert... ich bin mir nicht sicher, ich hab da mal was gelesen drüber. Weiß allerdings nicht mehr welche Version das betroffen hat, wars 8 oder 6... hhmm
ich recherchier das nochmal, vielleicht werde ich fündig.

mfG
wabi

[Diese Nachricht wurde von wabi am 15. Sep. 2004 editiert.]

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

---

Hi Seher!!

Habs bis jetzt "nur" bis zur Ver. 7.0 getestet!! Da klappts OHNE
Probleme!!

Gut Die Layerfarben werden NICHT übernommen. Das macht Inventor beim "normalen Export" ja auch nicht...

Aber ACAD Version, Layer Namen u.s.w. sind da!!

Übernimmt er bei Dir KEINE Einstellung aus der INI Datei ???

LG

Andreas

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

---

Hallo Andreas,
beim 8er funzt das so nicht, jedenfalls bei mir nicht d.h. ein Wechseln zwischen 2 ini's macht er nicht. Aber selbst wenn's manuell eingestellt ist, behält er dies nicht immer bei.

Gruß
SEHER

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

---

Hi Seher..

OKI.. Schau mir das morgen mal auf der 8er an.
Melde mich dann!

Schönen FA (.. denn .. Ich hab den jetzt.. ;-))

Andreas

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

---

Hi Leute nochmal,

also ich hab das mit der INI unter Inventor 9 getestet, das geht!

Unter 8 werde ichs glaube ich in Kürze noch probieren.
Den Artikel wo ich vermutete gelesen zu haben, daß es unter 8 nicht geht, habe ich leider nicht gefunden, habe zwar nicht intensiv gesucht, aber es ist eigentlich damit bestätigt, dass - wie weiter oben im Topic beschrieben - der 8er drauf pfeift was man einstellt.
So wird es auch sein schätze ich, wenn man über die API auf diese Funktion zugreift.

wabi

[Diese Nachricht wurde von wabi am 17. Sep. 2004 editiert.]

[Diese Nachricht wurde von wabi am 20. Sep. 2004 editiert.]

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

---

Zitat:

---

Original erstellt von Evil_Bart:
[B]Hi Arpi....

Hab zu diesem Thema mal ein bißchen gewühlt....

Der folgende Code ist vollständig (beinhaltet also auch das speichern!):
Bei Bedarf mußt du Dir die benötigten Zeilen hier raus fischen und in deinen fertigen Code einbauen.

Viel Spaß.. Und Gruß aus Kiel .......

Andreas

---

Danke für die Bereitstellung dieses Code-Listings. Es hat mir weitergeholfen Zeit gespart. Dafür gibts von mir eine 10.

mfG
wabi

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

---

Hi alle zusammen noch einmal..

Habs jetzt (endlich *grins*) auch unter der 8er getestet !!!!

Klappt bei mir (auch) OHNE Probs...

@SEHER:  Was meinst du mit Wechsel zwischen zwei INIs ????

@Wabi: Vielen Dank !! *freu* Denke das ein Forum genau DAFÜR da ist !!!

LG

Andreas

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

---

Hallo Andreas,
um zu testen ob die Konfigurationsdatei *.ini auch wirklich durchgeführt wird, habe ich zwei total verschiedene *.inis erstellt. Daraufhin auch zwei Programme, nur mit dem Untersschied der ini erstellt. Ob der Programmaufruf die ini anspricht kann ich dies ja nur durch ein Wechsel der ini testen, da sonst einfach nur die Voreinstellung (der zuletzt durchgeführte Export) aktiviert wird. Dies funktioniert meistens, leider aber auch nicht immer.

Gruß
SEHER

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

---

dwg_export.txt

Zitat:

---

Original erstellt von SEHER:
Hallo Andreas,
um zu testen ob die Konfigurationsdatei *.ini auch wirklich durchgeführt wird, habe ich zwei total verschiedene *.inis erstellt. Daraufhin auch zwei Programme, nur mit dem Untersschied der ini erstellt. Ob der Programmaufruf die ini anspricht kann ich dies ja nur durch ein Wechsel der ini testen, da sonst einfach nur die Voreinstellung (der zuletzt durchgeführte Export) aktiviert wird. Dies funktioniert meistens, leider aber auch nicht immer.

Gruß
SEHER

---

Leider ist das bei mir auch so (IV9).
Wenn einmal eine ini eingestellt ist, wird diese auch behalten.
Hat da schon jemand etwas in Erfahrung gebracht?

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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