我会做更多的测试，然后给你结果。非常非常感谢 在这里，我从另一个文件中复制打印设置。
方法CreatePlotSettingsInfos(string templatePath)
抱歉，俄语注释。
这是little application的一部分，所以也许不要使用复制粘贴，但也许会有帮助。
下面是一个适用于我的示例，提示您选择一个文件，然后将所有页面设置导入当前图形
公共类命令
_
公共子CpyPltSettings（）
Dim选择作为新的PromptOpenFileOptions（vbLf和“输入文件”）
选择。PreferCommandLine=False
选择。DialogName=“选择文件”
选择。Filter=“dwg文件（*.dwg）|*.dwg”
选择。DialogName=“打印设置”
选择。DialogCaption=“打印设置”
作为PromptFileNameResult=Application.DocumentManager.MdiActiveDocument.Editor.GetFileNameForOpen（opts）将pfr调暗。
如果pfr。状态提示状态。那好
返回
如果
添加绘图设置（pfr.StringResult）
末端接头
子添加绘图设置（ByVal绘图设置文件为字符串）
将CurrentDatabase设置为Database=HostApplicationServices.WorkingDatabase
将layName设置为String=Nothing
使用SourceDatabase作为新数据库（False，True）
源数据库。ReadDwgFile（PlotSettingsFile，FileOpenMode.OpenForReadAndAllShare，True，“”
使用currentTransaction作为Transaction=CurrentDatabase.TransactionManager.StartTransaction
使用sourceTransaction作为Transaction=SourceDatabase.TransactionManager.StartTransaction
将sourcePlotDic设置为DBDictionary=SourceDatabase.PlotSettingsDictionaryId.GetObject（OpenMode.ForRead）
对于每个项目，作为sourcePlotDic中的DBDictionaryEntry
作为PlotSettings=sourcePlotDic.GetAt（item.Key）.GetObject（OpenMode.ForRead）的Dim pl
＜div＞将cpl变暗为新的绘图设置（pl.ModelType）＜/div＞
cpl.CopyFrom（pl）
cpl.AddToPlotSettingsDictionary（CurrentDatabase）
下一个
sourceTransaction.Commit（）
结束使用
currentTransaction.Commit（）
结束使用
结束使用
末端接头
结束类
页:
1
[2]