CAD批量合并文件

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

解决

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

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

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

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

image

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

为源_2015.01.07_13h52m57s_025_

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

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

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

  (princ)

结果:

image

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

image

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

原文地址:https://www.cnblogs.com/liweis/p/4208549.html