autolisp 如何批量打开多个dwg

心梦无痕

autolisp二次开发定制的open函数是用来读文件的，不能当成AutoCAD内置命令函数open来打开一个图形文件，只用在脚本中以输入命令的形式打开。 (command " _.OPEN" "D:\\15686\\GX1.dwg")  不能运行，求指教

kozmosovia

那没必要打开DWG，顺次把DWG插入当前，然后打印，打印完删除更好。不需要同时开好几个DWG，打印时，也不可能同时几个DWG都在同时打，也还是要一个个处理。

kozmosovia

要看你开图要干啥？单纯打开DWG？那岂不是开十几个DWG后CAD会慢的要死

心梦无痕

kozmosovia 发表于 2025-7-28 21:10
要看你开图要干啥？单纯打开DWG？那岂不是开十几个DWG后CAD会慢的要死

想批量打印，打开文件后进行打印操作

edata

lisp跨文档有点麻烦。

tryhi

(setvar "sdi" 1)
(setvar "lispinit" 0)

这里写你需要多dwg操作的代码


(setvar "sdi" 0)
(setvar "lispinit" 1)

这两个变量了解一下，用于跨文档

qazxswk

心梦无痕 发表于 2025-7-28 21:13
想批量打印，打开文件后进行打印操作

有批打插件，可以不打开文件的情况下，进行打印的。

wharan

如果是为了批量打印，试试把要打印的图通过外部引用插入到一个图中处理。可以是一张图，也可以是很多张图。目前我是把各专业的图纸通过外部引用插入到一张图中，然后识别外部引用中的图框，进行批量打印。插入外部引用，不改变外部文件中线型、字体、比例等。

你有种再说一遍

wharan 发表于 2025-7-29 00:30
如果是为了批量打印，试试把要打印的图通过外部引用插入到一个图中处理。可以是一张图，也可以是很多张图。 ...

这种方式不好的地方是
一旦本图预先载入了字体(可能是中途外参其他时候)
外部参照版本是落后本图,
并且好死不死触发了系统向下兼容,或者字体回退,

外部参照插入自动优先最新字体,就问号了.
(不要问为什么,这种环境不确定因素太多,
可能源自于KT.ttf引发全局字体问题,
win版本不同导致的字体问题).
然后你再打开外部图纸来检查,发现没有问号,给人带来疑惑.

临时外参影响,包括但不限于:
两个字体版本差异,例如ttf的宋体.
两个图纸的全局线型比例不一样.
错误未被修复的文档.
天正图元版本差异.
ASCII编码和UTF8编码差异.

除非能够做到系统性规范,不然这个方案危险性还是太大了.
毕竟批量打印应该盲目一股脑的输出阶段.