有什么办法可以将不允许分解的图块改为允许分解？

yyz123121

一个文件中所有图块在建立的时候就设置成不允许分解，有什么办法可以批量修改成允许分解吗？

kozmosovia

yyz123121 发表于 2024-8-29 00:47
还是不行

我代码写错了，:vlax-false需要改成:vlax-true，:vlax-false是全部给锁上不让分解了。

yyz123121

图块有普通块，也有动态块和嵌套块

kozmosovia

(vlax-for blk (vla-get-blocks
                (vla-get-activedocument (vlax-get-acad-object))
              )
  (vl-catch-all-apply
    'vla-put-explodable
    (list blk :vlax-false)
  )
)

yyz123121

kozmosovia 发表于 2024-8-27 16:22
(vlax-for blk (vla-get-blocks
                (vla-get-activedocument (vlax-get-acad-object))
              )

大神，这个要怎么用  能再给点提示吗  我就只会command类的命令

kozmosovia

直接全部黏贴到命令行就行了

yyz123121

kozmosovia 发表于 2024-8-28 19:19
直接全部黏贴到命令行就行了

粘贴了  还是不行

yyz123121

kozmosovia 发表于 2024-8-28 19:19
直接全部黏贴到命令行就行了

还是不行

qazxswk

试试这个，如果不想炸开，把(vl-cmdf "explode" x1 "" "")这句删除。

2. (defun c:11(/ x x1)
   
3. (while (if (and (setq x (entsel "\n选择图块: "))
   
4.            (setq x1 x )
   
5.              (setq x (vlax-ename->vla-object (car x)))
   
6.       )
   
7.     (vl-catch-all-apply  '(lambda ()
   
8.     (setq x (vla-item
   
9.     (vla-get-blocks  (vla-get-activedocument (vlax-get-acad-object))  )
   
10.      (vla-get-name x)
    
11.    )       )
    
12.    (vla-put-explodable x :vlax-true)
    
13.    ) )
    
14.    ) )
    
15. (vl-cmdf "explode" x1 "" "")
    
16. (princ "\n块已炸开。")
    
17. (princ))

(defun c:11(/ x x1)<br /> (while (if (and (setq x (entsel "\n选择图块: "))<br />            (setq x1 x )<br />              (setq x (vlax-ename->vla-object (car x))) <br />       )<br />     (vl-catch-all-apply  '(lambda ()<br />     (setq x (vla-item<br />     (vla-get-blocks  (vla-get-activedocument (vlax-get-acad-object))  )<br />      (vla-get-name x)<br />    )       )<br />    (vla-put-explodable x :vlax-true) <br />    ) )<br />    ) ) <br /> (vl-cmdf "explode" x1 "" "")<br /> (princ "\n块已炸开。") <br /> (princ))

hubeiwdlue

嵌套块有些是人为加密的手段，这种多重嵌套块很难处理。