快速轻松地更改LISP

tmelancon · 发表于 2022-7-6 06:21:38

我很忙，当然，和每个人一样，我有很多工作需要完成，所以我想我会快速发布这篇帖子。希望有时间的人能帮忙！我基本上需要一个简单的例程，将颜色从旧标准更改为新标准。

我相信这很可能是最简单的例行程序，但如果有人可以张贴一个，节省我一点时间，我将不胜感激。

一个例子是图层：文字，30多年来我们的旧标准一直是“绿色”，现在我们已经改变了这一点，并使用颜色“104”，这更像是海龟绿，无论如何，这是老板想要的，所以这是老板得到的。

现在，当我们打开一幅10年前绘制的图时，它有我们所有的旧图层和它们各自的旧颜色。

我只需要一个lisp，将运行每次我们打开一个图形进行编辑或修订，将自动搜索图层和更改其属性（颜色）。。

ReMark · 发表于 2022-7-6 06:26:32

是否要批量处理图形文件夹？

tmelancon · 发表于 2022-7-6 06:31:51

我认为批量处理可以加快整个过程，不会有任何问题。但我们有这么多的画，有时几个月或几年都没有重画。有什么方法可以让我们在打开现有图形时编写一些只在启动时运行的内容，将图层“TEXT”的颜色更改为“104”。“文本”层是我真正需要解决的层，因为它在我们的office标准模板中占主导地位。

Lee Mac · 发表于 2022-7-6 06:34:27

试试这个：

copy

(defun c:clc ( / col ent lst )
   (setq lst
      '([highlight]
           ("TEXT"          104)
           ("YourLayerHere" 123)[/highlight]
       )
   )
   (foreach lay lst
       (if (setq ent (tblobjname "layer" (car lay)))
           (progn
               (setq ent (entget ent)
                     col (assoc 62 ent)
               )
               (entmod (subst (cons 62 (if (minusp (cdr col)) (- (cadr lay)) (cadr lay))) col ent))
           )
       )
   )
   (princ)
)