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

///'///'///'//n(defun replace-and-color (old-shape new-shape)//n (setq old-color (vla-get-color old-shape))//n (vla-put-color old-shape 1) ; 设置图形 A 颜色为红色//n (vla-delete old-shape)//n (vla-copy new-shape (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))//n (vla-put-color new-shape old-color) ; 设置图形 B 颜色为原来图形 A 的颜色//n)//n//n; 示例使用//n(setq acad-app (vlax-get-acad-object))//n(setq doc (vla-get-ActiveDocument acad-app))//n(setq old-shape (vla-Item (vla-get-ModelSpace doc) 0)) ; 假设图形 A 在模型空间中的第一个位置//n(setq new-shape (vla-Item (vla-get-ModelSpace doc) 1)) ; 假设图形 B 在模型空间中的第二个位置//n//n(replace-and-color old-shape new-shape)//n///'///'///