[求助]一个大问题？？？

hzzhao

我们公司刚买了AutoCAD2004但还有部分是AutoCAD2002的，虽然AutoCAD2004可以把图纸保存成2000的格式，在2002下打开没有问题！但是在2004里面用refedit这个命令以后保存回去的(xref)外部参考图纸，它的格式不是2000的而是2004的，我在选项里面设置图纸保存为2000的格式！但是用那个命令编辑外部参考图纸以后保存回去的外部参考图纸的格式就是2004的，这样一来在Atuocad2002下开图的话，Autocad2002就会死机。不知该如何解决?????

pencilliny

的确是个难题,顶一下.

meflying

保存前使用这个程序看看。。。
命令：bsave

2. 
   
3. (defun saveas2000(filename docs / doc)
   
4.   (setq doc (vla-open docs filename))
   
5.   (vla-saveas doc filename acR15_DWG)
   
6.   (vla-close doc)
   
7. )
   
8. 
   
9. (defun c:BSave( / docs ss i files files2 filename file ent blkname)
   
10.   (setq docs (vla-get-documents (vlax-get-acad-object)))
    
11.   (setq ss (ssget "x" '((0 . "INSERT"))))
    
12.   (setq i 0)
    
13.   (setq files nil)
    
14.   (repeat (sslength ss)
    
15.     (setq ent (ssname ss i))
    
16.     (setq blkname (cdr (assoc 2 (entget ent))))
    
17.     (setq filename (cdr (assoc 1 (tblsearch "block" blkname))))
    
18.     (if filename
    
19.       (setq files (append files (list filename)))
    
20.     )
    
21.     (setq i (1+ i))
    
22.   )
    
23.   (setq i 0)
    
24.   (repeat (length files)
    
25.     (setq file (nth i files))
    
26.     (if (not (member file files2))
    
27.       (setq files2 (append files2 (list file)))
    
28.     )
    
29.     (setq i (1+ i))
    
30.   )
    
31.   (setq i 0)
    
32.   (repeat (length files2)
    
33.     (saveas2000 (nth i files2) docs)
    
34.     (setq i (1+ i))
    
35.   )
    
36.   (princ)
    
37. )
    

<br /> (defun saveas2000(filename docs / doc)<br />   (setq doc (vla-open docs filename))<br />   (vla-saveas doc filename acR15_DWG)<br />   (vla-close doc)<br /> )<br /> <br /> (defun c:BSave( / docs ss i files files2 filename file ent blkname)<br />   (setq docs (vla-get-documents (vlax-get-acad-object)))<br />   (setq ss (ssget "x" '((0 . "INSERT"))))<br />   (setq i 0)<br />   (setq files nil)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss i))<br />     (setq blkname (cdr (assoc 2 (entget ent))))<br />     (setq filename (cdr (assoc 1 (tblsearch "block" blkname))))<br />     (if filename<br />       (setq files (append files (list filename)))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (setq i 0)<br />   (repeat (length files)<br />     (setq file (nth i files))<br />     (if (not (member file files2))<br />       (setq files2 (append files2 (list file)))<br />     )<br />     (setq i (1+ i))<br />   )<br />   (setq i 0)<br />   (repeat (length files2)<br />     (saveas2000 (nth i files2) docs)<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />

hzzhao

这个程序确实可以解决这个问题！谢谢！不过在有很多外部参考图的时候它会打开每一张外部参考图然后再保存关闭，这样的话觉的有点慢！可不可以改进一下，只打开修改过的图纸，不知是否可行！
还是谢谢你！写了这个程式。
不知道Autodesk公司会不会出个补丁解决一下这个问题！

zzlzz

有点厉害

hu2000

强啊，我是看都看不懂啊
我现在用的还是2000的呢，
改天也去买张2004的盘来看一下！！！！！！！！

日出

强！顶一下！！