SolidWorks图号名称分离宏.docx
- 文档编号:1214850
- 上传时间:2023-04-30
- 格式:DOCX
- 页数:8
- 大小:280.54KB
SolidWorks图号名称分离宏.docx
《SolidWorks图号名称分离宏.docx》由会员分享,可在线阅读,更多相关《SolidWorks图号名称分离宏.docx(8页珍藏版)》请在冰点文库上搜索。
SolidWorks宏代码,用来分离文件名中的图号与零件名并自动写入属性,文件名不需要“-”或者空格等特殊符号,不限制图号长度,均可识别并分离
使用方法
1.打开宏工具栏
2点击新建宏按钮
选择路径,输入新建宏名称
3删除窗口里的所有代码,把本文档里的代码粘贴进去保存
4打开SolidWorks自定义
5打开命令标签,选择宏,把方框里的图标拖动到SolidWorks主界面工具栏
6在弹出窗口浏览刚刚保存的宏文件路径,点击确定
7在打开文件的情况下,点击刚刚在工具栏创建的宏按钮即可自动识别并写入属性
以下为代码:
SubMAIN()
SetswApp=CreateObject("sldworks.application")
SetPart=swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameState=1
SetCurCFG=Part.GetActiveConfiguration()
ConfName=CurCFG.Name
Name=swApp.ActiveDoc.GetTitle()
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)
Else
g=c
EndIf
l=Len(g)
h=Left(g,2)
k=Len(g)
ForI=1ToLen(g)
IfAsc(Mid$(g,I,1))<0Then
w=I
ExitFor
EndIf
Next
ForI=0ToLen(g)-1
IfAsc(Mid$(g,Len(g)-I,1))<0Then
X=Len(g)-I
ExitFor
EndIf
Next
Ifw>0Then
Ifw=1Then
s=Left(g,X)
t=Right(g,k-X)
Else
t=Left(g,w-1)
s=Right(g,k-w+1)
EndIf
Else
s=""
t=g
EndIf
dummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("代号",t)
dummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("名称",s)
dummy=Part.Extension.CustomPropertyManager(Part.ConfigurationManager.ActiveConfiguration.Name).Set("备注",j)
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SolidWorks 名称 分离