0 Members and 1 Guest are viewing this topic.
Rotate by reference.
Quote from: alanjt on December 21, 2011, 08:50:08 AMRotate by reference. Rotate command is not intuitive to first time user, however its the way to go.
(defun c:RF (/ ss bp pt) (princ "\nSelect object(s) to rotate: ") (if (and (setq ss (ssget "_:L")) (setq bp (getpoint "\nSpecify base point: ")) (setq pt (getpoint bp "\nPick point of object to rotate: ")) ) (command "_.rotate" ss "" "_non" bp "_r" "_non" bp "_non" pt) ) (princ))
Quote from: stevesfr on December 21, 2011, 09:04:42 AMQuote from: alanjt on December 21, 2011, 08:50:08 AMRotate by reference. Rotate command is not intuitive to first time user, however its the way to go.I wrote this to make things a little less cumbersome...Code: [Select](defun c:RF (/ ss bp pt) (princ "\nSelect object(s) to rotate: ") (if (and (setq ss (ssget "_:L")) (setq bp (getpoint "\nSpecify base point: ")) (setq pt (getpoint bp "\nPick point of object to rotate: ")) ) (command "_.rotate" ss "" "_non" bp "_r" "_non" bp "_non" pt) ) (princ))
Quote from: alanjt on December 21, 2011, 09:12:47 AMQuote from: stevesfr on December 21, 2011, 09:04:42 AMQuote from: alanjt on December 21, 2011, 08:50:08 AMRotate by reference. Rotate command is not intuitive to first time user, however its the way to go.I wrote this to make things a little less cumbersome...Code: [Select](defun c:RF (/ ss bp pt) (princ "\nSelect object(s) to rotate: ") (if (and (setq ss (ssget "_:L")) (setq bp (getpoint "\nSpecify base point: ")) (setq pt (getpoint bp "\nPick point of object to rotate: ")) ) (command "_.rotate" ss "" "_non" bp "_r" "_non" bp "_non" pt) ) (princ))Suggestion: maybe say "Pick second point of object to rotate:"