Question

CAD里怎么用LISP调出图层管理器中的图层过滤器，并且批量更改过滤出来的图层颜色、冻结状态？

目前图纸里参照的图太多了，原先的图层都带上了图纸名称，自己设置过滤器的话要每张图都设，想寻求一个lisp来自己修改调试。

Answer 1

AcadDoc.layers.Count----得到图中所有的图层 的总层数
遍历所有的层
某一层 LLL=AcadDoc.layers.item i------也就是得到第i层
用--LLL.Name----得到某一层的层名
通过比较 如果该层正是 你想要改颜色的那个 层，那就用 LLL.TureColor ---来设置层的颜色
------------------对了，前提是图中所有图元的颜色都是"ByLayer"--也就是“随层”

追问

我想通过模糊搜索图层名的方式来实现，因为现在外部参照很多，图层名前面都带外部参照的文件名，文件名没有规律，原先的代码不知道怎么改了，这个是原来的代码一部分，想问一下能在这个基础上修改吗？

追答

你这个代码是逐一比较某层的层名，然后设置颜色，如果你想用模糊查找，需要稍作修改，那就不能直接用“=”这个比较符了，假设你的层名中，都是 前边几个字符相同，象 AAAA1234，AAAA5555，AAAA作为关键词，后边作为模糊词，你可以先取出其前边的4个字符，然后再用“=”比较符，这样就可以了，----------
（vla-get-name x)---取到层名，，加一个外套，，改成这样（substr (vla-get-name x) 1 4)
这里的4就是4个字符，你可以根据实际情况修改，也就是只比较“层的名称”中的前4个字符

追问

那要从后往前取字符该怎么办呢？像123346747853634AAAA,34564567AAAA,就是AAAA前面的字符很多，不固定，反而后面的AAAA是结尾固定的，多谢多谢！！

追答

这就要用到strlen函数了，改成（substr (vla-get-name x) （-（strlen (vla-get-name x)) 3） 4)
---这里注意3 和4，与固定的那些字符的长度有关

追问

这里的减号“-”的意思是不是从后往前开始呀？我的理解是从后往前第3个字符开始，4个字符后结束，不知道对不对，我加载出来的结果是错误，是不是不识别“-”这个符号呀

追答

-这个符号与括号之间有一个空格，在这是运算符 （- A B）得到A-B的值 （- 3 2）得到1，，注意空格哦

Answer 2

贱人工具箱不行吗？图层功能很强大了啊