takeanosan Posted February 5, 2015 Share Posted February 5, 2015 (edited) As the above title implies, I am working on a ucs lisp that will rotate my ucs based on object selected. However I am not sure how to ensure it rotates correctly when using lisp. (Ucs will rotate to nearest selected end when selected manually) (defun c:cs () (command "ncopy" pause "" "0,0" "0,0") (setq dummy (entlast)) (command "ucs" "ob" dummy "plan" "current") (command "zoom" "o" dummy "") (command "erase" dummy "") (princ) ) (defun c:cs1 () (command "ucs" "w" "plan" "current") (princ) ) Besides that how do I remember my last zoomed position to reset the ucs? best regards Edited February 5, 2015 by takeanosan wrong title Quote Link to comment Share on other sites More sharing options...
guran Posted February 5, 2015 Share Posted February 5, 2015 Maybe something like this: (DEFUN C:ZU(/ lin point) (setq lin (entsel "\nSelect a line: ")) (setq point (cadr lin)) (COMMAND "UCS" "OB" point "PLAN" "C" "ZOOM" "O" lin "") (PRINC) ) Quote Link to comment Share on other sites More sharing options...
SLW210 Posted February 5, 2015 Share Posted February 5, 2015 guran, Please follow the Code Posting Guidelines. Quote Link to comment Share on other sites More sharing options...
Commandobill Posted February 6, 2015 Share Posted February 6, 2015 You can look here http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-F806BFBE-6291-44B9-AE48-CD960B7CB8D1 Which is the advanced way of doing it. Otherwise under the "UCS" command there is a "Previous" option, which brings you back one level. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.