完整word版solidworks代号名称分离宏命令属性自定义或配置特定中.docx
- 文档编号:3345516
- 上传时间:2022-11-21
- 格式:DOCX
- 页数:10
- 大小:327.20KB
完整word版solidworks代号名称分离宏命令属性自定义或配置特定中.docx
《完整word版solidworks代号名称分离宏命令属性自定义或配置特定中.docx》由会员分享,可在线阅读,更多相关《完整word版solidworks代号名称分离宏命令属性自定义或配置特定中.docx(10页珍藏版)》请在冰豆网上搜索。
完整word版solidworks代号名称分离宏命令属性自定义或配置特定中
SolidWorkS2014基于宏实现快速"图号名称"分离
1.两类代码
>代码1(内容添加至“自定义下”)
DimSWAPPASObjeCt
DimPartASObjeCt
DimSeIMgrASObjeCt
DimboolstatusASBOOlean
DimIOngstatusASLOngZIOngWarningsASLOng
DimFeatUreASObjeCt
DimaASInteger
DimbASString
DimmASString
DimeASString
DimkASString
DimtASString
DimCASString
DimjASInteger
DimStrmatASString
DimtempvalueASString
SUbmain()
IlinkSOlidWOrkS
SetSWAPP=APPliCatiOn.SldWorks
SetPart=SwApp-ActiveDoc
SetSelMgr=Part-SeIectionManager
SwApp-ActiveDoceActiveVieweFrameState=1
'设定变量
C=SWAPP.ActiveDoc.GetTitle()'零件名
Strmat=Chr(34)+Trim("SW-MateriaI"+"(3)'1)+c+Chr(34)
blnretval=Part.DeleteCustomlnfo2("","图样代号")
blnretval=Part.DeleteCustomlnfo2("","图样名称")
blnretval=Part.DeleteCustomlnfo2(,"∖"材料")
a=InStrfcz,,")-1谨点:
分隔标识符,这里是一个空格,也可用其他符号区分
Ifa>OThen
k=Left(Cza)
t=Left(LTrimfe)z3)
Ift=llGBTnThen
e=MGBZTM+Mid(k,4)
EISe
e=k
EndIf
b=Mid(Cz0+2)
t=Right(C#7)
Ift=ll.SLDPRΓOrt=,,.SLDASMπOrt=ll.sldprtπOrt=,,.sldasm,,Then
j=Len(b)∙7'消除后缀(区分大小写,即含4种)
EISe
j=Len(b)
EndIf
m=Left(b,j)
EndIf
blnretval=Part.AddCustomlnfo3(",∖"图样代号",SWCUStOmlnfOTeXte),代号blnretval=Part.AddCustomlnfo3(,,,∖"图样名称笃SWCUStOmInfoText,m)'名称blnretval=Part.AddCustomlnfo3("","表面处理",SWCUStOmlnfOTeXt"")EndSUb
>代码2(内容添加至“配置特定”下)
'定义SW
Dima
Dimb
Dimm
Dime
Dimk
Dimt
DimC
Dimj
DimStrmat
Dimtempvalue
DimPart
DimSWAPP
DimSWMOdeIDOC
DimSWCOnfig
DimCUStPrOPMgr
DimSWMOdel
ASInteger
ASString
ASString
ASString
ASString
ASString
ASString
ASInteger
ASString
ASString
ASObjeCt
ASSldWOrkS.SIdWorks
ASSIdWOrkS.ModelDoc2
ASSldWOrkS.Configuration
ASSldWOrkS.CustomPropertyManager
ASSIdWOrkS.ModelDoc2
SUbmain()
SetSWAPP=APPliCatiOn.SIdWorks
SetSWMOdelDOC=SwAppeActiveDoc
SetSWCOnfig=SWMOdelDOC.ConfigurationManagereActiveConfiguration
SetSWMOdel=swApp.ActiveDoc
SetCUStPrOPMgr=
SWMOdeI.ExtensiOn.CustomPropertyManager(SWMOdel.ConfigurationManager.ActiveConfiguration.Name)'配置特定延伸
'设定变量
C=SWAPP.ActiveDoc-GetTitIeO,零件名
Strmat=Chr(34)+Irim(MSW-MatenaΓ,+”@”)+c+Chr(34)
a=InStr(Cji)-I'重点:
分隔标识符,这里是一个空格,也町换成其他符号
Ifa>OThen
k=Left(c,a)
t=Left(LTrimfe),3)
lft=,,GBT"Then
e=,,GB∕T"+Mid(k,4)
EISe
e=k
EndIf
b=MieI(Cza+2)
t=Right(Cz刀
Ift=,,.SLDPRT"Ort=,,.SLDASM"Ort=,,.sldprtuOrt=,,.sldasm,,Then
j=Len(b)■厂消除后缀(区分大小写,即含4种)
EISe
j=Len(b)
EndIf
m=Left(b,j)
EndIf
'删除栏
CUStPrOPMgr.Delete("图样代号")
CUStPrOPMgr.Delete("图样名称")
CUStPrOPMgr.Delete("材料")
噺增
CUStPrOPMgr.Add2"图样代号“,SWCUStOmlnfOText,e
CUStPrOPMgr.Add2"图样名称",SWCUStOmlnfOTeXtm
CUStPrOPMgr.Add2"数量",SWCUStOmlnfOTeXtZ""
CUStPrOPMgr.Add2"材料",SWCUStOmInfoTextzStrmat
CUStPrOPMgr.Add2"单重",SWCUStOmlnfOTeXtz""
CUStPrOPMgr.Add2"总巫",SWCUStOmlnfoTeXt""
CUStPrOPMgr.Add2"备注",SWCUStOmlnfOTextZ""
EndSUb
待别说明:
在虚拟件中添加属性时,名称会自动加上从属装配体,IE虚拟件则不会(此问题急需高人指点)
2.操作步骤(以上述代码1为例)
一、宏代码1
新建宏代码:
工具——宏一一新建
在文件名中输入:
图号分离.Swp:
点击保存,进入宏编辑界面:
。
旳Iiffl热矛0+1」QSW6ΘB3乙StixE
3⅛×]≡≡N
WW≡TP
写代码:
复制如下代码,写到上图的2区域;
'从这里开始复制:
'定义SOlidWOrk
DimSWAPPASObjeCt
DimPartASObjeCt
DimSelMgrASObjeCt
DimboolstatusASBOOlean
DimIOngStatUSASLOngzIOngWarningsASLOng
DimFeatUreASObjeCt
DimaASInteger
DimbASString
DimmASString
DimeASString
DimkASString
DimtASString
DimCASString
DimjASInteger
DimStrmatASString
DimIemPVaIUeASString
SUbmain()
'linkSOIidWOrkS
SetSWAPP=APPliCatiOn.SIdWorks
SetPart=SwAppeActiveDoc
SetSelMgr=Part-SeIectionManager
SwAppeActiveDoc-ActiveVieweFrameState=1
'设定变量
C=SWAPP.ActiveDoc-GetTitIeO,零件名
Strmat=Chr(34)+Trim("SW-MateriaI"+”@”)+c+Chr(34)blnretval=Part.DeleteCustomlnfo2(wl∖"代号")blnretval=Part.DeleteCustomlnfo2(','∖"名称")blnretval=Part.DeleteCustomlnfo2(,"∖"材料")
a=InStr(C#,,,,)-1'觅点:
分隔标识符,这里是一个空格
Ifa>0Then
k=Left(C#a)
t=Left(LTrimfe),3)
lft=,,GBΓThen
e=,,GBΛ',+Mid(kz4)
ElSe
e=k
tndIf
b=Mid(C#a÷2)
t=Right(q7)
Ift=,,.SLDPRΓOrt=,,.SLDASM"Then
j=Len(b)・7
EISe
j=Len(b)
EndIf
m=Left(bzj)
EndIf
blnretval=Part.AddCustomlnfo3(l,l∖"代号蔦SWCUStOmlnfoText,e)'代号blnretval=Part.AddCustomlnfo3(,"∖"名称舄SWCUStOmlnfOTeXtm)■名称blnretval=Part.AddCustomlnfo3(,"∖"表面处理",SWCUStomlnfOText,"")EndSUb
83号分离-图号分离[(代至
Iinksoli⅛rorks
S∙tSWAPPβApplicationSI^VOrkSS S⅜tStIMCr・Part.StltctaΦrK⅜A IWAPPActiv∙Doc.ActivtYitvFrM∙St⅜t∙■1'设询I SWAPPActi”DOCGttTitleO件名 street-Chr(M)♦Tri∙CSHUt∙ritT♦V)♦c♦Chr(34) t⅜⅜pv⅜lu⅜■PtrtCustgInfRC*HM*)HArttYd・PartDtl⅜t ∑I>InStr(c,八)7ITVyIrnmr k≡L«£t(c>∙)t«Uft(Lrri∙(∙L3) £6°¾>)3⅜⅞→¾C> I£t■PBTTUn•・PB/T♦Mia(E4) Else b∙Mi心∙♦2)t■KiCht(e.7)Ift・・.SLDFRT*Ort・SIJASTunj・Una)-7 El” EndIf •・U£t(kj) ⅜I≡F⅜rttΦ∙Inf^3(*∖"代号⅜1≡P⅛rt离d blxxr BUIf blnr∙tv : nCustoeIa£oT«xt,«nC^stc«Ja£oT«xt>•) BWCUXtCalnfoT 保存退出。 第一部分做到这就算完成了。 下面是创建宏按钮; MkrosoftViWaiBMkf X∙ΦMkD4Sω*λφβ≡½2)MbW”®X*ΦM∙C0fiD∙t! ∙w •4丄亠件巧e∙∙∙Nf*jrireβM.Ri Iβ∙∙*V∙ i∣S∙lt*∙rk⅞Pf-ι∙* 々S⅞H)∙ι 'lιa⅛i«J»⅛erkv S«t”S∙⅜>l∙tatι∙^Sl∙∙rh S∙tFert∙CVAftA∙t∣v∙∙wS WAttSW∙>xArtiV∙V∣∙v END 二、创建宏按钮 1.返回SOlidWOrkST作界面,进入自定义工具栏: 工具一一自定义; 选择命令选项卡,找到宏,把新建宏按钮拖到工具栏的空白处; 2.弹出自定义宏按钮对话框: 1、选择上面保存的宏文件; 2、指定一个图标,以便在工具栏中显示; 3、扌旨定一个扌旨示的名称,以便在工具栏中显示; 工具栏[佚捷方式栏命令菜单as鼠标笔势I底 米旦山c∙ ⅛½(0) 3.点击确定,退出自定义宏按钮,完成制作。 快妙吐命令 ÷⅛5∣lr∕n. 自题注钮 菜单∣as~Γ⅛⅜^¾ 援作(A)宏(M): 方法(E): C: \U5ers\five2.000\Desktop\Solcr圉斗... 图号分离1.mainV 外观(A) 图标选择圉像(6∙[ 工M提示(T): 图号分离| C∖Users∖fιve2β000∖Desktop∖Sold∖E∙= 礎定(0)取消(C)帮助(H) 新建零件命名规则: 代号+空格+名称 注意: 代号中不能出现空格,宏以第一个空格为分隔符。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 完整 word solidworks 代号 名称 分离 命令 属性 自定义 配置 特定