Topic: psetupin command

[danny]

I wrote a lisp to insert multiple page setups that I have created.  The lisp loads the setups into the drawing, but when I do a plot command, I don't see the setups in the page setup name pulldown list.  If I click on add, next to the pulldown list, I see the pagesetups.
Does anyone know why they don't show up in the pulldown list?
Mahalo in advace,

[CAB]

Maybe it's the way they are loaded. Have you tried this?

To delete then import:
^C^CDel_Pagesetups;^C^C.-PSETUPIN "PageSetups.dwg" "*"

To just import:
C^C.-PSETUPIN "PageSetups.dwg" "*"

[danny]

CAB,
That worked alot quicker than mine, but the setups still don't show up in the pulldown list.

[M-dub]

(As CAB posted)
Here's what I have in my Page Setup button...

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;

[danny]

they work fine now.. thanks guys.

[Andrea]

(As CAB posted)
Here's what I have in my Page Setup button...

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;

where do we get this Del_Pagesetups.lsp ??

[Andrea]

Maybe it's the way they are loaded. Have you tried this?

To delete then import:
^C^CDel_Pagesetups;^C^C.-PSETUPIN "PageSetups.dwg" "*"

To just import:
C^C.-PSETUPIN "PageSetups.dwg" "*"

AutoCAD can't recognise the .-PSETUPIN command...!!??
why ??

i have AutoCAD 2004

[M-dub]

(As CAB posted)
Here's what I have in my Page Setup button...

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;

where do we get this Del_Pagesetups.lsp ??

Have a look HERE

[M-dub]

Maybe it's the way they are loaded. Have you tried this?

To delete then import:
^C^CDel_Pagesetups;^C^C.-PSETUPIN "PageSetups.dwg" "*"

To just import:
C^C.-PSETUPIN "PageSetups.dwg" "*"

AutoCAD can't recognise the .-PSETUPIN command...!!??
why ??

i have AutoCAD 2004

Try dropping the ".-"

[danny]

Ive started a lisp routine to load pagesetups

Code: [Select]

;loads pagesetups for 30x42 sheet size
(defun C: PSI3042()
    (setvar "filedia" 0)
    (command "-psetupin" "M:\_Cad Standards\New project 3042/page-setup.dwg" "*")
    (setvar "fildia" 1)
    (princ)
)
but i'm getting an error message.  I'm writting a lisp routnine because i need to set filedia to 0 in order to get the command line instead of a dialog when doing a -psetupin command.  Similar to the problem that Andrea stated in his thread (print preview).  My button will refer to the lisp command

Code: [Select]

ID__1 [_Button("PAGESETUP-30X42", "3042-16.bmp", "3042-24.bmp")]^C^C_psi3042

[MikePerry]

Hi

Take a look at the type and number of slashes being used within the Directory /  Folder path + take a look at the system variable Expert + there should be no need to set system variable FileDia = 0 -

Code: [Select]

;loads pagesetups for 30x42 sheet size
(defun C: PSI3042(/ Save_Expert)
  (setq Save_Expert (getvar "EXPERT"))
  (setvar "EXPERT" 2)
  (command "_.-PSETUPIN" "M:\\_Cad Standards\\New project 3042\\page-setup.dwg" "*")
  (setvar "EXPERT" Save_Expert)
  (princ)
)

Have a good one, Mike

[danny]

Mike,
A get a error message when loading this lisp

Code: [Select]

syntax error
; error: An error has occurred inside the *error* functionAutoCAD variable
setting rejected: "blipmode" nil

[CAB]

Remove the space after c:
(defun C:PSI3042(/ Save_Expert)
not
(defun C: PSI3042(/ Save_Expert)

[danny]

mahalo CAB,

[MikePerry]

A get a error message when loading this lisp

Hi

Oops, my bad....

Thanks CAB for cleaning-up after me.

Have a good one, Mike