用pr替换所有旧块

MSasu · 发表于 2022-7-5 23:53:45

请不要错过，这不是一个按需开发的机构！
可能需要调整蓝色部件以适合您的情况；只要确保所有层都未锁定。

;;; Replace Blocks By List (20-III-2014)
(defun c:RBBL( / blockOld blockNew ssetBlocks entBlock assocBlock )
(foreach blockOld '("[color=blue]B1[/color]" "[color=blue]B2[/color]" "[color=blue]B3[/color]")   ;;;list of blocks to replace
 (if (and (tblsearch "BLOCK" blockOld)
          (tblsearch "BLOCK" (setq blockNew (strcat "modified_" blockOld))))
  (if (setq ssetBlocks (ssget "_X" (list '(0 . "INSERT") (cons 2 blockOld))))
   (while (> (sslength ssetBlocks) 0)
    (entmod (subst (cons 2 blockNew)
                   (assoc 2 (setq assocBlock (entget (setq entBlock (ssname ssetBlocks 0)))))
                   assocBlock))
    (ssdel entBlock ssetBlocks)
   )
  )
 )
)
(princ)
)

顺便说一句，这并不考虑嵌套块。

shailujp · 发表于 2022-7-5 23:59:40

你好，MSasu
只是礼貌地寻求帮助，我知道像你这样的大多数人都愿意帮助。

我试过你的Lisp程序，效果很好。但是，这个嵌套块问题确实是罪魁祸首，这也是发布此线程的主要原因。这能解决吗？

下面是我如何测试它的。捕捉前后。

Tharwat · 发表于 2022-7-6 00:01:14

你好

启动Vlisp之前的一些解释

是否要用具有相同块名但前缀为Modified\word的新块名列表替换块列表？
然后，在旧块（待替换）中嵌套块，以将其重新包含在新替换的块名称中，该名称已修改？

如果你能上传一个样品画一个例子之前和之后，这将是伟大的。

MSasu · 发表于 2022-7-6 00:06:06

请特别注意，如果列表中块名称的顺序不合适，则替换嵌套块可能会出错！应该从最低级别的块（即嵌套较深的块）开始，然后继续到主级别。

shailujp · 发表于 2022-7-6 00:09:22

塔尔瓦特。

我附上了前后两个文件。举个例子。在下面的方块上寻找红色的项目（这是我的目标）。
之前图纸
之后图纸

shailujp · 发表于 2022-7-6 00:11:12

我明白你指的是什么。。。我认为我不需要替换所有级别的块。它要么是顶层（覆盖所有内部构件），要么是底层（单独）。最糟糕的情况是，我必须更换最底层的，除非将其分解到平坦的水平面，否则很难接近。

编辑：目前我正在寻找一种从图形中提取（或手动复制pase）块名的方法。我看到杰弗里·桑德斯·布莱克特里。lsp，但它不允许我从对话框中复制任何文本。仍在探索。