Topic: pagesetup lisp

[dubb]

i have copied somebody elses's stuff but i modified it. tell me what you think. im a total noOb, please bear with me. this a lisp routine that will import pagesetups from a file. if i new more i would make it so that it doesnt have to reference files and rather make pagesetups through variables. it works for me but is this common practice in lisp?

;loads pagesetups for 1"=1'-0"
(defun C:123624(/ Save_Expert)
  (setq Save_Expert (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  (command "_.-PSETUPIN" "S:/WYNN-CAD/pagesetups/12_36x24.dwg" "*")
  (setvar "EXPERT" Save_Expert)
  (princ)
)

;loads pagesetups for 3/4"=1'-0"
(defun C:163624(/ Save_Expert)
  (setq Save_Expert (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  (command "_.-PSETUPIN" "S:/WYNN-CAD/pagesetups/16_36x24.dwg" "*")
  (setvar "EXPERT" Save_Expert)
  (princ)
)

;loads pagesetups for 1/4"=1'-0"
(defun C:483624(/ Save_Expert)
  (setq Save_Expert (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  (command "_.-PSETUPIN" "S:/WYNN-CAD/pagesetups/48_36x24.dwg" "*")
  (setvar "EXPERT" Save_Expert)
  (princ)
)

;loads pagesetups for 1/4"=1'-0"
(defun C:483624(/ Save_Expert)
  (setq Save_Expert (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  (command "_.-PSETUPIN" "S:/WYNN-CAD/pagesetups/48_36x24.dwg" "*")
  (setvar "EXPERT" Save_Expert)
  (princ)
)

;loads pagesetups for paperspace 36x24
(defun C:ps3624(/ Save_Expert)
  (setq Save_Expert (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  (command "_.-PSETUPIN" "S:/WYNN-CAD/pagesetups/PS_36x24.dwg" "*")
  (setvar "EXPERT" Save_Expert)
  (princ)
)

[ronjonp]

Why don't you save all pagesetups in one file so you don't have to have a lisp for each one? They are easily accessible in the pulldown.

Ron

[M-dub]

Why don't you save all pagesetups in one file so you don't have to have a lisp for each one? They are easily accessible in the pulldown.

Ron

I'll second that notion....That's what I use and it is SuWEEEET!

[CAB]

Then load them with the click of a button
^C^CDel_Pagesetups;^C^C.-PSETUPIN "PageSetups.dwg" "*"

[M-dub]

http://theswamp.org/phpBB2/viewtopic.php?t=1771&highlight=delpagesetups

[CAB]

This subject goes way back.
PageSetup

[M-dub]

...and still growing!  

[dubb]

THANK YOU GUYS....a menu bar would be nicer. the reason why i have it this because i want just the setups that i need for each drawing.

when i use

Code: [Select]


^C^CDel_Pagesetups;^C^C.-PSETUPIN "PageSetups.dwg" "*"


i get

Command: .-PSETUPIN Enter file name: "S:/WYNN-CAD/pagesetups/12_36x24.dwg"
Enter user defined page setup(s) to import or [?]: "*"
Page setup "11x17" already exists. Redefine it? [Yes/No] <N>: *Cancel*

Page setup "12_36x24" already exists. Redefine it? [Yes/No] <N>: *Cancel*

so i use hotkeys. and later i will make a pull down menu and a toolbar

[M-dub]

Did you load Del_Pagesetups first?

[M-dub]

Here's what I use in my button macro:

Code: [Select]

^C^C(load"O:/Drawings/Menus-Blocks/LISP/Del_Pagesetups.lsp") Del_Pagesetups;^C^C.-PSETUPIN "O:/Drawings/SupportforCAD/AutoCAD-2004-Support/PageSetups.dwg" "*" PLOT;

[CAB]

In cas you did not get the link by m-dub

Code: [Select]

;;  Function to delete all user plot set ups
(defun c:Del_Pagesetups (/ curdwg pslayout x)
  (vl-load-com)
  (setq
    curdwg   (vla-get-ActiveDocument (vlax-get-Acad-Object))
    pslayout (vla-get-Layout (vla-get-PaperSpace curdwg))
  ) ;_ end of setq
  ;; Call RefreshPlotDeviceInfo before GetPlotDeviceNames
  (vla-RefreshPlotDeviceInfo pslayout)
  (vlax-for x (vla-get-Plotconfigurations curdwg)
    (vla-delete x)
  ) ;_ end of vlax-for
)               ; End Plot_config_list



PS this thread doesn't belong in this forum.

[M-dub]

>PS this thread doesn't belong in this forum.
*Oh yeah, forgot to mention that...*

I should also stop being lazy and paste the code in here instead of posting the link instead.  
Thanks CAB

[hyposmurf]

Im trying to sort my page setups out.I have the following macro asociated with a menu button.

^C^CDel_Pagesetups;^C^C.-PSETUPIN "A0PSETUP.dwg" "A0"

This imports the A0 page setup but it wont set it as current.Is there a way to do this?

[CAB]

Code: [Select]

; Jason Piercey . May 16th, 2003
; assign a pagesetup to a layout
; [layout] - string, layout name
; [setup] - string, pagesetup to assign
; return: T or nil
(defun putPagesetup (layout setup / layouts plots)
 (defun item-p (collection item)
  (if
   (not
    (vl-catch-all-error-p
     (vl-catch-all-apply
      '(lambda () (setq item (vla-item collection item))))))
   item
   )
  )
 (and
  (or *acad* (setq *acad* (vlax-get-acad-object)))
  (or *doc* (setq *doc* (vla-get-activedocument *acad*)))
  (setq layouts (vla-get-layouts *doc*))
  (setq plots (vla-get-plotconfigurations *doc*))
  (setq layout (item-p layouts layout))
  (setq setup (item-p plots setup))
  (not (vla-copyfrom layout setup))
  )
 )

[daron]

...
PS this thread doesn't belong in this forum.

I was thinking the same thing.