CAD批量合并文件

要求:将整饰完成504幅单独的宗地图合并成一张总图,合并后,去掉其他要素,只保留毕合的权属线。

解决

1.合并dwg文件,除了手工粘贴复制外,最先想到的是插入块,即用Insert命令插入,测试结果可行:

1
<font size="4" face="微软雅黑">(apply 'vl-cmdf (list "_.insert" "E:\\石安村副\\513401212202JB00004石安村村委会.dwg" "0,0" "1" "" ""));</font>

这里需要注意的是文件的路径,默认Windows复制过来的路径是:E:\石安村副\513401212202JB00004石安村村委会.dwg,需要换成“\\”。

2.使用Excel制作所有的命令:

image

3.然后在CAD命令行中输入这些命令,执行结果如下:

为源_2015.01.07_13h52m57s_025_

4.使用Lisp代码选中闭合的权属线,然后删除。

1
2
3
4
5
6
7
8
9
10
11
12
13
<font size="4" face="微软雅黑">  (setvar "pickstyle" 0)
  (setq    SS (ssget "x"
          '((0 . "*LINE")
            (-4 . "&=")
            (70 . 1)
            (-3 ("SOUTH" (1000 . "300000")))
           )
       )
 
  )
  (command "erase" "all" "r" SS "")
 
  (princ)</font>

结果:

image

5.问题又来了,本来是504幅图,现在只有495,少上9个闭合的线,多半是删除时出了问题。将495复制到未删除线合并的结果中一比较。结果就出来了:

image

当然这是数据本身的问题,如果数据不存在问题,就不会有差。

posted @   我也是个傻瓜  阅读(7172)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示