图层管理-分配l

rjbrittain11 · 发表于 2022-7-5 22:33:04

大家好，

我有个问题要问你。是否可以让autocad、im使用2014将图层指定给特定命令？例如，如果我使用命令PL并希望绘制多段线，它将自动将图层切换到我为直线指定的图层，例如直线。或者，如果我要创建引线，当我在命令行中键入leader时，它会自动使层引线成为当前层？

此外，如果尚未创建层，它将创建层，然后在我键入命令后将其指定给当前层。我想说的是，几年前我是一份工作，CAD经理为此创建了一个LISP。这很模糊，但我认为他做到了。

不管怎么说，有人听说过这件事，或者有资源知道如何做到这一点吗？

Lee Mac · 发表于 2022-7-5 22:44:01

试用我的层控制器应用程序

李

rkent · 发表于 2022-7-5 22:48:48

自从李慷慨地提供给每个人以来，我一直在使用这个。易于修改您想要包含的图层和命令，效果很好。

rjbrittain11 · 发表于 2022-7-5 22:53:47

谢谢你们的推荐！现在，让它加载并工作。我已将其加载到autocad中，但它似乎不起作用。我必须打开或关闭其他东西吗？我所做的就是去APPLOAD，找到下载的例程，然后点击load。我遗漏了什么？我输入文本，它不会改变任何东西。

rkent · 发表于 2022-7-5 22:55:48

首先在命令行中键入LD，如果加载了它，您将看到它在命令行中打开或关闭。

现在打开LayerDirector。lsp文件，并根据需要编辑顶部部分，如下所示

copy

(defun LM:LayerDirector nil (vl-load-com)
 (setq *LayerData*
  '(
    ("*TEXT"           "M-ANNO"  7)
    ("*DIM*,*QLEADER"  "M-DIMS" 7)
    ("*VPORT*"         "M-VIEW"  42)
    ("*MVIEW*"         "M-VIEW"  42)
    ("*MLEA*"          "M-ANNO"  7) ;mleader
    ("*NEWOR*"         "M-ANNO"  7) ;newwork custom command
    ("RAY*"           "XLINE"  201) ;
    ("*REV*"           "M-ANNO"  7) ;revcloud
    ("*TABL*"          "M-ANNO"  7) ;table
    ("*WIPEO*"         "M-VIEW"  251) ;wipeout
    ("*XATT*, *WFATT*" "XREF"  7)   ;xref attach
    ("*XLIN*"          "XLINE"  201) ;xline
    ("*XL*"            "XLINE"  201) ;xline
    ("*HATC*"          "M-PATT"   ;bhatch hatch
    )
 )      
 (