将选定块移动到sp

raptor22 · 发表于 2022-7-5 20:04:42

嘿，好了，
我正试图找到一种方法来简化一个过程，这应该在每一张图纸中完成，我需要清理大量的图纸，这是真正的混乱。问题是，你可以在几个层中找到一个块，例如，当块“门”只能在其层“门”中找到时，你可以在几个不相关的层中找到它，墙上有墙、楼梯和儿子，并且需要太多的时间才能将所有这些都转移到适当的层。
是否有任何lisp或方法使其更容易？我的意思是一个lisp，你可以选择几个相关的块（不同的门块），并将它们全部转移到一个特定的层（门层）。

谢谢

BIGAL · 发表于 2022-7-5 20:14:27

这可以使用过滤器完成，只需选择一个块并删除属性，如图层和插入，然后它将找到所有具有此名称的块，然后只需打开属性并选择正确的图层。

raptor22 · 发表于 2022-7-5 20:19:02

谢谢你的回复，我已经使用了Filter，这是一个方便的命令。重点是通过使用Filter，你几乎可以选择你想要的所有块，但是当你在一个脏的绘图块上工作时，块可能会相互阻塞，你需要先分解它们，然后处理它们，有时由于意外的问题会导致另一个混乱。。。。我只是想知道是否有人有更好的方法来解决这个问题。。甚至还有另一种使用快速选择的过滤器。。。。

Tharwat · 发表于 2022-7-5 20:19:55

将此作为一个示例。

笔记：
*用所需的层名称替换“我的层名称”字符串。
*您可以添加任意数量的代码来代替Block1、Block2。。。。等作为您的区块名称。
*块对象不能是动态的，否则它们将不会被选中，您需要另一个过滤器来处理此问题。

copy


(defun c:mtl  (/ ss e i)
 ;;; Tharwat 02.mar.2015 ;;;
 (if (and (tblsearch "LAYER" "[color=red]My-Layer-Name[/color]") [color=dimgray];;; Only one layer name here [/color]
          (setq ss
                 (ssget "_:L" '((0 . "INSERT") (2 . "[color=blue]Block1,Block2,Block3[/color]")))) [color=dimgray];;; A list of block names separated with a comma [/color]
          )
   (repeat (setq i (sslength ss))
     (setq e (entget (ssname ss (setq i (1- i)))))
     (entmod (subst '(8 . "Layer3") (assoc 8 e) e))
     )
   )
 (princ)
 )

Frans · 发表于 2022-7-5 20:26:20

如果您有一个嵌套块（“wall1”中的“door1”），只需重新定义原始块（“door1”），所有块（“door1”）都将更新，包括嵌套块

raptor22 · 发表于 2022-7-5 20:31:48

非常感谢。

谢谢，我尝试了你的代码，但在我编写命令-MTL时，它根本不起作用-什么都没有发生，命令行已经为新命令做好了准备。。。如果你能修改它，那就太好了。非常感谢。

顺便说一句，我不能感激你的好意。。。

BIGAL · 发表于 2022-7-5 20:37:56

您是否更改了红色和蓝色的代码以匹配您的dwg？

Tharwat · 发表于 2022-7-5 20:43:36

不客气

您只是更改了程序的命令名，没有更改我指示的突出显示的单词。

我怀疑你是否读过我早些时候在节目的同一帖子中写的笔记

raptor22 · 发表于 2022-7-5 20:49:05

嘿。。。

我很抱歉你是对的，我的错。。。我完全按照你说的做了，它成功了，再次谢谢。。。但是，不是将我的块插入到给定的层名称（06门），而是将它们全部插入到一个名为“Layer3”的层中，这个名称以前不存在。

Lee Mac · 发表于 2022-7-5 20:51:07

尝试以下程序，更改突出显示的部分以适合：

copy


([color=BLUE]defun[/color] c:blklaymap ( [color=BLUE]/[/color] enx idx lay map sel )
   ([color=BLUE]setq[/color]
       map
      '([highlight]
           ([color=MAROON]"Door"[/color] . [color=MAROON]"Door Layer"[/color])
           ([color=MAROON]"Wall"[/color] . [color=MAROON]"Wall Layer"[/color])[/highlight]
       )
       map ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]cons[/color] ([color=BLUE]strcase[/color] ([color=BLUE]car[/color] x)) ([color=BLUE]cdr[/color] x))) map)
   )
   ([color=BLUE]if[/color]
       ([color=BLUE]setq[/color] sel
           ([color=BLUE]ssget[/color] [color=MAROON]"_X"[/color]
               ([color=BLUE]append[/color]
                  '(
                       ( 0 . [color=MAROON]"INSERT"[/color])
                       (-4 . [color=MAROON]"<OR"[/color])
                       ( 2 . [color=MAROON]"`*U*"[/color])
                   )
                   ([color=BLUE]mapcar[/color] '([color=BLUE]lambda[/color] ( x ) ([color=BLUE]cons[/color] 2 ([color=BLUE]car[/color] x))) map)
                  '(
                       (-4 . [color=MAROON]"OR>"[/color])
                   )
               )
           )
       )
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] idx ([color=BLUE]sslength[/color] sel))
           ([color=BLUE]setq[/color] enx ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] sel ([color=BLUE]setq[/color] idx ([color=BLUE]1-[/color] idx)))))
           ([color=BLUE]if[/color] ([color=BLUE]setq[/color] lay ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] ([color=BLUE]strcase[/color] (LM:name->effectivename ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 2 enx)))) map)))
               ([color=BLUE]entmod[/color] ([color=BLUE]subst[/color] ([color=BLUE]cons[/color] 8 lay) ([color=BLUE]assoc[/color] 8 enx) enx))
           )
       )
   )
   ([color=BLUE]princ[/color])
)
[color=GREEN];; Block Name -> Effective Block Name  -  Lee Mac[/color]
[color=GREEN];; blk - [str] Block name[/color]
([color=BLUE]defun[/color] LM:name->effectivename ( blk [color=BLUE]/[/color] rep )
   ([color=BLUE]if[/color]
       ([color=BLUE]and[/color] ([color=BLUE]wcmatch[/color] blk [color=MAROON]"`**"[/color])
           ([color=BLUE]setq[/color] rep
               ([color=BLUE]cdadr[/color]
                   ([color=BLUE]assoc[/color] -3
                       ([color=BLUE]entget[/color]
                           ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 330 ([color=BLUE]entget[/color] ([color=BLUE]tblobjname[/color] [color=MAROON]"block"[/color] blk))))
                          '([color=MAROON]"AcDbBlockRepBTag"[/color])
                       )
                   )
               )
           )
           ([color=BLUE]setq[/color] rep ([color=BLUE]handent[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 1005 rep))))
       )
       ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 2 ([color=BLUE]entget[/color] rep)))
       blk
   )
)
([color=BLUE]princ[/color])

[编程交流] 将选定块移动到sp

发表回复

精选推荐