The code posted below will purge all Page Setups except for the current page setup (if one is applied).
If you have ever received a drawing with many page setups this routine will help reduce the amount of setups that you have to navigate.
Here’s how:
DEL_PAGESETUPS
~enjoy
;; Function to delete all user plot set ups ;; Posted by; CAB @ http://forums.augi.com/showthread.php?63099-page-setup-import-vlisp (defun c:Del_Pagesetups (/ 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
Dear Sir, I am a follower of your post. Thank you from me and others who share your knowledge and expertise. I have question i.e. how can I edit existing lisp routine? here existing not the one you or I make. I mean to say routine that comes with the software such as fillet or mirror command.
Best Regards
Madhusudan Banerjee
________________________________
Unfortunately, you cant edit the default commands. They are buried within the program’s API. You’re best bet would be to use a lisp routine that is a modification that suits your needs and then make sure that it is loaded in each session of AutoCAD so that it can be used.
Oh, That’s beautiful. Thank you