想用wbolck函数进行拆图的问题

mtyking

想用wbolck函数  将一个dwg文件中的多个带独立边框的图  拆分成一个个的dwg文件

请教具体的思路

caoyin

1.entsel;选择边框

2.entget;;获取图元属性，边框的特征是什么，只有你自己知道

3.(ssget "_x" 在此加一个边框特征的过滤表)

4.历遍选择集中的每一个对象,获取边框范围（p1 p2），用(ssget "_c" p1 p2)得到范围内的对象

5.wbolck 写块，先定义一个文件名,比如setq nam "blk1")

                        输出目录 比如：(setq dir "c:\\")

  (setq lst (vl-directory-files dir (strcat nam "*") 1))

  (if (member nam lst);;判断文件名是否存在

      (setq nam (1+ (atoi (substr (last lst) 4))));;存在

...........