Pageout / Page Setups / Aclyutil

Discussion in 'AutoCAD' started by nwaguespack, Nov 25, 2004.

  1. nwaguespack

    nwaguespack Guest

    I recently upgraded to Autocad 2005 from 2002 and the pagout command is no longer availible. I have the following lisp routine that imports all of my page setups from a template drawing then the pagout command sets up my 24x36 drawing setup taking into acount each drawing's dimscale. Can someone help me rewrite this LISP so that I no longer need pageout but it does the same thing. The lisp is as follows:

    (defun c:RCPlot ()
    (vl-load-com)
    (vlax-for ps (vla-get-plotconfigurations
    (vla-get-activedocument
    (vlax-get-acad-object )))
    (vla-delete ps))
    ;---turn off command echo---
    (setvar "cmdecho" 0)
    ;---Setup for 24X36 plot using Dimscale for plot scale---
    (setq plotscl (strcat "1:" (rtos (getvar "dimscale"))))
    (command "-plot" "y" "model" "1055CM Win.pc3" "Arch D - 24 x 36 in. (landscape)" "I" "LANDSCAPE" "N" "L" plotscl "-.35,-.10" "y" "RC Pens.ctb" "Y" "N" "N" "Y" "N")
    (command "pageout" "RC_36x24" "c:\temp\none")
    ;---Import Page Setups for "Scaled to Fit" devices---
    (setq done T)
    (command "PSETUPIN" "RCProto.dwg" "*")
    (while (= (getvar "CMDNAMES") "PSETUPIN")
    (command "y" )
    (setq done nil)
    )
    )

    Thanks in advance for the help.Neil
     
    nwaguespack, Nov 25, 2004
    #1
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.
Similar Threads

  1. deleting page setups

  2. Quick way to import Named Page Setups (and over write)?

  3. Page Setups

  4. Deleting specific named page setups

  5. creating new page setups with lisp

  6. User Defined Page Setups

  7. Set Penstyle for All Page Setups?

  8. Howto import or setup Named Page Setups?

Loading...