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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 20884|回复: 49
打印 上一主题 下一主题

SolidWorks自动更新代号名称分离方法

  [复制链接]

15

主题

220

帖子

194

金币

版主

Rank: 7Rank: 7Rank: 7Rank: 7

积分
1279

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

跳转到指定楼层
#
发表于 2017-8-31 11:06:45 | 只看该作者 |只看大图 回帖奖励 |正序浏览 |阅读模式

   经典图书
摘要:本文主要是讲解在SolidWorks中,如何自动分离零件的代号跟名称的方法。大家都知道我们在设计好零件后,通常会命名该零件的名字是代号”+“名称的方法。例如一个传动抽会命名:SW001传动轴。然后我们在出工程图的时候通常就会想到有没有什么方便快捷的方法,能在出工程图的时候,能自动的将零件名字中的代号和名称进行分离,分别放入对应的线框中。
下面讲的就是运用的命令,来实现自动的分离代号和名称。之前可能网上也有一些运用命令的方法,但是那些方法的确能实现分离代号和名称,但是需要去手动运行命令,我们现在要讲的就是自动运行命令的方法。
         我们要创建两个命令,两个命令的作用分别是分离命令以及自动运行命令。步骤如下:
1.      打开SolidWorks,工具--新建;
2.      将里面的文字全部删除,并将下列代码复制进去并保存为:“图号分离-”;
'定义solidwork
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long,longwarnings As Long
Dim Feature As Object
Dim a As Integer
Dim b As String
Dim m As String
Dim e As String
Dim k As String
Dim t As String
Dim c As String
Dim j As Integer
Dim strmat As String
Dim tempvalue As String
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState= 1
'设定变量
c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) +Trim("SW-Material" + "@") + c + Chr(34)
blnretval =Part.DeleteCustomInfo2("", "代号")
blnretval =Part.DeleteCustomInfo2("", "名称")
blnretval =Part.DeleteCustomInfo2("", "材料")
a = InStr(c, " ") -1      '重点:分隔标识符,这里是一个空格
If a > 0 Then
   k = Left(c, a)
   t = Left(LTrim(e), 3)
   If t = "GBT" Then
       e = "GB/T" +Mid(k, 4)
   Else
        e = k
   End If
   b = Mid(c, a + 2)
   t = Right(c, 7)
   If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
   Else
        j = Len(b)
   End If
   m = Left(b, j)
End If
blnretval =Part.AddCustomInfo3("", "代号", swCustomInfoText, e)  '代号
blnretval =Part.AddCustomInfo3("", "名称", swCustomInfoText, m)  '名称
blnretval =Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")
End Sub
3.      按照上面同样的步骤再次新建一个命令,命名为“AutoRun”;删除红色框中所有代码,并将下列代码复制进去。
Public AutoRun As 类1
Sub main()
Set AutoRun = New 类1
End Sub
4.      右键左边资源管理器,选择插入类模块,并将下列代发复制进去,保存
Private WithEvents SwApp AsSldWorks.SldWorks
Private Sub Class_Initialize()
Set SwApp = Application.SldWorks
End Sub
Private Function SwApp_ActiveModelDocChangeNotify()As Long
Dim runMacroError As Long
SwApp.RunMacro2 "C:\Macros\图号分离-.swp", "图号分离_1", "main", 0, runMacroError
End Function   
5.      在C盘新建文件夹,命名Macros,将附件的两个.swp文件放到上面新建的Macros文件夹中;
6.      右键桌面选择solidworks图标
,选择属性
7.      在目标栏中接着路径输入:空格/m空格"C:\Macros\AutoRun.swp"
就是:solidworks启动程序的路径+空格+/m+空格+常驻的文件位置(注意一定要空格键)注:如果发现目标是灰色无法输入,需要删掉桌面的图标,然后在我的电脑中找到安装启动程序,创建快捷方式到桌面。
8.      最后我们的设定就已经成功了,当我们在新建文件的时候,保存零件需要输入:零件号+空格+零件名,这样在我们关闭零件再次打开,或者切换窗口时,软件会自动运行命令,自动将零件名称代号添加到属性中。

评分

参与人数 1威望 +5 金币 +28 贡献 +5 收起 理由
专门设计 + 5 + 28 + 5 赞一个!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏7 转播转播 分享教程|习题|模型|技巧 点赞点赞1 拍砖拍砖
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,使用IE和Edge浏览器,浏览个别网页以及下载文件时,会误报“***不安全”,此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载,另外,本网站不含任何不安全的文件,已联系微软公司解决,纯属IE和Edge浏览器误报)
回复

使用道具 举报

6

主题

395

帖子

182

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2506

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

49#
发表于 2022-7-19 19:43:48 | 只看该作者
SW机械工程师网,找到组织了!
SolidWorks机械工程师网
提示:建议使用谷歌浏览器浏览本网站!如单击这里下载!否则,可能无法下载附件文件!(支持大多数版本的谷歌浏览器,支持360和QQ浏览器的极速模式,即谷歌内核模式,使用IE和Edge浏览器,浏览个别网页以及下载文件时,会误报“***不安全”,此时需要单击“继续访问此不安全站点(不推荐)”才可以继续下载,另外,本网站不含任何不安全的文件,已联系微软公司解决,纯属IE和Edge浏览器误报)
回复 支持 反对

使用道具 举报

6

主题

395

帖子

182

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2506

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

48#
发表于 2022-7-16 13:47:07 | 只看该作者

   经典图书
KEMIRWU 发表于 2019-4-28 19:02
还有一个问题,
    我在打开装配体的时候不能运算零件体,
  我需要一个个的把零件打开才能实现添加属性 ...

使用遍历宏
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

6

主题

395

帖子

182

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2506

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

47#
发表于 2022-7-16 13:36:50 | 只看该作者
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

26

帖子

10

金币

天使

Rank: 2Rank: 2

积分
81

最佳新人活跃会员宣传达人

46#
发表于 2022-7-14 16:55:51 | 只看该作者

   经典案例图书
很不错,希望能共享模型,谢谢!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

82

帖子

64

金币

侠客

Rank: 3Rank: 3Rank: 3

积分
459

最佳新人活跃会员热心会员宣传达人

45#
发表于 2020-10-7 16:17:40 | 只看该作者
感谢分享  学习了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

170

帖子

31

金币

堂主

Rank: 4

积分
566

最佳新人活跃会员热心会员宣传达人灌水之王

44#
发表于 2020-10-7 08:57:30 来自手机 | 只看该作者

   经典案例图书
感谢楼主分享,很不错!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

32

主题

259

帖子

59

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1784

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

43#
发表于 2019-4-28 19:02:19 | 只看该作者
还有一个问题,
    我在打开装配体的时候不能运算零件体,
  我需要一个个的把零件打开才能实现添加属性。
请问有无方法可以让打开装配体就做零件体的属性赋值。
谢谢!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

32

主题

259

帖子

59

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1784

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

42#
发表于 2019-4-28 18:59:15 | 只看该作者
我已经按照你的说明设置好了,非常感谢。谢谢!
  现在我试下来的时候就是,SLDDRW文档也是会做运算,我想只需要3D添加属性就好了,不要2d上加属性。
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

3

主题

386

帖子

2

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1401

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

41#
发表于 2019-4-28 13:46:59 | 只看该作者

   经典图书
这个真的很好的啊
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

6

主题

84

帖子

1333

金币

传奇

Rank: 8Rank: 8

积分
3547

最佳新人活跃会员热心会员宣传达人

40#
发表于 2019-4-26 14:33:07 | 只看该作者
楼主实现不了啊, 我SW2015的,按教程来的,不行
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

32

主题

259

帖子

59

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1784

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

39#
发表于 2019-4-25 09:25:16 | 只看该作者
SW机械工程师网,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

6

主题

84

帖子

1333

金币

传奇

Rank: 8Rank: 8

积分
3547

最佳新人活跃会员热心会员宣传达人

38#
发表于 2019-4-24 17:28:30 | 只看该作者
不能自动运行啊,手动分离可运行
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

32

帖子

9

金币

天使

Rank: 2Rank: 2

积分
120

最佳新人活跃会员宣传达人

37#
发表于 2018-6-30 09:20:32 | 只看该作者
很不错,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

5

主题

582

帖子

201

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2689

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

36#
发表于 2018-6-28 09:28:56 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

用到后来,感觉常驻,不如弄个遍历来得简单
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

8460

帖子

4652

金币

传奇

Rank: 8Rank: 8

积分
24885

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

35#
发表于 2018-5-21 18:51:58 | 只看该作者

   经典案例图书
SW机械工程师论坛,找到组织了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

97

主题

332

帖子

3142

金币

传奇

Rank: 8Rank: 8

积分
8136

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

34#
发表于 2018-5-19 13:34:03 | 只看该作者
加入QQ群
参与讨论和学习

SolidWorks技术交流群

或扫描二维码加入

sunshine0099 发表于 2018-5-19 11:40
@chenshenhao0 我试了 但是不成功。不知道哪里出错了

把需求上傳,看看可否解決!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

92

帖子

401

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1645

最佳新人活跃会员热心会员宣传达人

33#
发表于 2018-5-19 11:40:17 | 只看该作者

   经典案例图书
@chenshenhao0 我试了 但是不成功。不知道哪里出错了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

4

主题

92

帖子

401

金币

长老

Rank: 6Rank: 6Rank: 6

积分
1645

最佳新人活跃会员热心会员宣传达人

32#
发表于 2018-5-19 11:39:15 | 只看该作者
我试了 但是不成功。不知道哪里出错了
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

0

主题

8460

帖子

4652

金币

传奇

Rank: 8Rank: 8

积分
24885

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

31#
发表于 2018-5-13 21:55:09 | 只看该作者
楼主辛苦了!
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

10

主题

557

帖子

254

金币

长老

Rank: 6Rank: 6Rank: 6

积分
2686

最佳新人活跃会员热心会员宣传达人灌水之王突出贡献

30#
发表于 2018-5-5 12:46:43 | 只看该作者
新建快捷方式也是无法修改目标,还是灰色的
SolidWorks机械工程师网
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

SOLIDWORKS 2023 机械设计从入门到精通

手机版|小黑屋| GMT+8, 2025-5-30 00:52 , Processed in 0.222812 second(s), 27 queries , Memcache On.

SolidWorks机械工程师网 ( 鲁ICP备14025122号-2 ) 鲁公网安备 37028502190335号

声明:本网言论纯属发表者个人意见,与本网立场无关。
如涉版权,可发邮件: admin@swbbsc.com

快速回复 返回顶部 返回列表