0 Members and 1 Guest are viewing this topic.
(defun C:doit ()(setq p1(getpoint))(setq p2(getpoint))(setq dis (distance p1 p2))(setq ang (angle p1 p2))(command "move" "all" "" dis ang))