[Inventor] ilogic规整零部件名称、代号

ext_1 = ThisDoc.FileName(True)
'===========================================================================================
strPNum=iProperties.Value("Project","Part Number")
'提取原文件零件代号
strFName=iProperties.Value("Project", "Description")
'提取原文件描述赋值
strPath1=ThisDoc.Path()
'赋值文件路径给strPath1
'===========================================================================================
strFName=InputBox("零件名称:","填写零件名称，数据将存入<项目-描述>中",strFName)
'重新填入零件名称
strPNum=InputBox("零件代码:","填写图号，数据将存入<项目-零件代号>中",strPNum)
'重新填入零件代号
'以上为提示输入名称和代号，如果已经在bom表做好名称和代号，可以注释掉或者删除上面2行代码
'===========================================================================================
iProperties.Value("Project", "Description")=strFName
'替写描述项为输入值
iProperties.Value("Project","Part Number")=strPNum
'替写零件代号为输入值
'===========================================================================================
'开始另存文件
If https://www.360docs.net/doc/a65141703.html,pare(Right(ext_1,3),"ipt")<>0 Then
ThisDoc.Document.SaveAs(strPath1+"\"+strPNum+"#"+strFName+".iam",False)
'此文件是部件，按零件代号+名称方式保存。
Else
ThisDoc.Document.SaveAs(strPath1+"\"+strPNum+"#"+strFName+".ipt",False)
'此文件是零件，按零件代号+名称方式保存零件。
End If
'============================================================================================
'代码功能(更新时间20180624)：
'1、在项目结束后需要整理文件时，运行此代码可以将文件按“零件代号”#“描述”的方式更新。
'2、文件的图号存入“零件代号”中，零件的名称存入“描述”中。
'3、打开Ilogic浏览器，在外部规则加入此txt文件。
'4、运行方式是，打开总装配和相应工程图（这里习惯是图纸是存入一个dwg文件的）由上往下，挨个激活零部件为编辑状态，每激活一个零件运行一次代码。
'5、注意：要同时打开工程图，才能保证最后改完文件关联不坏。
'6、不喜欢Design Assistant的同学可以使用此代码。
'7、如有不解，加群三幺七四二五二五。