按生成层的描述

Christina_ · 发表于 2022-7-5 19:56:46

Cad用户您好，
我是Christina，刚接触CadTutor和Lisp。
我是一名14岁的学生，非常喜欢AutoCad和Autolisp。
我有一个关于层次的问题…
找到这个非常好的导师从专家李Mac和想知道如何有一个层次的描述？
感谢您阅读本文，
克里斯蒂娜

pBe · 发表于 2022-7-5 20:06:57

嗨，克里斯蒂娜，欢迎来到CADTutor。

这就是精神！

是否要添加层描述？仅适用于新创建的层？甚至是现有的？

快速破解

copy

(defun _layer4 ( name colour linetype lineweight plot des)
   (if (null (tblsearch "LAYER" name))
       [color="blue"](progn[/color]
        (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)
            )
                )
             [color="blue"](command "-layer" "_Description" des name "")[/color]
                   [color="blue"])[/color]
)
     )
(defun c:test4 ( / )
   (foreach item
      '(
           ("Layer7" 4 "HIDDEN"     40 1 [color="blue"]"whoopie"[/color])
           ("Layer8" 3 "Continuous" 90 0  [color="blue"]"hello")[/color]
           ("Layer9" 2 "PHANTOM"    20 1 [color="blue"]"banana cake"[/color])
       )
       (apply '_layer4 item)
   )
   (princ)
)

Christina_ · 发表于 2022-7-5 20:15:20

你好，pBe，

我会非常高兴的新层，我搜索几天这个
尝试：（if description（list（list-3）（list“acaceclayerstandard”（cons 1000”“）（cons 1000 description 107;））））但没有成功
现有的想法让我很好奇。。。

谢谢您的回复！

pBe · 发表于 2022-7-5 20:19:48

哦，我明白了，你想要一种非命令行的方法。我从来没有想过如何通过字典添加描述。但这对我来说也是第一次。

您可以尝试（vla put description layerobject“description”），但您可能需要彻底修改上面发布的代码。

我知道，对吗？但正如我所说，您可能需要重新编写整个代码。