다른도면에서 ctrl + c/v할때 자꾸 다른 객체가..

붙여넣으려는 도면에 붙여넣기 하는 객체 블록과 같은 이름의 블록이 존재하면
그렇게 됩니다.

이걸로 써보세요. 
제가 아는한 이게 제일 최선입니다.

(defun c:vvv ( / txt op oDocument oblock txt2 d d1 t1 )

(vl-load-com)
     (setq d (rtos (getvar “cdate”) 2 7))
     (setq d1 (substr d 1 8)
           t1 (substr d 10 7)
           txt (strcat “_” d1 t1)
     );setq end

  (setq oDocument (vla-get-activedocument (vlax-get-acad-object)))
  (vlax-for oBlock (vla-get-blocks oDocument)
    (if (/= (substr (vla-get-name oBlock) 1 1) “*”)
        (progn
    (if ( > ( strlen (vla-get-name oBlock) ) 60 )
              (setq txt2 (substr (vla-get-name oBlock) 1 40 ) )
              (setq txt2 (vla-get-name oBlock) )
        );if end
        (vla-put-name oBlock (strcat txt2 txt))
 );progn end
    )
  )
    (command “pasteclip”  )
  (princ)
)