Solidworks图号代号分离宏代码(两段空格分离)
DimswAppAsObject
DimPartAsObject
DimSelMgrAsObject
DimboolstatusAsBoolean
DimlongstatusAsLong,longwarningsAsLong
DimFeatureAsObject
DimaAsInteger
DimbAsString
DimmAsString
DimeAsString
DimkAsString
DimtAsString
DimcAsString
DimjAsInteger
DimstrmatAsString
DimtempvalueAsString
Submain()
linksolidworks
SetswAppApplication。SldWorks
SetPartswApp。ActiveDoc
SetSelMgrPart。SelectionManager
swApp。ActiveDoc。ActiveView。FrameState1
设定变量
cswApp。ActiveDoc。GetTitle()零件名
strmatChr(34)Trim(SWMaterial)cChr(34)
blnretvalPart。DeleteCustomInfo2(,图号型号)
blnretvalPart。DeleteCustomInfo2(,名称)
blnretvalPart。DeleteCustomInfo2(,材料)
aInStr(c,)1重点:分隔标识符,这里是一个空格
Ifa0Then
kLeft(c,a)
tLeft(LTrim(e),3)
IftGBTThen
eGBTMid(k,4)
Else
ek
EndIf
bMid(c,a2)
tRight(c,7)
Ift。SLDPRTOrt。SLDASMThen
jLen(b)7
Else
jLen(b)
EndIf
mLeft(b,j)
EndIf
blnretvalPart。AddCustomInfo3(,图号型号,swCustomInfoText,e)图号型号
blnretvalPart。AddCustomInfo3(,名称,swCustomInfoText,m)名称
blnretvalPart。AddCustomInfo3(,表面处理,swCustomInfoText,)
EndSub