巨集如何成为VBS副档名

s1-aaaaa · 发表于 2020-5-28 12:27:12

经典图书

巨集.SWP 如何成为.VBS副档名

Macro2.swp (23.5 KB, 下载次数: 85)

Iamkeanu · 发表于 2020-6-24 10:22:32

大郎用巨集无法控制第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

Macro2 (1).swp (37.5 KB, 下载次数: 184)

figo007123 · 发表于 2020-6-25 00:39:17

经典图书

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

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

hongtu98 · 发表于 2020-6-28 02:41:14

请问要用何种ˋ软体另存VBS，用记事本可以吗?这样对吗

1.VBS (402 Bytes, 下载次数: 54)

jinanzhaoyun · 发表于 2020-6-30 22:51:41

经典案例图书

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

shengcunzhe · 发表于 2020-7-6 07:53:14

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

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

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

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

xuyue888 · 发表于 2020-7-23 19:55:01

经典案例图书

照做以后没反应，请问还要注意那些

影像品質.VBS (377 Bytes, 下载次数: 107)

lfzgrs · 发表于 2020-7-24 20:48:51

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

xiangkaikui · 发表于 2020-8-1 08:00:02

对要开启零件或组合件会成功，但上方的设定没反应~还是要自行修改数值?

egg5201314 · 发表于 2020-8-20 15:36:01

经典图书

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

		自动登录	找回密码
密码			立即注册

巨集如何成为VBS副档名

浏览过的版块