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

图层管理-分配l

大家好,
 
我有个问题要问你。是否可以让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文件,并根据需要编辑顶部部分,如下所示
 
(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
    )
)      

(

rjbrittain11 发表于 2022-7-5 23:00:42

啊,现在工作!再次感谢!!!

Lee Mac 发表于 2022-7-5 23:09:14

 
该程序当前设置为在绘图启动时自动加载-如果您想在绘图过程中手动启用它,则需要按rkent正确指示键入“LDON”。
 
如果将应用程序设置为在图形启动时加载(遵循以下方法之一),则无需每次键入命令即可启用它。
 
我希望这有帮助!
 

Lee Mac 发表于 2022-7-5 23:16:41

 
听到rkent真是太棒了
我很高兴你能从这个程序中得到如此多的利用。
 
 
仅供参考,这看起来像是该程序旧版本的一个片段——我在今年6月将该程序更新为V1.2,以便为新层配置更多层属性。
 
干杯
 

rkent 发表于 2022-7-5 23:21:53

 
这无疑让生活变得更轻松,是的,我用的是原版。我有一个新的d/l,并对我的图层进行了更改。我想知道今天这个帖子是什么时候开始的,你是否可以添加线型,沙扎姆,是的,你可以,是的,你做了。
 
谢谢
 
rkent公司

Dadgad 发表于 2022-7-5 23:23:05

 
李,我以前说过,我会再说一遍,这个Lisp程序,就像你一样,棒极了!谢谢你的付出和付出。我也在用旧版本,会更新的。每个人都应该用这个,你为什么不呢?
页: [1] 2
查看完整版本: 图层管理-分配l