SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 自动生成带座轴承 [打印本页]

作者: yjyjyeming 时间: 2020-2-23 15:08
标题: 自动生成带座轴承
自动生成带座轴承
步骤如下：
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.

: 下载附件保存到相册

2020-2-23 15:06 上传

: 下载附件保存到相册

2020-2-23 15:06 上传

: 下载附件保存到相册

2020-2-23 15:06 上传

带座轴承.rar

（52.37 KB, 下载次数: 507 ）

作者: hdgd501 时间: 2020-2-23 20:07
楼主太有才了，膜拜中……

作者: qxzch 时间: 2020-2-24 20:29
这个有难度！佩服

作者: 毛哥898 时间: 2020-3-2 14:43
弄了点了没法应。。。

作者: yjyjyeming 时间: 2020-3-2 23:45

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

建立一个新宏.有说明。

作者: yu1dao 时间: 2020-3-11 21:50
行 2: 属性 OleObjectBlob 在 Seatbearing 中不能被设置。
楼主，麻烦看，诸侯一个导入出现错误

作者: yu1dao 时间: 2020-3-11 22:09
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
这句说红色的，是不是用在32位系统？我是64位的

作者: yjyjyeming 时间: 2020-3-12 14:18

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

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

: 下载附件保存到相册

2020-3-12 14:12 上传

作者: yu1dao 时间: 2020-3-12 14:30

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

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

作者: yu1dao 时间: 2020-3-12 14:32
楼主，是不是左后一个不匹配的问题？

: 下载附件保存到相册

2020-3-12 14:32 上传

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

: 下载附件保存到相册

2020-3-12 14:40 上传

: 下载附件保存到相册

2020-3-12 14:40 上传

作者: yjyjyeming 时间: 2020-3-13 14:35

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

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

作者: wwwerzhou 时间: 2020-3-14 15:25
SW机械工程师网，找到组织了！

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

作者: yjyjyeming 时间: 2020-3-15 11:07

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

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

作者: 我是苦逼机械 时间: 2020-3-15 14:39
感谢楼主，我这就去运行新建宏，如果失败再来请教您

作者: 我是苦逼机械 时间: 2020-3-15 15:00

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 时间: 2020-3-15 20:30
感谢楼主分享，很不错！

作者: yjyjyeming 时间: 2020-3-16 14:51

我是苦逼机械发表于 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，运行宏。

带座轴承x2.rar

（27.68 KB, 下载次数: 249 ）

作者: 我是苦逼机械 时间: 2020-3-17 11:22

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

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

作者: lionschen 时间: 2020-3-20 13:13
应该是不错的东西

作者: lionschen 时间: 2020-3-20 13:23
64位系统用不了？

作者: fouwen 时间: 2020-3-28 17:52
厉害了，这么复杂的宏

作者: danteyu 时间: 2020-4-2 23:44
感谢大佬指点

作者: chshx1987 时间: 2020-4-2 23:52
楼主太厉害了感谢分享

作者: gongguox 时间: 2020-4-12 21:15
下载下来看看，应该会有用！

作者: pb8002 时间: 2020-4-13 12:54
替换后第一排是红色字，做完后不能打开

作者: pb8002 时间: 2020-4-13 13:07

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

用这个成工了，谢谢老大，还是你厉害。

作者: soso1990 时间: 2020-4-19 20:09
谢谢楼主分享学习了

作者: chengkk55 时间: 2020-4-23 15:11
还有这么好的东西，谢谢楼主

作者: XAA1314520 时间: 2020-5-6 09:55
很不错，顶一下！

作者: sideph 时间: 2020-5-12 08:27
是个好东西，谢谢分享

作者: xiaocake 时间: 2020-5-15 11:57
按楼主1楼提供的带图片界面的文件简单修改了一下，直接生成宏文件了，不用担心Solidworks版本问题。

楼主在19楼提供的文件没有图片界面，使用起来不太方便。

(建模宏)带座轴承20200515.rar (173.11 KB, 下载次数: 270, 售价: 2 金币)

作者: 一个人的江南 时间: 2020-5-17 14:16

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

作者: shhyingxu@lkm 时间: 2020-5-27 11:33
感谢楼主分享！

作者: jyzas001 时间: 2020-5-30 14:13
支持下楼主

作者: soso1990 时间: 2020-6-11 23:02
谢谢楼主分享学习了

作者: LHX168 时间: 2020-6-15 09:18
谢谢楼主分享

作者: savlrf 时间: 2020-6-17 09:49
提示若要在64位系统上使用，则必须更新此项目中的代码。请检查并更新Declare语句，然后用PtrSafe属性标记它们

作者: savlrf 时间: 2020-6-17 09:51
提示若要在64位系统上使用，则必须更新此项目中的代码。请检查并更新Declare语句，然后用PtrSafe属性标记它们

作者: xuminhua 时间: 2020-6-17 14:46
感谢分享此图

作者: 骑骑车上上班 时间: 2020-6-22 09:14
好好学习，天天向上！

作者: hwangjbo 时间: 2020-6-29 09:21
奇文共欣赏疑义相与析

作者: hwangjbo 时间: 2020-7-1 12:26
奇文共欣赏疑义相与析

作者: 17720931012 时间: 2020-7-5 09:34
感谢楼主分享，虽然第一个没法用，但是第二套可以用

作者: gdai 时间: 2020-7-7 09:53
我的版本还没法用solidworks2010 64位，东西很好，用不了着急

: 下载附件保存到相册

2020-7-7 09:51 上传

作者: gongguox 时间: 2020-7-7 11:28
活到老学到老！

作者: gongguox 时间: 2020-7-8 15:19
感谢楼主分享，很不错！

作者: Cody_Yan 时间: 2020-7-17 07:52
顶一下，坐等高手！

作者: gzsod 时间: 2020-7-18 12:37
看看好用不

作者: sideph 时间: 2020-7-31 09:25
不知怎么玩，看看先

作者: dickych 时间: 2020-8-6 14:04
好好学习天天向上

作者: dickych 时间: 2020-8-6 14:21
好好学习天天向上

作者: dickych 时间: 2020-8-6 14:56
好好学习天天向上

作者: hualcc1314 时间: 2020-8-10 13:58

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

作者: 刘莹晓 时间: 2020-8-13 13:39
好好学习，天天向上！

作者: bruce2020 时间: 2020-9-3 13:53
很实用哦。下载了试试

作者: fan03488 时间: 2020-9-14 17:52
64的系统好像不能用,不知道为什麽

作者: xbh520 时间: 2020-9-24 08:19
感谢楼主分享，很不错！

作者: bruce2020 时间: 2020-9-27 11:13
64位的楼主可以用嘛？我的是2018的

作者: zxg1986057 时间: 2020-11-7 09:41
很不错，希望能共享模型，谢谢！

作者: 秦临may 时间: 2020-11-18 19:18
感谢楼主分享，很不错！

作者: 秦临may 时间: 2020-11-25 21:52

经典案例图书

很不错，顶一下！

作者: Wyth.Zhou 时间: 2020-12-2 21:01
这个宏还真实用，感谢感谢

作者: 森林jbb 时间: 2020-12-25 09:42
膜拜中……

作者: xiaocake 时间: 2020-12-25 13:05

zxg1986057 发表于 2020-11-7 09:41
很不错，希望能共享模型，谢谢！

。。。
这个是直接用代码自动画出模型的，你还要怎样共享。

作者: cj8510 时间: 2020-12-30 09:03
感谢分享！这种方式的宏还是第一次见，学习了。

作者: nokin001 时间: 2021-1-5 13:25
楼主的水平太高了，敬佩

作者: 18144919735 时间: 2021-5-19 15:34
怎样导入文件，不会

作者: 18144919735 时间: 2021-5-19 15:45
2018的运行后没有东东，空的

作者: qq2941115105 时间: 2021-5-20 14:35
下载了三次，终于下载到成品了

作者: 子俊2015 时间: 2021-5-22 15:32

xiaocake 发表于 2020-5-15 11:57
按楼主1楼提供的带图片界面的文件简单修改了一下，直接生成宏文件了，不用担心Solidworks版本问题。

楼 ...

但是 PA的轴承座不能用呢

作者: try159 时间: 2021-5-23 22:07
非常不错，求楼主分享！

作者: xiaocake 时间: 2021-5-24 09:06

子俊2015 发表于 2021-5-22 15:32
但是 PA的轴承座不能用呢

在MathFunction模块里面，把Function GetDistancemss 这部分整体取消注释即可。

作者: 子俊2015 时间: 2021-5-24 09:14

xiaocake 发表于 2021-5-24 09:06
在MathFunction模块里面，把Function GetDistancemss 这部分整体取消注释即可。

感谢大佬指点

作者: 苏州万坤信息 时间: 2021-5-28 16:06
楼主辛苦了！

作者: 蒲公英 时间: 2021-6-14 20:29
楼主太有才了！

作者: liming417 时间: 2021-7-11 09:33
人才啊，我是直接把带座轴承的模型都下载了！

作者: lytxt12 时间: 2021-7-12 21:19
这个宏还真实用，感谢感谢

作者: 小杰丶丶丶丶 时间: 2021-7-24 13:30
感谢楼主分享，很不错！

作者: tiancaiashuai 时间: 2021-7-27 11:50
确实厉害，必须点赞

作者: schjck 时间: 2021-10-13 23:15
楼主太有才了，膜拜中……

作者: jines5 时间: 2021-11-30 14:21
点赞支持，感谢分享

作者: shenhui899 时间: 2021-12-10 16:42
谢谢了，非常好链轮

作者: 944673629 时间: 2021-12-28 13:42
感谢楼主分享，很不错！

作者: deihc851209 时间: 2022-1-17 09:18

xiaocake 发表于 2020-5-15 11:57
按楼主1楼提供的带图片界面的文件简单修改了一下，直接生成宏文件了，不用担心Solidworks版本问题。

楼 ...

这个不错，可以用

作者: zhaozhaoqing 时间: 2022-1-29 08:52
楼主太有才了

作者: 442593696 时间: 2022-3-28 10:40
感谢楼主分享，很不错！

作者: 442593696 时间: 2022-3-28 11:15
试了一下，很好用哈，我是2020版的

: 下载附件保存到相册

2022-3-28 11:15 上传

作者: hhh001 时间: 2022-5-9 18:44
感谢分享，学到很多东西！！

作者: kslhf521 时间: 2022-8-17 22:30
辛苦了
感谢分享

作者: SW初学00 时间: 2022-8-18 08:46
感谢楼主分享，很不错！

作者: SW初学00 时间: 2022-8-22 08:17

xiaocake 发表于 2020-5-15 11:57
按楼主1楼提供的带图片界面的文件简单修改了一下，直接生成宏文件了，不用担心Solidworks版本问题。

楼 ...

你好，楼主，里面有的参数不准确，可以修改的吗?

作者: shenkai80 时间: 2022-10-10 08:49
谢谢楼主分享

作者: liyuyin007 时间: 2022-10-10 08:55
楼主太有才了，膜拜中……

作者: tmy168 时间: 2022-10-15 08:41
楼主太有才了，膜拜中……

作者: geliang112055 时间: 2023-3-1 15:57
很不错，找到组织了！

作者: geliang112055 时间: 2023-3-1 16:06
楼主辛苦了！

作者: wxc639 时间: 2023-3-9 21:07
感谢分享，学习一下

作者: zhujinkui 时间: 2023-3-11 15:35
终于成功了，要改一下代码

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)