AutoCAD Visual LISP: 替换图形并修改颜色为红色

下面是一个示例的Visual LISP代码，可以实现将图形A替换为图形B，并将替换后的图形A颜色改为红色。\n\nlisp\n(defun c:replace-with-red ()\n (setq oldobj (car (entsel "\n选择要替换的图形A: "))) \n (setq newobj (car (entsel "\n选择替换后的图形B: "))) \n (command "change" oldobj "" "p" "c" "" newobj "") \n (command "chprop" oldobj "" "c" "red") \n (princ) \n)\n\n\n使用方法：\n1. 将上述代码复制到AutoCAD的Visual LISP编辑器中（通过输入VLIDE命令打开）。\n2. 运行代码（输入REPLACE-WITH-RED命令）。\n3. 选择要替换的图形A。\n4. 选择替换后的图形B。\n5. 图形A将被替换为图形B，并且颜色将改为红色。