---

Ich habe den Code ausschnitt wo ich export Optionen definiere:

Code:

---

    If DWGAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
        ' Set the options for what types of data to write out.
        oOptions.Value("Solid") = True      ' Output solids.
        oOptions.Value("Surface") = False  ' Output surfaces.
        oOptions.Value("Sketch") = False    ' Output sketches.
        oOptions.Value("USE TRANSMITTAL") = "No"
        oOptions.Value("Use_Transmittal") = "No"

        ' Set the DWG version.
        ' 23 = ACAD 2000 - AC1015
        ' 25 = ACAD 2004 - AC1018
        ' 27 = ACAD 2007
        ' 29 = ACAD 2010 - AC1024
        oOptions.Value("DwgVersion") = 25
    End If

---

Wie sage ich da das ich nur das aktuelle Blatt exportieren will und nicht alle...

Habe schon versucht hiermit http://adndevblog.typepad.com/manufacturing/2014/02/get-option-names-and-values-supported-by-inventor-translator-addins-via-api.html versucht, natürlich auf das DWG Addin umgeschrieben aber als Output bekomme ich trotzdem nicht die optionen die ich bis jetzt schon erfolgreich verwende:

Code:

---

Remove_Line_Weights
  0
Vector_Resolution
  400
TranscriptAPICall
  0

  1
Include_Empty_Properties
  0
Publish_Screenshot
  0
Screenshot_DPI
  96
Facet_Quality
  69378
Force_Facet_Recompute
  0
Facet_Recompute_Tolerance
  0,001
Override_Sheet_Color
  0
Sheet_Color
  14085613
Sheet_Range
  14081
Custom_Begin_Sheet
  1
Custom_End_Sheet
-1
All_Color_AS_Black
  0
Remove_Line_Weights
  0
Vector_Resolution
  400
TranscriptAPICall
  0
Sheets
Sheet1
  Name
  Blatt:1
  3DModel
  False

---

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

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

---

Hallo

probier mal

Code:

---

  oOptions.Value("Custom_Begin_Sheet") = 1
  oOptions.Value("Custom_End_Sheet") = 1

---

Gruß

Berno

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

---

Ja das wäre auch meine Idee gewesen dann später, aber ich will ja nicht immer nur das erste drucken sondern immer das was ich aktuell anschaue/offen habe.
Da bin ich dann aber angestanden wie ich das herausbekomme welche Nummer das aktuelle hat.

------------------
Grüße aus Wien
Philipp
Email: Base64 Encoded:
cGhpcHNfOTJAeWFob28uZGU=

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

---

Code:

---

ThisApplication.ActiveEditDocument.ActiveSheet.Name

---

Gruß
Berno

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