层交换
大家好。我是这个论坛的新手。我正在寻找任何建议，我可以找到一些代码在Autocad中进行层交换。情况就是这样：我们有很多图纸是按照我们公司的图层标准绘制的。现在我们有了一份新工作，客户有了自己的层标准，我们必须遵守。
例如，我们有一个称为“电气”的层，线型连续，颜色为黄色。
客户有一层称为机械，线型隐藏，颜色为绿色。
有没有人建议我在哪里可以找到一些代码来处理图形集并自动更改图层？杂志、书籍、网站，随便什么。
此外，该代码还必须能够更改块中嵌入的层。
我熟悉VBA，在Excel中完成VBA编程，所以我更喜欢VBA代码，但当然，我会选择我能找到的。
只是尽量避免自己开发代码。提前谢谢。 所以你想要有人为你做这项工作？
尝试Laytrans命令
我很确定他只是想说他希望它已经写好了。。。
laytrans应该做你想做的事 我发誓我读了比尔·克莱默（HTH）的作品，他写了一些非常类似的东西。我想他甚至把它叫做层交换，但我可以想象一些事情。他们是对的，laytrans会做你想做的事。 多年来，我只在简单的模型空间中使用了很多，没有外部参照图形。缺点可能是新图层的线型不存在或不在acad中。然后在LAYER命令期间失败。它是case senitive（在旧版本中并不重要）
大卫 当我下周回到办公室时，我会试试你所有的建议。
大卫，谢谢你发代码。由于我不熟悉Lisp，请您描述一下您的变量（ll tdef ln ss fe fd ld），以便我更好地理解该程序。 其实很简单
ll=users\u layer\u列表
tdef=表格定义
ln=层名称
ss-选择集
fe-第一个块嵌套实体名称
fd-fe\u dxf\u定义
ld-layer_定义
ll是唯一一个你需要根据自己的需要修改的。其余部分在程序中是自主的-大卫 谢谢你，大卫
页:
[1]