Need plotting overview

Discussion in 'AutoCAD' started by Jim Shipley, Nov 8, 2004.

  1. Jim Shipley

    Jim Shipley Guest

    I am trying to write a vba routine to plot a drawing and don't know where to
    start! I just want to plot the current drawing, model space extents to a
    particular printer (blahblah.pc3), using a particular plot style file
    (blahblah.ctb)...

    Any help on how to get started?

    Thanks
    Jim
     
    Jim Shipley, Nov 8, 2004
    #1
  2. This is my simple routine. It should get you on the right track.
    Code:
    Option Explicit
    
    Public Sub Plot()
    Dim objLayout As AcadLayout
    Set objLayout = ThisDrawing.ActiveLayout
    objLayout.SetCustomScale 1, 1
    objLayout.ConfigName = "Mapping-LJ4000 PS.pc3"
    objLayout.CanonicalMediaName = "A4"
    objLayout.PaperUnits = acMillimeters
    objLayout.PlotRotation = ac0degrees
    objLayout.PlotType = acExtents
    objLayout.CenterPlot = True
    objLayout.PlotWithPlotStyles = True
    objLayout.StyleSheet = "STRIPMAP.ctb"
    ThisDrawing.Plot.PlotToDevice
    End Sub
    
    Regards - Nathan
     
    Nathan Taylor, Nov 8, 2004
    #2
  3. Jim Shipley

    Jim Shipley Guest

    Holy cow that was easy!!! Thanks a bunch-

    Jim
     
    Jim Shipley, Nov 9, 2004
    #3
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.