9 lines
339 B
Common Lisp
9 lines
339 B
Common Lisp
(defun C:bb (/ ss newpoint goodpoint)
|
|
(graphscr)
|
|
(prompt "\nselect entities to move (all): ")
|
|
(setq ss (ssget));asks for selection
|
|
(setq newpoint (getpoint "\nPick new basepoint"))
|
|
(setq goodpoint(subst 0.0 (nth 2 newpoint) newpoint))
|
|
(print goodpoint)
|
|
(command "._move" ss "" "_non" goodpoint "_non" "0,0,0")
|
|
) |