topic Re: Batch Printing pdfs from paperspace - printing autocad drawings in .NET Forum

Batch Printing pdfs from paperspace - printing autocad drawings

GeeHaa — Wed, 09 Mar 2016 22:41:56 GMT

Hi,

I am trying to publish a set of drawings to a multisheet PDF file. 
The pdf is created with all the drawings in it but the Pagesetup I specified isn't being used. 
It just seems to default to whatever is in the drawing. 
I tried to publish manually and the pagesetup works.
Can anyone tell me what I am missing? I modified code I found in the developer area.

Thanks



 Dim layoutStrings() As String = Nothing
        Dim LayoutList As List(Of DrawLayoutClass) = New List(Of DrawLayoutClass)
        Dim CurLayElement As DrawLayoutClass = New DrawLayoutClass
        For x As Integer = 0 To UBound(listOfFiles)
            Using acCurDB2 As New Database(False, True)
                CurLayElement.DrawingNameWPath = listOfFiles(x)
                acCurDB2.ReadDwgFile(listOfFiles(x), FileOpenMode.OpenForReadAndAllShare, True, "")
                Dim layerStr As List(Of String) = Nothing

                Using acTrans As Transaction = acCurDB2.TransactionManager.StartTransaction
                    Dim layoutdict As DBDictionary = acTrans.GetObject(acCurDB2.LayoutDictionaryId, OpenMode.ForRead)
                    ReDim layoutStrings(layoutdict.Count - 2)
                    For Each Ent As DBDictionaryEntry In layoutdict
                        Dim desc_Txt As String = ""
                        Dim lay As Layout = acTrans.GetObject(Ent.Value, OpenMode.ForRead)
                        Dim layBTRId As ObjectId = lay.BlockTableRecordId
                        Dim btr As BlockTableRecord = TryCast(layBTRId.GetObject(OpenMode.ForRead), BlockTableRecord)
                        If LBO_Layout.Text = "All Layouts" Then
                            If (Not lay.LayoutName = "Model") Then
                                CurLayElement.Layouts.Add(lay.LayoutName)
                                CurLayElement.Title.Add(lay.LayoutName)
                            End If

                        Else
                            If StrComp(lay.LayoutName, LBO_Layout.Text, CompareMethod.Text) = 0 Then
                                CurLayElement.Layouts.Add(lay.LayoutName)
                            End If

                        End If
                    Next Ent
                    CurLayElement.Pagsetup = "BatchPageSetup"
                    CurLayElement.PageSetupDrawing = sourceStr + "\" + "BatchPlotConfig" + ".dwg"
                    LayoutList.Add(CurLayElement)
                    CurLayElement = New DrawLayoutClass
                End Using
                'acCurDB2.CloseInput(True)
            End Using
        Next x


        Using dsdDwgFiles As New DsdEntryCollection

            ' Add first drawing file
            Using dsdDwgFile1 As New DsdEntry
                For x As Integer = 0 To LayoutList.Count - 1
                    ' Set the file name and layout
                    For z = 0 To LayoutList(x).Layouts.Count - 1
                        dsdDwgFile1.DwgName = LayoutList(x).DrawingNameWPath
                        dsdDwgFile1.Layout = LayoutList(x).Layouts(z)
                        dsdDwgFile1.Title = LayoutList(x).Title(z)

                        ' Set the page setup override
                        dsdDwgFile1.Nps = LayoutList(x).Pagsetup
                        dsdDwgFile1.NpsSourceDwg = LayoutList(x).PageSetupDrawing

                        dsdDwgFiles.Add(dsdDwgFile1)
                    Next z

                Next x

            End Using

           

            ' Set the properties for the DSD file and then write it out
            Using dsdFileData As New DsdData

                ' Set the target information for publishing
                Dim destfile As String = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX") + _
                    getPDFFilename(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX")) + ".pdf"
                dsdFileData.DestinationName = destfile
                dsdFileData.ProjectPath = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX") + "\"
                dsdFileData.SheetType = SheetType.MultiPdf
                If File.Exists(sourceStr + "\batchdrawings2.dsd") Then
                    File.Delete(sourceStr + "\batchdrawings2.dsd")
                End If

                ' Set the drawings that should be added to the publication
                dsdFileData.SetDsdEntryCollection(dsdDwgFiles)

                ' Set the general publishing properties
                dsdFileData.LogFilePath = Environment.GetFolderPath( _
                    Environment.SpecialFolder.MyDocuments) & "\myBatch.txt"

                ' Create the DSD file
                dsdFileData.WriteDsd(sourceStr + "\batchdrawings2.dsd")

                Try
                    ' Publish the specified drawing files in the DSD file, and
                    ' honor the behavior of the BACKGROUNDPLOT system variable
                    Using dsdDataFile As New DsdData
                        dsdDataFile.ReadDsd(sourceStr + "\batchdrawings2.dsd")

                        ' Get the DWG to PDF.pc3 and use it as a 
                        ' device override for all the layouts
                        Dim acPlCfg As PlotConfig = _
                            PlotConfigManager.SetCurrentConfig("DWG to PDF.PC3")

                        Autodesk.AutoCAD.ApplicationServices.Application.Publisher.PublishExecute(dsdDataFile, acPlCfg)
                    End Using

                Catch es As Autodesk.AutoCAD.Runtime.Exception
                    MsgBox(es.Message)
                End Try
            End Using
        End Using

Re: Batch Printing pdfs from paperspace - printing autocad drawings

Virupaksha_aithal — Thu, 10 Mar 2016 05:40:32 GMT

Hi,

I feel DSD file created is missing the setup name (even when you set the setup name through NPS). Try setting the setup name in DSD file directly. Please refer blog http://adndevblog.typepad.com/autocad/2013/10/publishing-model-views-to-a-multi-sheet-dwfpdf.html . The blog sets the “Setup” value directly in the DSD file

Re: Batch Printing pdfs from paperspace - printing autocad drawings

GeeHaa — Fri, 11 Mar 2016 13:16:27 GMT

Thanks for the info. It worked the only thing is the DestinationName doesn't seem to change. Do I need to replace this too?

Dim layoutStrings() As String = Nothing
        Dim LayoutList As List(Of DrawLayoutClass) = New List(Of DrawLayoutClass)
        Dim CurLayElement As DrawLayoutClass = New DrawLayoutClass
        For x As Integer = 0 To UBound(listOfFiles)
            Using acCurDB2 As New Database(False, True)
                CurLayElement.DrawingNameWPath = listOfFiles(x)
                acCurDB2.ReadDwgFile(listOfFiles(x), FileOpenMode.OpenForReadAndAllShare, True, "")
                Dim layerStr As List(Of String) = Nothing

                Using acTrans As Transaction = acCurDB2.TransactionManager.StartTransaction
                    Dim layoutdict As DBDictionary = acTrans.GetObject(acCurDB2.LayoutDictionaryId, OpenMode.ForRead)
                    ReDim layoutStrings(layoutdict.Count - 2)
                    For Each Ent As DBDictionaryEntry In layoutdict
                        Dim desc_Txt As String = ""
                        Dim lay As Layout = acTrans.GetObject(Ent.Value, OpenMode.ForRead)
                        Dim layBTRId As ObjectId = lay.BlockTableRecordId
                        Dim btr As BlockTableRecord = TryCast(layBTRId.GetObject(OpenMode.ForRead), BlockTableRecord)
                        If LBO_Layout.Text = "All Layouts" Then
                            If (Not lay.LayoutName = "Model") Then
                                CurLayElement.Layouts.Add(lay.LayoutName)
                                CurLayElement.Title.Add(lay.LayoutName)
                            End If

                        Else
                            If StrComp(lay.LayoutName, LBO_Layout.Text, CompareMethod.Text) = 0 Then
                                CurLayElement.Layouts.Add(lay.LayoutName)
                            End If

                        End If
                    Next Ent
                    CurLayElement.Pagsetup = "BatchPageSetup"
                    CurLayElement.PageSetupDrawing = sourceStr + "\" + "BatchPlotConfig" + ".dwg"
                    LayoutList.Add(CurLayElement)
                    CurLayElement = New DrawLayoutClass
                End Using
                'acCurDB2.CloseInput(True)
            End Using
        Next x


        Using dsdDwgFiles As New DsdEntryCollection

            ' Add first drawing file
            Using dsdDwgFile1 As New DsdEntry
                For x As Integer = 0 To LayoutList.Count - 1
                    ' Set the file name and layout
                    For z = 0 To LayoutList(x).Layouts.Count - 1
                        dsdDwgFile1.DwgName = LayoutList(x).DrawingNameWPath
                        dsdDwgFile1.Layout = LayoutList(x).Layouts(z)
                        dsdDwgFile1.Title = LayoutList(x).Title(z)

                        ' Set the page setup override
                        dsdDwgFile1.Nps = LayoutList(x).Pagsetup
                        dsdDwgFile1.NpsSourceDwg = LayoutList(x).PageSetupDrawing

                        dsdDwgFiles.Add(dsdDwgFile1)
                    Next z

                Next x

            End Using



            ' Set the properties for the DSD file and then write it out
            Using dsdFileData As New DsdData

                ' Set the target information for publishing
                Dim destfile As String = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX") + _
                    getPDFFilename(Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX")) + ".pdf"
                dsdFileData.DestinationName = destfile
                dsdFileData.ProjectPath = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("DWGPREFIX") + "\"
                dsdFileData.SheetType = SheetType.MultiPdf
                If File.Exists(sourceStr + "\batchdrawings2.dsd") Then
                    File.Delete(sourceStr + "\batchdrawings2.dsd")
                End If

                ' Set the drawings that should be added to the publication
                dsdFileData.SetDsdEntryCollection(dsdDwgFiles)

                ' Set the general publishing properties
                dsdFileData.LogFilePath = Environment.GetFolderPath( _
                    Environment.SpecialFolder.MyDocuments) & "\myBatch.txt"

                ' Create the DSD file
                dsdFileData.WriteDsd(sourceStr + "\batchdrawings2.dsd")

                'If StrComp(Ptype, "layout", CompareMethod.Text) <> 0 Then
                'add the following line in the dsd file 
                'Setup=BatchPageSetup|C:\Users\xxx\Documents\PDFS\BatchPlotConfig.dwg
                Dim filelines As List(Of String) = New List(Of String)
                Dim sr As StreamReader = New StreamReader(sourceStr + "\batchdrawings2.dsd")
                If sr.Peek >= 0 Then
                    Dim tempstr As String = sr.ReadLine
                    Do While sr.Peek() >= 0
                        filelines.Add(tempstr)
                        tempstr = sr.ReadLine
                    Loop
                End If
                sr.Close()
                Dim sw As StreamWriter = New StreamWriter(sourceStr + "\batchdrawings2.dsd")
                For x = 0 To filelines.Count - 1
                    If StrComp(Mid(filelines(x), 1, 6), "Setup=", CompareMethod.Binary) = 0 Then
                        sw.WriteLine("Setup=" + "BatchPageSetup" + "|" + sourceStr + "\" + "BatchPlotConfig" + ".dwg")
                    Else
                        sw.WriteLine(filelines(x))
                    End If
                Next
                sw.Close()
                'End If

                Try
                    ' Publish the specified drawing files in the DSD file, and
                    ' honor the behavior of the BACKGROUNDPLOT system variable
                    Using dsdDataFile As New DsdData
                        dsdDataFile.ReadDsd(sourceStr + "\batchdrawings2.dsd")

                        ' Get the DWG to PDF.pc3 and use it as a 
                        ' device override for all the layouts
                        Dim acPlCfg As PlotConfig = _
                            PlotConfigManager.SetCurrentConfig("DWG to PDF.PC3")

                        Autodesk.AutoCAD.ApplicationServices.Application.Publisher.PublishExecute(dsdDataFile, acPlCfg)
                    End Using

                Catch es As Autodesk.AutoCAD.Runtime.Exception
                    MsgBox(es.Message)
                End Try
            End Using
        End Using

Re: Batch Printing pdfs from paperspace - printing autocad drawings

Anonymous — Thu, 22 Jun 2017 11:44:20 GMT

In your example what does this line of code do?

entry.Nps = String.Format("{0}{1}", viewName, "PS");

what is "{0}{1}" mean?

what is "PS" mean?

Thanks,

Re: Batch Printing pdfs from paperspace - printing autocad drawings

fieldguy — Thu, 22 Jun 2017 13:46:26 GMT

https://msdn.microsoft.com/en-us/library/system.string.format(v=vs.110).aspx

Re: Batch Printing pdfs from paperspace - printing autocad drawings

Anonymous — Thu, 22 Jun 2017 15:04:47 GMT

Thanks for the reply, I still don't understand what Nps is looking for and what Nps is doing with it's value

looking at the Dsd file I see a Setup= line that is blank. I am assuming that Nps fills in a portion of this value

Setup= {Nps} | {NpsSourceDwg}

am I way off?

Thanks Again