(defun c:bcopy (/ e el)
  (while (and (setq e (nentselp "\n选择块内实体: "))
	      (= (length e) 4)
	 )
    (setq el (entget (car e)))
    (entmake el)
    (vla-transformby
      (vlax-ename->vla-object (entlast))
      (vlax-tmatrix (caddr e))
    )
  )
  (princ)
)