Topic: redefining COPY command

[Lupo76]

Hello everyone,
I wrote the following function:

Code: [Select]

(defun undefine-command (cname)
   (if (getcname cname)
     (progn
        (setvar "cmdecho" 0)
        (command "._UNDEFINE" cname)
     )
   )
)


(undefine-command "_copy")

(defun copynew ()
  (alert "This is a test")
  (command "_.copy")
)


(defun c:copia ( )
  (copynew)
)

(defun c:copy ( )
   (copynew)
)

(defun c:_copy ( )
   (copynew)
)

This function works quite well but does not behave exactly like the COPY command in AutoCAD.
In practice, missing the request:
Specify base point or [Displacement / mode] <Spostamento>:

I also tried

Code: [Select]

(command "_.copy" obj"" "_o" "_m")
and other attempts but I can never simulate the exact behavior of the original COPY command. 
Do you have any idea?

Thanks in advance

[CAB]

What do you get with this?
(command "_.copy" obj "" pause)