求块炸开成组，组变成块！

panliang9

版主好！大家好！

我工作中有时候需要在块的环境下进行工作，有时候又想在组的环境下进行工作，大家都知道这两者各有优点。组支持stretch，但

块支持编辑锁定，

但我总想着有一个程序可以随时切换两种对象，这样我就可以根据需要进行调整。同时拥有两者的优点。

在网络上找了一下，找到两个程序，一个是将块炸成组，一个是将选中的对象做块（本版版主帮我写的），但这两个程序

现在都是单步操作。即不能一下子就将多个块变成组，或者将一下子将多个组变成块。只能一个一个的弄。

版主和各位大大谁能帮我弄一个程序，可以实现将一堆块炸开成组（组名即块名,如果不方便，匿名组也很好了），需要的话又能一下将一堆组一下变块，就是可以反复的操作！这样我想用组就可以用组，想用块就可以用块，工作就会非常方便了！

版主和各位大大谁有空帮我弄一下，我这里先谢过了！

下面是我在网上找到的单步程序：

网上找到的块炸开成组：

:: Explode and group a block
:: Revised by cadmoogle 08/13/08
:: Original code/idea by Tony Tanzillo 09/24/99
(defun c:G ( / blk bname)
(defun *error* (msg)
(princ "\nMissed, try again")
)
(setq blk (entsel "\nSelect block to explode and group: "))
(setq bname (cdr (assoc 2 (entget (car blk)))))
(setvar "cmdecho" 0)
(command "._undo" "_begin"
"._explode" (car blk)
"._-group"
"_create" "*"
(strcat "explode:" bname)
(ssget "p")
""
"._undo" "_end"
)
(princ "\nThe process is now complete")
(princ)
)
——————————————————

不用选点的做块程序，这是版主大人帮我写的一个东西。
(defun c:a (/ ss os cmdecho)
  (setq os (getvar 'osmode))
  (setq cmdecho (getvar 'cmdecho))
  (setvar 'osmode 0)
  (setvar 'cmdecho 0)
  (princ "\n选择要做块实体:")
  (while (setq ss (ssget))
    ;;时间为块名
    (setq name (rtos (getvar 'cdate) 2 8))
    (command "block" name  "0,0,0" ss "")
    (command "insert" name "0,0,0" 1 1 0)
    (princ "\n回车结束<继续做块>:")
    )
    (setvar 'osmode os)
  (setvar 'cmdecho cmdecho)
(princ)
  )

Gu_xl

批量由块到组命令: B2G 批量由组到块命令: G2B

源码下载:

菜鸟初来乍到

Gu_xl 发表于 2012-4-17 21:46
批量由块到组命令: B2G 批量由组到块命令: G2B

源码下载:

感谢大佬分享

zhangrunze

不错的程序~
学习了，感谢分享~

panliang9

自己顶一个，都快沉底了。

CAD中最好用的命令据说就是stretch，但这个命令无法对块进行操作，组本身也可以有层次，但易用性没有块好。如果有这个命令就可以集两者的优点为一身了。

lz123456

G版的程序必看

panliang9

版主终于现身了！



今晚国外论坛都搜了一遍，都没找到，还是版主好人！

我会一直支持明经和版主您的！

lz123456

G版那块变组OK，组变块不行？

kkk3kkk

直支持明经和版主您的！

【KAIXIN】

看看G版的思路！

panliang9

版主，今早上班赶快试了一下，块转组没有问题，组转块没有成功，系统提示：

NO FUNCTION DIFINITION:   GXL-SEL-LIST->SS

我用的CAD是2007，这个程序是不是和具体的那个版本有配合，还是缺一个函数，版主再帮我看一下！

xiaxiang

来顶gu版的贴