arter_2006 发表于 2021-5-13 19:35:01

soilidworks 图层设置宏总不成功

鄙人录制的图层设置宏总不成功，但录制的别的宏就可以，哪位高手能否指点下？非常感谢！


' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

' Zoom To Fit
Part.ViewZoomtofit2

' Zoom To Fit
Part.ViewZoomtofit2

' Zoom To Fit
Part.ViewZoomtofit2

' Save
Dim swErrors As Long
Dim swWarnings As Long
boolstatus = Part.Save3(1, swErrors, swWarnings)
End Sub





冷月梧桐 发表于 2021-5-13 22:02:02

图层问题，明明可以把模板设置好就可以的了，为啥要多走弯路？？

2011ayoon 发表于 2021-5-14 09:05:53

虽然不太懂，但是怎么看里面也不像有设置图层的语法

远祥 发表于 2021-5-18 04:07:39

软件有问题了吧！
页: [1]
查看完整版本: soilidworks 图层设置宏总不成功