SOLIDWORKS自动生成带座轴承【宏】_免费下载

SOLIDWORKS自动生成带座轴承【宏】

步骤如下：

1，打开solidworks,按宏工具条中“新建宏”按钮，建立一个任意名字的新宏。

2，打开新宏的页面，把里面代码全删除，代码全部删除。加入下面代码。

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_HIDE = 0
Const SW_MAXIMIZE = 3 '
Const SW_SHOWMINIMIZED = 2 '
Public swHWnd        As Long

Sub main()
Dim swApp As SldWorks.SldWorks
Dim pModel As SldWorks.ModelDoc2
Set swApp = CreateObject("SldWorks.Application")
Set pModel = swApp.ActiveDoc
Dim pFrame As SldWorks.Frame
Set pFrame = swApp.Frame()
swHWnd = pFrame.GetHWnd
ShowWindow swHWnd, SW_SHOWMINIMIZED
Load Seatbearing
Seatbearing.Show 0

End Sub

3，在宏的页面按导入文件，导入文件夹中 “bearing.bas”，“MathFunction.bas”，“Resources.bas”，

   “Seatbearing.frm”四个文件。注意：文件夹中 一定要有“Seatbearing.frx”文件。

4，保存,ok.

如果上面运行报错，可以尝试新方法：

解压压缩包中的 - 带座轴承x2.rar。

步骤如下：

1，打开solidworks,按宏工具条中“新建宏”按钮，建立一个任意名字的新宏。

2，打开新宏的页面，把里面代码全删除，代码全部删除。加入下面代码。

Sub main()

Resources.v_Command

End Sub

3，在宏的页面按导入文件，导入文件夹中 “bearing.bas”，“MathFunction.bas”，“Resources.bas”三个文件。

4，保存宏。

5，运行宏。

宏与使用的SW版本不兼容解决方法：在VB窗口 - 工具 - 引用 - 勾选自己的SW版本

SolidWorks软件中【宏】的使用说明与注意事项汇总：https://www.ict.com.cn/kaifa/3292.html

注：本插件、【宏】来源于网络，该工具为网友上传，具体使用需自行探索，请谨慎下载，最终所有权归原创作者所有，如有问题可联系作者，如有侵权可联系本站删除！