默认的基点改成物体的中心

李青松

(defun c:tt ()
  (princ "\n选择实体快速移动: ")
  (if (setq ss (ssget))(command "_.move" ss "" (getvar "viewctr") pause))
  (princ)
)


(defun c:tt2 ()
  (princ "\选择实体快速复制: ")
  (if (setq ss (ssget))(command "_.copy" ss "" "m" (getvar "viewctr") pause))
  (princ)
)
附了个文件供参考