求大神做个宏

hjr123

   经典图书

工程图首数字自定义，后面自动生成数字顺序

氕氘氚

1000RMB

hjr123

   经典图书

氕氘氚 发表于 2024-1-19 11:30
1000RMB

有点狠

huangkaiyao502

联系我，我发一个给你，不要钱的，但是是一个表格文件，好用的

神秘的东大大

   经典案例图书

Dim swApp As ObjectDim Part As Object
Dim boolstatus As Boolean
Dim SheetCount As Integer
Dim i As Long
Dim AllSheetName
Dim longstatus As Long, longwarnings As Long

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Dim myDrawingSheet As Object
SheetCount = Part.GetSheetCount
For i = 0 To SheetCount - 1
AllSheetName = Part.GetSheetNames
Part.ActivateSheet (AllSheetName(i))
Set swSheet = Part.GetCurrentSheet
Set myDrawingSheet = Part.GetCurrentSheet()
myDrawingSheet.SetName "图纸" & i + 1
'MsgBox AllSheetName(i)
Next i
End Sub

13650987636

SolidWorks机械工程师网，顶一下。

神秘的东大大

   经典案例图书

fan03488

感谢楼主分享，很不错！

沉默的人

好好学习，天天向上！

黄火山

   经典图书

神秘的东大大 发表于 2024-1-21 17:25

感谢热心的朋友

hjr123

神秘的东大大 发表于 2024-1-20 15:55
Dim swApp As ObjectDim Part As Object
Dim boolstatus As Boolean
Dim SheetCount As Integer

谢谢热心大佬

hjr123

神秘的东大大 发表于 2024-1-21 17:25

大佬我怎么把自动生产的数字前面加个0改成01 02 03呀

lrw123

感谢分享，Solidworks机械工程师论坛，找到组织了！

zxt0824

谢谢热心大佬

richiwei

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主分享，很不错！

神秘的东大大

   经典案例图书

hjr123 发表于 2024-1-22 11:52
大佬我怎么把自动生产的数字前面加个0改成01 02 03呀

把这一行代码改成图片的样子就可以了。

hjr123

加入QQ群
参与讨论和学习

或扫描二维码加入

神秘的东大大 发表于 2024-1-24 20:12
把这一行代码改成图片的样子就可以了。

可以了 感谢神秘的东大大

随遇而安9528

   经典案例图书

很不错，找到组织了！