（宏） 重命名工程图图纸名称

贴出全部代码，方便大家学习，太好 了。感谢分享。

对多页工程图，我只想改图纸排列序号，因为在出工程图的时候会把相关的工程图调整在一起，这样排列序号就乱了，请问这么修改为只改序号呢，我运行这宏看前面有序号重排的功能

搞定了，这个SSSSSS符号这么换成中文呢？

Dim PathName As String
Dim SheetName() As String
Dim ConfigName As String
Dim SplittedPathName() As String
Dim ModelName As String

Sub main()
Set swApp = Application.SldWorks
Set drawing = swApp.ActiveDoc
If drawing.GetType <> 3 Then Exit Sub
SheetName = drawing.GetSheetNames
SheetCount = drawing.GetSheetCount
For i = 0 To SheetCount - 1
    drawing.ActivateSheet SheetName(i)
    Set swSheet = drawing.GetCurrentSheet
    swSheet.SetName "$$$$$$" & i
Next
SheetName = drawing.GetSheetNames
drawing.ActivateSheet SheetName(0)
End Sub
我是想把$$$$$$换为“图纸”2个字

哈哈  把这个符号直接改为图纸就可以了，不过排序是重0开始的，这么才能从1开始呢？

Francis 发表于 2014-9-5 22:00
試下這段代碼.

请问swSheet.SetName "$$$$$$" & i，这里这么才能从1开始排序呢？我试验发现是从0开始排序的。我把For i = 0 To SheetCount - 1里面的0修改为1，运行了后发现还是从0开始排序的。求指教！

gdzsh 发表于 2017-8-1 16:18
哈哈  把这个符号直接改为图纸就可以了，不过排序是重0开始的，这么才能从1开始呢？

本來打算回答, 但回答內容可能讓提問者有負面感覺, 看到大大如此高興(哈哈), 那就不掃興了.

真是神人！

智商不是一般的高

那位大侠修改一下，把读取零件名称改为零件编号。