本人'；m搜索lisp到s

Bibix · 发表于 2022-7-5 15:49:42

你好
嗯，我在几层楼工作，我们有一栋公寓楼，
在每个公寓里，我们有很多街区，比如“床”，
我想一次选择所有的床来更改这个块的层，我不想进入edit_块来更改线的层，但以将块“床”设置为层“mobilier”为例，
按名称选择的过滤器无法将块识别为块，qselection也无法识别。

我希望有人能帮我，
谢谢

这是我的第一个帖子，我不经常说英语，所以我很抱歉我的错误。。。

Lee Mac · 发表于 2022-7-5 16:26:27

假设我已经理解了要求，下面是一个快速的Vanilla AutoLISP解决方案供您尝试：

copy

(defun c:nestblocklayer ( / blk def ent enx lay )
   (setq blk "bed"      ;; Nested block name
         lay "mobilier" ;; New layer for nested blocks
         blk (strcase blk)
   )
   (while (setq def (tblnext "block" (not def)))
       (setq ent (tblobjname "block" (cdr (assoc 2 def))))
       (while (setq ent (entnext ent))
           (if
               (and
                   (setq enx (entget ent))
                   (= "INSERT" (cdr (assoc 0 enx)))
                   (= blk (strcase (cdr (assoc 2 enx))))
               )
               (entmod (subst (cons 8 lay) (assoc 8 enx) enx))
           )
       )
   )
   (command "_.regenall")
   (princ)
)

Bibix · 发表于 2022-7-5 16:31:14

谢谢李的回答，但它似乎不起作用，
为了确保lisp文件和我需要的情况，
如果只有一个块和一个层，我不会使用lisp，但我需要很好地组织好几个块和几个文件，并且有很多明显的现象：极客：
我得到了什么。图纸
我需要什么。图纸
lisp lee mac mobilier。lsp

Bibix · 发表于 2022-7-5 16:50:18

对不起，我周五晚上试过了，我结束了，效果很好，非常感谢李，
你是最棒的！
我正在你的网站上寻找有效的名字lisp，所以我可以选择我的所有动态块了！我希望，我可以选择区块以及与它！
非常感谢！

[编程交流] 本人'；m搜索lisp到s

发表回复

精选推荐