Topic: Plottabs Help Revisited

[ELOQUINTET]

Hey CAB,

My company finally purchased a License of Hurricane Batch script generator which is what I was trying to use to modified Plottabs routine on. I am trying again to get it to work and encountering the same problems. I have simplified it to only include one plot configuration trying to get it to work on multiple drawings first which seems to be the problem. I tested it on two plotters and it worked on the first drawing but did not plot anything from the second. We were thinking it was halting because of a qsave. I have taken the close off the end and set the program to test run which I found out eliminates the qsave at the end but still no go. Can you please help me reanalyze this because I am stumped at this point.

Old Thread

Here is my generated script:

_OPEN
"c:\Documents and Settings\danielk\Desktop\batch test\batch test 1.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("small_copy" nil 1))
    (setq *ptdebug* t)                                                                           
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)



_OPEN
"c:\Documents and Settings\danielk\Desktop\batch test\batch test 2.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("small_copy" nil 1))
    (setq *ptdebug* t)                                                                           
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)

[ronjonp]

Dan,

Have you looked into the built in sheet set manager for plotting multiple tabs in multiple drawings?

Ron

[ELOQUINTET]

i did play around with sheet sets and maybe that would be an option too. I found the sheet set process to not be too user friendly but I was trying to do the whole view field page renumber thing. It sounded good in theory but the setup time seemed to be the same as manually renumbering. I could see where it would be beneficial if you work on really big jobs but ours avarage around 10 sheets and rarely exceed 20. I'll have to look into it again though thanks

[CAB]

Dan,
Do you have SDI set to 1 before you run the script?

[ELOQUINTET]

no cab checked that. how were you testing this on your end that worked because i'd like to try that way and isolate it as a problem with hurricane?

[CAB]

Dan, try it while SDI = 1

[ELOQUINTET]

cab i tried all sorts of variations of sdi and none seem to work. the program has a pre and post script section where you can set various stuff. that didn't work so i tried to include it in the script and no go there either. most of the time it was halting asking if i want to discard changes then cancelling out. so how were you able to get this to work on your end?

[CAB]

Using this with SDI = 1

Code: [Select]

OPEN
 "d:\Drawings\M-2630EM ONE CHRISTINA CRESCENT\COMPLETE SUBMISSION\DETAILS.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot-500ps" nil 1) ("d-prot Xerox510" t 5) ("d-prot-800" nil 1) ("small_copy" nil 3) ("HP LASER 11x17" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

Open
"d:\Drawings\M-2464EM\M-2464EF\umdnj elevations.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot-500ps" nil 1) ("d-prot Xerox510" t 5) ("d-prot-800" nil 1) ("small_copy" nil 3) ("HP LASER 11x17" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

[ELOQUINTET]

CAB,

I tried it from Autocad and it didn't work for me. Below is the script itself and the result of running it?

OPEN
 "D:\Drawings\batch test\batch test 1.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

Open
"D:\Drawings\batch test\batch test 2.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

Output from Command line
Command: sdi

Enter new value for SDI <0>: 1

Command: '_script
Command: OPEN
Really want to discard all changes to drawing? <N>  Save drawing as
<C:\Documents and Settings\danielk\My Documents\Drawing1.dwg>:
"D:\Drawings\batch test\batch test 1.dwg"
A drawing with this name already exists.
Do you want to replace it? <N> (if (or sub_plottabs (/= (load "plottabs.lsp"
"fail") "fail"))
(_>   (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))
((_>     (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~"
nil nil t T "" "*"))
((_>   )
(_>   (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
(_> )
Plot Tabs is loaded, Enter PLotTabs to run.
PlotTabs01.14.07 running.
PlotTabs01.14.07 running."  Error in Plot Options. \nBad or missing plot config
name/Page Setup name.\nsmall_copy"

Yes or No, please.
A drawing with this name already exists.

[CAB]

Try this:

Code: [Select]

OPEN
Y
 "D:\Drawings\batch test\batch test 1.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

Open
Y
"D:\Drawings\batch test\batch test 2.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

[ELOQUINTET]

cab i played around with it and still not working. i will give you full details tomorrow as i'm out the dorr. thanks

[CAB]

Out of the office tomorrow, but post anyway.
I'll see it Friday night.

[ELOQUINTET]

cab i was never really able to get this working no matter what i did. it will never open the second drawing for me? 

[CAB]

Dan I didn't see this before but see the red below.
Your secons test dwg is missing a page setup which is causing the error.
Fix that & see if it will run. I was running mine on ACAD200 SDI=1
so SDI shoulld not be changed.

Code: [Select]

Enter new value for SDI <0>: 1

Command: '_script
Command: OPEN
Really want to discard all changes to drawing? <N>  Save drawing as
<C:\Documents and Settings\danielk\My Documents\Drawing1.dwg>:
"D:\Drawings\batch test\batch test 1.dwg"
A drawing with this name already exists.
Do you want to replace it? <N> (if (or sub_plottabs (/= (load "plottabs.lsp"
"fail") "fail"))
(_>   (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))
((_>     (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~"
nil nil t T "" "*"))
((_>   )
(_>   (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
(_> )
Plot Tabs is loaded, Enter PLotTabs to run.
PlotTabs01.14.07 running.
PlotTabs01.14.07 running[color=red]."  Error in Plot Options. \nBad or missing plot config
name/Page Setup name.\nsmall_copy"[/color]

Yes or No, please.
A drawing with this name already exists.

[CAB]

With SDI = 0 use this:

Code: [Select]

OPEN
 "D:\Drawings\batch test\batch test 1.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

Open
"D:\Drawings\batch test\batch test 2.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))                                                                             
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t T "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

[ELOQUINTET]

cab at first i was trying to run a few lisp routines we have for importing all of the pagesetups from our template after the drawing is opened but that wasn't working so I decided to just load the small copy one into the drawings for testing. i tried running the script with sdi set to 1 several times and it never proceeded to the second drawing. see below: I also tried it with sdi set to 0 and took out the closes and saves with the same results?  :ugly: take a look and see if you see any reason why it didn't work as expected.

Command: '_script
Command: SDI

Enter new value for SDI <0>: 1

Command: OPEN
Really want to discard all changes to drawing? <N> Y

Enter name of drawing to open <D:\Drawings\batch test\batch test 1.dwg>:
"D:\Drawings\batch test\batch test 1.dwg"

Opening an AutoCAD 2004/LT 2004  format file.
Regenerating layout.

Command:

Command:
AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

   <<ACAD.dvb Loaded>>
   <<AngleConnector.dvb Loaded>>
   <<CommonDialog.dvb Loaded>>
   <<Gatte.dvb Loaded>>
   <<UpdateAttribute.dvb Loaded>>
   <<vm_reflected.dvb Loaded>>
   <<CPS.dvb Loaded>>
AutoCAD menu utilities loaded.
AutoCAD menu utilities loaded.
Command: (if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
(_>   (foreach ps  '(("small_copy" nil 1) ("d-prot Xerox510" nil 1))
((_>     (setq *ptdebug* t)
((_>     (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~"
nil nil t T "" "*"))
((_>   )
(_>   (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
(_> )
Plot Tabs is loaded, Enter PLotTabs to run.
PlotTabs01.14.07 running.
* * * *    S t a r t i n g   t h e   P l o t     * * * *
* * * *    Debug Mode is ON     * * * *
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
  * * * *    Variable Dump     * * * *
-> small_copy [Plot-Config]- Name if plot, default to Current
-> 1 [Plot-QTY]- number of copies of each sheet
-> Tab [Plot-order]- Sort order of tabs "Alpha" "Numeric" "Tab" order
-> False [RevOrder]- t/nil Reverse the order of plots
-> True [PlotAllTabs]- t/nil Plot All tabs or use picks
-> True [setlaystate]- t/nil set layer state per tab name
-> False [PlotToFile]- Flag
->  [MyPath]- Path for 'Plot To File'
-> 1[Quantity]- number of sets
-> True [SaveLayout]- Always True- Not an option in this version
-> True [CollateSets]- t/nil  Collate plan sets when more than one plotted
-> True [ExcludeTab]- t/nil  Flag to exclude tabs with flag character
-> ~ [ExcludeChr]- "~" Character marker for exclude tabs
-> False [zoom-all]- t/nil  Zoom layout before plotting
-> 0 [config#]- pointer to config name in list, 0= first item
-> Config List [config-list]->
                              Current
                              A1-FX
                              A1-PDF
                              A1-PROT
                              D-prot Xerox510
                              HP LASER 11x17
                              LANDSCAPE
                              LANDSCAPE-PDF
                              LEGAL
                              LEGAL-FAX
                              LEGAL-PDF
                              d-prot-500ps
                              d-prot-800
                              small_copy
-> Tab Name to Plot [tab-list]->
                              D-PROT
                              D-PROT (5)
-> / [Tabs2Plot]-
  * * * *    End Variable Dump     * * * *
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=

Plotting layout "D-PROT"...
._-layer
Current layer:  "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]: _state
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: _restore
Enter name of layer state to restore or [?]: D-PROT
Unknown layer state name.
Enter name of layer state to restore or [?]:
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: Enter an
option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]:
Command:
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
  * * * *    Page Set Up Info   * * * *
->  Config Name  : LASER PRINTER.pc3
->  Style Sheet  : small_copy.ctb
->  CanMed Name  : Letter
->  Center Plot  : :vlax-true
->  Paper Units  : 0
->  Plot Hidden  : :vlax-false
->  Plot Rotate  : 1
->  Plot Type    : 1
->  Plot Origin  : (13.208 0.0)
->  Plot W-Styles: :vlax-true
->  Scale Lin Wts: :vlax-false
->  Std Scale    : :vlax-true
->  window state : 3
->  path         : C:\Program Files\AutoCAD 2008
* * * *    End Page Set Up Info   * * * *

=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
Effective plotting area:  7.00 wide by 10.50 high

Plotting viewport 1.

Plotting layout "D-PROT (5)"...
._-layer
Current layer:  "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]: _state
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: _restore
Enter name of layer state to restore or [?]: D-PROT (5)
Unknown layer state name.
Enter name of layer state to restore or [?]:
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: Enter an
option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]:
Command:
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
  * * * *    Page Set Up Info   * * * *
->  Config Name  : LASER PRINTER.pc3
->  Style Sheet  : small_copy.ctb
->  CanMed Name  : Letter
->  Center Plot  : :vlax-true
->  Paper Units  : 0
->  Plot Hidden  : :vlax-false
->  Plot Rotate  : 1
->  Plot Type    : 1
->  Plot Origin  : (13.208 0.0)
->  Plot W-Styles: :vlax-true
->  Scale Lin Wts: :vlax-false
->  Std Scale    : :vlax-true
->  window state : 3
->  path         : C:\Program Files\AutoCAD 2008
* * * *    End Page Set Up Info   * * * *

=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
Regenerating layout.
Effective plotting area:  7.00 wide by 10.50 high

Plotting viewport 1.


****   Plot Sets Complete   ****
1 copy of 2 layouts = 2 sheets plotted.
PlotTabs01.14.07 running.
* * * *    S t a r t i n g   t h e   P l o t     * * * *
* * * *    Debug Mode is ON     * * * *
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
  * * * *    Variable Dump     * * * *
-> d-prot Xerox510 [Plot-Config]- Name if plot, default to Current
-> 1 [Plot-QTY]- number of copies of each sheet
-> Tab [Plot-order]- Sort order of tabs "Alpha" "Numeric" "Tab" order
-> False [RevOrder]- t/nil Reverse the order of plots
-> True [PlotAllTabs]- t/nil Plot All tabs or use picks
-> True [setlaystate]- t/nil set layer state per tab name
-> False [PlotToFile]- Flag
->  [MyPath]- Path for 'Plot To File'
-> 1[Quantity]- number of sets
-> True [SaveLayout]- Always True- Not an option in this version
-> True [CollateSets]- t/nil  Collate plan sets when more than one plotted
-> True [ExcludeTab]- t/nil  Flag to exclude tabs with flag character
-> ~ [ExcludeChr]- "~" Character marker for exclude tabs
-> False [zoom-all]- t/nil  Zoom layout before plotting
-> 0 [config#]- pointer to config name in list, 0= first item
-> Config List [config-list]->
                              Current
                              A1-FX
                              A1-PDF
                              A1-PROT
                              D-prot Xerox510
                              HP LASER 11x17
                              LANDSCAPE
                              LANDSCAPE-PDF
                              LEGAL
                              LEGAL-FAX
                              LEGAL-PDF
                              d-prot-500ps
                              d-prot-800
                              small_copy
-> Tab Name to Plot [tab-list]->
                              D-PROT
                              D-PROT (5)
-> / [Tabs2Plot]-
  * * * *    End Variable Dump     * * * *
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=

Plotting layout "D-PROT"...
._-layer
Current layer:  "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]: _state
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: _restore
Enter name of layer state to restore or [?]: D-PROT
Unknown layer state name.
Enter name of layer state to restore or [?]:
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: Enter an
option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]:
Command:
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
  * * * *    Page Set Up Info   * * * *
->  Config Name  : Xerox 510.pc3
->  Style Sheet  : Xerox_510.ctb
->  CanMed Name  : User267
->  Center Plot  : :vlax-false
->  Paper Units  : 0
->  Plot Hidden  : :vlax-false
->  Plot Rotate  : 0
->  Plot Type    : 1
->  Plot Origin  : (16.51 7.40613)
->  Plot W-Styles: :vlax-true
->  Scale Lin Wts: :vlax-false
->  Std Scale    : :vlax-true
->  window state : 3
->  path         : C:\Program Files\AutoCAD 2008
* * * *    End Page Set Up Info   * * * *

=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
Regenerating layout.
Effective plotting area:  34.50 wide by 23.00 high

Plotting viewport 1.

Plotting layout "D-PROT (5)"...
._-layer
Current layer:  "0"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]: _state
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: _restore
Enter name of layer state to restore or [?]: D-PROT (5)
Unknown layer state name.
Enter name of layer state to restore or [?]:
Enter an option [?/Save/Restore/Edit/Name/Delete/Import/EXport]: Enter an
option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/MATerial/Plot/Freeze/Thaw/LOck/Unlock
/stAte]:
Command:
=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
  * * * *    Page Set Up Info   * * * *
->  Config Name  : Xerox 510.pc3
->  Style Sheet  : Xerox_510.ctb
->  CanMed Name  : User267
->  Center Plot  : :vlax-false
->  Paper Units  : 0
->  Plot Hidden  : :vlax-false
->  Plot Rotate  : 0
->  Plot Type    : 1
->  Plot Origin  : (16.51 7.40613)
->  Plot W-Styles: :vlax-true
->  Scale Lin Wts: :vlax-false
->  Std Scale    : :vlax-true
->  window state : 3
->  path         : C:\Program Files\AutoCAD 2008
* * * *    End Page Set Up Info   * * * *

=-=-=-=-=-=-=-=-=-=   DEBUG MODE =-=-=-=-=-=-=-=-=-=-=
Regenerating layout.
Effective plotting area:  34.50 wide by 23.00 high

Plotting viewport 1.


****   Plot Sets Complete   ****
1 copy of 2 layouts = 2 sheets plotted.

[CAB]

Dan, I don't think this is the problem but change to this and use sdi = 0 and try again.
All I did here was stop the use of Layer States based on Tab Names.

Code: [Select]

OPEN
 "D:\Drawings\batch test\batch test 1.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1))   
    (setq *ptdebug* t)                                                       
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t nil "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y
Open
"D:\Drawings\batch test\batch test 2.dwg"
(if (or sub_plottabs (/= (load "plottabs.lsp" "fail") "fail"))
  (foreach ps  '(("d-prot Xerox510" t 1) ("small_copy" nil 1)) 
    (setq *ptdebug* t)                                                      
    (sub_plottabs (list  (car ps)  (nth 2 ps) "Tab" (cadr ps) nil t t "~" nil nil t nil "" "*"))                                                                         
  )
  (princ "\nCould not load PlotTabs.lsp or plotHelper.lsp")
)
close
Y

[ELOQUINTET]

CAB,

Have I ever told you that you are a genius, It worked. We don't use any layer states here so I guess it was halting it. I almost can't believe it finally worked. I am saving this as a working version and trying to incorporate the loading of the pagesetups and see if I can get it working through hurricane. I'll let you know how it goes. Which bit is for layer filters, just so I know. Thanks a bunch for your help figuring this out. I suppose I've helped you discover a glitch through this debuggin as well 

[CAB]

Oh, good.
The problem is when there are no layer states & the switch is on. The command fails. I am working on a revision to fix that. In the meantime keep the setlaystate switch off when no layer states are used.

Code: [Select]

      (sub_plottabs
          ;;  Option variables passed to this routine in this order
          '("Current" ;  plot-config    Config Name if plot, default to "Current"
            1         ;  plot-qty       number of copies of each sheet
            "Tab"     ;  plot-order     Sort order of tabs "Alpha" "Numeric" "Tab" order
            nil       ;  revorder       t/nil Reverse the order of plots
            t         ;  savelayout     Always set to True- Not an option in this version
            nil       ;  collatesets    t/nil  Collate plan sets when more than one plotted
            t         ;  excludetab     t/nil  Flag to exclude tabs with flag character
            "~"       ;  excludechr     "~"  Character marker for exclude tabs
            nil       ;  zoom-all       t/nil  Zoom layout before plotting
            nil       ;  PlotToFile     t/nil 
            [color=green]t         ;  PlotAllTabs    Ignore the Pick List of Tabs[/color]
            [color=red]nil        ;  setlaystate    ACAD>2000 set layer state by name of tab before plotting[/color]
            ""        ;  MyPath         Path for 'Plot To File'
            list      ;  Tabs2Plot      List of tab names  ("Sheet 1" "Sheet 2" "Sheet*") wild card ok
           )
        ) ; end sub_plottabsAlso keep PlotAllTabs True unless you are specifying the tab names.