恳请大师帮忙看下如何批量修改块的explodable(允许分解）属性

herbie

各位大侠，在论坛里看到CAOYIN大大的代码：

(vla-put-Explodable   (vla-item    (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))     "BlockName"   )   :vlax-false )

是用于修改块的explodable属性的，于是有了几位大侠的程序，但只看到单个修改的用的是：
(setq X (entsel "\n选择块: "))
(setq X (vlax-ename->vla-object (car X)))

请大侠指教下怎么去编写可以批量选择并修改图块的这个属性呢？
对于菜鸟，这个问题太难了求顶 求指教
给个思路也行啊
有什么样的函数可以修改选择的多个快的属性呢

herbie

人工置顶一下，帖子上不去啊

herbie

人工置顶，描述的有点臃肿，希望大家评论下，保证下人气啊。
不太熟悉论坛搜索的技巧，但是我搜了关键词，也找到了类似的贴子，但未发现答案，
如：http://bbs.mjtd.com/forum.php?mo ... D6%BD%E2&page=2

再如http://bbs.mjtd.com/forum.php?mo ... A%D0%ED%B7%D6%BD%E2

再如：
http://bbs.mjtd.com/thread-102205-1-1.html
这个帖子的6L哥们和我遇到相同的问题了,但我发现他最后也没有解决

张大锤

加循环就可以了 选择多个 就可以处理
现在是没有循环 选择多个 只会执行第一个选择的

(setq n 0)
(repeat (sslength ***)
(setq n(1+ n))
)

这是我常用的没有结合在一起的写法：
(setq ss (SSGET  '((0 . "INSERT"))))
(setq n 0)
(repeat (sslength ss)
(setq ent(ssname ss n))
(setq en(entget ent))
(setq p10 (cdr (assoc 10 en)))
(setq n(1+ n))
)
循環的時候寫法

(setq ss (SSGET  '((0 . "INSERT"))))                 
(setq ent (ssname ss 0))
(setq en (entget ent))
(setq p10 (cdr(assoc 10 en )))
不循環的時候寫法



我不会 vlisp 所以只能帮你到这了

yaokui25

你好,楼主
这个问题解决了吗?能否提供一下部分代码

ly8zx2109

yaokui25 发表于 2022-8-5 17:49
你好,楼主
这个问题解决了吗?能否提供一下部分代码

(vl-load-com)
(defun c:000 (/ block blocks i)
  (if (setq Blocks (vla-get-Blocks
                     (vla-get-ActiveDocument (vlax-get-acad-object))
                   )
      )
    (progn
      (setq i 0)
      (repeat (vla-get-Count Blocks)
        (setq
          Block        (vla-item Blocks i)
          i        (1+ i)
        )
        (vla-put-Explodable Block :vlax-true)
      )
    )
  )
)

刘炎华

ly8zx2109 发表于 2023-12-30 09:57
(vl-load-com)
(defun c:000 (/ block blocks i)
  (if (setq Blocks (vla-get-Blocks

请问一下，怎么改成用户多选？