自动生成带座轴承

yjyjyeming

   经典图书

自动生成带座轴承
步骤如下：
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.

hdgd501

楼主太有才了，膜拜中……

qxzch

   经典图书

这个有难度！佩服

毛哥898

弄了点了没法应。。。

yjyjyeming

   经典案例图书

毛哥898 发表于 2020-3-2 14:43
弄了点了没法应。。。

建立一个新宏.有说明。

yu1dao

行 2: 属性 OleObjectBlob 在 Seatbearing 中不能被设置。
楼主，麻烦看，诸侯一个导入出现错误

yu1dao

   经典案例图书

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
这句说红色的，是不是用在32位系统？我是64位的

yjyjyeming

yu1dao 发表于 2020-3-11 22:09
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long ...

原来不知您是用哪个版本，所以要建个新宏。新宏是不是如图显示？？？

yu1dao

yjyjyeming 发表于 2020-3-12 14:18
原来不知您是用哪个版本，所以要建个新宏。新宏是不是如图显示？？？

谢谢楼主的回复，好像版本打进来要屏蔽，SW2019的，试试这个回答

yu1dao

   经典图书

楼主，是不是左后一个不匹配的问题？

yu1dao

Public Declare Function显示红色，加了Presafe可以运行，导入前三个没有问题，最后一个程序溢出，Seatbearing.log显示：行 2: 属性 OleObjectBlob 在 Seatbearing 中不能被设置。

yjyjyeming

yu1dao 发表于 2020-3-12 14:40
Public Declare Function显示红色，加了Presafe可以运行，导入前三个没有问题，最后一个程序溢出，Seatbear ...

“最后一个程序溢出，Seatbearing”
可能是不能设置一个窗口文件，要不帮您专写一个不要窗口文件的宏？不过体验不是很好。

wwwerzhou

SW机械工程师网，找到组织了！

我是苦逼机械

楼主大佬，我4个步骤都顺利做好了，然后呢，怎么生成

yjyjyeming

加入QQ群
参与讨论和学习

或扫描二维码加入

我是苦逼机械 发表于 2020-3-14 20:39
楼主大佬，我4个步骤都顺利做好了，然后呢，怎么生成

运行您建立的“新建宏”，按某个图片，“确定选择”就出了，按“确定选择”。ok.

我是苦逼机械

   经典案例图书

感谢楼主，我这就去运行新建宏，如果失败再来请教您

我是苦逼机械

加入QQ群
参与讨论和学习

或扫描二维码加入

yjyjyeming 发表于 2020-3-15 11:07
运行您建立的“新建宏”，按某个图片，“确定选择”就出了，按“确定选择”。ok.

我是16的SW，然后还是Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long  这一行是红色的问题，我也是64位的，加了Presafe也没成功，所以运行宏失败了

minyunzheng

   经典案例图书

感谢楼主分享，很不错！

yjyjyeming

我是苦逼机械 发表于 2020-3-15 15:00
我是16的SW，然后还是Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCm ...

试下新方法。解压[url=]带座轴承x2.rar。[/url]
步骤如下：
1，打开solidworks,按宏工具条中“新建宏”按钮，建立一个任意名字的新宏。
2，打开新宏的页面，把里面代码全删除，代码全部删除。加入下面代码。

Sub main()
Resources.v_Command
End Sub

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

我是苦逼机械

yjyjyeming 发表于 2020-3-16 14:51
试下新方法。解压带座轴承x2.rar。
步骤如下：
1，打开solidworks,按宏工具条中“新建宏”按钮，建立一 ...

感谢大佬指点，这回基本可以了，就是没有图片。