AutoCAD Visual LISP: 替换图形并更改颜色

"""\n(defun replace-graph-A-with-B-and-change-color ()\n (setq objA (vlax-ename->vla-object (car (entsel "\n选择图形A："))))\n (setq objB (vlax-ename->vla-object (car (entsel "\n选择图形B："))))\n \n (setq colorID (vlax-put-property objA 'color 1)) ; 将图形A的颜色设置为红色\n \n (setq objA-props (vlax-invoke objA 'getproperties))\n (vlax-put-property objB 'color colorID) ; 将图形B的颜色设置为图形A原来的颜色\n (foreach prop objA-props\n (vlax-put-property objB (car prop) (cadr prop))) ; 复制图形A的属性到图形B\n \n (vlax-release-object objA)\n (vlax-release-object objB)\n \n (princ "\n替换完成"))\n"""\n要使用此代码，只需将其复制到AutoCAD的命令行中，然后按Enter键。接下来，按照提示选择要替换的图形A和图形B。图形A将被替换为图形B，并且图形A的颜色将更改为红色。