按生成层的描述
Cad用户您好，我是Christina，刚接触CadTutor和Lisp。
我是一名14岁的学生，非常喜欢AutoCad和Autolisp。
我有一个关于层次的问题…
找到这个非常好的导师从专家李Mac和想知道如何有一个层次的描述？
感谢您阅读本文，
克里斯蒂娜
嗨，克里斯蒂娜，欢迎来到CADTutor。
这就是精神！
是否要添加层描述？仅适用于新创建的层？甚至是现有的？
快速破解
(defun _layer4 ( name colour linetype lineweight plot des)
(if (null (tblsearch "LAYER" name))
(progn
(entmake
(list
'(0 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(70 . 0)
(cons 2 name)
(cons 6
(if (tblsearch "LTYPE" linetype)
linetype
"Continuous"
)
)
(cons 62 colour)
(cons 290 plot)
(cons 370 lineweight)
)
)
(command "-layer" "_Description" des name "")
)
)
)
(defun c:test4 ( / )
(foreach item
'(
("Layer7" 4 "HIDDEN" 40 1 "whoopie")
("Layer8" 3 "Continuous" 90 0"hello")
("Layer9" 2 "PHANTOM" 20 1 "banana cake")
)
(apply '_layer4 item)
)
(princ)
)
你好，pBe，
我会非常高兴的新层，我搜索几天这个
尝试：（if description（list（list-3）（list“acaceclayerstandard”（cons 1000”“）（cons 1000 description 107;））））但没有成功
现有的想法让我很好奇。。。
谢谢您的回复！ 哦，我明白了，你想要一种非命令行的方法。我从来没有想过如何通过字典添加描述。但这对我来说也是第一次。
您可以尝试（vla put description layerobject“description”），但您可能需要彻底修改上面发布的代码。
我知道，对吗？但正如我所说，您可能需要重新编写整个代码。 嗨，克里斯蒂娜，欢迎来到CADTutor
请尝试以下操作：
2 @pBe，现在我将搜索您的想法，以便在图层存在时进行编辑
@李·麦克，
很高兴见到Lisp程序的大师，我们甚至在比利时都知道你的知识！
是的，终于成功了，我爸爸也会高兴的！
我总是在错误的地方使用regapp…
非常感谢你们的欢迎并解决了我的问题！
克里斯蒂娜 你太善良了，克里斯蒂娜谢谢你的恭维。
我很高兴代码能很好地为您工作，并且您对结果感到满意。
祝你一切顺利。
就是这样做的。
谢谢你，李
不用担心pBe
页:
[1]