巨集如何成為VBS副檔名

武大郎

巨集.SWP 如何成為.VBS副檔名

武大郎

大郎用巨集無法控制第2項的影像品質要如何修改(藍色段)，或是如何製作
' ******************************************************************************
' C:\Users\武大郎\AppData\Local\Temp\swx1056\Macro1.swb - macro recorded on 05/28/20 by 武大郎
' ******************************************************************************
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
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swImageQualityShaded, 0, swImageQualityShaded_e.swShadedImageQualityCustom)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swImageQualityWireframeValue, 0, 80)
End Sub

xiaocake

1. Set swApp = CreateObject("SldWorks.Application")
   
2. Set Part = swApp.ActiveDoc
   
3. If Not Part Is Nothing Then
   
4.     Call Part.Extension.SetUserPreferenceInteger(44, 0, 3)
   
5.     Call Part.Extension.SetUserPreferenceToggle(210, 0, True)
   
6.     Call Part.Extension.SetUserPreferenceInteger(46, 0, 94)
   
7.     Call Part.Extension.SetUserPreferenceToggle(527, 0, True)
   
8.     MsgBox "OK"
   
9. End If
   

複製代碼

以上代码 复制到文本文档后另存为vbs格式即可。

武大郎

請問要用何種ˋ軟體另存VBS，用記事本可以嗎?這樣對嗎

xiaocake

武大郎 發表於 2020/6/1 20:20
請問要用何種ˋ軟體另存VBS，用記事本可以嗎?這樣對嗎

可以先保存为 xxx.txt ，然后手动改后缀名（扩展名）为 xxx.vbs
vbs文件里面的内容只有我上面发的内容，
别自作主张添加前面的 Sub main() 和后面的 End Sub 啊！！！

xiaocake

武大郎 發表於 2020/6/1 20:20
請問要用何種ˋ軟體另存VBS，用記事本可以嗎?這樣對嗎

如果代码需要多个sub 或function，那么vbs内容应该这样的：

aaa         '或 call aaa
bbb         '或 call bbb
’xxx=....
ccc  xxx   '或 call ccc(xxx)

’===以上相当于主函数的内容(代码直接写出来就行了)，以下是各个子过程/函数===============
sub aaa()
    'aaa的代码
end sub
sub bbb()
    'bbb的代码
end sub

function ccc(xxx)
    'ccc的代码
end function

武大郎

照做以後沒反應，請問還要注意那些

xiaocake

武大郎 發表於 2020/6/2 18:43
照做以後沒反應，請問還要注意那些

在solidworks中打开模型(零件或装配体)后，运行vbs，跳出 ok 的提示，说明运行正常了。

武大郎

對要開啟零件或組合件會成功，但上方的設定沒反應~還是要自行修改數值?

xiaocake

武大郎 發表於 2020/6/4 14:13
對要開啟零件或組合件會成功，但上方的設定沒反應~還是要自行修改數值?

这个只能你自己慢慢摸索了，我提供的vbs内容是根据你提供的代码来的，代码具体是啥作用你最清楚。。。