米兰达薇薇2899 发表于 2015-2-6 16:11:15

分享一个dwg图纸合并程序

(defun c:hb();插图到一起
(setvar "CMDECHO" 0)
(setq pf (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8))
(setq path (vl-filename-directory pf))
(setq path (strcat path "\\"))
(setq aa (vl-directory-files path "*.dwg" 1))
(setq n (length aa))
(setq i 0)
(setq nn 0)
(setq pp (nth i aa))
(initget "1 2")
(prompt "请输入图幅大小，1为A3，2为A4...\n")
(setq opt (getkword"\n 1：A3图幅 /2：A4图幅 "))
   (cond
      ((= opt "1") (sub1))
      ((= opt "2") (sub2))
   )
(prompt "程序执行完毕！！！\n")
(princ)
)

(defun sub1()
(prompt "\n")
(prompt "程序正在按块插入图幅，请等待...\n")
(while (/= pp nil)
            (setq i (+ i 1))
           (setq pp (strcat path pp))       
            (setq nn (+ nn 1))
                   (cond
                  ((=(rem nn 2)1) (command "insert" pp "@500,297" "1" "1" ""))                ;x,y均为相对坐标；比例1:1，不旋转；除于2余数为1，是第奇数张
              (t (command "insert" pp "@0,-297" "1" "1" ""))                                ;x,y均为相对坐标        余数不为1，是第偶数张
                )
        (princ (strcat "第" (itoa nn) "幅" "图号为" pp " \r"))
           (setq pp (nth i aa))   
           (command "zoom" "e" "zoom" "0.8x")
   )
)


(defun sub2()
(prompt "\n")
(prompt "程序正在按块插入图幅，请等待...\n")
(while (/= pp nil)
            (setq i (+ i 1))
           (setq pp (strcat path pp))       
            (setq nn (+ nn 1))
                   (cond
                  ((=(rem nn 2)1) (command "insert" pp "@297,210" "1" "1" ""))                ;x,y均为相对坐标；比例1:1，不旋转；除于4余数为1，是第1张
               (t (command "insert" pp "@0,-210" "1" "1" ""))                               
                )
        (princ (strcat "第" (itoa nn) "幅" "图号为" pp " \r"))
           (setq pp (nth i aa))   
           (command "zoom" "e" "zoom" "0.8x")
   )
)


yjwht 发表于 2025-2-22 10:00:26

在您的代码基础上修改了一下，不再指定A3、A4图幅，而是直接设置图纸尺寸，图纸布置顺序从左到右，再到下一排，再从左到右。

; 将多张相同尺寸的图纸插入到一张dwg图纸中
(defun c:hb()
(setvar "CMDECHO" 0)
(setq pf (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8))
(setq path (vl-filename-directory pf))
(setq path (strcat path "\\"))
(setq aa (vl-directory-files path "*.dwg" 1))
(setq n (length aa))
; 不超过25张图时，每行5张；超过25张图，则每行10张
(setq a1 (cond ((<= n 25) 5) (t 10)))
(setq i 0)
(setq pp (nth i aa))
(setq Lx (getint "\n请输入图纸在X轴方向尺寸（mm）："))
(setq Ly (getint "\n请输入图纸在Y轴方向尺寸（mm）："))
(sub1 Lx Ly)
(prompt "程序执行完毕！！！\n")
(princ)
)

(defun sub1(Lx Ly / p1)
(while (/= pp nil)
    (setq p1 (list (* (rem i a1) (+ Lx 100)) (* (fix (/ i a1)) (+ Ly 100) -1)))
    (setq pp (strcat path pp))
(setq i (+ i 1))
    (command "insert" pp p1 "1" "1" "")
    (setq pp (nth i aa))
    (command "zoom" "e" "zoom" "0.8x")
)
)

zhangcan0515 发表于 2018-4-27 19:03:54

合并成块的 还是不错的，如果能加上左右距离设置项更加好了

seamopan 发表于 2020-7-11 22:40:15

都重叠在一起了啊，能否改善为合并后依次排开的啊

彳余 发表于 2015-2-7 07:58:43

不错

米兰达薇薇2899 发表于 2015-2-7 13:17:03

这是我自己改的，感觉用的不错，偶尔有点错位

barter 发表于 2015-5-11 13:19:18

万分感谢，我自己改了一下，很好用。谢谢分享。

水仙的错 发表于 2016-2-18 11:10:25

楼上能否把改后的上传一下

lxy_2080 发表于 2016-3-15 16:42:12

好像不错，电脑下载试试

taoyi0727 发表于 2018-4-28 08:46:26

拿来试用一下

偶尔郁闷 发表于 2018-5-2 10:18:47

学习下 记号

sunny_8848 发表于 2018-5-2 13:00:23

请教，图框不是标准的该怎样修改代码？
页: [1] 2 3
查看完整版本: 分享一个dwg图纸合并程序