; LayoutsToDwgs
(defun C:ltd (/ lo loList)
(setvar "FILEDIA" 0)
(foreach lo (layoutlist)
(progn
(setvar "CTAB" lo)
(command "exportlayout" "")
)
)
(setvar "FILEDIA" 1)
)
谢谢大家的意见！ 你知道如何创建脚本来处理图形吗
打开dwg1（加载“layoutstodwgs”）（ltd）关闭“N”
打开dwg2（加载“layoutstodwgs”）（ltd）关闭“N”
我会把它拿出来，跑吧
同时启动cmd cd to directory dir*。dwg>dirlist/b创建一个放置在word etc中的dwg名称的txt文件，并添加open etc
这可能是一个愚蠢的问题；但是你说的“处理图纸”是什么意思？
另一方面，我不知道该怎么做，但有人知道是否可以让脚本打开图形，删除视图端口所在的图层，并在模型空间中移动图形，以便左下边界与原点对齐？
我感谢所有的帮助！ 请阅读代码发布指南。
这次我帮你修好了。
谢谢很抱歉。。。 嗯，伙计们，谢谢
我发现这个帖子非常有用。
但最后一个脚本是否可以修改为：
1） 导出cad中打开的所有文件？？？
2） 可以将其更改为“”，而不是用“_”分隔文件名和布局名
thx问候 哇，老线程！
您是否希望打开多个图形，每个图形中都有布局，并且有一个脚本可以同时导出所有布局？
为什么不在每个图形中运行命令？
如果你是，你应该看看Script pro或其他可以批量运行我上面写的例程的东西。
编辑：
我刚刚注意到你编辑了你的帖子。
1） 请参阅我上面的回答
2） 为什么不在AutoCAD之外使用批重命名程序将下划线更改为点？额外的点也可能导致与其他程序冲突，下划线是首选。 您好，电话：1211
嗯，我尝试优化，不使用外部编码，所以我发现对于名称，我可以
通过以下方式获取文件名：
(setq fielprefix (getvar 'dwgname))
但我仍然无法加入布局名称，同时我尝试了这个（没有成功）：
(setq fielprefix (strcat ((getvar 'dwgname)) "." lo)
还包括：
(setq fielprefix (strcat ((getvar 'dwgname)) "." CTAB)
与此同时，我认为有一种方法可以做到这一点，所有的开放图纸，但没有找到它。
有人能帮忙吗？？？
当做
我使用以下方法运行它：
; LayoutsToDwgs
(defun C:ltd (/ lo loList filename layname fielprefix)
(setvar "FILEDIA" 0)
(foreach lo (layoutlist)
(progn
(setvar "CTAB" lo)
(setq filename (cadr (fnsplitl (getvar "dwgname"))))
(setq layname (GETVAR "CTAB"))
(setq fielprefix (strcat filename "." layname))
(command "exportlayout" fielprefix)
)
)
(setvar "FILEDIA" 1)
)
仍然缺少批处理文件。
与此同时，我正在一个文件一个文件地做
页:
1
[2]