« previous next »
Pages: [1] |   Go Down

Author Topic: plot every rectangle in drawing as the plot extents  (Read 4490 times)

0 Members and 1 Guest are viewing this topic.

Pad

  • Bull Frog
  • Posts: 342
plot every rectangle in drawing as the plot extents
« on: December 18, 2011, 04:06:56 PM »
Hello

I'm just plotting some floorplans we are working on to take to site to add detail to.
I have drawn lots of rectangles to cover each room and now I need to plot each rectangle as the plot extents.
Wondered if anybody has a lisp already for this task that they could share (wishful thinking)?

many thanks
Pad
Logged

Lee Mac

  • Seagull
  • Posts: 12926
  • London, England
Re: plot every rectangle in drawing as the plot extents
« Reply #1 on: December 18, 2011, 06:19:05 PM »
The following [untested] code will use the active plot settings applied to the Layout in which you are plotting:

Code - Auto/Visual Lisp: [Select]
  1. (defun c:qplot ( / acdoc aclay acplt acsel i lst )
  2.  
  4.           aclay (vla-get-activelayout acdoc)
  5.           acplt (vla-get-plot acdoc)
  6.     )    
  7.     (if (setq acsel (ssget (list '(0 . "LWPOLYLINE") (cons 410 (getvar 'CTAB)))))
  8.         (repeat (setq i (sslength acsel))
  9.             (setq lst
  10.                 (apply 'append
  11.                     (mapcar
  12.                         (function
  13.                             (lambda ( pair )
  14.                                 (if (= 10 (car pair))
  15.                                     (list (cdr pair))
  16.                                 )
  17.                             )
  18.                         )
  19.                         (entget (ssname acsel (setq i (1- i))))
  20.                     )
  21.                 )
  22.             )
  23.             (vlax-invoke aclay 'setwindowtoplot
  24.                 (apply 'mapcar (cons 'min lst))
  25.                 (apply 'mapcar (cons 'max lst))
  26.             )
  27.             (vla-put-plottype aclay acwindow)
  28.             (vla-plottodevice acplt nil)
  29.         )
  30.     )
  31.     (princ)
  32. )
Logged

Pad

  • Bull Frog
  • Posts: 342
Re: plot every rectangle in drawing as the plot extents
« Reply #2 on: December 19, 2011, 03:52:27 PM »
thanks Lee. I'll give that a twirl.

P
Logged

Sam

  • Bull Frog
  • Posts: 201
Re: plot every rectangle in drawing as the plot extents
« Reply #3 on: December 20, 2011, 12:10:14 AM »
Quote from: Lee Mac on December 18, 2011, 06:19:05 PM
The following [untested] code will use the active plot settings applied to the Layout in which you are plotting:

Code - Auto/Visual Lisp: [Select]
  1. (defun c:qplot ( / acdoc aclay acplt acsel i lst )
  2.  
  4.           aclay (vla-get-activelayout acdoc)
  5.           acplt (vla-get-plot acdoc)
  6.     )    
  7.     (if (setq acsel (ssget (list '(0 . "LWPOLYLINE") (cons 410 (getvar 'CTAB)))))
  8.         (repeat (setq i (sslength acsel))
  9.             (setq lst
  10.                 (apply 'append
  11.                     (mapcar
  12.                         (function
  13.                             (lambda ( pair )
  14.                                 (if (= 10 (car pair))
  15.                                     (list (cdr pair))
  16.                                 )
  17.                             )
  18.                         )
  19.                         (entget (ssname acsel (setq i (1- i))))
  20.                     )
  21.                 )
  22.             )
  23.             (vlax-invoke aclay 'setwindowtoplot
  24.                 (apply 'mapcar (cons 'min lst))
  25.                 (apply 'mapcar (cons 'max lst))
  26.             )
  27.             (vla-put-plottype aclay acwindow)
  28.             (vla-plottodevice acplt nil)
  29.         )
  30.     )
  31.     (princ)
  32. )

Dear sir,
this program test on acad 2012
some error area comes
Code: [Select]
Command: QPLOT

Select objects: 1 found

Select objects: 1 found, 2 total

Select objects: 1 found, 3 total

Select objects:  ; error: Automation Error. Description was not provided.
Logged
Every time we waste electricity, we put our planet's future in the dark. Let's turn around our attiude and start saving power and our planet, before it's too late
http://www.theswamp.org/donate.html

Lee Mac

  • Seagull
  • Posts: 12926
  • London, England
Re: plot every rectangle in drawing as the plot extents
« Reply #4 on: December 20, 2011, 07:10:02 AM »
I'll look into it when I get a chance - It may need a delay between issuing the plot method.
Logged

Pad

  • Bull Frog
  • Posts: 342
Re: plot every rectangle in drawing as the plot extents
« Reply #5 on: December 20, 2011, 05:32:48 PM »
I get the same error on 2009.
The first sheet plots, but none of the others.
Thanks.
Logged

Lee Mac

  • Seagull
  • Posts: 12926
  • London, England
Re: plot every rectangle in drawing as the plot extents
« Reply #6 on: December 20, 2011, 06:00:21 PM »
Maybe this then, also untested (as don't have printer  :-P )

Code - Auto/Visual Lisp: [Select]
  1. (defun c:qplot ( / acdoc aclay acplt acsel lst )
  2.  
  4.          aclay (vla-get-activelayout acdoc)
  5.          acplt (vla-get-plot acdoc)
  6.    )
  7.    (while
  8.        (progn
  9.            (princ "\nSelect Rectangles Individually...")
  10.            (setq acsel (ssget "_+.:E:S" (list '(0 . "LWPOLYLINE") (cons 410 (getvar 'CTAB)))))
  11.        )
  12.        (setq lst
  13.            (apply 'append
  14.                (mapcar
  15.                    (function
  16.                        (lambda ( pair )
  17.                            (if (= 10 (car pair))
  18.                                (list (cdr pair))
  19.                            )
  20.                        )
  21.                    )
  22.                    (entget (ssname acsel 0))
  23.                )
  24.            )
  25.        )
  26.        (vlax-invoke aclay 'setwindowtoplot
  27.            (apply 'mapcar (cons 'min lst))
  28.            (apply 'mapcar (cons 'max lst))
  29.        )
  30.        (vla-put-plottype aclay acwindow)
  31.        (vla-plottodevice acplt nil)
  32.    )
  33.    (princ)
  34. )
Logged

Sam

  • Bull Frog
  • Posts: 201
Re: plot every rectangle in drawing as the plot extents
« Reply #7 on: December 21, 2011, 04:51:39 AM »
DEAR SIR,

SAME ERROR COME AT NEW VERSION OF LISP
Logged
Every time we waste electricity, we put our planet's future in the dark. Let's turn around our attiude and start saving power and our planet, before it's too late
http://www.theswamp.org/donate.html

Kerry

  • Mesozoic relic
  • Seagull
  • Posts: 11654
  • class keyThumper<T>:ILazy<T>
Re: plot every rectangle in drawing as the plot extents
« Reply #8 on: December 21, 2011, 05:20:02 AM »

Works for me in 2012.
Need to make sure the plot settings are valid first.

Try this

Logged
kdub, kdub_nz in other timelines.
Perfection is not optional.
Everything will work just as you expect it to, unless your expectations are incorrect.
Discipline: None at all.

Lee Mac

  • Seagull
  • Posts: 12926
  • London, England
Re: plot every rectangle in drawing as the plot extents
« Reply #9 on: December 21, 2011, 07:59:27 AM »
Thanks Kerry  :-)
Logged

Pad

  • Bull Frog
  • Posts: 342
Re: plot every rectangle in drawing as the plot extents
« Reply #10 on: December 21, 2011, 05:12:20 PM »
hmm damn it not working for me..

Command: qplot

Select Rectangles Individually...
Select objects:

Select Rectangles Individually...
Select objects: *Cancel*

Select objects:
Automation Error. Description was not provided.


I have done some more testing and it seems that if the plotter icon in the bottom right hand corner is busy with a 'plot job in progress' then the next rectangle will fail with 'Automation Error. Description was not provided.'.  But if I wait for the 'plot & publish job complete' pop up before clicking, then the next plot will work fine.
Is it possible instead of sending each rectangle individually, have them sent as a batch of sheets?

Thanks again Lee.

P


Logged

Sam

  • Bull Frog
  • Posts: 201
Re: plot every rectangle in drawing as the plot extents
« Reply #11 on: December 22, 2011, 02:13:44 AM »
DEAR SIR,

ERROR ON THIS SENTENCE

Code: [Select]
(vla-plottodevice acplt nil)
Logged
Every time we waste electricity, we put our planet's future in the dark. Let's turn around our attiude and start saving power and our planet, before it's too late
http://www.theswamp.org/donate.html

Lee Mac

  • Seagull
  • Posts: 12926
  • London, England
Re: plot every rectangle in drawing as the plot extents
« Reply #12 on: December 22, 2011, 01:46:07 PM »
Quote from: Sam on December 22, 2011, 02:13:44 AM
DEAR SIR,

ERROR ON THIS SENTENCE

Code: [Select]
(vla-plottodevice acplt nil)

You will need to wait until each plot job has completed before sending another.
Logged

Pad

  • Bull Frog
  • Posts: 342
Re: plot every rectangle in drawing as the plot extents
« Reply #13 on: December 22, 2011, 04:42:42 PM »
Hi

I had quite a search and have found this lisp which works quite well, it doesn't have the waiting problem.  It expects a block instead of a rectangle which is no big deal.
The problem I'm finding though is it isn't using the plot device set up in the page setup.  I will leave a message to the author once I can remember my log on for that site.

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/automatic-plotting/m-p/3054890#M297146
Code - Auto/Visual Lisp: [Select]
  1. (defun C:PlotAll( / titleblockname titleblocknameLIST bnamefilterstring filterlist orientation sstitleblocks ctr cent tblist vl-tb pw1 pw2)
  3.  
  4.   (while (/= (setq titleblockname (getstring T "\nEnter Border and hit return: ")) "")
  5.     (setq titleblocknameLIST (append titleblocknamelist (list titleblockname)))
  6.     );while
  7.  
  8.   (setq bnamefilterstring "")
  9.   (foreach x titleblocknamelist
  10.     (setq bnamefilterstring (strcat bnamefilterstring x ","))
  11.     );foreach
  12.   (setq bnamefitlerstring (substr bnamefilterstring 1 (1- (strlen bnamefilterstring))))
  13.  
  14.   (setq filterlist (list (cons 0 "insert")))
  15.   (setq filterlist (append filterlist (list (cons 2 bnamefilterstring))))
  16.  
  17.   (setq sstitleblocks (ssget "x" filterlist))
  18.  
  19.   (if (not (> (sslength sstitleblocks) 0))
  20.     (progn
  21.       (princ "\nNo TitleBlocks Found.  Exiting")
  22.       (exit)
  23.       );progn
  24.     );if
  25.  
  26.   (setq ctr 0)
  27.   (while (setq cent (ssname sstitleblocks ctr))
  28.     (setq tblist (append tblist (list cent)))
  29.     (setq ctr (1+ ctr))
  30.     );while
  31.  
  32.  (foreach x tblist
  33.    (setq vl-tb (vlax-ename->vla-object x))
  34.    (vla-getboundingbox vl-tb 'pw1 'pw2)
  35.    (setq pw1 (vlax-safearray->list pw1)
  36.          pw2 (vlax-safearray->list pw2)
  37.          );setq
  38.  
  39.    (if (> (- (car pw2) (car pw1)) (- (cadr pw2) (cadr pw1)))
  40.      (setq orientation "Landscape")
  41.      (setq orientation "Portrait")
  42.      );if
  43.      
  44.    (command ".plot"
  45.             "Y";        detailed configuration
  46.             "" ;        current layout/model space
  47.             "default windows system printer";           PlotterName
  48.             "";         PaperSize
  49.             "";         paperUnits In MM?
  50.             orientation;                orientation Portrait Landscape
  51.             "";         Plot Upside Down
  52.             "W";        Window
  53.             pw1;        window p1
  54.             pw2;        window p2
  55.             "";         Scale Fit
  56.             "c";        Center Plot
  57.             "y";        Plot w/ Plot Styles
  58.             "";         PlotStyleTableName
  59.             "Y";        With Lineweights?
  60.             "A";        Shade Plot As Displayed
  61.             "";         Write to File
  62.             "N";        Save Changes to PSetup
  63.             "Y";        Proceed w/ plot
  64.             );plot
  65.    );foreach
  66.   (princ)
  67.   );defun

cheers
P
Logged
Pages: [1] |   Go Up
« previous next »