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復制到未刪除線合並的結果中一比較。結果就出來了：

當然這是數據本身的問題，如果數據不存在問題，就不會有差。