层控制排序

cpriedel · 发表于 2022-7-5 23:58:00

嗨，我想重新构建我们的层次体系，让它更专业一点。基本上不是“混凝土轮廓”层。我想把它改成！CI（公司缩写）-具体大纲”。我这样做的另一个原因是，我希望我们的层在层管理器中显示在第一位，无论外部参照名称是什么。
现在有一个有效的观点，即工作人员无法像以前那样找到图层。（只需在以字母C开头的所有层的层控件中键入“C”）。

我想问你们一个问题。
你会如何处理这个问题？
我希望有人能给我指出一个可以在所有工作站上加载的lisp。基本上扫描层管理器并忽略！CI。因此，如果有人在图层控件处于活动状态时键入“C”，它将显示以“C”开头的所有公司图层。

这可能吗？不幸的是，我没有太多的Lisp程序的经验。因此，任何帮助都将不胜感激。
非常感谢。

Dadgad · 发表于 2022-7-6 00:15:09

如果层名称的前缀为！，然后这些层将显示在层控件的顶部
下拉列表和图层管理器听起来很容易找到，它们总是在那里。

Lee Mac · 发表于 2022-7-6 00:21:56

要为层添加前缀，请下载并加载“我的列表框”功能，然后加载并运行以下代码：
[code]（defun c:laprefix（/def enx lay lst）（while（setq def（tblnext“layer”（null def））（if（not（wcmatch（strcase（setq lay（cdr（assoc 2 def））））“0，deffpoints，！CI-*”）（setq lst（cons lay lst）））（if（setq lst（vl sort lst）

cpriedel · 发表于 2022-7-6 00:29:14

谢谢你的回复。我想我没有明确我需要什么。所以我再试一次。这有点难以形容，所以请容忍我
我们所有的图层都已重命名。它们看起来像这样吗（例如！CI Concrete outline）这一层过去被称为（Concrete outline）。因此，如果您打开图层控件并键入“C”，它将滚动到以“C”开头的所有图层。这是我想要保留的奢侈品，因为它可以更快地找到各个层，而不需要滚动所有层。

所以我要找的不是一个lisp，它可以重命名我需要的所有层。一个lisp在层控制中忽略“！CI-”，并找到所有以我在键盘上键入的字母开头的层（“C”滚动到在！CI-，H）之后以C开头的层，滚动到在！CI-，H-，之后以H开头的层。

再次感谢您的帮助！

djmikel · 发表于 2022-7-6 00:36:54

cpriedel，在图层管理器对话框中键入图层名时，图层名中的“感叹号”和“连字符”是问题所在。我怀疑层名称中使用的任何特殊字符都会导致相同的问题。只需键入前几个字符即可选择没有特殊字符的图层名。

我知道，在功能区“主页”选项卡上的“图层”下拉框中，可以键入带有特殊字符的图层名，它将跳转到相应的图层。此行为也适用于“general&layer”下的“properties”框。

因此，我已经习惯了使用“主页”选项卡上的下拉框来控制一些图层功能（冻结、解冻、关闭等），而无需进入“图层管理器”对话框。

我不确定是否可以从对话框内部运行lisp例程。李是那里的专家。