Visual LISP 代码：替换图形并更改颜色

"(defun replace-and-color-graph (old-graph new-graph)\n (setq old-ent (entlast))\n (if (and (setq old-ent (entlast)) \n (eq (cdr old-ent) old-graph))\n (progn\n (entdel old-ent)\n (setq new-graph (subst '1.0 '0.0 new-graph))\n (entmake new-graph)\n (entmod (list (cons 62 1)) ); 设置颜色为红色\n )\n (prompt "未找到图形A，无法替换或修改颜色")\n )\n)\n\n(setq graph-A '\((-1 . 0) (0 . 1) (1 . 0) (0 . -1) (-1 . 0))) ; 图形A的坐标列表\n(setq graph-B '\((-2 . 0) (0 . 2) (2 . 0) (0 . -2) (-2 . 0))) ; 图形B的坐标列表\n\n(replace-and-color-graph graph-A graph-B)