[编程申请]：将每一个层的对象都变成块

panliang9

版主，各位长老们，大家好。

能不能帮我写一个程序，将每一个层的对象都变成块呢？

我们公司现在很多设计在solidwork上完成，最后再存成dwg文件，保存成

DWG文件以后都仅仅是一条条一堆堆的线，这样的话就很难在AUTOCAD里面

处理，现在我惟一能做的就是在SW里建很多图层，然后将模型里的零件一个

一个放进图层里面去，这样做很麻烦，因为一个模型里有很多零件，

非标件就有几百个，但没有办法，只有硬着头皮做。存成DWG以后每一个零件

就分别放到每一个图层里面去。在CAD里面处理就会容易一些。

但这样还不够好，为什么呢，因为设备是有结构的，是有层次的，但图层不能

反映层次和结构，例如这么一些零件组成主轴，这么一些零件组成机架，象这样

的树形结构就反映不了。

在这样的情况，只有一个笨办法，就是将DWG里的每一个层里的对象再单独做成一

个块，现在我就是这么做的，很费劲的一个层一个层的选择对象,然后再将这些对

象做成块，然后再根据设备的结构将这些块做成块中块，这样一级级的组织起来。

这真是一个力气活，干得让人非常的懈气。但没有办法，我只会这个。

版主和各位长老们能不能帮帮我呢，帮我写一个程序，运行后，自动选择每一个图层

里的所有对象，然后做成块。那我就省事太多了。

我知道你们一定行的，请帮帮我，我这里先谢谢了！

zh_6531394

我也很想知道

panliang9

还有，你们有谁知道在SW里怎么怎么自动分层呢，就是自动建很多层，然后将零件一个个放进去。这也是我非常需要的！

gysjy

最初由 panliang9 发布
[B]

能不能帮我写一个程序，将每一个层的对象都变成块呢？

我们公司现在很多设计在solidwork上完成，最后再存成dwg文件，保存成

DWG文件以后都仅仅是一条条一堆堆的线，这样的话就?.. [/B]

下面的程序将每个层的对象都变成块，块名就是层名，看看是否适合你：
[PHP](defun to(n)
  (cdr (assoc n (entget sn)))
)
(defun c:nn( / l lst n nam s sn)
  (command "undo" "g")
  (setq sn t lst '() n 0)
  (while sn
    (if (setq sn (entlast))
      (progn
        (setq nam (to 8) lst (cons nam lst)
              s (ssget "X" (list (cons 8 nam)))
              l (length lst)
        )
        (command "block" nam "0,0" s "")
        (princ "***") (princ nam)
      )
    )
  )
  (while (< n l)
    (setq nam (nth n lst) n (1+ n))
    (command "insert" nam "0,0" "1" "" "")
  )
  (command "undo" "end")
  (princ)
)[/PHP]

hzy0310329

程序，是不是每次画图都要搞一下！

panliang9

gysjy  大侠：

太谢谢你了，最近做一个图纸把我做得累死了，就是做这些重复的工作，有你这程序，效率肯定会大大提升。这将是我今后工作中的一件利器。

吉祥三宝

很好的资料

zhongyang730

用了下一错，但是如果能选择其中一个图名而能成块就好了

xyp1964

cbqk(层变群块)

xyp1964

效果

yizhiwei1984

分数免 ,怎么有些东西还是不能下载啊?