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

ext_1=ThisDoc.FileName(True)'===========================================================================================strPNum=iProperties.Value(Project,PartNumber)'提取原文件零件代号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,PartNumber)=strPNum'替写零件代号为输入值'==========================================================================================='开始另存文件IfString.Compare(Right(ext_1,3),ipt)0ThenThisDoc.Document.SaveAs(strPath1+\+strPNum+#+strFName+.iam,False)'此文件是部件，按零件代号+名称方式保存。ElseThisDoc.Document.SaveAs(strPath1+\+strPNum+#+strFName+.ipt,False)'此文件是零件，按零件代号+名称方式保存零件。EndIf'============================================================================================'代码功能(更新时间20180624)：'1、在项目结束后需要整理文件时，运行此代码可以将文件按“零件代号”#“描述”的方式更新。'2、文件的图号存入“零件代号”中，零件的名称存入“描述”中。'3、打开Ilogic浏览器，在外部规则加入此txt文件。'4、运行方式是，打开总装配和相应工程图（这里习惯是图纸是存入一个dwg文件的）由上往下，挨个激活零部件为编辑状态，每激活一个零件运行一次代码。'5、注意：要同时打开工程图，才能保证最后改完文件关联不坏。'6、不喜欢DesignAssistant的同学可以使用此代码。'7、如有不解，加群三幺七四二五二五。