;****************圖層COPY功能***********************************]
(defun c:cx (/ os ce bm ss se la )
       (setq   os (getvar "osmode")
               ce (getvar "cmdecho")
               bm (getvar "blimpode")
       )
       (setvar "osmode" 39)
       (setq se (getstring "\n input layer name<any key>/select matching object <enter>")
       )
       (if (= se "")
           (progn
           (setq la (cdr (assoc '8 (entget (car (entsel "\n select an object to match it"
           )        )    )         )       )    )
           (setq ss (ssget))
           (command "copy" ss "" "@" "@")
           (command "_change" ss "" "p" "la" la "")
           )
           (progn
           (setq la (getstring "\n enter layer name>"))
           (setq ss (ssget))
           (command "copy" ss "" "@" "@")
           (command "_change" ss "" "p" "la" la "")
           )
       )
       (setvar "osmode" os)
       (setvar "cmdecho" ce)
       (setvar "blipmode" bm)
       (princ)  ;圖層复製功能可能會給您帶來絕大的便利,您會中意的!!!
)