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制作所有的命令:
3.然后在CAD命令行中输入这些命令,执行结果如下:
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> |
结果:
5.问题又来了,本来是504幅图,现在只有495,少上9个闭合的线,多半是删除时出了问题。将495复制到未删除线合并的结果中一比较。结果就出来了:
当然这是数据本身的问题,如果数据不存在问题,就不会有差。
作者:我也是个傻瓜
出处:http://www.cnblogs.com/liweis/
签名:成熟是一种明亮而不刺眼的光辉。
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步