外部参照图层。LSP[移动外部参照
灵感来源于此线。将根据“0-XREF_”（可以更改为任何名称）的名称和前缀，将所有外部参照移动到图层。
提示用户选择锁定外部参照图层。
完成后，打印移动到每个层的外部参照数。
创建的图层示例：
欢迎评论和批评。
享受男人们。
外部参照图层。LSP 你好
一个例子
+ 谢谢
精简版。顺便说一句，您正在为每个对象定义图层数据库，您将解锁图层。没什么大不了的，我只是想让你知道。 我做得很简单，因为通过多次检查，你会失去效率和速度
如果层已锁定，则不会像我们希望的那样严重
我还使用了图层和外部参照列表，更容易处理，速度更快。
由于ssget，我只保留了strcat变量s，否则它将作为一个列表
我还使用了微妙或作为多重条件
还要看看lisp和逻辑的结构
你有一个很好的水平，很少学习Lisp程序。
只会稍微简化您的操作，因为您有一个错误处理程序，这是不合理的。
@+ 我感谢你的评论，但我想说的是，我唯一多余的是最后的清单检查。我可以在对所有外部参照层和警报发出锁定之前删除它，但这是最小的，最多是一个纳秒的倒退。
我喜欢你用or表示你的条件。
您确实意识到，您修改代码的目的是仅锁定/解锁外部参照所在的图层。Mine实际上创建并将其放置在与外部参照名称相关的图层上。
我想说，我的“错误”处理程序是合理的。
如。
1
然而，如果通过活动的selectionset在progn和步骤之间移动undomark，则可以避免这种情况，但我更喜欢将其包装在错误处理程序中，以避免这一切。 每个人都有自己的偏好
看到另一个lisp来理解和找到提示总是很有趣的
就我个人而言，与代码的美丽相比，我仍然更喜欢速度，但一个并不排除另一个
主要的是lisp可以按预期工作，尤其是对自己的工作感到满意
@+ 很高兴您为每个人提供了仅冻结/解冻外部参照层的选项。
同意。
啊，但实验是生活的调味品眨眼： 我希望有一个lisp例程来保留图形中任何外部参照的选定图层。单击鼠标右键后，所有其余层都将关闭或冻结。
我过去常常将Civil图形外部参照到工作文件中，但只需要几层道路即可显示。关闭许多外部参照中的数百个图层需要很长时间。
你能帮忙吗。Tkx。PP。 我很乐意帮你做这样的事情。到目前为止，你的代码是什么？
对于这样的问题，你应该开始一个新的话题。 谢谢Alanjt。
干杯，PP。
页:
[1]
2