Topic: plotting lisp

[SMadsen]

You're welcome, Mr. Thomas.

[CAB]

Yes, thanks Mr Madson
Allways an education

CAB

[JohnK]

HEY!!

Mark make me an admin!

[ELOQUINTET]

we're not that foolish se7en      

dan

[daron]

Hehehe.

[CAB]

I would like to expand the above routine.
So before I start changing the routine I was hoping for your thoughts.

1) the routine uses the last plot configuration. As I often plot to my HP1120C during review
and a "Plot to File" Plot Set Up for final sets, it would be a time saver to use a Plot Style
or perhaps even picking one at the start of the routine rather than hard coding a "Page Setup" name.
So the choice might be: Use last plot set up or Pick a Page Set up.


2) I often have paper space tabs that are working or preliminary that should not be included in the
Full Set version of the plot. I was thinking about prefixing those with * or ~ and test for that character
to prevent them from being included in the plot set.

 So before i charge down a dead end road let me hear your thoughts.

CAB

[daron]

CAB, I'm going to put something up on the swamp files for you to look at. They might not be exactly what you are looking for, but you might be able to gleen some info from them. I'll let you know when they are up.





They're up. Look under a folder with your name on it.

[CAB]

Great, I'm sure I'll learn something.

Every little step forward ya-know.

CAB

[ELOQUINTET]

hey cab sorry for the delayed response i've been extremely busy trying to knock out a few jobs before vacation. ummm as far as your message goes, i think it would be great to introduce those options but...

for me that would be great but i believe i'm the only one using page setups here at this time    and i have to work on others drawings which don't use them. i think the sketch idea is a pretty good one as far as designating non plot layouts with an asterisk in front. i noticed this sort of problem on a job that i was just working on. i had a page setup for modelspace to print out things for me to look at to the small printer. well when i printed out the full set it printed my modelspace layout which i didn't need then. these all sound like good ideas to me let me know how it goes  

dan

[CAB]

dan

actually thoses features were for me.

I usually have between 6 and 10 tabs in each main drawing, just depends on the house size / complexity.

So there are others of us here with needs and wants too.


Here is the revised code and will not plot Model Space or tabs with ~ in the name.

Code: [Select]

;; plot all paper space tabs, ignore Model Space
;; ignore tabs with ~ in the name
(Defun C:PT
   (/ plo_layouts plo_cntr plo_list plo_layouttab)
  (vl-load-com)
  (setvar "FILEDIA" 0)
  (setvar "CMDDIA" 0)
  (initget 6) ; disallow 0 or <0
  (setq nofs (getint "Enter number of sets: <1>"))
  (setq nofs (if (or nofs (= nofs 0))
      nofs
      1
    )
  )
  (setq plo_layouts
(vla-get-layouts
  (vla-get-activedocument (vlax-get-acad-object))
)
  )
  (vlax-for plo_layout plo_layouts
    (setq plo_list (cons (vla-get-name plo_layout) plo_list))
  )
  ; make sure to plot tabs left to right in order
  (setq plo_list (if (= (car plo_list) "Model")
  plo_list
  (reverse plo_list)
)
  )
  (while (>= nofs 1)
    (setq plo_cntr 0)
    (repeat (length plo_list)
      (setq plo_layouttab (nth plo_cntr plo_list))
      (cond
((= plo_layouttab "Model")
nil ; skip Model Space
) ; end cond 1
((> (vl-string-search "~" plo_layouttab) 0)
nil ; skip if ~ in tab name
) ; end cond 2
(T
(command "-PLOT" "n" plo_layouttab "" "" "" "" "" "")
) ; end cond 3
      ) ; end cond
      (setq plo_cntr (1+ plo_cntr))
    )
    (prompt "\nPlot Set Complete")
    (setq nofs (1- nofs))
  )

  (setvar "FILEDIA" 1)
  (setvar "CMDDIA" 1)
  (princ)
)


[ELOQUINTET]

okie dokie i'll give it a go thanks

dan

[CAB]

Daron,

You were going to upload some file to look at.

Just a reminder  Hint Hint

I had to plot a job yesterday with 14 tabs in the draiwing but could not use the routine above,
because I had previously plotted to my DJ1120C and needed to change the  plot style in each tab.

When you have time.

Thanks

CAB

[daron]

I thought you saw them. PM time.

[CAB]

Sorry, was looking in the Lilly pond

The file is VERY informative, Thanks

Was trying to get this to work. No Luck.
(lost in X land)  

Code: [Select]

(setq cfg (vlax-safearray->list
      (vlax-variant-value (vla-Get-PlotConfigurations LayoutObj))
    ))


CAB

[daron]

What is the value of layoutObj?