将图层设置为0 lisp

asteffy · 发表于 2022-7-6 07:05:32

我开发了一个非常简单的例程，将当前层设置为0，但无法同时将所有内容设置为bylayer。有人建议我用颜色和线型bylayer将当前图层置零吗？我当前的代码如下。

(defun c:q ()
(command "_.layer" "_set" "0" "")
(princ)
)

Bill Tillman · 发表于 2022-7-6 07:16:06


(command "._CLAYER" "0")
(setvar 'CELTYPE "ByLayer")
(setvar 'CECOLOR "ByLayer")

asteffy · 发表于 2022-7-6 07:34:12

杰出的非常感谢。

Tharwat · 发表于 2022-7-6 07:42:43

试试这个。。。。


(mapcar 'setvar '(clayer cecolor celtype celweight) (list "0" "BYLAYER" "BYLAYER" -1))

Lee Mac · 发表于 2022-7-6 07:45:41

小心冷冻层。。。

(if (zerop (logand 1 (cdr (assoc 70 (tblsearch "LAYER" "0")))))
   (setvar 'clayer "0")
)

pBe · 发表于 2022-7-6 07:59:56

亲爱的，为了尝试不同的东西，我可以使用类似的方法与（SSGET“_X”…）对于锁定层

好主意，一如既往

编辑：难怪它看起来很熟悉，我们之前已经上过这节课-->
放置所有外部参照。。。。。职位#16

（延迟-->pBe

Lee Mac · 发表于 2022-7-6 08:07:09

..........

[编程交流] 将图层设置为0 lisp