自动更改图层是AutoLISP的一个常见需求。下面是一个示例代码，它演示了如何使用AutoLISP自动更改图层。

(defun c:change-layer ()
  (setq old-layer (getstring "\nEnter the name of the layer to change: "))
  (setq new-layer (getstring "\nEnter the name of the new layer: "))
  
  (setq ss (ssget "_X" (list (cons 0 "*"))) ; 获取当前选择集中的所有实体
  (setq total-entities (sslength ss))
  
  (setq count 0)
  (repeat total-entities
    (setq ent (ssname ss count))
    (setq ent (entget ent))
    (setq ent (subst (cons 8 new-layer) (assoc 8 ent) ent)) ; 替换图层名
    (entmod ent)
    (setq count (1+ count))
  )
  
  (princ (strcat "\nChanged " (itoa total-entities) " entities from layer " old-layer " to " new-layer))
  (princ)
)

要使用这个代码，只需将其复制到AutoCAD的命令行或LISP编辑器中，然后运行change-layer命令即可。该命令将提示您输入要更改的图层名称和新图层名称。然后，它将遍历当前选择集中的所有实体，并将它们的图层名称从旧图层更改为新图层。

请注意，这只是一个简单的示例，可能无法处理复杂的图层更改需求。您可能需要根据自己的具体需求对代码进行修改和扩展。