;;; Copy object in the exact same location in a one click
;;; Modified by Igal Averbuh 2016
;;; Inspired by http://www.cadtutor.net/forum/showthread.php?95741-LISP-Code-to-Complete-NCOPY-Command&highlight=copy
(defun c:c0 ( / ent)
(setvar "cmdecho" 0)
(setvar 'errno 0)
(setq ent (entsel "\nPick object for 0 COPY"))
(cond
((= (getvar 'errno) 7)(c:c0))
(T (command "_.copy" ent "" "_non" '(0 0) "_non" '(0 0)))
);cond
(setvar "cmdecho" 1)
(princ)
)
(c:c0)

Advertisements