批量合并图
把多个图批量合并到一个DWG里，求开发，付费。364836483qq本帖最后由 szhorse 于 2022-7-13 21:36 编辑
试试这个，发扬明经精神
来自网络，不知道哪位大神的，在此谢过
合并图纸(左对齐或上对齐)
本帖最后由 橡皮 于 2023-5-6 17:15 编辑
命令为 MergeFile，跳出对话框后选择待合并文件所在文件夹，点击确定等待程序完成合并 本帖最后由 尘缘一生 于 2023-5-7 15:38 编辑
[*];;批量目录图纸插入-----------【开始】---------
[*](defun plins-dwg (/ e_lst ent fn files flis pt pt0 box d h h0 k0 i n str)
[*](_undo1)
[*](setq e_lst (sysvar '("osmode" "cmdecho" "filedia")))
[*](setvar "filedia" 0)
[*](setvar "cmdecho" 0)
[*](setvar "OSMODE" 0)
[*](vla-put-WindowState *ACAD* 2);;CAD窗口最小化
[*](setq files (xl-div (sl-choose-files "" "dxf;*.dwg" (getvar "DWGPREFIX")) 10))
[*](vla-put-WindowState *ACAD* 1);;CAD窗口最大化
[*](setq pt (getpoint "\n 请给出排图基点（左下角）？") k0 0.0)
[*](setq str (sl:do1ordo2 "插入形式为" "参照" "图块"))
[*](repeat (setq n (length files))
[*] (setq pt0 (polar pt pi2 k0))
[*] (setq flis (nth (setq n (1- n)) files) h0 0.0)
[*] (repeat (setq i (length flis))
[*] (setq fn (nth (setq i (1- i)) flis))
[*] (if (= str "参照")
[*] (command "-XREF" "A" fn pt0 1 1 0)
[*] (vla-ins-b fn pt0 1 1 1 0)
[*] )
[*] (setq ent (entlast) box (ebox4 ent) d (- (car (caddr box)) (car (car box))) h (- (cadr (cadddr box)) (cadr (car box))))
[*] (if (>= h h0) (setq h0 h))
[*] (sl_subupd ent 10 pt0)
[*] (setq pt0 (polar pt0 0 (* d 1.05)))
[*] (if (= str "图块") (slexplode (entlast)))
[*] )
[*] (setq k0 (+ k0 (* h0 1.05)))
[*])
[*](command "zoom" "e")
[*](mapcar 'eval e_lst)
[*](_undo2)
[*](princ)
[*])
链接：https://pan.baidu.com/s/1urFWFU-jDyiNYCOkaAISTg
提取码：qznf
一般主张一张图一个文件。多个文件合并到一张图时，如果块名相同，就会被第一张图的块取代。 单个文件有命名规则的。客户需求，需要将一个工程的图合并到一个DWG文件中。 https://www.tsz.com.cn/downprod/detail.action?id=C190000000000872
探索者软件DWG合并助手，可以申请试用，经常搞活动促销，商业软件成熟 http://bbs.mjtd.com/thread-183456-1-1.html
是不是需要这个功能? 就是需要这样的工具，多谢大家，我先测试。364836483QQ，如果能用，我付费用。
szhorse 发表于 2022-7-13 21:29
试试这个，发扬明经精神
来自网络，不知道哪位大神的，在此谢过
有没有能选择文件的版本？ 364836483 发表于 2022-7-13 20:02
单个文件有命名规则的。客户需求，需要将一个工程的图合并到一个DWG文件中。
可以说，这个客户的技术还处于低级水平，并且规模小。可以糊弄～ szhorse 发表于 2022-7-13 21:29
试试这个，发扬明经精神
来自网络，不知道哪位大神的，在此谢过
好人啊，谢谢大佬分享