Duplicate object instantly

[kibitotato]

trying to do my first lisp

simple thing

select an objet copy and paste into the same place with spanish commands

(defun c:cv ()
(setq ss (ssget))
(command "COPIARBASE" ss "" "0,0,0" ss "PEGAPP" ss "0,0,0")
)

[ВeekeeCZ · Accepted solution]

(defun c:cv ()
  (setq ss (ssget))
  (command "COPIARBASE" "0,0,0" ss "" "PEGAPP" "0,0,0")
)

COPY - basepoint - selectionset - close the selection - PASTE - basepoint.

BTW much slower than using the COPY command.

[kibitotato]

It works!!! Nices job. I really love this forum. Thanks BeekeeCZ

[Kent1Cooper]

Why bother with the clipboard?  Just use a COPY command [whatever that's called in Spanish, or use the universalized _English-command-name], with the same place for the base and displacement points:

(defun c:cv (/ ss)
  (if (setq ss (ssget))
    (command "_.copy" ss "" "0,0,0" "0,0,0")

  )
)