set Page Layout with visual lisp

[Anonymous]

Hi I'm writing upgrading our plot billing lisp for our office, from R14 to
2002, is there a way that i can set the page layout using lips so that when
my plot billing interface calls up plot dialog box the appropiate page
layout is set.


--
Gary Furphy
CAD Support
Jacobs Dublin Ireland

[Anonymous]

If you know the layout's name you can use (setvar "ctab" ), as in (setvar "ctab" "layout1")

--
John Uhden, Cadlantic/formerly CADvantage
mailto:juhden@cadlantic.com
http://www.cadlantic.com
2 Village Road
Sea Girt, NJ 08750
Tel. 732-974-1711


"Gary Furphy" wrote in message news:D6299F68AA2C273B502D614A090B9E2B@in.WebX.maYIadrTaRb...
> Hi I'm writing upgrading our plot billing lisp for our office, from R14 to
> 2002, is there a way that i can set the page layout using lips so that when
> my plot billing interface calls up plot dialog box the appropiate page
> layout is set.
>
>
> --
> Gary Furphy
> CAD Support
> Jacobs Dublin Ireland
>
>

[Anonymous]

Maybe this might give you some leads
;;Ian Bryant
(defun set_ps_nm (ps_nm / ps_lst cm_e)
(setq ps_lst nil ps_lst
(apply 'append
(mapcar '(lambda (x)
(if (equal (car x) 3)
(list (cdr x))
))
(dictsearch (namedobjdict) "acad_plotsettings")
)
) ;; from Tony Tanzillo, not worried about milliseconds
)
(if (and ps_lst (listp ps_lst)
(setq ps_lst (car (member (strcase ps_nm) (mapcar 'strcase
ps_lst))))
)
(progn
(setq cm_e (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "-PLOT" "N" "" ps_lst "" "N" "Y" "N")
(setvar "CMDECHO" cm_e)
)
)
)

;;Ian Bryant

Gary Furphy wrote:
>
> Hi I'm writing upgrading our plot billing lisp for our office, from R14 to
> 2002, is there a way that i can set the page layout using lips so that when
> my plot billing interface calls up plot dialog box the appropiate page
> layout is set.
>
> --
> Gary Furphy
> CAD Support
> Jacobs Dublin Ireland

--

-------------------
Nauman M
CAD Bazaar
*********NEW*********
Add AEC Objects to the Layers(lkey) you want, not the Layers ADT Wants!!
Add a Wall directly on the DEMO Layerkey, instead of switching it later.
Download the eval at http://www.cadbazaar.com
*********NEW*********
Need to easily Navigate to your Custom Content Folders?
Need Autolayering for Dimensions without going through Design Center?
Download the ADT Tools for ADT 2 & 3 at
http://www.cadbazaar.com

[Anonymous]

Thank you Nauman, the lisp worked a treat.


"Nauman M" wrote in message
news:3C7A775E.AA2334A4@CadBazaar.com...
> Maybe this might give you some leads
> ;;Ian Bryant
> (defun set_ps_nm (ps_nm / ps_lst cm_e)
> (setq ps_lst nil ps_lst
> (apply 'append
> (mapcar '(lambda (x)
> (if (equal (car x) 3)
> (list (cdr x))
> ))
> (dictsearch (namedobjdict) "acad_plotsettings")
> )
> ) ;; from Tony Tanzillo, not worried about milliseconds
> )
> (if (and ps_lst (listp ps_lst)
> (setq ps_lst (car (member (strcase ps_nm) (mapcar 'strcase
> ps_lst))))
> )
> (progn
> (setq cm_e (getvar "CMDECHO"))
> (setvar "CMDECHO" 0)
> (command "-PLOT" "N" "" ps_lst "" "N" "Y" "N")
> (setvar "CMDECHO" cm_e)
> )
> )
> )
>
> ;;Ian Bryant
>
> Gary Furphy wrote:
> >
> > Hi I'm writing upgrading our plot billing lisp for our office, from R14
to
> > 2002, is there a way that i can set the page layout using lips so that
when
> > my plot billing interface calls up plot dialog box the appropiate page
> > layout is set.
> >
> > --
> > Gary Furphy
> > CAD Support
> > Jacobs Dublin Ireland
>
> --
>
> -------------------
> Nauman M
> CAD Bazaar
> *********NEW*********
> Add AEC Objects to the Layers(lkey) you want, not the Layers ADT Wants!!
> Add a Wall directly on the DEMO Layerkey, instead of switching it later.
> Download the eval at http://www.cadbazaar.com
> *********NEW*********
> Need to easily Navigate to your Custom Content Folders?
> Need Autolayering for Dimensions without going through Design Center?
> Download the ADT Tools for ADT 2 & 3 at
> http://www.cadbazaar.com