分享一个dwg图纸合并程序

yjwht

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

2. ; 将多张相同尺寸的图纸插入到一张dwg图纸中
   
3. (defun c:hb()
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq pf (getfiled "指定原文件路径中的一个图形文件:>" "*" "dwg" 8))
   
6.   (setq path (vl-filename-directory pf))
   
7.   (setq path (strcat path "\"))
   
8.   (setq aa (vl-directory-files path "*.dwg" 1))
   
9.   (setq n (length aa))
   
10.   ; 不超过25张图时，每行5张；超过25张图，则每行10张
    
11.   (setq a1 (cond ((<= n 25) 5) (t 10)))
    
12.   (setq i 0)
    
13.   (setq pp (nth i aa))
    
14.   (setq Lx (getint "\n请输入图纸在X轴方向尺寸（mm）："))
    
15.   (setq Ly (getint "\n请输入图纸在Y轴方向尺寸（mm）："))
    
16.   (sub1 Lx Ly)
    
17.   (prompt "程序执行完毕！！！\n")
    
18.   (princ)
    
19. )
    
20. 
    
21. (defun sub1(Lx Ly / p1)
    
22.   (while (/= pp nil)
    
23.     (setq p1 (list (* (rem i a1) (+ Lx 100)) (* (fix (/ i a1)) (+ Ly 100) -1)))
    
24.     (setq pp (strcat path pp))
    
25.   (setq i (+ i 1))
    
26.     (command "insert" pp p1 "1" "1" "")
    
27.     (setq pp (nth i aa))
    
28.     (command "zoom" "e" "zoom" "0.8x")
    
29.   )
    
30. )

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

timmy521

不错的软件。谢谢。