安装（Plotconfigs）
有人知道如何从另一个绘图中获取页面设置到当前布局中吗？在ACAD，它是Psetupin我正试图通过代码做到这一点。
看起来我需要的方法是CopyFrom，但是我在设置配置时收到一个找不到键的错误。
一旦获得，我将把nec布局设置为相应的页面设置(plotconfig)
有什么想法吗？
谢谢！标记Sub Psetupsin()
Dim PltConfig as PlotConfiguration
Set KPltConfigs = ThisDrawing.PlotConfigurations.Item ("I:\Path\Path\Path\Filename-CTB.dwt\K-22x34")
Set HPltConfigs = ThisDrawing.PlotConfigurations.Item ("I:\Path\Path\Path\Filename-CTB.dwt\H-22x34")
For Each PltConfig In ThisDrawing.PlotConfigurations
If PltConfig.Name = "K-22x34" Then
Debug.Print "K"
Else
PltConfig.CopyFrom KPltConfigs
End If
If PltConfig.Name = "H-22x34" Then
Debug.Print "H"
Else
PltConfig.CopyFrom HPltConfigs
End If
Next
End Sub
**** Hidden Message ***** 我有东西......给我几分钟去拿！ 没问题的....它使用DBX的CopyObjects从一个文件复制到另一个文件。我使用一个对话框，但是你可以调整不使用对话框。 马特，很酷，稍后我会详细介绍
ML-我很好奇，当您可以从当前位置分配所需内容时，为什么要从另一个dwg中提取一个？
嘿，马特
，我下载了文件，但我还没有机会看它。
我明天一定会看的...谢谢
CM，
如果您创建一个名为Plotconfigs的图形，则可以在该图形中设置所有页面设置，然后在当前图形（在纸张空间中）类型psetupin中，
这将提示您进行绘图，选择您的Plotconfigs绘图（或模板.dwt），它将公开该绘图中的所有页面设置。您也可以右键单击布局选项卡，然后使用Pagesetup管理器来实现此目的。命令行是 psetupin。
我可以给你几个理由，为什么你会这样做。
您是要在每个图形中设置打印配置，还是希望创建一个图形并在需要时将其导入？在我的一些自定义中，我将做-layout;
这将为您提供选择，然后您可以从Plotconfigs绘图（或.dwt）中插入布局，然后是Psetupin，这也将允许您引入绘图配置。
如果这样做;您将提前设置所有绘图仪配置。
因此，例如，假设您要创建一个新布局;引入布局，然后是页面设置（plotconfig），然后您正在滚动。
有意义？
马克
是的，但似乎有很多额外的工作。 我根本没有任何页面设置。 我动态设置直通代码，并且可以保存或不保存dwg。 我想在网络上维护1 dvb文件比试图跟上我的用户模板文件更容易。 我之前做过这个。当时我决定不想通过ObjectDBX来实现。然后我决定不这样做更容易。从plotconfig图形导入时，我会在页面列表中进行选择。好的，我想要11x17、15x21、30x42和30x42的PDF。因此，我需要从我们的一长串清单中选出四个。通过编程，我在表单上选择纸张大小，它可以进行我想要/需要的页面设置。
CM
恰恰相反
对我来说，每次设置绘图仪配置完全是浪费时间
听着，下次要进行所有设置时，请尝试从以前的图形中导入页面设置，然后告诉我您认为什么更快
此外，如果您有多台绘图仪，或者您正在使用CTB和STB，会发生什么情况
也许对于特定的图形（正如Bob回避的那样），您只想使用特定的.pc3文件，而不是所有文件
这还可以确保每个用户在每个绘图仪上都有正确的设置，并允许他们做他们想做的事情；这是工程设计，而不是设置绘图配置
标记 马克，我想你误解了Duh。 他并不是说你应该在你开始的每幅画中手动设置它们。 如果您正在编写一个程序，该程序将部分地从另一个图形导入页面设置，为什么不直接让您的程序创建页面设置。
哦，我明白他的观点。
我当然可以这样做，但是如果我有一幅已经包含它们的图纸，那么为什么不直接抓住它们呢？
否则，我将为每个Plotconfig提供堆积如山的代码，这并没有多大意义。
更不用说“如果”例程不可用，我希望能够对用户说
“OK，键入psetupin，按Enter键并浏览到您的文件，然后选择您的页面设置”
我有时必须认为作为用户
无论如何，这都是无关紧要的。我只想要答案！ 哈哈
马克
页:
[1]
2