solidworks代名称分离宏命令属性自定义或配置特定中
solidworks方程式分离文件名
solidworks方程式分离文件名SolidWorks是一款广泛应用于机械设计领域的三维建模软件。
在使用SolidWorks进行设计时，我们通常会创建多个文件来保存不同的部件、装配体和图纸。
这些文件名通常是由一系列字符组成的，包含了很多信息，如文件类型、版本号、日期等。
然而，有时候我们可能需要将这些信息分离出来，以便更好地管理和组织我们的设计文件。
在SolidWorks中，文件名通常由两部分组成：文件名和文件扩展名。
文件名是我们给文件起的名字，用于描述文件的内容。
文件扩展名则用于标识文件的类型。
例如，一个SolidWorks部件文件的文件名可能是“part”，而文件扩展名则是“.sldprt”。
要分离SolidWorks文件名，我们可以使用一些字符串处理函数。
在SolidWorks的宏编程中，有一些内置的函数可以帮助我们实现这个目标。
其中一个常用的函数是“Left”，它可以返回一个字符串的左边指定长度的子字符串。
另一个常用的函数是“Right”，它可以返回一个字符串的右边指定长度的子字符串。
假设我们有一个SolidWorks部件文件的文件名是“part.sldprt”，我们可以使用“Left”函数将文件扩展名分离出来。
具体的代码如下：```Dim fileName As StringDim fileExtension As StringfileName = "part.sldprt"fileExtension = Right(fileName, 7)```在这个例子中，我们使用“Right”函数将文件扩展名分离出来，并将其赋值给变量“fileExtension”。
通过这种方式，我们可以将文件名和文件扩展名分开处理，以便更好地管理和组织我们的设计文件。
除了分离文件扩展名，我们还可以使用类似的方法分离文件名中的其他信息，如版本号和日期。
例如，假设我们的文件名是“part_v1_20220101.sldprt”，我们可以使用“Left”和“Right”函数将版本号和日期分离出来。
关于SolidWorks的自定义属性
书山有路勤为径；学海无涯苦作舟
关于SolidWorks的自定义属性
关于SolidWorks的“自定义属性”
定义自定义属性的目的，主要是在工程图中自动插入信息，您可以将图
纸格式中的注释文字链接到自定义属性。
在工程图的标题栏、明细表中都可以调用。
调用（或链接）的方法为：
用：$PRP:\\\\\”自定义属性名称\\\\\”格式调用零件文件中的自定义属性值，如：$PRP:\\\\\”代号\\\\\”;
用：$PRPSHEET:\\\\\”自定义属性名称\\\\\”格式调用工程图文件中的自定义属性值，如：$PRPSHEET:\\\\\”数量\\\\\”;
用：$PRP:\\\\\”系统属性\\\\\”格式调用零件文件中的系统属性值，如：$PRP:\\\\\”SW-图纸比例\\\\\”。
可用的系统属性参见SolidWorks帮助主题中的:链接注释到文件属性。
适当地定义好自定义属性并按上述方法链接，标题栏和明细表中的项目
内容，如代号、名称、数量、重量等就可以自动调用了。
专注下一代成长，为了孩子。
SolidWorks 属性标签编制程序 自定义属性
关键字: SolidWorks属性标签编制程序自定义属性% q# M, f9 i& u3 m, q3 `一、打开属性标签编制程序有多种方法可以启动属性标签编制程序：如图1所示。
图1 任务窗格中的属性标签编制程序（2）点击Windows【开始】菜单>【所有程序】>【SolidWorks 2013】>【SolidWorks工具】>【属性选项卡编制器】。
（3）如果在【工具】>【选项】>【系统选项】>【文件位置】显示下项的文件夹【自定义属性文件】自定义属性选项卡上的【现在生成】，如图2所示。
图2 任务窗格中的自定义属性属性标签编制程序打开后的界面如图3所示。
可以为零件、装配体、工程图和焊件创建自定义属性界面。
本文以创建一个零件属性标签模板为例，来介绍属性标签编制程序的使用方法。
读者可以根据需要创建装配体和工程图以及焊件的属性标签模板。
图3 属性标签编制程序二、属性标签编制程序属性标签编制程序主要界面由三部分组成。
如图4所示：图4 属性标签编制程序各个窗格左窗格1为控件调色板，包含组框、文本框、列举等控件单元；中央窗格2，可以将组框拖动至中央窗格，将单元拖动至中央窗格内的组框中，有一金色边界围绕活动单元，该单元的属性出现在右窗格中，可以对设置其属性；右窗格3，可以设置组框和其它单元的属性，默认打开时可以设置属性标签模板的页面层次属性，指定正在生成的属性标签模板的类型（零件、装配体、或工程图），并可生成一显示在标签顶部的信息。
组框：一个属性标签模板中可以包含多个组框，使用组框可以将单元分组。
选择组框后，组框出现一金色边界，可以在右窗格中设置组框的标题，以及组框默认是展开的还是折叠的。
如图5所示。
图5 组框属性文本框：将文本框单元拖动至组框内。
在右窗格中设置文本框单元的标题。
（建议将单元标题和自定义属性名称设置为相同。
）在名称中输入自定义属性名称，如“文件序列号[支持正版!~违反版规者请会员热心举报]”，类型选择“文本”，数值栏保留位空。
SolidWorks2014基于宏实现快速图号名称分离(修正版)
SolidWorks2014基于宏实现快速"图号名称"分离当我们创建好一个Solidworks 零件以后，为了更快速把零件的“图号和名称”分别填入自定义属性中，以方便出工程图时调用到标题栏中。
用solidworks宏编写整理这篇说明，现实把”CTJ300-03-10 连杆座“ 分离出"CTJ300-03-10"和"连杆座"，以供参考。
•Solidworks2014•宏代码1. 1新建宏代码：工具——宏——新建在文件名中输入：图号分离.swp ；点击保存，进入宏编辑界面；2. 2认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A 全选删除。
3. 3写代码：复制如下代码，写到上图的2区域；'从这里开始复制:'定义solidworkDim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim mAs StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)'tempvalue = Part.CustomInfo2("", "材料")blnretval = Part.DeleteCustomInfo2("", "代号")blnretval = Part.DeleteCustomInfo2("", "名称")blnretval = Part.DeleteCustomInfo2("", "材料")a = InStr(c, " ") - 1If a > 0 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Thenj = Len(b) - 7Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, " ")'blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat) blnretval = Part.AddCustomInfo3("", "单重", swCustomInfoText, " ") blnretval = Part.AddCustomInfo3("", "总重", swCustomInfoText, " ") blnretval = Part.AddCustomInfo3("", "备注", swCustomInfoText, " ")End Sub4. 4保存退出。
soildworks的功能配置
SolidWorks的配置功能可以应用于零件、装配体、工程图、管路设计、有限元分析、模拟工艺路线…等很多方面。
因此，熟悉配置的原理及其使用方法，会使我们的工作事半功倍。
◆在零件文档中，配置使您可以生成具有不同尺寸、特征和属性（包括自定义属性）的零件系列。
◆在装配体文档中，配置使您可以生成：①通过压缩零部件的简化设计。
②使用不同的零部件配置、不同的装配体特征参数或不同的尺寸或配置特定的自定义属性的装配体系列。
◆在工程图文档中，您可显示您在零件和装配体文档中所生成的配置的视图。
在SolidWorks中，用户可利用配置功能在单一的零件和装配体文档内创建零件或装配体的多个变种(即系列零件和装配体族)，而其多个个体又可以同时显示在同一总装配体中。
其它同类软件无法在同一装配体中同时显示一个零件的多个个体，其它同类软件也无法创建装配体族。
具体应用表现在：1．设计中经常需要修改和重复设计，并需要随时考查和预览同一零部件的不同设计方案和设计阶段，或者记录下零部件在不同尺寸时的状态或不同的部件组合方案，而不同的状态和方案又可同时在一张工程图或总装配体内同时显示出来，因而SolidWorks 利用配置很好地捕捉了实际设计过程中的修改和变化，满足了各种设计需求。
2．特定的设计过程如钣金折弯的状态和零件的铸造毛坯还是加工后的状态可从单一零件文档中浏览或描述在同一工程图中，其它同类软件只有通过使用派生零件的方法才能实现。
3．图形显示和性能方面，利用配置功能SolidWorks 可通过隐藏/显示和压缩等手段实现同一部件的不同个体显示在同一总装配体中，而其它同类软件是无法做到的，即在其它同类软件的装配体内，一个部件的所有实例必须是相同的。
这将大大降低显示性能。
4．配置提供了便于创新的结构化平台，帮助工程师扩充功能达到了新的高度。
SolidWorks 的管道设计模块就是利用配置管理的功能，工程师只要通过简单的拖拉操作即可实现自动找出与已有管接头尺寸完全配合的管道规格，而无须事先指定相应尺寸规格的管道，也正是基于配置；SolidWorks 方便地实现了有孔时自动从标准件库中找到合适尺寸的螺栓与之配合，同时又找到相应规格的螺母和垫圈与螺栓配合；SolidWorks 之模具模块也是利用了配置来管理其模架库；SolidWorks 还利用配置技术创建了一基于INTERNET的三维产品目录管理和交付服务的实时在线3D网站(); SolidWorks 中所提供高级功能如Smartparts,柔性化的子装配以及交替位置视图等也都是因为有了配置才有了实现的可能。
Solidworks模型文件的自定义属性设置--宏
Solidworks模型文件的自定义属性设置--宏SolidWorks API是SolidWorks的OLE应用程序开发接口，用户可以利用它并通过支持OLE编程的开发工具，如Visual Basici、VBA(Excel,Access)、C、VC、C++等对SolidWorks进行二次开发，建立适合用户需要的、专用的SolidWorks 功能模块。
本文通过介绍“自定义属性”这个程序的开发和使用过程，来简单地说明一下SolidWorks API的应用，希望起到抛砖引玉的作用。
一、问题的提出大多数工程图纸的标题栏中应该包括一些基本的设计信息，如零件名称、零件代号、材料以及设计人员和设计日期等方面的信息，其中，零件的名称、代号、材料、数量、重量、一些重要的后处理要求等信息还应该出现在装配图的材料明细表（BOM）中。
这些内容如果在工程图中一一进行编写和修改，其工作量是很大的，并且这种处理方法也不利于保证设计信息的一致性，对模型文件（零件或装配体文件）和图纸文件的管理来讲是脱节的。
SolidWorks是一个全相关的三维机械设计软件，模型文件中的设计数据，如尺寸、注释、文件属性等内容与工程图相关，因此，我们在处理上述工程图标题栏和材料明细表中的设计数据时，应该将这些内容保存在模型文件中，并且自动显示在工程图相应的位置上。
当需要对工程图中的内容进行修改时，直接修改模型文件中的相应数据即可实现。
这样的处理方法不仅保证了设计信息的一致性，而且可以大大提高设计效率。
根据这个设想，我们将这些设计信息进行了归纳，并将它们作为模型文件的自定义属性保存在模型文件指定配置的属性（在SolidWorks中，选择菜单“文件/属性”，单击“指定配置”标签，如图1所示）中，针对模型文件指定配置的这些属性可以自动带入到工程图的标题栏和材料明细表。
图1 指定模型当前配的属性图1中自定义属性的含义和解释如下表：采用这样的方法处理以后，需要在工程图格式文件的相应位置建立包含这些变量的注释文本即可。
SolidWorks图号名称分离宏
SolidWorks宏代码，用来分离文件名中的图号与零件名并自动写入属性，文件名不需要“-”或者空格等特殊符号，不限制图号长度，均可识别并分离使用方法1.打开宏工具栏2点击新建宏按钮选择路径，输入新建宏名称3删除窗口里的所有代码，把本文档里的代码粘贴进去保存4打开SolidWorks自定义5打开命令标签，选择宏，把方框里的图标拖动到SolidWorks主界面工具栏6在弹出窗口浏览刚刚保存的宏文件路径，点击确定7在打开文件的情况下，点击刚刚在工具栏创建的宏按钮即可自动识别并写入属性以下为代码：SubMAIN()SetswApp=CreateObject("sldworks.application")SetPart=swApp.ActiveDoc=1SetCurCFG=Part.GetActiveConfiguration()ConfName=Name=c=Replace(Name,"","")blnretval=Part.AddCustomInfo3(ConfName,"代号",swCustomInfoText,frmPartID)blnretval=Part.AddCustomInfo3(ConfName,"名称",swCustomInfoText,frmPartID)blnretval=Part.AddCustomInfo3(ConfName,"备注",swCustomInfoText,frmPartID)b=Len(c)e=Right(c,7)Ife=".SLDPRT"Ore=".SLDASM"Ore=".sldprt"Ore=".sldasm"Then g=Left(c,b-7)Elseg=cEndIfl=Len(g)h=Left(g,2)k=Len(g)ForI=1ToLen(g)IfAsc(Mid$(g,I,1))<0Thenw=IExitForEndIfNextForI=0ToLen(g)-1IfAsc(Mid$(g,Len(g)-I,1))<0ThenX=Len(g)-IExitForEndIfNextIfw>0ThenIfw=1Thens=Left(g,X)t=Right(g,k-X)Elset=Left(g,w-1)s=Right(g,k-w+1) EndIfElses=""t=gEndIfdummy=t) dummy=s) dummy=j) EndSub。
SolidWorks图号名称分离宏
S o l i d W o r k s图号名称分离宏Prepared on 22 November 2020SolidWorks宏代码，用来分离文件名中的图号与零件名并自动写入属性，文件名不需要“-”或者空格等特殊符号，不限制图号长度，均可识别并分离使用方法1.打开宏工具栏2 点击新建宏按钮选择路径，输入新建宏名称3删除窗口里的所有代码，把本文档里的代码粘贴进去保存4打开SolidWorks自定义5 打开命令标签，选择宏，把方框里的图标拖动到SolidWorks主界面工具栏6 在弹出窗口浏览刚刚保存的宏文件路径，点击确定7 在打开文件的情况下，点击刚刚在工具栏创建的宏按钮即可自动识别并写入属性以下为代码：Sub MAIN()Set swApp = CreateObject("")Set Part == 1Set CurCFG = ()ConfName =Name = c = Replace(Name, " ", "")blnretval = (ConfName, "代号", swCustomInfoText, frmPartID)blnretval = (ConfName, "名称", swCustomInfoText, frmPartID)blnretval = (ConfName, "备注", swCustomInfoText, frmPartID)b = Len(c)e = Right(c, 7)If e = ".SLDPRT" Or e = ".SLDASM" Or e = ".sldprt" Or e = ".sldasm" Then g = Left(c, b - 7)Elseg = cEnd Ifl = Len(g)h = Left(g, 2)k = Len(g)For I = 1 To Len(g)If Asc(Mid$(g, I, 1)) < 0 Thenw = IExit ForEnd IfNextFor I = 0 To Len(g) - 1If Asc(Mid$(g, Len(g) - I, 1)) < 0 ThenX = Len(g) - IExit ForEnd IfNextIf w > 0 ThenIf w = 1 Thens = Left(g, X)t = Right(g, k - X)Elset = Left(g, w - 1)s = Right(g, k - w + 1)End IfElses = ""t = gEnd Ifdummy = "代号", t)dummy = "名称", s)dummy = "备注", j) End Sub。
SolidWorks批量修改属性教程
Thanks
SolidWorks增值开发专家
制造业企业的标准化工作要求很高，设计师经常需要批量修改或增 删SolidWorks零部件的属性信息，手工一个个的修改文件也是可以 的，但是效率非常低，本文介绍利用SolidWorks插件凯元工具 （KYTool）来批量添加、删除、修改、移动、替换SolidWorks的属 性信息。
准备工作1
SolidWorks提供了几十种插件来完成不同的功能，批量操作SW零 件属性需要的插件是KYTool（凯元工具），是一款优秀的国产 SolidWorks多功能插件，其开发团队也是迈迪工具集的作者。
设置SW属性的处理范围
SolidWorks零部件的属性包两类“配置特定属性”和“自定义属 性（全局属性）”配置特定属性又包括当前配置的属性、其它配置的 属性。 在上述六个功能中，凯元工具都可以设置这三个属性处理范围：1.只 处理当前配置的属性（最常用）；2.所有配置的属性（不包括全局属 性）；3.自定义属性（也就是所有配置共享的属性）。
2.批量修改SW属性值
批量修改SolidWorks零部件的属性值：将功能面板切换到第二 页，在列表中输入新旧属性值，比如原值为【A-1】，新值为【A2】，如下图所示：
3.属性名或属性值字符串替换
批量替换SolidWorks零部件的属性名或属性值：将功能面板切换 到第三页，在列表中输入替换前后的字符串，比如要将【A】替换为 【B】；最后指定属性替换范围是属性名称、属性值、二者都。
用户可以任意选择这三种属性处理范围 （可以多选）
查看批量处理结果
在上述的六个功能中，单击【开始】按钮后，程序会自动进行批量 处理SolidWorks属性的过程，这期间会有进度条，用户可以暂停或 继续操作。
solidworks代号名称分离宏命令属性”自定义“或”配置特定“中
SolidWorks2014基于宏实现快速"图号名称"分离1.两类代码代码1（内容添加至“自定义下”）Dim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.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 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm"Thenj = Len(b) - 7 '消除后缀（区分大小写，即含4种）Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "图样代号", swCustomInfoText, e) '代号blnretval = Part.AddCustomInfo3("", "图样名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")End Sub代码2（内容添加至“配置特定”下）'定义swDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringDim Part As ObjectDim swApp As SldWorks.SldWorksDim swModelDoc As SldWorks.ModelDoc2Dim swConfig As SldWorks.ConfigurationDim CustPropMgr As SldWorks.CustomPropertyManagerDim swModel As SldWorks.ModelDoc2Sub main()Set swApp = Application.SldWorksSet swModelDoc = swApp.ActiveDocSet swConfig = swModelDoc.ConfigurationManager.ActiveConfigurationSet swModel = swApp.ActiveDocSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConf ) '配置特定延伸'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)a = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格，也可换成其他符号If a > 0 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm"Thenj = Len(b) - 7 '消除后缀（区分大小写，即含4种）Elsej = Len(b)End Ifm = Left(b, j)End If'删除栏CustPropMgr.Delete ("图样代号")CustPropMgr.Delete ("图样名称")CustPropMgr.Delete ("材料")'新增CustPropMgr.Add2 "图样代号", swCustomInfoText, eCustPropMgr.Add2 "图样名称", swCustomInfoText, mCustPropMgr.Add2 "数量", swCustomInfoText, ""CustPropMgr.Add2 "材料", swCustomInfoText, strmatCustPropMgr.Add2 "单重", swCustomInfoText, ""CustPropMgr.Add2 "总重", swCustomInfoText, ""CustPropMgr.Add2 "备注", swCustomInfoText, ""End Sub特别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）2.操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具——宏——新建在文件名中输入：图号分离.swp ；点击保存，进入宏编辑界面；1. 2认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A 全选删除。
solidworks分离文件名中的图号与名称并增加到属性中
solidworks分离⽂件名中的图号与名称并增加到属性中'定义solidworkDim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.ActiveDoc.ActiveView.FrameState = 1'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)'tempvalue = Part.CustomInfo2("", "材料")blnretval = Part.DeleteCustomInfo2("", "代号")blnretval = Part.DeleteCustomInfo2("", "名称")blnretval = Part.DeleteCustomInfo2("", "材料")a = InStr(c, "_") - 1If a > 0 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Thenj = Len(b) - 7Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) blnretval = Part.AddCustomInfo3("", "数量", swCustomInfoText, " ")'blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat) blnretval = Part.AddCustomInfo3("", "单重", swCustomInfoText, " ") blnretval = Part.AddCustomInfo3("", "总重", swCustomInfoText, " ") blnretval =Part.AddCustomInfo3("", "备注", swCustomInfoText, " ")End Sub。
solidworks2016零件名自动分离至属性新建宏命令
一，复制宏文件至solidworks2016安装文件夹
1，原文件路径：
\\Kongfs\孔工\公用共享\solidworks设置文件 复制文件夹“零件名自动分离宏” 2，放置路径：本地盘均可，以放置至sw安装文件夹为例：
C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2016
名称：伺服电机
品牌：施耐德
三，自动录入零件属性
请按照公司《研发设计文件规范管理》对图纸进行命名
一，机加工件零件名命名规范： 1，部装模型所属零件命名编号： 机器型号-部件号-序号（01、02…）（空一格）零件名称 如：BWAC600A-05-06 连接板 2，子部装模型所属零件的命名编号： 机器型号-部件号.子部件号-序号（01、02…）（空一格）零件名称 如：BWAC600A-05.02-04 导轨垫块 二，外购件零件名命名规范： 名称（空一格）型号_品牌 如：联轴器 SDWB-22C-6-8_SUNGIL
二，新建宏按钮
1，打开solidworks2016
2，点击“工具”“自定义” 图一 3，点击“命令”“宏”，可以看到右侧按钮框 4，拖动“新建宏按钮”至宏工具栏 图三 图二
图一
图二
弹出“自定义宏按钮”编辑栏
图四
பைடு நூலகம்
图四
图三
二，新建宏按钮
5，点击浏览图标，选择宏文件“图号分离机加标准”
路径为C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2016\零件名自动分离宏 6，点击“选择图像”按钮，弹出文件浏览，选择“图号分离图标” 7，更改按钮提示“零件名称自动分离至属性”
1. SW属性录入现状 2. 自动录入属性
3. 零件命名规范 4. 加载宏步骤
solidworks宏按钮的应用及技巧
solidworks宏按钮的应用及技巧SolidWorks宏按钮是一种用于自动执行特定任务的工具，可以大大提高设计和绘图的效率。
以下是一些SolidWorks宏按钮的应用和技巧：1. 创建宏按钮：在SolidWorks界面中，点击"工具"菜单下的"自定义"，然后选择"命令"选项卡。
在"命令"选项卡中，点击"常规"菜单，选择"宏"，然后将宏按钮拖动到SolidWorks界面上。
2. 记录宏：可以使用SolidWorks的宏记录器记录宏。
点击"工具"菜单下的"宏"，选择"宏记录器"。
然后按照需要执行的操作步骤进行操作。
完成后，再次点击"宏记录器"停止录制。
3. 设置宏按钮的图标：可以为宏按钮选择一个自定义的图标。
在"自定义"对话框中选择"命令"选项卡，然后在图标列中选择一个图标。
4. 编辑宏按钮的属性：在"自定义"对话框中，可以编辑宏按钮的名称、说明和快捷键。
5. 宏编辑器中的技巧：可以使用宏编辑器来编辑宏代码。
在宏编辑器中，可以使用注释、函数、变量等来创建更复杂的宏。
还可以使用循环、判断等语句来实现更复杂的功能。
6. 分享宏按钮：可以将创建的宏按钮分享给其他SolidWorks 用户。
将宏文件（文件扩展名为.swp）发送给其他用户，他们可以将宏文件导入到自己的SolidWorks中使用。
7. 自定义宏按钮的位置：宏按钮可以拖动到SolidWorks界面的任意位置。
可以将宏按钮放置在常用工具条上，以便快速访问。
总结：SolidWorks宏按钮是一种非常有用的工具，可以提高设计和绘图的效率。
通过记录宏、编辑宏代码和自定义宏按钮的属性等技巧，可以创建出更多功能强大的宏按钮。
SolidWorks自动更新代号名称分离方法
SolidWorks自动更新代号名称分离方法摘要：本文主要是讲解在SolidWorks中，如何自动分离零件的代号跟名称的方法。
大家都知道我们在设计好零件后，通常会命名该零件的名字是“代号”+“名称”的方法。
例如一个传动抽会命名：SW001传动轴。
然后我们在出工程图的时候通常就会想到有没有什么方便快捷的方法，能在出工程图的时候，能自动的将零件名字中的代号和名称进行分离，分别放入对应的线框中。
下面讲的就是运用宏的命令，来实现自动的分离代号和名称。
之前可能网上也有一些运用宏命令的方法，但是那些方法的确能实现分离代号和名称，但是需要去手动运行宏命令，我们现在要讲的就是自动运行宏命令的方法。
我们要创建两个宏命令，两个宏命令的作用分别是分离宏命令以及自动运行宏命令。
步骤如下：1.打开SolidWorks，工具-宏-新建；2.将里面的文字全部删除，并将下列代码复制进去并保存为：“图号分离-宏”；'定义solidworkDim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.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 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Thenj = Len(b) - 7Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")End Sub3.按照上面同样的步骤再次新建一个宏命令，命名为“AutoRun”；删除红色框中所有代码，并将下列代码复制进去。
陈燊豪SolidWorks自动更新代号名称分离方法
SolidWorks自动更新代号名称分离方法摘要：本文主要是讲解在SolidWorks中，如何自动分离零件的代号跟名称的方法。
大家都知道我们在设计好零件后，通常会命名该零件的名字是“代号”+“名称”的方法。
例如一个传动抽会命名：SW001传动轴。
然后我们在出工程图的时候通常就会想到有没有什么方便快捷的方法，能在出工程图的时候，能自动的将零件名字中的代号和名称进行分离，分别放入对应的线框中。
下面讲的就是运用宏的命令，来实现自动的分离代号和名称。
之前可能网上也有一些运用宏命令的方法，但是那些方法的确能实现分离代号和名称，但是需要去手动运行宏命令，我们现在要讲的就是自动运行宏命令的方法。
我们要创建两个宏命令，两个宏命令的作用分别是分离宏命令以及自动运行宏命令。
步骤如下：1.打开SolidWorks，工具-宏-新建；2.将里面的文字全部删除，并将下列代码复制进去并保存为：“图号分离-宏”；'定义solidworkDim swApp As ObjectDim Part As ObjectDim SelMgrAs ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'linksolidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.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 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Thenj = Len(b) - 7Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")End Sub3.按照上面同样的步骤再次新建一个宏命令，命名为“AutoRun”；删除红色框中所有代码，并将下列代码复制进去。
solidworks代号名称分离宏命令(属性”自定义“中)
SolidWorks2014基于宏实现快速"图号名称"分离➢代码（内容添加至“自定义下”）'定义solidworkDim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.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 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt"Or t = ".sldasm" Thenj = Len(b) - 7'消除后缀（区分大小写，即含4种）Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "图号", swCustomInfoText, e) '图号blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInfo3("", "品牌", swCustomInfoText, " ") '品牌End Sub1.操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具——宏——新建在文件名中输入：图号分离.swp；点击保存，进入宏编辑界面；1. 2认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A全选删除。
SolidWorks属性选项卡编辑器应用指南
SolidWorks属性选项卡编辑器应用指南通过SolidWorks属性编辑器，用户可以实现系列化零部件的部署，可以批量地按照模板在装配体中为零部件赋予属性，也可以通过属性编辑器与Excel的集合，实现产品参数化设计。
通过此应用，读者可以按部就班地了解、使用SolidWorks属性编辑器。
一、SolidWorks属性选项卡编辑器在SolidWorks中，属性选项卡编制器允许用户生成自定义界面，以将文件属性输入到SolidWorks文件中。
通过填写图1中的项目，软件将自动填写工程图标题栏属性，如图2所示(前提：在工程图图样格式的标题栏中已做相应的关联)。
二、传统属性填写方式SolidWorks作为一款基于windows系统上的三维软件，以其易学易用的特点正在被越来越多的设计人员所采用。
同时，作为一款产品模型、2D工程图和材料明细表之间全相关的软件，SolidWorks模型属性的传递就显得尤为重要。
而基于传统SolidWorks模型属性的填写方式在操作简便性、填写出错率和界面个性化上存在一定不足，如图3所示。
图3用户在对文件进行属性填写时，需在SolidWorks中单击“文件”→“属性”→“配置特定”，并在图3所示的表格内进行填写，该过程的操作繁琐且在填写属性时容易出现填错行等问题，这都不利于软件使用效率的提升。
三、使用属性选项卡编辑器填写属性的方式SolidWorks属性选项卡编辑器，可直接将自定义属性项通过附加在任务窗格中来提高软件使用效率，同时基于实际情况用户也可以直接在该页面中显示零件的重量等属性。
下面将详细介绍如何创建一个基于零件的自定义属性文件。
1.步骤1“开始”→“所有程序”→“solidworks2012”→“solidworks工具”→“属性选项卡编制器”。
打开属性选项卡编制器，如图4所示。
图4A区域：在该区域设定页面层次属性，包括用户在创建的模板的类型(零件、装配体或工程图)。
B区域：显示SolidWorks自定义属性标签页中的界面布局。
solidworks代号名称分离宏命令(属性”自定义“或”配置特定“中)
SolidWorks2014基于宏实现快速"图号名称"分离1.两类代码➢代码1（内容添加至“自定义下”）Dim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.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 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm"Thenj = Len(b) - 7 '消除后缀（区分大小写，即含4种）Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "图样代号", swCustomInfoText, e) '代号blnretval = Part.AddCustomInfo3("", "图样名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInfo3("", "表面处理", swCustomInfoText, " ")End Sub➢代码2（内容添加至“配置特定”下）'定义swDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringDim Part As ObjectDim swApp As SldWorks.SldWorksDim swModelDoc As SldWorks.ModelDoc2Dim swConfig As SldWorks.ConfigurationDim CustPropMgr As SldWorks.CustomPropertyManagerDim swModel As SldWorks.ModelDoc2Sub main()Set swApp = Application.SldWorksSet swModelDoc = swApp.ActiveDocSet swConfig = swModelDoc.ConfigurationManager.ActiveConfigurationSet swModel = swApp.ActiveDocSet CustPropMgr = swModel.Extension.CustomPropertyManager(swModel.ConfigurationManager.ActiveConfiguratio ) '配置特定延伸'设定变量c = swApp.ActiveDoc.GetTitle() '零件名strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)a = InStr(c, " ") - 1 '重点：分隔标识符，这里是一个空格，也可换成其他符号If a > 0 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm"Thenj = Len(b) - 7 '消除后缀（区分大小写，即含4种）Elsej = Len(b)End Ifm = Left(b, j)End If'删除栏CustPropMgr.Delete ("图样代号")CustPropMgr.Delete ("图样名称")CustPropMgr.Delete ("材料")'新增CustPropMgr.Add2 "图样代号", swCustomInfoText, eCustPropMgr.Add2 "图样名称", swCustomInfoText, mCustPropMgr.Add2 "数量", swCustomInfoText, ""CustPropMgr.Add2 "材料", swCustomInfoText, strmatCustPropMgr.Add2 "单重", swCustomInfoText, ""CustPropMgr.Add2 "总重", swCustomInfoText, ""CustPropMgr.Add2 "备注", swCustomInfoText, ""End Sub特别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）2.操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具——宏——新建在文件名中输入：图号分离.swp ；点击保存，进入宏编辑界面；1. 2认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A 全选删除。
SolidWorks2014怎么实现图号名称分离？
SolidWorks2014怎么实现图号名称分离？当我们创建好⼀个Solidworks 零件以后，为了更快速把零件的“图号和名称”分别填⼊⾃定义属性中，以⽅便出⼯程图时调⽤到标题栏中。
⽤solidworks宏编写整理这篇说明，现实把”CTJ300-03-10 连杆座“ 分离出"CTJ300-03-10"和"连杆座"，以供参考。
SolidWorks 2010 SP2.1 中⽂破解免费版类型：3D制作类⼤⼩：4.64GB语⾔：简体中⽂时间：2013-07-29查看详情⼀、宏代码1、新建宏代码：⼯具——宏——新建在⽂件名中输⼊：图号分离.swp；点击保存，进⼊宏编辑界⾯；2、认识宏编辑界⾯：1）⼯程信息2）编程区域3）做⼀个写代码前的准备⼯作，把2区域的内容Ctrl+A 全选删除。
3、写代码：复制如下代码，写到上图的2区域；'从这⾥开始复制:'定义solidworkDim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectDim a As IntegerDim b As StringDim m As StringDim e As StringDim k As StringDim t As StringDim c As StringDim j As IntegerDim strmat As StringDim tempvalue As StringSub main()'link solidworksSet swApp = Application.SldWorksSet Part = swApp.ActiveDocSet SelMgr = Part.SelectionManagerswApp.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 Thenk = Left(c, a)t = Left(LTrim(e), 3)If t = "GBT" Thene = "GB/T" + Mid(k, 4)Elsee = kEnd Ifb = Mid(c, a + 2)t = Right(c, 7)If t = ".SLDPRT" Or t = ".SLDASM" Thenj = Len(b) - 7Elsej = Len(b)End Ifm = Left(b, j)End Ifblnretval = Part.AddCustomInfo3("", "代号", swCustomInfoText, e) '代号blnretval = Part.AddCustomInfo3("", "名称", swCustomInfoText, m) '名称blnretval = Part.AddCustomInfo3("", "表⾯处理", swCustomInfoText, " ")End Sub4、保存退出。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
s o l i d w o r k s代名称分离宏命令属性自定义或配置特定中The pony was revised in January 2021S o l i d W o r k s2014基于宏实现快速"图号名称"分离1.两类代码代码1（内容添加至“自定义下”）DimswAppAsObjectDimPartAsObjectDimSelMgrAsObjectDimboolstatusAsBooleanDimlongstatusAsLong,longwarningsAsLongDimFeatureAsObjectDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringSubmain()'linksolidworksSetswApp=Application.SldWorksSetPart=swApp.ActiveDocSetSelMgr=Part.SelectionManager=1'设定变量c=()'零件名strmat=Chr(34)+Trim("SW-Material"+"@")+c+Chr(34)blnretval=Part.DeleteCustomInfo2("","图样代号")blnretval=Part.DeleteCustomInfo2("","图样名称")blnretval=Part.DeleteCustomInfo2("","材料")a=InStr(c,"")-1'重点：分隔标识符，这里是一个空格,也可用其他符号区分Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"+Mid(k,4)Elsee=kEndIfb=Mid(c,a+2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Ort=".sldprt"Ort=".sldasm"Then j=Len(b)-7'消除后缀（区分大小写，即含4种）Elsej=Len(b)EndIfm=Left(b,j)EndIfblnretval=Part.AddCustomInfo3("","图样代号",swCustomInfoText,e)'代号blnretval=Part.AddCustomInfo3("","图样名称",swCustomInfoText,m)'名称blnretval=Part.AddCustomInfo3("","表面处理",swCustomInfoText,"") EndSub代码2（内容添加至“配置特定”下）'定义swDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsStringDimtempvalueAsStringDimPartAsObjectDimswAppAsSldWorks.SldWorks DimswModelDocAsSldWorks.ModelDoc2 DimswConfigAsSldWorks.Configuration DimCustPropMgrAsSldWorks.CustomPropertyManager DimswModelAsSldWorks.ModelDoc2Submain()SetswApp=Application.SldWorksSetswModelDoc=swApp.ActiveDocSetswConfig=SetswModel=swApp.ActiveDocSetCustPropMgr='配置特定延伸'设定变量c=()'零件名strmat=Chr(34)+Trim("SW-Material"+"@")+c+Chr(34)a=InStr(c,"")-1'重点：分隔标识符，这里是一个空格，也可换成其他符号Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"+Mid(k,4)Elsee=kEndIfb=Mid(c,a+2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Ort=".sldprt"Ort=".sldasm"Thenj=Len(b)-7'消除后缀（区分大小写，即含4种）Elsej=Len(b)EndIfm=Left(b,j)EndIf'删除栏CustPropMgr.Delete("图样代号")CustPropMgr.Delete("图样名称")CustPropMgr.Delete("材料")'新增CustPropMgr.Add2"图样代号",swCustomInfoText,e CustPropMgr.Add2"图样名称",swCustomInfoText,m CustPropMgr.Add2"数量",swCustomInfoText,"" CustPropMgr.Add2"材料",swCustomInfoText,strmat CustPropMgr.Add2"单重",swCustomInfoText,"" CustPropMgr.Add2"总重",swCustomInfoText,"" CustPropMgr.Add2"备注",swCustomInfoText,"" EndSub特别说明：在虚拟件中添加属性时，名称会自动加上从属装配体，非虚拟件则不会（此问题急需高人指点）2.操作步骤（以上述代码1为例）一、宏代码1新建宏代码：工具——宏——新建在文件名中输入：图号分离.swp；点击保存，进入宏编辑界面；1.2认识宏编辑界面：1、工程信息2、编程区域3、做一个写代码前的准备工作，把2区域的内容Ctrl+A全选删除。
2.3写代码：复制如下代码，写到上图的2区域；'从这里开始复制:'定义solidworkDimswAppAsObjectDimPartAsObjectDimSelMgrAsObjectDimboolstatusAsBoolean DimlongstatusAsLong,longwarningsAsLong DimFeatureAsObjectDimaAsIntegerDimbAsStringDimmAsStringDimeAsStringDimkAsStringDimtAsStringDimcAsStringDimjAsIntegerDimstrmatAsString DimtempvalueAsStringSubmain()'linksolidworksSetswApp=Application.SldWorksSetPart=swApp.ActiveDocSetSelMgr=Part.SelectionManager=1'设定变量c=()'零件名strmat=Chr(34)+Trim("SW-Material"+"@")+c+Chr(34) blnretval=Part.DeleteCustomInfo2("","代号") blnretval=Part.DeleteCustomInfo2("","名称") blnretval=Part.DeleteCustomInfo2("","材料")a=InStr(c,"")-1'重点：分隔标识符，这里是一个空格Ifa>0Thenk=Left(c,a)t=Left(LTrim(e),3)Ift="GBT"Thene="GB/T"+Mid(k,4)Elsee=kEndIfb=Mid(c,a+2)t=Right(c,7)Ift=".SLDPRT"Ort=".SLDASM"Thenj=Len(b)-7Elsej=Len(b)EndIfm=Left(b,j)EndIfblnretval=Part.AddCustomInfo3("","代号",swCustomInfoText,e)'代号blnretval=Part.AddCustomInfo3("","名称",swCustomInfoText,m)'名称blnretval=Part.AddCustomInfo3("","表面处理",swCustomInfoText,"") EndSub3.4保存退出。
第一部分做到这就算完成了。
下面是创建宏按钮；END1.返回Solidworks工作界面，进入自定义工具栏：工具——自定义；选择命令选项卡，找到宏，把新建宏按钮拖到工具栏的空白处；2.弹出自定义宏按钮对话框：1、选择上面保存的宏文件；2、指定一个图标，以便在工具栏中显示；3、指定一个指示的名称，以便在工具栏中显示；3.点击确定，退出自定义宏按钮，完成制作。