Search the Community

I am sure there is a much simpler way to do this, but it works and thats all that matters, right? I always need to pull certain parts of a drawing out into a new file and to avoid all the copy clip open paste..... i created a program to do it for me. It uses 2 different LISPS and a script file.. (Again, im sure there is an easier way...) This is the main code... ; THIS COMMAND WILL SAVE A SELECTED PORTION OF A ; ; DRAWING TO A NEW FILE AND OPEN THE SAVE AS DIALOG BOX ; ; CREATED BY JPLANERA ; (DEFUN C:ssome ( / sset BP) (setq sset (ssget)) (princ "\n...Select base point:") (setq BP (getpoint)) (command "copyclip" sset "") (command "script" "M:\\ENGR\\DRAWINGS\\AUTOCAD SETTINGS\\SCRIPTS\\OPEN_NEW_PASTECLIP.SCR") (princ)) This part of the code I auto load with the startup of AutoCAD (defun c:ssomesave (/ FN) (setq FN (getfiled "Save Drawing As" "" "dwg" 1)) (if (= FN nil ) (progn (princ)(princ "...SAVEAS ABORTED...")(princ)) (progn (setvar "cmdecho" 0) (command "saveas" "" FN "y")(princ)))) And here is the script file... NEW pasteclip 0,0 zoom extents ssomesave I hope someone else finds this usefull, and of course, if it can be improved... bring it on! :-)