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

以下是一个使用 Visual LISP 代码实现图形替换并改变颜色的示例：

(defun replace-and-color (objA objB)
  (setq ss (ssget "X" (list (cons 0 objA)))) ; 选择图形 A 并将其存储在选择集中
  (if (/= (sslength ss) 0) ; 检查选择集中是否存在图形 A
    (progn
      (command "chprop" ss "" "la" "red") ; 将图形 A 的颜色更改为红色
      (command "chprop" ss "" "la" (strcat "layer," (cdr (assoc 8 (entget objB))))); 将图形 A 替换为图形 B（将图形 A 放置在图形 B 所在的图层上）
      (princ "替换成功！")
    )
    (princ "未找到图形 A！")
  )
)

(setq objA "CIRCLE")
(setq objB "POLYLINE")
(replace-and-color objA objB)

在上述代码中，我们定义了一个名为 replace-and-color 的函数，它接受两个参数 objA 和 objB，分别表示要替换的图形 A 和图形 B 的类型。该函数首先使用 ssget 函数选择所有类型为 objA 的图形，并将其存储在选择集 ss 中。然后，我们检查选择集中是否存在图形 A。如果存在，我们使用命令“chprop”将图形 A 的颜色更改为红色，然后使用相同的命令将图形 A 替换为图形 B 并放置在图形 B 所在的图层上。最后，我们打印出替换成功的消息。

在代码的最后，我们设置了 objA 和 objB 的值分别为 "CIRCLE" 和 "POLYLINE"，然后调用 replace-and-color 函数来替换图形并改变颜色。您可以根据需要修改这些值以适应您的具体情况。