solidworks批量图号分离_教你如何将SolidWorks2016图号名称分离到零件属性中

2018年7月新书

未执行前的图号名称没有分离

关键是宏按钮的新建：打开工具-宏-新建-另存为对话框-自己给起名字-复制填写代码

另存为对话框

代码可以复制下面的-最后点保存

下面是按钮制作

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

后续出工程图调用时使用。

solidworks批量图号分离_教你如何将SolidWorks2016图号名称分离到零件属性中相关推荐

maya批量命名插件_教你玩转MAYA的四十二精华造诣（第一期）
最近在整理文档时发现我收藏了一篇关于MAYA应用技巧的文章,突然有兴趣看了看,结果发现老版本MAYA中的某些内容很多已经无法应用于新版本.我又上网查了一下,结果发现网上好多帖子和我收藏的这篇内容基本一 ...
天正如何批量导出坐标_教你学会天正CAD软件批量标注坐标的方法
天正CAD软件批量标注坐标的方法如下: 步骤一.打开我们需要批量标注坐标的CAD图纸. (1)我需要提前对图纸进行坐标定位,核对定位坐标无误后才能开始批量标注坐标,否则所做的工作都是无效的: (2)在 ...
python批量生成图表_教你用Python自动读取数据生成图表，产生的效益很可观
厌烦了每次都要在Excel里拖动数据来生成图形吧,这篇文章里,教你用Python自动读取Excel数据生成图表,然后Python 使用XlsxWriter模块在Excel工作表中绘制带有数据表的柱形图 ...
mysql批量存图片_教你如何在MySQL数据库中直接储存图片(3)
如果你执行了这个程序,你将会看见一个简单的Html表单,单击"浏览"选择一个文件,然后单击提交. 当文件上传至web服务器之后,程序将会告诉你刚刚上传的文件的ID,记住这个ID,待 ...
批量修改数据_#泰Q头条#065期四步搞定Excel表中的批量数据修改
『闻道有先后术业有专攻』又到每周五我们Offcie小课堂时间,每周学一点儿,知识从未如此简单,也真诚的希望各位能在留言板写下你们宝贵的建议,给您带来更具价值的分享. 这期跟大家带来的Excel表数 ...
amoeba实现mysql主从读写分离_利用Amoeba实现MySQL主从复制和读写分离
在实际生产环境中,如果对数据库的读和写都在同一个数据库服务器中操作,无论是在安全性.高可用性,还是高并发等各个方面都是完全不能满足实际需求的,因此,一般来说都是通过主从复制(Master-Slave) ...
extjs 前后端分离_为什么我不喜欢「前后端分离」（个人观点，欢迎来喷）
我不知道国外有没有「前后端分离」的运动,我只知道国内的大公司喜欢搞这个. 前后端分离大概的意思就是后端只给前端提供数据,前端负责 HTML 渲染(可以在服务器渲染,也可以在浏览器渲染)和用户交互. 说 ...
在下列集成电路说法中不正确_教孩子正确认识性别，保护个人隐私，对成长中的尴尬行为说不...
案例描述悦儿和妈妈一起洗澡,她看到妈妈的乳房,问妈妈为什么自己身上没有.妈妈很坦然地说:"每个女人到了一定的年纪都有的,你长大了也会有的."悦儿听了说:"爸爸是男生,她 ...
zabbix mysql 分离_编译安装zabbix3.0 并且与mysql分离
[前提] 参考: 设计图: 分为三个部分: zabbix-server zabbix*.tar.gz 源码包支持 zabbix-web lamp 环境支持 mysql zabbix mysql数 ...

solidworks批量图号分离_教你如何将SolidWorks2016图号名称分离到零件属性中

solidworks批量图号分离_教你如何将SolidWorks2016图号名称分离到零件属性中相关推荐

最新文章

热门文章