solidworks批量图号分离_SolidWorks2014基于宏实现快速图号名称分离

写代码：复制如下代码，写到上图的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()

'link solidworks

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批量图号分离_SolidWorks2014基于宏实现快速图号名称分离相关推荐

solidworks批量图号分离_SolidWorks2014基于宏实现快速图号名称分离.docx
SolidWorks2014基于宏实现快速图号名称分离 SolidWorks2014基于宏实现快速"图号名称"分离当我们创建好一个Solidworks 零件以后,为了更快速把零件 ...
ef mysql 读写分离_基于 EntityFramework 的数据库主从读写分离服务插件
基于 EntityFramework 的数据库主从读写分离服务插件 1. 版本信息和源码 1.1版本信息 v1.01 beta(2015-04-07),基于 EF 6.1 开发,支持 EF 6.1 之 ...
solidworks批量图号分离_SolidWorks图号分离宏-不需要特殊符号
概述: SolidWorks图号分离宏,这是个很好用的宏程序,如果保存文件时,文件名是以"图号+名称"或者"名称+图号"的形式,可以自动识别文件名中的图号与名称 ...
solidworks批量图号分离_SolidWorks图号名称分离宏
SolidWorks 宏代码,用来分离文件名中的图号与零件名并自动写入属性,文件名不需要" - "或者空格等特殊符号 , 不限制图号长度 , 均可识 ...
solidworks批量图号分离_SolidWorks图号名称分离宏.docx
SolidWorks宏代码,用来分离文件名中的图号与零件名并自动写入属性,文件名不需要"-"或者空格等特殊符号,不限制图号长度,均可识别并分离使用方法打开宏工具栏2 点击新建宏按钮 ...
solidworks批量图号分离_教你如何将SolidWorks2016图号名称分离到零件属性中
2018年7月新书未执行前的图号名称没有分离关键是宏按钮的新建:打开工具-宏-新建-另存为对话框-自己给起名字-复制填写代码另存为对话框代码可以复制下面的-最后点保存下面是按钮制作 Dim ...
字节跳动这项研究火了：基于残差UNet架构，一键分离伴奏和人声
来源:机器之心字节跳动的这项研究,可以完美将混合音频分离成单个源任务. 音乐源分离 (MSS) 是将混合音频分离成单个源的任务,例如人声.鼓.伴奏等.MSS 是音乐信息检索 (MIR) 的重要内容, ...
Nature：基于宏基因组测序构建人类肠道微生物组参考基因集
文章目录基于宏基因组测序构建人类肠道微生物组参考基因集文章影响作者简介热心肠日报摘要正文宏基因组测序肠道微生物组图1. 人类肠道微生物组的覆盖度人类肠道微生物组的基因集图2. 预测 ...
Gut Microbes | 基于宏基因组发现猕猴肠道中的大量微生物新基因组
猕猴肠道宏基因组中新微生物基因组的组装 Assembly of novel microbial genomes from gut metagenomes of rhesus macaque (Maca ...

solidworks批量图号分离_SolidWorks2014基于宏实现快速图号名称分离

solidworks批量图号分离_SolidWorks2014基于宏实现快速图号名称分离相关推荐

最新文章

热门文章