（完成）[编程申请]：请晓东帮忙，也是图块操作。。。。

21cn

问题提出：
1.图中某一块插入了很多，比如要统计某一树种的数量，希望点取图块后，选择范围或者全图，然后给出数量。

2. 还有minsert块，有时因为某些原因，需要删掉其中的几个块，用explode不行，每次都是del掉，然后再一个个插入，很麻烦，能提供个minsert分解的程序吗？

谢谢！

XDSoft

写好了,EXPLODE的增强命令：XEXPLODE，可以炸开MINSET实体为单一的块。对其他实体（INSERT,POLYLINE）效果同标准的EXPLODE命令

;|
   命令：xexplode
   功能：AUTOCAD EXPLODE命令增强，可以炸开MINSERT实体为单一的INSERT
        其他实体同标准的EXPLODE命令。

   说明：1、程序对模型空间实体有效
        2、炸开后的实体随层
   
   程序配合XDRX_API build 20428＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
          LISP目录，自己加入到菜单里面就可以非常方便的使用了。
          关于程序的建议请到“晓东CAD空间-编程申请”论坛
          http://www.xdcad.net/forum留言         
        
|;

=========================================================

统计指定块名的INSERT实体数量

;|
   命令：blk_num
   功能：统计指定块名的INSERT实体数量

   程序配合XDRX_API build 20428＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
          LISP目录，自己加入到菜单里面就可以非常方便的使用了。
          关于程序的建议请到“晓东CAD空间-编程申请”论坛
          http://www.xdcad.net/forum留言         
   
|;

=========================================================

unhack

是不是和统计门窗的命令类似？

songxp

不行啊，不能炸开Minsert的图啊。

这个图看一下哪个高手能把它炸开啊，真的是晕啊。

梦断江南

炸开了，试试这个，注意，使用以下程序，仅仅把多重插入块转为简单块，执行后，实体就可以用ｅｘｐｌｏｄｅ炸开了．你的文件，转为简单块后，要炸两次，因为是块中块＋多重
;| 功能: 分解多重插入块为简单块实体.
      支持选集；支持ucs.
　加载后执行
　c:xxi
|;

xshrimp

(defun c:jmm ()
  (setq nam (cdr (assoc 2 (entget (car (entsel))))))
  (setq pt '(0 0 0))
  (entmake (list '(0 . "INSERT")
                 (CONS '100 "AcDbBlockrefence")
                 (CONS '70 0)
                 (CONS '71 0)
                 (cons '2 nam)
                 (cons '10 pt)
           )
  )
  (setq entl (entlast))
  (command "_explode" entl)
  (setq entl (entlast))
  (command "_explode" entl)
)

梦断江南

针对问题图的解题
[php]
(defun c:tt (/ a ent)
  (setq a   (car (entsel))
        ent (entget a))
  (entmake (vl-remove-if '(lambda (x) (member (car x) '(100 70 71 44 45)))ent))
  (vl-cmdf ".explode" "l" "" ".explode" "l" "")
  (entdel a)
)
[/php]

leeyuan

请问斑竹，如何将lisp程序加到菜单中去啊？

songxp

有搞头，能炸开。

看样子，没有什么东东能锁住dwg文件了。

lanlifa

我想下载

ytj826

狂喜中。。。。。。。
谢谢梦断江南，不枉我在坛子里一阵狂搜。真的可以炸开多重引用！我都快被这多重引用搞神经了。
对君的敬仰之情犹如滔滔江水，连绵不绝，又如黄河泛滥一发而不可收。。。。。。

秋风万里

我怎么不能下载