Topic: Lisp for Page Setup

[One Shot]

Is the a lisp toutine out there that can change multiple tabs at on time. If not, here is my idea for the lisp.

You have a dwg that has 12 tabs in it. Any your have to change all the page setups for all 12 tabs. What I would like to do is to change the first page setup to my desired setting. After that tab is updated, the remaining tabs will automatically update.



Thank you,

Brad

[David Hall]

Does it have to be LISP?  I have that in VBA now

[One Shot]

Does it have to be LISP?  I have that in VBA now

It does not have to be a lisp.

Thank you,

Brad

[T.Willey]

Try this link.

[ELOQUINTET]

look in show your stuff cab just posted exactly what you want works great enjoy

[Andrea]

suggestion...

I have this code..from..??

Code: [Select]

;;  Function to delete all user plot set ups
(defun c:DPS (/ 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
(c:DPS)
you can use this with the
(command ".-PSETUPIN" "PageSetups.dwg" "*")
for each tab...

ps: you can use (layoutlist)