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

"(defun replace-shape ()\n (setq shapeA (vlax-ename->vla-object (car (entsel "\n选择要替换的图形A："))))\n (setq shapeB (vlax-ename->vla-object (car (entsel "\n选择要替换为的图形B："))))\n\n (vla-put-Color shapeA 1) ; 将图形A的颜色更改为红色\n\n (setq newShapeB (vla-copy shapeB)) ; 复制图形B\n\n (setq oldLayer (vla-get-layer shapeA)) ; 获取图形A所在的图层\n (setq newShapeB (vla-put-layer newShapeB oldLayer)) ; 将复制的图形B放置在与图形A相同的图层上\n\n (setq oldLinetype (vla-get-linetype shapeA)) ; 获取图形A的线型\n (setq newShapeB (vla-put-linetype newShapeB oldLinetype)) ; 将复制的图形B的线型设置为与图形A相同\n\n (setq oldLinetypeScale (vla-get-linetype-scale shapeA)) ; 获取图形A的线型比例\n (setq newShapeB (vla-put-linetype-scale newShapeB oldLinetypeScale)) ; 将复制的图形B的线型比例设置为与图形A相同\n\n (setq oldLineweight (vla-get-lineweight shapeA)) ; 获取图形A的线宽\n (setq newShapeB (vla-put-lineweight newShapeB oldLineweight)) ; 将复制的图形B的线宽设置为与图形A相同\n\n (vla-erase shapeA) ; 删除图形A\n\n (vla-update newShapeB) ; 更新图形B以显示更改\n\n (princ "\n图形替换完成。")\n)\n\n(replace-shape) ; 调用替换函数\n"\n\n请注意，代码中的替换是通过复制图形B并将其放置在与图形A相同的位置和属性上来实现的。然后，图形A被删除，而图形B作为替代被显示出来。