CAD批量合并文件

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

解决：

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

(apply 'vl-cmdf (list "_.insert" "E:\石安村副\513401212202JB00004石安村村委会.dwg" "0,0" "1" "" ""));

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

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

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

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

  (setvar "pickstyle" 0)
  (setq	SS (ssget "x"
		  '((0 . "*LINE")
		    (-4 . "&=")
		    (70 . 1)
		    (-3 ("SOUTH" (1000 . "300000")))
		   )
	   )

  )
  (command "erase" "all" "r" SS "")

  (princ)

结果：

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

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