---

Hallo zusammen,

wie kann ich unter AutoCAD 2004 via VBA6 eine dwf erstellen, aber nur den Modellbereich.

------------------

cu
Heiko

Schau mal rein www.mertens-bb.de

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

---

Hi Heiko,

versuchs mal so:

Code:

---

Sub plotDWF()
    Dim strLayouts(0) As String
    Dim PlotObjs As AcadPlotConfigurations
    Set PlotObjs = ThisDrawing.PlotConfigurations
    Dim PlotObj As AcadPlotConfiguration
    Set PlotObj = PlotObjs.Add("DWF", False)
    strLayouts(0) = "Model"
    With PlotObj
        .ConfigName = "DWF6 ePlot.pc3"
        .CanonicalMediaName = "ISO_A0_(841.00_x_1189.00_MM)"
        .PlotRotation = 0
        .PlotType = acExtents
        .CenterPlot = True
        .PaperUnits = acMillimeters
        .PlotHidden = False
        .StandardScale = acScaleToFit
        .StyleSheet = "acad.ctb"
        .Name = "DWF"
    End With
    ThisDrawing.Plot.SetLayoutsToPlot strLayouts
    ThisDrawing.Plot.PlotToFile "d:\temp\"
End Sub

---

HTH, Nancy

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

---

Hallo,

ich habe das mittlerweile so gelöst:

Sub Ch9_PrintModelSpace()
    ' Verify that the active space is model space
    If ThisDrawing.ActiveSpace = acPaperSpace Then
        ThisDrawing.MSpace = True
        ThisDrawing.ActiveSpace = acModelSpace
    End If
    ' Set the extents and scale of the plot area
    ThisDrawing.ModelSpace.Layout.PlotType = acExtents
    ThisDrawing.ModelSpace.Layout. _
                          StandardScale = acScaleToFit
    ' Set the number of copies to one
    ThisDrawing.Plot.NumberOfCopies = 1
   
    ' Initiate the plot
    ThisDrawing.Plot.PlotToDevice ("C:\CAD_Daten\2D_Zeichnungen\Gemeinsame\ACAD2005_Support\Plottereinstellungen\Plotters\DWF6 ePlot.pc3")
End Sub

Aber wie kann ich jetzt den Namen der dwf-Datei festlegen? Die dwf wird immer wie folgt angelegt:
z.B. für eine Zeichnung blabla.dwg sieht die dwf so aus
blabla-Modell.dwf

Dieses -Modell soll aber nicht mit bei dem Dateinamen sein...

------------------

cu
Heiko

Schau mal rein www.mertens-bb.de

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