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

将图层设置为0 lisp

我开发了一个非常简单的例程，将当前层设置为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

..........
页: [1]
查看完整版本: 将图层设置为0 lisp