用方程式来实现图号分离遇到问题，想请教论坛上的高人给指导指导

hdgd501 · 发表于 2023-12-19 19:36:40

经典图书

我用方程式来实现图号分离遇到问题，想请教论坛上的高人，帮忙改进下，把下面的方程式改成零件名没有空格时填入图号属性栏而不是名称栏，
方程式如下：
Part.Extension.CustomPropertyManager(Part.GetActiveConfiguration.Name).Set("图号",Left(Part.GetTitle,InStr(Part.GetTitle," ")-StrComp(InStr(Part.GetTitle," "),0))+Iif(InStr(Part.GetActiveConfiguration.Name,"镜向")<>0,"(镜像)",""))+Part.Extension.CustomPropertyManager(Part.GetActiveConfiguration.Name).Set("名称",Mid(Part.GetTitle,InStr(Part.GetTitle," ")+1,Iif(InStr(InStr(Part.GetTitle," ")+1,Part.GetTitle," ")<>0,InStr(InStr(Part.GetTitle," ")+1,Part.GetTitle," ")-InStr(Part.GetTitle," ")-1,Len(Part.GetTitle)-InStrRev(Part.GetTitle," ")-Iif(InStr(Part.GetTitle,"SLDPRT")+InStr(Part.GetTitle,"sldprt")<>0,7,0)))+Iif(InStr(Part.GetActiveConfiguration.Name,"镜向")<>0,"(镜像)",""))