布局选项卡名称更改

gazzalp · 发表于 2022-7-6 08:23:38

有没有办法在创建pdf时更改布局选项卡的名称？任何时候我创建一个pdf，它称为图纸“标题（布局1）”，我希望它能够要求我在任何时候更改“布局”的名称，我pdf，所以我可以将其更改为图纸修订号。即点击打印到PDF，它有一个dailog框要求修改，然后创建名为“title-a”（用于a版）的PDF。下次我打开图形时，布局选项卡将被称为“布局”，而不是“布局”

感谢您的帮助

Dipali · 发表于 2022-7-6 08:30:28

你不能重命名布局选项卡名称吗。
选择并右键单击

gazzalp · 发表于 2022-7-6 08:36:11

对不起，我应该说得更清楚。我在一家公司工作，我们总是雇佣新员工。我们不希望人们每次更改图形版本时都要考虑重命名布局选项卡。因此，我们希望autocad在创建pdf时随时提示我们，因为最终，布局选项卡将更改。因此，只要点击一个按钮（pdf按钮），它就会要求我们更改布局选项卡，并自动重命名我们的pdf文件。按照您建议的方式，我们必须首先重命名布局选项卡，然后单击pdf，因此这只是添加了另一个步骤，这意味着我们不习惯的新员工可能会忘记更改布局选项卡。

Lee Mac · 发表于 2022-7-6 08:41:29

我很清楚你的问题，加扎普，因为我也不得不处理这样一个问题。。。

我们有时会让用户把所有文件都用PDF格式归档，然后一些糟糕的超文本将不得不遍历所有文件名，去掉文件名末尾的（布局1）或（模型）。。。

我想你可以使用一个reactor，它会在plot命令的后面运行，并运行一个LISP，它会以某种方式更改布局选项卡的名称，但我不太确定这是否可以或如何实现-只是一个建议。

borgunit · 发表于 2022-7-6 08:46:16

这可能就够第一部分了。但它只允许一个布局选项卡。

copy


Public Sub RenameLayoutTabToInputRevLetter()
Dim sRev As String
sRev = InputBox("Revision Level", "Get Revision Level", "A")
'--------------------------------------
Dim acLayout As AcadLayout
'''''''''''''''''''''''''''''''''''''''
If ThisDrawing.Layouts.Count > 2 Then Exit Sub
For Each acLayout In ThisDrawing.Layouts
   Select Case acLayout.Name
   Case "Model"
   Case Else
       acLayout.Name = sRev
   End Select
Next acLayout
End Sub