使用创建新的相同层

Aftertouch · 发表于 2022-7-5 17:00:31

大家好，
我遇到了另一个我自己无法解决的挑战。

比如说我画了一幅画
-“B-LINELAYER”层上有20行
-“B-BLOCKLAYER”层上有6个块
-还有一个以“B”开头的图层。

现在我想运行我的命令。能够选择对象。（所有内容都允许删除锁定层）。然后键入“V”。
假设我在“B-LINELAYER”层上选择了10条线。我想把它们移到“V-LINELAYER”层。如果该层不存在，则需要使用原始层“B-LINELAYER”的精确属性进行制作。
这样，我可以给某些行/块一个特定的“状态”。Tho，它们在屏幕上显示相同。

到目前为止，我自己做到了：
-选择对象（除锁定层外的所有层）
-选择：B V或T（我使用的3种状态）
-如果没有选择，什么都不会发生。
-如果选择，则获取对象的数量并为每个对象运行循环。
但是现在。。。变化的部分。。。有什么想法吗？

copy


(defun C:ChangeStatus(/ objecten nieuwestatus n index)
(setq objecten (ssget ":L"))
(initget "B V T")
(setq nieuwestatus (getkword "\nChange to status [bestaand Vervallen Tijdelijk]: "))
(if (= nieuwestatus nil)
        (progn
        (princ "\nNothing changed.")
        )
        (progn
        (princ "\nChange status...")
        (setq n (sslength objecten))
        (setq index 0)
                (repeat n
[color="red"]                        <something here>[/color]
                (setq index (1+ index))
                )
        )
)
(princ)
)

Grrr · 发表于 2022-7-5 18:01:16

嗨，这里有一些提示：

更改某些实体的层（在本例中，所选实体位于“VLD\U AnnotateLINES”层，我们将其更改为“VLD\U TEXT”层）：

copy


_$ (setq e (car (entsel))) ; get some ename
<Entity name: 7ff70ce073a0>
_$ (setq enx (entget e)) ; get entity's data
((-1 . <Entity name: 7ff70ce073a0>) (0 . "CIRCLE") (330 . <Entity name: 7ff70ce039f0>) (5 . "2B2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "VLD_AnnotateLINES") (100 . "AcDbCircle") (10 177.098 166.179 0.0) (40 . 13.7554) (210 0.0 0.0 1.0))
_$ (setq enx (subst (cons 8 "VLD_TEXT") (assoc 8 enx) enx)) ; change (substitute) the layer association of its data
((-1 . <Entity name: 7ff70ce073a0>) (0 . "CIRCLE") (330 . <Entity name: 7ff70ce039f0>) (5 . "2B2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "VLD_TEXT") (100 . "AcDbCircle") (10 177.098 166.179 0.0) (40 . 13.7554) (210 0.0 0.0 1.0))
_$ (entmod enx) ; modify the entity
((-1 . <Entity name: 7ff70ce073a0>) (0 . "CIRCLE") (330 . <Entity name: 7ff70ce039f0>) (5 . "2B2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "VLD_TEXT") (100 . "AcDbCircle") (10 177.098 166.179 0.0) (40 . 13.7554) (210 0.0 0.0 1.0))
_$

迭代选择集（最常见的方法）：

copy


(if
(setq SS 
        (ssget "_:L" ; exclude locked layers
                (list (cons 8 "B-LINELAYER,B-BLOCKLAYER")) ; filter the selection by these layers [optional]
        )
); setq        
(repeat (setq i (sslength SS)) ; iterate thru the selection set
        (setq e (ssname SS (setq i (1- i)))) ; get an ename
        ; < do stuff with that ename >
); repeat
); if SS

希望你能学到一些东西。

[编程交流] 使用创建新的相同层

发表回复

精选推荐