批量合并图

364836483 · 发表于 2022-7-13 16:27:31

把多个图批量合并到一个DWG里，求开发，付费。364836483qq

szhorse · 发表于 2022-7-13 21:29:43

本帖最后由 szhorse 于 2022-7-13 21:36 编辑

试试这个，发扬明经精神
来自网络，不知道哪位大神的，在此谢过

合并图纸(左对齐或上对齐)

橡皮 · 发表于 2023-1-20 02:04:28

本帖最后由橡皮于 2023-5-6 17:15 编辑

命令为 MergeFile，跳出对话框后选择待合并文件所在文件夹，点击确定等待程序完成合并

尘缘一生 · 发表于 2022-7-16 20:49:35

本帖最后由尘缘一生于 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)
)

自贡黄明儒 · 发表于 2022-7-13 16:46:59

一般主张一张图一个文件。多个文件合并到一张图时，如果块名相同，就会被第一张图的块取代。

364836483 · 发表于 2022-7-13 20:02:37

单个文件有命名规则的。客户需求，需要将一个工程的图合并到一个DWG文件中。

BUBUBA918 · 发表于 2022-7-13 20:31:50

https://www.tsz.com.cn/downprod/detail.action?id=C190000000000872
探索者软件DWG合并助手，可以申请试用，经常搞活动促销，商业软件成熟

lxl217114 · 发表于 2022-7-13 20:42:19

364836483 · 发表于 2022-7-13 22:04:10

就是需要这样的工具，多谢大家，我先测试。364836483QQ，如果能用，我付费用。

forverd · 发表于 2022-7-13 22:24:45

szhorse 发表于 2022-7-13 21:29
试试这个，发扬明经精神
来自网络，不知道哪位大神的，在此谢过
[face118.gif ...

有没有能选择文件的版本？

mikewolf2k · 发表于 2022-7-14 09:13:23

364836483 发表于 2022-7-13 20:02
单个文件有命名规则的。客户需求，需要将一个工程的图合并到一个DWG文件中。

可以说，这个客户的技术还处于低级水平，并且规模小。可以糊弄～

czb203 · 发表于 2022-7-14 10:22:13

szhorse 发表于 2022-7-13 21:29
试试这个，发扬明经精神
来自网络，不知道哪位大神的，在此谢过
[face118.gif ...

好人啊，谢谢大佬分享

账号		自动登录	找回密码
密码			注册