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

hzzhao · 发表于 2004-1-14 22:59:00

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

pencilliny · 发表于 2004-1-15 11:12:00

的确是个难题,顶一下.

meflying · 发表于 2004-1-15 11:38:00

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

copy


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