'设置为一个动作，可一次撤销 'Dim transientGeometry As TransientGeometry ' transientGeometry = ThisApplication.TransientGeometry ''start a transaction so the slot will be within a single undo step 'Dim createSlotTransaction As Transaction ' createSlotTransaction = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "重新设置序号") ' ''end the transactio 'createSlotTransaction.End() Imports System.Runtime.InteropServices Imports Microsoft.Win32 Imports System.Drawing Imports System.IO Imports Inventor Imports Inventor.SelectionFilterEnum Imports Inventor.DocumentTypeEnum Imports System.Windows.Forms Imports Microsoft.VisualBasic Imports Microsoft Imports System.Collections.Generic Imports System.Collections.ObjectModel Namespace InventorAddIn _ Public Class StandardAddInServer Implements Inventor.ApplicationAddInServer #Region "Data Member" '============================================================ '定义 按钮 ' '获取文件名修改iProperty 1 Private WithEvents m_修改文件iProperty_Buttondef As Inventor.ButtonDefinition '获取部件子集修改iProperty 2 Private WithEvents m_修改部件iProperty_Buttondef As Inventor.ButtonDefinition '更改文件名 3 Private WithEvents m_更改文件名_Buttondef As Inventor.ButtonDefinition '提取iProperty更改文件名 4 Private WithEvents m_提取iPro修改文件名_Buttondef As Inventor.ButtonDefinition '自动生成零件图号 5 Private WithEvents m_生成图号_Buttondef As Inventor.ButtonDefinition '更改镜像零件文件名 6 Private WithEvents m_更改镜像文件名_Buttondef As Inventor.ButtonDefinition '打开文件所在文件夹 7 Private WithEvents m_打开文件夹_Buttondef As Inventor.ButtonDefinition '保存并关闭 8 Private WithEvents m_保存关闭_Buttondef As Inventor.ButtonDefinition '另存为pdf 9 Private WithEvents m_另存为Pdf_Buttondef As Inventor.ButtonDefinition '另存为dwg 10 Private WithEvents m_另存为Dwg_Buttondef As Inventor.ButtonDefinition '设置bom结构 11 Private WithEvents m_设置BOM结构_Buttondef As Inventor.ButtonDefinition '比例 12 Private WithEvents m_设置比例_Buttondef As Inventor.ButtonDefinition '对称件iProperty 13 Private WithEvents m_设置对称件iProperty_Buttondef As Inventor.ButtonDefinition '检查序号完整性 14 Private WithEvents m_检查序号完整性_Buttondef As Inventor.ButtonDefinition '新建序号 15 Private WithEvents m_新建序号_Buttondef As Inventor.ButtonDefinition '设置日期 16 Private WithEvents m_设置日期_Buttondef As Inventor.ButtonDefinition '清除日期 17 Private WithEvents m_清除日期_Buttondef As Inventor.ButtonDefinition '自定义日期 18 Private WithEvents m_自定义日期_Buttondef As Inventor.ButtonDefinition '签字 19 Private WithEvents m_设置签字_Buttondef As Inventor.ButtonDefinition '清除签字 20 Private WithEvents m_清除签字_Buttondef As Inventor.ButtonDefinition '自定义签字 21 Private WithEvents m_自定义签字_Buttondef As Inventor.ButtonDefinition '设置 22 Private WithEvents m_设置_Buttondef As Inventor.ButtonDefinition '量产iPropertys 23 Private WithEvents m_量产iPropertys_Buttondef As Inventor.ButtonDefinition '批量另存为 24 Private WithEvents m_工程图批量另存为_Buttondef As Inventor.ButtonDefinition '关于 25 Private WithEvents m_关于_Buttondef As Inventor.ButtonDefinition '26 Private WithEvents m_保存关闭所有部件_Buttondef As ButtonDefinition ''27 'Private WithEvents m_保存关闭所有零件_Buttondef As ButtonDefinition ''28 'Private WithEvents m_保存关闭所有工程图_Buttondef As ButtonDefinition '29 'Private WithEvents m_绘制槽孔_Buttondef As ButtonDefinition '30 Private WithEvents m_设置描述_Buttondef As ButtonDefinition '31 Private WithEvents m_刷新引用_Buttondef As ButtonDefinition '32 Private WithEvents m_清理旧版文件_Buttondef As ButtonDefinition ''33 Private WithEvents m_添加直径_Buttondef As ButtonDefinition '34 Private WithEvents m_全部另存为_Buttondef As ButtonDefinition '35 Private WithEvents m_检查是否有工程图_Buttondef As ButtonDefinition '36 Private WithEvents m_打开全部工程图_Buttondef As ButtonDefinition Private WithEvents m_打开指定工程图_Buttondef As ButtonDefinition '37 Private WithEvents m_部件替换文件名_Buttondef As ButtonDefinition '38 Private WithEvents m_导出平面BOM_Buttondef As ButtonDefinition '39 Private WithEvents m_还原旧图_Buttondef As ButtonDefinition '40 Private WithEvents m_帮助_Buttondef As ButtonDefinition '41 Private WithEvents m_移动指定文件_Buttondef As ButtonDefinition '42 Private WithEvents m_对齐原始坐标面_Buttondef As ButtonDefinition '43 Private WithEvents m_查找缺失文件的部件_Buttondef As ButtonDefinition '44 Private WithEvents m_统计质量面积_Buttondef As ButtonDefinition '45 Private WithEvents m_调整IPro顺序_Buttondef As ButtonDefinition '46 Private WithEvents m_插入序号_Buttondef As Inventor.ButtonDefinition '47 Private WithEvents m_尺寸圆整_Buttondef As Inventor.ButtonDefinition '48 Private WithEvents m_导入存货编码_Buttondef As Inventor.ButtonDefinition '49 Private WithEvents m_ERP材料编码_Buttondef As ButtonDefinition '50 Private WithEvents m_打开工程图_Buttondef As ButtonDefinition '51 Private WithEvents m_批量打印_Buttondef As ButtonDefinition '52 Private WithEvents m_重写BOM序号_Buttondef As ButtonDefinition '53 Private WithEvents m_查询ERP编码_Buttondef As ButtonDefinition '54 Private WithEvents m_打开ERP数据文件_Buttondef As ButtonDefinition '55 Private WithEvents m_快速打开_Buttondef As ButtonDefinition ''27 'Private WithEvents m_关闭所有零件_Buttondef As ButtonDefinition ''28 'Private WithEvents m_关闭所有工程图_Buttondef As ButtonDefinition '================================================================================ #End Region ' Inventor application object. 'Private ThisApplication As Inventor.Application #Region "ApplicationAddInServer Members" Public Sub Activate(ByVal addInSiteObject As Inventor.ApplicationAddInSite, ByVal firstTime As Boolean) Implements Inventor.ApplicationAddInServer.Activate ' This method is called by Inventor when it loads the AddIn. ' The AddInSiteObject provides access to the Inventor Application object. ' The FirstTime flag indicates if the AddIn is loaded for the first time. On Error Resume Next ' Initialize AddIn members. ThisApplication = addInSiteObject.Application '打开文件时事件 ThisApplicationEvents = ThisApplication.ApplicationEvents 'AddHandler ThisApplicationEvents.OnOpenDocument, AddressOf ThisApplicationEvents_OnOpenDocument AddHandler ThisApplicationEvents.OnActivateDocument, AddressOf ThisApplicationEvents_OnActivateDocument 'AddHandler ThisApplicationEvents.OnSaveDocument, AddressOf ThisApplicationEvents_OnOnSaveDocument ' TODO: Add ApplicationAddInServer.Activate implementation. ' e.g. event initialization, command creation etc. ContentCenterFiles = ThisApplication.FileOptions.ContentCenterPath '初始化零件库 'MsgBox(ContentCenterFiles) '初始化图号文件名映射 Map_StochNum = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapStochNum", "库存编号") If Map_StochNum Is Nothing Then Map_StochNum = "库存编号" End If Map_PartName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPartName", "零件代号") If Map_PartName Is Nothing Then Map_PartName = "零件代号" End If Map_PartNum = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPartNum", "成本中心") If Map_PartNum Is Nothing Then Map_PartNum = "成本中心" End If '初始化对称件图号文件名映射 Map_Mir_StochNum = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapMirStochNum", "对称件图号") If Map_Mir_StochNum Is Nothing Then Map_Mir_StochNum = "对称件图号" End If Map_Mir_PartName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapMirPartName", "对称件名称") If Map_Mir_PartName Is Nothing Then Map_Mir_PartName = "对称件名称" End If '初始化比例映射 Map_DrawingScale = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapDrawingScale", "比例") If Map_DrawingScale Is Nothing Then Map_DrawingScale = "比例" End If IsSetDrawingScale = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "IsSetDrawingScale", "-1") '初始化质量映射 Map_Mass = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapMass", "质量") If Map_Mass Is Nothing Then Map_Mass = "质量" End If IsSetMass = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "IsSetMass", "-1") If IsSetMass Is Nothing Then IsSetMass = -1 End If '初始化打印时间映射 Map_PrintDay = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPrintDay", "打印日期") If Map_PrintDay Is Nothing Then Map_PrintDay = "打印日期" End If IsOpenPrint = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "IsOpenPrint", "-1") If IsOpenPrint Is Nothing Then IsOpenPrint = -1 End If IsDayAndName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "IsDayAndName", "-1") If IsDayAndName Is Nothing Then IsDayAndName = -1 End If '工程师 EngineerName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "EngineerName", "") 'BOM导出表头 BOMTiTle = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "BOMTiTle", "库存编号|空格|零件代号|材料|质量|所属装配代号|数量|总数量|描述") If BOMTiTle Is Nothing Then BOMTiTle = "库存编号|空格|零件代号|材料|质量|所属装配代号|数量|总数量|描述" End If '质量精度 Mass_Accuracy = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Mass_Accuracy", "2") If Mass_Accuracy Is Nothing Then Mass_Accuracy = "2" End If '面积精度 Area_Accuracy = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Area_Accuracy", "4") If Area_Accuracy Is Nothing Then Area_Accuracy = "4" End If 'excel文件名 Excel_File_Name = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Excel_File_Name", "") If Excel_File_Name = "" Then Excel_File_Name = My.Application.Info.DirectoryPath & "\最新物料编码.xlsx" 'MsgBox(Excel_File_Name) End If 'excel文件不存在，到服务器下载 If IsFileExsts(Excel_File_Name) = False Then Dim documentURL As String documentURL = "\\Likai-pc\发行版\2011\最新物料编码.xlsx" If IsFileExsts(documentURL) = True Then Dim wc As New System.Net.WebClient wc.DownloadFile(documentURL, Excel_File_Name) End If End If '搜索的表 Sheet_Name = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Sheet_Name", "物料") If Sheet_Name Is Nothing Then Sheet_Name = "物料" End If '搜索的范围 Table_Arrays = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Table_Array", "A,B,C,D,E") If Table_Arrays Is Nothing Then Table_Arrays = "A,B,C,D,E" End If '搜索列 Col_Index_Num = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Col_Index_Num", "B") If Col_Index_Num Is Nothing Then Col_Index_Num = "B" End If '检查更新 CheckUpdate = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "CheckUpdate", "1") If CheckUpdate Is Nothing Then CheckUpdate = "1" End If '创建按钮 CreatUI(firstTime) '检查更新 If CheckUpdate = "1" Then 'NewUpdater.UpDater2(False) 'IsShowUpdateMsg = False 'Dim frmupdate As New frmUpdate 'frmupdate.Visible = False 'frmupdate.ShowDialog() If NewUpdater.CreateUpdate() = True Then NewUpdater.Update3() End If End If 'Catch ex As Exception ' MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation) 'End Try End Sub Public Sub CreatUI(ByVal bfirstTime As Boolean) Dim oCommandManager As CommandManager Dim oUserInterfaceManager As UserInterfaceManager 'Dim oIPictureDisp32 As Object '大图标 'Dim oIPictureDisp8 As Object '小图标 Dim smallPicture As stdole.IPictureDisp Dim largePicture As stdole.IPictureDisp Try oCommandManager = ThisApplication.CommandManager oUserInterfaceManager = ThisApplication.UserInterfaceManager 'clientId = Me.GetType().GUID.ToString("B") ClientID = AddInGuid(GetType(StandardAddInServer)) '--------------------------------------------------------------------------------------- 'create button's definition here 'm_修改文件iProperty_Buttondef = New 修改文件iProperty_Button("修改文件iProperty", "InName修改文件iProperty", _ ' CommandTypesEnum.kShapeEditCmdType, clientId, , , , , ) '1 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.修改文件iProperty161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.修改文件iProperty323224.ToBitmap) m_修改文件iProperty_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("修改文件iProperty", "InName修改文件iProperty", _ CommandTypesEnum.kShapeEditCmdType, ClientID, , "以第一个汉字为标识，提取文件名中的图号和名称，根据【iProperty映射】的设置，写入【iProperty】【项目】中的字段。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '2 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.修改部件iProperty161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.修改部件iProperty323224.ToBitmap) m_修改部件iProperty_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("修改部件iProperty", "InName修改部件iProperty", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "根据【BOM表】【结构化】的数据，设置下一级或所有级文件的iProperty。注意：将忽略零件库和参考文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '3 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.更改文件名161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.更改文件名323224.ToBitmap) m_更改文件名_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("更改文件名", "InName更改文件名", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在部件文件中选择一个文件，修改其文件名，将替换选中的文件或全部文件。若在与文件同一文件夹中存在其同名工程图，将生成新的工程图。注意：将忽略零件库。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '4 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.提取iPro修改文件名161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.提取iPro修改文件名323224.ToBitmap) m_提取iPro修改文件名_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("提取iPro修改文件名", "InName提取iPro修改文件名", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在部件文件中选择一个文件，根据【iProperty映射】设置，提取【iProperty】【项目】中的字段，修改选取文件的文件名。与【修改部件iProperty】反向。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '5 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.生成图号161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.生成图号323224.ToBitmap) m_生成图号_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("生成图号", "InName生成图号", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "根据第一级部件的图号，设置子级部件或零件的图号变化规则，重命名其文件名。对于新设计先命名后图号特别有用。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '6 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.更改镜像文件名161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.更改镜像文件名323224.ToBitmap) m_更改镜像文件名_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("更改镜像文件名", "InName更改镜像文件名", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在部件中选择一个是镜像生成的文件，修改其文件名，将原基础文件改为临时文件，重新手动指定其基础文件，后还原基础文件。对于基础文件和镜像文件都需修改的文件很有用。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '7 'oIPictureDisp32 = GetIcon("InventorAddIn.打开文件夹323224.ico") ''oIPictureDisp8 = GetIcon("InventorAddIn.打开文件夹8824.ico") 'm_打开文件夹_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("打开文件夹", "InName打开文件夹", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开当前文件所在的文件夹。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.打开文件夹161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.打开文件夹323224.ToBitmap) ' Create the button definition. m_打开文件夹_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("打开文件夹", "InName打开文件夹", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开当前文件所在的文件夹。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '8 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.保存关闭161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.保存关闭323224.ToBitmap) m_保存关闭_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("保存关闭", "InName保存关闭", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "保存并关闭当前打开的文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '9 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.另存为Pdf161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.另存为Pdf323224.ToBitmap) m_另存为Pdf_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("另存为Pdf", "InName另存为Pdf", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "将当前文件另存为Pdf格式。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '10 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.另存为Dwg161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.另存为Dwg323224.ToBitmap) m_另存为Dwg_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("另存为Dwg", "InName另存为Dwg", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "将当前文件另存为Dwg格式。可能 因为设置的不同而是 Zip 格式的，也将其打开。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '11 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置BOM结构161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置BOM结构323224.ToBitmap) m_设置BOM结构_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置BOM结构", "InName设置BOM结构", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在部件中使用，输入序号，将部件的所有子级设置为对应的BOM结构。对与液压管等特别有用。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '12 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置比例161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置比例323224.ToBitmap) m_设置比例_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置比例", "InName设置比例", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "获取工程图主视图的比例，根据【比例映射】的设置，写入【iProperty】【自定义】字段。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '13 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.对称件iProperty161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.对称件iProperty323224.ToBitmap) m_设置对称件iProperty_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("对称件iProperty", "InName对称件iProperty", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "选择一个文件，根据【对称件iProperty映射】的设置，将其iProperty写入【iProperty】【自定义】字段。对于对称件的工程图很有用。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '14 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.检查序号完整性161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.检查序号完整性323224.ToBitmap) m_检查序号完整性_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("检查序号完整性", "InName检查序号完整性", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "检查工程图的序号是否标注完整。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '15 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.新建序号161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.新建序号323224.ToBitmap) m_新建序号_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("新建序号", "InName新建序号", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "重新对工程图的序号进行变化，使寻找序号更简便。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '16 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置日期161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置日期323224.ToBitmap) m_设置日期_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置日期", "InName设置日期", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "根据【签字】【打印日期】的设置，将当前日期写入【iProperty】【自定义】字段。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '17 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.清除日期161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.清除日期323224.ToBitmap) m_清除日期_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("清除日期", "InName清除日期", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '18 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.自定义日期161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.自定义日期323224.ToBitmap) m_自定义日期_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("自定义日期", "InName自定义日期", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '19 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置签字161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置签字323224.ToBitmap) m_设置签字_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置签字", "InName设置签字", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "根据【签字】【工程师】的设置，将当前日期写入【iProperty】【自定义】字段。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '20 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.清除签字161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.清除签字323224.ToBitmap) m_清除签字_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("清除签字", "InName清除签字", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '21 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.自定义签字161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.自定义签字323224.ToBitmap) m_自定义签字_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("自定义签字", "InName自定义签字", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '22 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置323224.ToBitmap) m_设置_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置", "InName设置", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "打开【设置】窗口，对配置进行设置。", "", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '23 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.量产iPropertys161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.量产iPropertys323224.ToBitmap) m_量产iPropertys_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("量产iProperty", "InName量产iProperty", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开【量产iProperty】窗口，对多个文件设置【iProperty】。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '24 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.批量另存为161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.批量另存为323224.ToBitmap) m_工程图批量另存为_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("工程图批量另存为", "InName工程图批量另存为", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开【批量另存为】窗口，将添加的工程图另存为Paf或Dwg文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '25 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.关于161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.关于323224.ToBitmap) m_关于_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("关于", "InName关于", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '26 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.保存全部161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.保存全部323224.ToBitmap) m_保存关闭所有部件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("保存关闭所有部件", "InName保存关闭所有部件", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "保存并关闭打开的所有部件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '27 'smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.保存关闭零件161624.ToBitmap) 'largePicture = PictureConverter.ImageToPictureDisp(My.Resources.保存关闭零件323224.ToBitmap) 'm_保存关闭所有零件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("保存关闭所有零件", "InName保存关闭所有零件", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "保存并关闭打开的所有零件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) ''28 'smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.保存关闭工程图161624.ToBitmap) 'largePicture = PictureConverter.ImageToPictureDisp(My.Resources.保存关闭工程图323224.ToBitmap) 'm_保存关闭所有工程图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("保存关闭所有工程图", "InName保存关闭所有工程图", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "保存并关闭打开的所有工程图。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '29 'oIPictureDisp32 = GetIcon("InventorAddIn.绘制槽孔323224.ico") 'm_绘制槽孔_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("绘制槽孔", "InName绘制槽孔", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在二维草图中绘制槽孔，鼠标选择一个点，为第一个圆中心，输入槽孔的高度（圆直径）和宽度（两圆中心距），单位毫米（mm）。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '30 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置描述161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置描述323224.ToBitmap) m_设置描述_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置描述", "InName设置描述", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "输入文字，设置到 【Iproperty】【项目】【描述的值】", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '31 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.刷新引用161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.刷新引用323224.ToBitmap) m_刷新引用_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("刷新引用", "InName刷新引用", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "刷新浏览器中的引用名称。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '32 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.清理旧版文件161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.清理旧版文件323224.ToBitmap) m_清理旧版文件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("清理旧版文件", "InName清理旧版文件", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "扫描指定路径下的旧版文件，删除之。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '33 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.添加直径161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.添加直径323224.ToBitmap) m_添加直径_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("添加直径", "InName添加直径", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在工程图选择一个尺寸，在尺寸前添加 Φ。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '34 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.全部另存为161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.全部另存为323224.ToBitmap) m_全部另存为_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("全部另存为", "InName全部另存为", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "保存打开的全部工程图为 Pdf 或 Dwg 格式。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '35 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.检查是否有工程图161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.检查是否有工程图323224.ToBitmap) m_检查是否有工程图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("检查是否有工程图", "InName检查是否有工程图", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "检查部件中指定图号的文件是否有对应的工程图。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '36 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.打开全部工程图161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.打开全部工程图323224.ToBitmap) m_打开全部工程图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("打开全部工程图", "InName打开全部工程图", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开部件中所有子级对应的工程图。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '37 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.部件替换文件名161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.部件替换文件名323224.ToBitmap) m_部件替换文件名_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("批量替换文件名", "InName部件替换文件名", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "批量替换部件中子集文件的文件名。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '38 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.导出平面BOM161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.导出平面BOM323224.ToBitmap) m_导出平面BOM_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("导出平面BOM", "InName导出平面BOM", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "根据BOM导出项目，导出平面性的BOM为Excel文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '39 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.还原旧图161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.还原旧图323224.ToBitmap) m_还原旧图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("还原旧图", "InName还原旧图", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "还原更改文件名后的 .old 文件为原始文件名。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '40 'oIPictureDisp32 = GetIcon("InventorAddIn.帮助323224.ico") 'm_帮助_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("帮助", "InName帮助", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开帮助文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.帮助161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.帮助323224.ToBitmap) m_帮助_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("帮助", "InName帮助", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开帮助文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '36 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.打开全部工程图161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.打开全部工程图161624.ToBitmap) m_打开指定工程图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("打开指定工程图", "InName打开指定工程图", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开部件中所有包含指定图号子级的对应的工程图。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '41 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.移动指定文件161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.移动指定文件323224.ToBitmap) m_移动指定文件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("移动指定文件", "InName移动指定文件", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "移到组件中指定前缀的零件和组件到当前组件所在文件夹。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '42 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.对齐原始坐标面161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.对齐原始坐标面323224.ToBitmap) m_对齐原始坐标面_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("对齐原始坐标面", "InName对齐原始坐标面", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "选择部件中的两个部件或零件，使其原始坐标面对齐。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '43 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.查找缺失文件的部件161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.查找缺失文件的部件323224.ToBitmap) m_查找缺失文件的部件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("查找缺失文件的部件", "InName查找缺失文件的部件", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "查找当前部件中缺失的文件，并打开缺失文件的父级部件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '44 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.统计161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.统计323224.ToBitmap) m_统计质量面积_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("统计质量面积", "InName统计质量面积", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "选择部件中的部件或零件，统计总质量和面积。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '45 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.调整IPro顺序161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.调整IPro顺序323224.ToBitmap) m_调整IPro顺序_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("调整IPro顺序", "InName调整IPro顺序", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "交换IProperty中零件代号、库存编号、描述三者的数据。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '44 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.插入序号161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.插入序号323224.ToBitmap) m_插入序号_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("插入序号", "InName插入序号", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "插入一个序号。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '47 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.尺寸圆整161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.尺寸圆整323224.ToBitmap) m_尺寸圆整_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("尺寸圆整", "InName尺寸圆整", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "尺寸圆整，四舍五入尺寸小数位到个位。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '48 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置材料编码161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置材料编码323224.ToBitmap) m_导入存货编码_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("导入存货编码", "InName导入存货编码", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "导入存货编码。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '49 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.设置材料编码161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.设置材料编码323224.ToBitmap) m_ERP材料编码_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("设置材料编码", "InName设置材料编码", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "设置ERP编码。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '50 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.工程图161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.工程图323224.ToBitmap) m_打开工程图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("打开工程图", "InName打开工程图", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开当前文件或部件中选择的文件对应的工程图。 ", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '51 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.打印161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.打印323224.ToBitmap) m_批量打印_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("批量打印工程图", "InName批量打印", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "批量打印工程图。 ", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '52 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.重写BOM161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.重写BOM323224.ToBitmap) m_重写BOM序号_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("重写BOM序号", "InName重写BOM序号", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "重写BOM序号并按序号升序排序。 ", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '53 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.查询材料编码161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.查询材料编码323224.ToBitmap) m_查询ERP编码_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("查询ERP编码", "InName查询ERP编码", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在Excel数据表中查询ERP编码。 ", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '54 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.打开ERP数据文件161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.打开ERP数据文件323224.ToBitmap) m_打开ERP数据文件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("打开ERP数据文件", "InName打开ERP数据文件", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "打开ERP数据文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) '55 smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.快速打开161624.ToBitmap) largePicture = PictureConverter.ImageToPictureDisp(My.Resources.快速打开323224.ToBitmap) m_快速打开_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("快速打开", "InName快速打开", _ CommandTypesEnum.kShapeEditCmdType, ClientID, "", "在当前项目中快速打开指定文件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) ''56 'smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.关闭零件161624.ToBitmap) 'largePicture = PictureConverter.ImageToPictureDisp(My.Resources.关闭零件323224.ToBitmap) 'm_关闭所有零件_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("关闭所有零件", "InName关闭所有零件", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "关闭打开的所有零件。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) ''57 'smallPicture = PictureConverter.ImageToPictureDisp(My.Resources.关闭工程图161624.ToBitmap) 'largePicture = PictureConverter.ImageToPictureDisp(My.Resources.关闭工程图323224.ToBitmap) 'm_关闭所有工程图_Buttondef = oCommandManager.ControlDefinitions.AddButtonDefinition("关闭所有工程图", "InName关闭所有工程图", _ ' CommandTypesEnum.kShapeEditCmdType, ClientID, "", "关闭打开的所有工程图。", smallPicture, largePicture, ButtonDisplayEnum.kDisplayTextInLearningMode) ' Dim oUserInterfaceManager As Inventor.UserInterfaceManager = ThisApplication.UserInterfaceManager If bfirstTime Then '========================================== 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add() 'oButtonDefinitions.Add() 'oButtonDefinitions.Add() 'panel.CommandControls.AddPopup(, oButtonDefinitions, False) '========================================== If oUserInterfaceManager.InterfaceStyle = InterfaceStyleEnum.kRibbonInterface Then Dim oRibbon As Inventor.Ribbon Dim oRibbonTab As Inventor.RibbonTab Dim oRibbonPanel As Inventor.RibbonPanel Dim oButtonDefinitions As Inventor.ObjectCollection oButtonDefinitions = ThisApplication.TransientObjects.CreateObjectCollection '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '启动环境 oRibbon = oUserInterfaceManager.Ribbons.Item("ZeroDoc") oRibbonTab = oRibbon.RibbonTabs.Item("id_GetStarted") oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaAssemblyPanel", ClientID) oRibbonPanel.CommandControls.AddButton(m_快速打开_Buttondef, True) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置_Buttondef) oButtonDefinitions.Add(m_工程图批量另存为_Buttondef) oButtonDefinitions.Add(m_批量打印_Buttondef) oButtonDefinitions.Add(m_还原旧图_Buttondef) oButtonDefinitions.Add(m_清理旧版文件_Buttondef) oButtonDefinitions.Add(m_帮助_Buttondef) oButtonDefinitions.Add(m_关于_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_设置_Buttondef, oButtonDefinitions, False) '========================================== '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '部件环境 oRibbon = oUserInterfaceManager.Ribbons.Item("Assembly") '工具选项卡 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabTools") '装配选项卡 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabAssemble") ' Create a new panel on the Assemble tab. oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaAssemblyPanel", ClientID) ' Add the buttons to the tab, with the first and last ones being large and the other two small. oRibbonPanel.CommandControls.AddButton(m_快速打开_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_保存关闭_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_打开工程图_Buttondef, True) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_修改文件iProperty_Buttondef) oButtonDefinitions.Add(m_修改部件iProperty_Buttondef) oButtonDefinitions.Add(m_设置描述_Buttondef) oButtonDefinitions.Add(m_调整IPro顺序_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_修改文件iProperty_Buttondef, oButtonDefinitions, True) '========================================== '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_更改文件名_Buttondef) oButtonDefinitions.Add(m_更改镜像文件名_Buttondef) oButtonDefinitions.Add(m_提取iPro修改文件名_Buttondef) oButtonDefinitions.Add(m_部件替换文件名_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_更改文件名_Buttondef, oButtonDefinitions, False) '========================================== '========================================== oRibbonPanel.CommandControls.AddButton(m_保存关闭所有部件_Buttondef, False) 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add(m_保存关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有工程图_Buttondef) 'oButtonDefinitions.Add(m_关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有工程图_Buttondef) 'oRibbonPanel.CommandControls.AddPopup(m_保存关闭所有部件_Buttondef, oButtonDefinitions, False) '========================================== '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_检查是否有工程图_Buttondef) 'oButtonDefinitions.Add(m_打开全部工程图_Buttondef) oButtonDefinitions.Add(m_打开指定工程图_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_检查是否有工程图_Buttondef, oButtonDefinitions, False) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_ERP材料编码_Buttondef) oButtonDefinitions.Add(m_查询ERP编码_Buttondef) oButtonDefinitions.Add(m_打开ERP数据文件_Buttondef) oButtonDefinitions.Add(m_导入存货编码_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_ERP材料编码_Buttondef, oButtonDefinitions, False) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_打开文件夹_Buttondef) 'oButtonDefinitions.Add(m_查找部件_Buttondef) oButtonDefinitions.Add(m_对齐原始坐标面_Buttondef) oButtonDefinitions.Add(m_另存为Pdf_Buttondef) oButtonDefinitions.Add(m_生成图号_Buttondef) oButtonDefinitions.Add(m_设置BOM结构_Buttondef) oButtonDefinitions.Add(m_导出平面BOM_Buttondef) oButtonDefinitions.Add(m_刷新引用_Buttondef) oButtonDefinitions.Add(m_移动指定文件_Buttondef) oButtonDefinitions.Add(m_查找缺失文件的部件_Buttondef) oButtonDefinitions.Add(m_统计质量面积_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_打开文件夹_Buttondef, oButtonDefinitions, False) '========================================== '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置_Buttondef) oButtonDefinitions.Add(m_量产iPropertys_Buttondef) oButtonDefinitions.Add(m_工程图批量另存为_Buttondef) oButtonDefinitions.Add(m_批量打印_Buttondef) oButtonDefinitions.Add(m_还原旧图_Buttondef) oButtonDefinitions.Add(m_清理旧版文件_Buttondef) oButtonDefinitions.Add(m_帮助_Buttondef) oButtonDefinitions.Add(m_关于_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_设置_Buttondef, oButtonDefinitions, False) '========================================== '+++++++++++.+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '零件环境 oRibbon = oUserInterfaceManager.Ribbons.Item("Part") '工具选项卡 'oRibbonTab = oRibbon.RibbonTabs.Item("id_TabTools") '模型选项卡 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabModel") oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaPartPanel", ClientID) oRibbonPanel.CommandControls.AddButton(m_快速打开_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_保存关闭_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_打开工程图_Buttondef, True) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_修改文件iProperty_Buttondef) oButtonDefinitions.Add(m_设置描述_Buttondef) 'oButtonDefinitions.Add(m_设置材料编码_Buttondef) 'oButtonDefinitions.Add(m_查询ERP编码_Buttondef) 'oButtonDefinitions.Add(m_打开ERP数据文件_Buttondef) oButtonDefinitions.Add(m_调整IPro顺序_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_修改文件iProperty_Buttondef, oButtonDefinitions, True) '========================================== '========================================== oRibbonPanel.CommandControls.AddButton(m_保存关闭所有部件_Buttondef, False) 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add(m_保存关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有工程图_Buttondef) 'oButtonDefinitions.Add(m_关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有工程图_Buttondef) 'oRibbonPanel.CommandControls.AddPopup(m_保存关闭所有部件_Buttondef, oButtonDefinitions, False) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_ERP材料编码_Buttondef) oButtonDefinitions.Add(m_查询ERP编码_Buttondef) oButtonDefinitions.Add(m_打开ERP数据文件_Buttondef) oButtonDefinitions.Add(m_导入存货编码_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_ERP材料编码_Buttondef, oButtonDefinitions, False) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_打开文件夹_Buttondef) oButtonDefinitions.Add(m_另存为Pdf_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_打开文件夹_Buttondef, oButtonDefinitions, False) '========================================== '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置_Buttondef) oButtonDefinitions.Add(m_量产iPropertys_Buttondef) oButtonDefinitions.Add(m_工程图批量另存为_Buttondef) oButtonDefinitions.Add(m_批量打印_Buttondef) oButtonDefinitions.Add(m_还原旧图_Buttondef) oButtonDefinitions.Add(m_清理旧版文件_Buttondef) oButtonDefinitions.Add(m_帮助_Buttondef) oButtonDefinitions.Add(m_关于_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_设置_Buttondef, oButtonDefinitions, False) '========================================== '钣金选项卡 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabSheetMetal") oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaPartPanel", ClientID) oRibbonPanel.CommandControls.AddButton(m_保存关闭_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_打开工程图_Buttondef, True) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_修改文件iProperty_Buttondef) oButtonDefinitions.Add(m_设置描述_Buttondef) 'oButtonDefinitions.Add(m_设置材料编码_Buttondef) 'oButtonDefinitions.Add(m_查询ERP编码_Buttondef) 'oButtonDefinitions.Add(m_打开ERP数据文件_Buttondef) oButtonDefinitions.Add(m_调整IPro顺序_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_修改文件iProperty_Buttondef, oButtonDefinitions, True) '========================================== '========================================== oRibbonPanel.CommandControls.AddButton(m_保存关闭所有部件_Buttondef, False) 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add(m_保存关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有工程图_Buttondef) 'oButtonDefinitions.Add(m_关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有工程图_Buttondef) 'oRibbonPanel.CommandControls.AddPopup(m_保存关闭所有部件_Buttondef, oButtonDefinitions, False) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_ERP材料编码_Buttondef) oButtonDefinitions.Add(m_查询ERP编码_Buttondef) oButtonDefinitions.Add(m_打开ERP数据文件_Buttondef) oButtonDefinitions.Add(m_导入存货编码_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_ERP材料编码_Buttondef, oButtonDefinitions, False) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_打开文件夹_Buttondef) oButtonDefinitions.Add(m_另存为Pdf_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_打开文件夹_Buttondef, oButtonDefinitions, False) '========================================== '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置_Buttondef) oButtonDefinitions.Add(m_量产iPropertys_Buttondef) oButtonDefinitions.Add(m_工程图批量另存为_Buttondef) oButtonDefinitions.Add(m_批量打印_Buttondef) oButtonDefinitions.Add(m_还原旧图_Buttondef) oButtonDefinitions.Add(m_清理旧版文件_Buttondef) oButtonDefinitions.Add(m_帮助_Buttondef) oButtonDefinitions.Add(m_关于_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_设置_Buttondef, oButtonDefinitions, False) '========================================== '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '工程图环境 oRibbon = oUserInterfaceManager.Ribbons.Item("Drawing") 'oRibbonTab = oRibbon.RibbonTabs.Item("id_TabPlaceViews") '在放置视图选项卡中添加 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabPlaceViews") oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaDrawingPanel", ClientID) oRibbonPanel.CommandControls.AddButton(m_快速打开_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_保存关闭_Buttondef, True) oRibbonPanel.CommandControls.AddButton(m_打开文件夹_Buttondef, True) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_另存为Dwg_Buttondef) oButtonDefinitions.Add(m_另存为Pdf_Buttondef) oButtonDefinitions.Add(m_全部另存为_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_另存为Dwg_Buttondef, oButtonDefinitions, False) '========================================== '========================================== '日期popup '签字popup oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置签字_Buttondef) oButtonDefinitions.Add(m_清除签字_Buttondef) oButtonDefinitions.Add(m_自定义签字_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_设置签字_Buttondef, oButtonDefinitions, False) '========================================== '在工具选项卡中添加 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabTools") oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaDrawingPanel", ClientID) oRibbonPanel.CommandControls.AddButton(m_保存关闭_Buttondef, True) '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_修改文件iProperty_Buttondef) oButtonDefinitions.Add(m_设置描述_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_修改文件iProperty_Buttondef, oButtonDefinitions, True) '========================================== oRibbonPanel.CommandControls.AddButton(m_打开文件夹_Buttondef) '========================================== oRibbonPanel.CommandControls.AddButton(m_保存关闭所有部件_Buttondef, False) 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add(m_保存关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_保存关闭所有工程图_Buttondef) 'oButtonDefinitions.Add(m_关闭所有部件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有零件_Buttondef) 'oButtonDefinitions.Add(m_关闭所有工程图_Buttondef) 'oRibbonPanel.CommandControls.AddPopup(m_保存关闭所有部件_Buttondef, oButtonDefinitions, False) '========================================== '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_另存为Dwg_Buttondef) oButtonDefinitions.Add(m_另存为Pdf_Buttondef) oButtonDefinitions.Add(m_全部另存为_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_另存为Dwg_Buttondef, oButtonDefinitions, False) '========================================== '========================================== 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add(m_对称件iProperty_Buttondef) ''oButtonDefinitions.Add(m_设置比例_Buttondef) 'panel.CommandControls.AddPopup(m_对称件iProperty_Buttondef, oButtonDefinitions, False) ''========================================== ''---------------------------------------------------------------------------------- 'oButtonDefinitions.Clear() 'oButtonDefinitions.Add(m_检查序号完整性_Buttondef) 'oButtonDefinitions.Add(m_新建序号_Buttondef) 'panel.CommandControls.AddPopup(m_检查序号完整性_Buttondef, oButtonDefinitions, False) '---------------------------------------------------------------------------------- '日期popup '签字popup oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置签字_Buttondef) oButtonDefinitions.Add(m_清除签字_Buttondef) oButtonDefinitions.Add(m_自定义签字_Buttondef) 'oButtonDefinitions.Add(m_设置日期_Buttondef) 'oButtonDefinitions.Add(m_清除日期_Buttondef) 'oButtonDefinitions.Add(m_自定义日期_Buttondef) 'panel.CommandControls.AddPopup(m_设置日期_Buttondef, oButtonDefinitions, False) oRibbonPanel.CommandControls.AddPopup(m_设置签字_Buttondef, oButtonDefinitions, False) '---------------------------------------------------------------------------------- '========================================== oButtonDefinitions.Clear() oButtonDefinitions.Add(m_设置_Buttondef) oButtonDefinitions.Add(m_量产iPropertys_Buttondef) oButtonDefinitions.Add(m_工程图批量另存为_Buttondef) oButtonDefinitions.Add(m_批量打印_Buttondef) oButtonDefinitions.Add(m_还原旧图_Buttondef) oButtonDefinitions.Add(m_清理旧版文件_Buttondef) oButtonDefinitions.Add(m_帮助_Buttondef) oButtonDefinitions.Add(m_关于_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_设置_Buttondef, oButtonDefinitions, False) '========================================== '在标注选项卡中添加 oRibbonTab = oRibbon.RibbonTabs.Item("id_TabAnnotate") '在尺寸栏添加 oRibbonPanel = oRibbonTab.RibbonPanels.Item("id_PanelD_AnnotateDimension") oRibbonPanel.CommandControls.AddButton(m_添加直径_Buttondef) oRibbonPanel.CommandControls.AddButton(m_尺寸圆整_Buttondef) '在表格栏添加 oRibbonPanel = oRibbonTab.RibbonPanels.Item("id_PanelD_AnnotateTable") oRibbonPanel.CommandControls.AddButton(m_设置对称件iProperty_Buttondef) 'panel.CommandControls.AddButton(m_检查序号完整性_Buttondef) 'panel.CommandControls.AddButton(m_新建序号_Buttondef) oButtonDefinitions.Clear() oButtonDefinitions.Add(m_检查序号完整性_Buttondef) oButtonDefinitions.Add(m_新建序号_Buttondef) oButtonDefinitions.Add(m_插入序号_Buttondef) oButtonDefinitions.Add(m_重写BOM序号_Buttondef) oRibbonPanel.CommandControls.AddPopup(m_检查序号完整性_Buttondef, oButtonDefinitions, False) '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '二维草图 oRibbon = oUserInterfaceManager.Ribbons.Item("Part") oRibbonTab = oRibbon.RibbonTabs.Item("id_TabSketch") oRibbonPanel = oRibbonTab.RibbonPanels.Add("InAI", "ShinMaywaSketchPanel", ClientID) 'panel.CommandControls.AddButton(m_绘制横直线_Buttondef) 'panel.CommandControls.AddButton(m_绘制竖直线_Buttondef) 'panel.CommandControls.AddButton(m_绘制圆_Buttondef) 'panel.CommandControls.AddButton(m_绘制槽孔_Buttondef) ElseIf oUserInterfaceManager.InterfaceStyle = InterfaceStyleEnum.kClassicInterface Then End If End If 'If bfirstTime Then ' Get the part features command bar. ' Dim CommandBar As Inventor.CommandBar ' ' Add a button to the command bar, defaulting to the end position. ' '部件环境 ' CommandBar = ThisApplication.UserInterfaceManager.CommandBars.Item("AMxAssemblyPanelCmdBar") ' CommandBar.Controls.AddButton(m_修改文件iProperty_Buttondef) ' ''零件环境 ' CommandBar = ThisApplication.UserInterfaceManager.CommandBars.Item("PMxPartFeatureCmdBar") ' ''工程图环境 ' CommandBar = ThisApplication.UserInterfaceManager.CommandBars.Item("DLxDrawingAnnotationPanelCmdBar") Catch ex As Exception MsgBox(ex.Message) End Try End Sub '------------------------------------------------------------ '定义图标 Private Function GetIcon(ByVal IconName As String) As Object Dim oStream As System.IO.Stream = Me.GetType().Assembly.GetManifestResourceStream(IconName) If oStream Is Nothing Then Return Nothing End If Dim oIcon As Icon = New Icon(oStream) Dim oIPictureDisp32 As Object = Microsoft.VisualBasic.Compatibility.VB6.Support.IconToIPicture(oIcon) Return oIPictureDisp32 End Function '以下按钮事件 '------------------------------------------------------ Private Sub m_修改文件iProperty_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_修改文件iProperty_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document '当前文件 InventorDocument = ThisApplication.ActiveEditDocument If SetDocumentIpropertyFromFileName(InventorDocument, False) Then SetStatusBarText("获取编辑中的文件名修改iProperty完成") 'MsgBox("获取编辑中的文件名修改iProperty完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_修改部件iProperty_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_修改部件iProperty_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document '当前文件 InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) Exit Sub End If If SetDocumentsInAssIpropertyFromFileName(InventorDocument, False) Then SetStatusBarText("获取当前部件中的子集文件名修改iProperty完成") 'MsgBox("获取当前部件中的文件名修改iProperty完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_设置描述_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_设置描述_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document '当前编辑文件 InventorDocument = ThisApplication.ActiveEditDocument Dim frmInputBox As New frmInputBox With frmInputBox .Text = "设置描述" .lblDescribe.Text = "输入描述，写到【iProperty】【项目】【描述】" .txtInPut.Text = GetPropitem(InventorDocument, "描述") .StartPosition = FormStartPosition.CenterScreen .ShowDialog() End With If frmInputBox.DialogResult = Windows.Forms.DialogResult.OK Then If SetPropitem(InventorDocument, "描述", frmInputBox.txtInPut.Text) Then SetStatusBarText("设置描述完成。") Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Else Exit Sub End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_ERP材料编码_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_ERP材料编码_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document '当前编辑文件 InventorDocument = ThisApplication.ActiveEditDocument Dim frmInputBox As New frmInputBox With frmInputBox .Text = "设置材料编码" .lblDescribe.Text = "输入材料编码，写到【iProperty】【项目】【" & Map_PartNum & "】" .txtInPut.Text = GetPropitem(InventorDocument, Map_PartNum) .StartPosition = FormStartPosition.CenterScreen .ShowDialog() End With If frmInputBox.DialogResult = Windows.Forms.DialogResult.OK Then If SetPropitem(InventorDocument, Map_PartNum, frmInputBox.txtInPut.Text) Then SetStatusBarText("设置材料编码完成。") Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Else Exit Sub End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_更改文件名_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_更改文件名_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information, "修改文件名") Exit Sub End If Dim OldComponentOccurrence As ComponentOccurrence '选择的部件或零件 If InventorDocument.SelectSet.Count <> 0 Then 'For Each oSelect As Object In InventorDoc.SelectSet OldComponentOccurrence = InventorDocument.SelectSet(1) 'Next Else OldComponentOccurrence = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "选择要更改文件名的零件或部件") End If If OldComponentOccurrence Is Nothing Then '取消选择 Exit Sub End If Select Case OldComponentOccurrence.DefinitionDocumentType Case kAssemblyDocumentObject, kPartDocumentObject Dim NewFileName As String '新文件仅文件名 Dim OldFullFileName As String '被替换的旧文件全名 Dim OldFileName As String '被替换的旧文件仅文件名 OldFullFileName = OldComponentOccurrence.ReferencedDocumentDescriptor.FullDocumentName OldFileName = GetFileNameInfo(OldFullFileName).ONlyName NewFileName = InputBox("重命名 " & OldFullFileName, "重命名", OldFileName) '输入新文件名 If RenameAssPartDocumentName(InventorDocument, OldComponentOccurrence, NewFileName) Then SetStatusBarText("更改零件/部件文件名完成") 'MsgBox("更改零件/部件文件名完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Case Else End Select Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_提取iPro修改文件名_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_提取iPro修改文件名_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If '判断是否为 assdoc Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) Exit Sub End If Dim OldComponentOccurrence As ComponentOccurrence '选择的部件或零件 If InventorDocument.SelectSet.Count <> 0 Then 'For Each oSelect As Object In InventorDoc.SelectSet OldComponentOccurrence = InventorDocument.SelectSet(1) 'Next Else OldComponentOccurrence = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "选择要更改文件名的的零件或部件") End If If OldComponentOccurrence Is Nothing Then '取消选择 Exit Sub End If If GetIpropertyToRename(InventorDocument, OldComponentOccurrence) Then SetStatusBarText("提取iproperty更改文件名完成") 'MsgBox("提取iproperty更改文件名完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_生成图号_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_生成图号_Buttondef.OnExecute Dim AutoPartNumber As New frmAutoPartNumber AutoPartNumber.Show() End Sub Private Sub m_更改镜像文件名_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_更改镜像文件名_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) Exit Sub End If Dim OldComponentOccurrence As ComponentOccurrence '选择的部件或零件 If InventorDocument.SelectSet.Count <> 0 Then 'For Each oSelect As Object In InventorDoc.SelectSet OldComponentOccurrence = InventorDocument.SelectSet(1) 'Next Else OldComponentOccurrence = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "选择要更改文件名的的零件或部件") End If If OldComponentOccurrence Is Nothing Then '取消选择 Exit Sub End If Select Case OldComponentOccurrence.DefinitionDocumentType Case kPartDocumentObject, kAssemblyDocumentObject '选择的是部件或零件 Dim OldFullFileName As String '被替换的旧文件全名 Dim OldFileName As String '被替换的旧文件仅文件名 OldFullFileName = OldComponentOccurrence.ReferencedDocumentDescriptor.FullDocumentName OldFileName = GetFileNameInfo(OldFullFileName).ONlyName Dim NewFileName As String '新文件仅文件名 NewFileName = InputBox("重命名 " & OldFullFileName, "镜像重命名", OldFileName) '输入新文件名 '取消输入 If NewFileName = "" Then Exit Sub End If If RenameMirrorAssPartDocumentName(InventorDocument, OldComponentOccurrence, NewFileName) Then SetStatusBarText("更改镜像零件/部件文件名完成") 'MsgBox("更改零件/部件文件名完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Case MsgBox("选择的文件不是零件或部件", MsgBoxStyle.Information) End Select Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_打开文件夹_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_打开文件夹_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document Dim InventorDocumentFileNameInfo As FileNameInfo InventorDocument = ThisApplication.ActiveEditDocument InventorDocumentFileNameInfo = GetFileNameInfo(InventorDocument.FullDocumentName) Process.Start(InventorDocumentFileNameInfo.Folder) Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_保存关闭_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_保存关闭_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If With ThisApplication.ActiveDocument If IsFileExsts(.FullDocumentName) = True Then .Save2(True) .Close() Else .Save() .Close() End If End With Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_另存为Pdf_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_另存为Pdf_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument Dim PdfFullFileName As String PdfFullFileName = SaveAsPdf(InventorDocument) If PdfFullFileName = "取消" Then SetStatusBarText("另存为PDF完成") Exit Sub End If If IsFileExsts(PdfFullFileName) Then SetStatusBarText("另存为PDF完成") If MsgBox("是否打开文件： " & PdfFullFileName, MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then System.Diagnostics.Process.Start(PdfFullFileName) End If Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_另存为Dwg_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_另存为Dwg_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument Dim DwgFullFileName As String DwgFullFileName = SaveAsDwg(InventorDrawingDocument) Select Case DwgFullFileName Case "非工程图" SetStatusBarText("该文件非工程图。") Exit Sub Case "取消" SetStatusBarText("取消。") Exit Sub End Select If IsFileExsts(DwgFullFileName) Then SetStatusBarText("另存为CAD-DWG完成") If MsgBox("是否打开文件： " & DwgFullFileName, MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then System.Diagnostics.Process.Start(DwgFullFileName) End If Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_设置BOM结构_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_设置BOM结构_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) Exit Sub End If Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument If SetBOMStructuret(InventorAssemblyDocument) Then SetStatusBarText(" 设置BOM结构完成") 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_设置比例_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_设置比例_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument If SetDrawingScale(InventorDrawingDocument) Then SetStatusBarText("设置工程图自定义属性：比例完成") 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_设置对称件iProperty_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_设置对称件iProperty_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument If SetDrawingMirPartIPro(InventorDrawingDocument) Then SetStatusBarText("设置工程图自定义属性：对称件IPro") 'MsgBox("设置工程图自定义属性：对称件IPro", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_序号完整性_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_检查序号完整性_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument If CheckSerialNumber(InventorDrawingDocument) Then SetStatusBarText("检查序号完整性完成") MsgBox("检查序号完整性完成", MsgBoxStyle.Information) Else 'SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_新建序号_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_新建序号_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument '设置为一个动作，可一次撤销 Dim oTransientGeometry As TransientGeometry oTransientGeometry = ThisApplication.TransientGeometry 'start a transaction so the slot will be within a single undo step Dim createSlotTransaction As Transaction createSlotTransaction = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "重新设置序号") If SetSerialNumber(InventorDrawingDocument) Then SetStatusBarText("重新设置序号完成") 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If 'end the transactio createSlotTransaction.End() Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub Private Sub m_插入序号_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_插入序号_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument '设置为一个动作，可一次撤销 Dim oTransientGeometry As TransientGeometry oTransientGeometry = ThisApplication.TransientGeometry 'start a transaction so the slot will be within a single undo step Dim createSlotTransaction As Transaction createSlotTransaction = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "插入序号") If InsertSerialNumber(InventorDrawingDocument) Then SetStatusBarText("插入序号完成") 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If 'end the transactio createSlotTransaction.End() Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub Private Sub m_设置签字_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_设置签字_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument Dim Print_Day As String Print_Day = Today.Year & "." & Today.Month & "." & Today.Day If SetSign(InventorDrawingDocument, EngineerName, Print_Day, True) Then SetStatusBarText("设置工程图属性：签字完成") Else SetStatusBarText("错误") End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_清除签字_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_清除签字_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument InventorDrawingDocument = ThisApplication.ActiveDocument If SetSign(InventorDrawingDocument, "", "", False) Then SetStatusBarText("清除工程图属性，签字完成") Else SetStatusBarText("错误") End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_自定义签字_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_自定义签字_Buttondef.OnExecute Dim frmSign As New frmSign frmSign.ShowDialog() End Sub Private Sub m_设置_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_设置_Buttondef.OnExecute Dim frmOption As New frmOption frmOption.ShowDialog() End Sub Private Sub m_量产iPropertys_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_量产iPropertys_Buttondef.OnExecute Dim frmiPoperties As New frmiPoperties frmiPoperties.ShowDialog() End Sub Private Sub m_批量打印_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_批量打印_Buttondef.OnExecute Dim frmPrint As New frmPrint frmPrint.ShowDialog() End Sub Private Sub m_工程图批量另存为_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_工程图批量另存为_Buttondef.OnExecute Dim SaveAsDialog As New frmSaveAs SaveAsDialog.ShowDialog() End Sub Private Sub m_全部另存为_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_全部另存为_Buttondef.OnExecute Dim frmAllSaveAs As New frmAllSaveAs frmAllSaveAs.ShowDialog() End Sub 'Public oclsMousePosition As clsDrawSlot ' Private oMousePosition As Point2d Private Sub m_还原旧图_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_还原旧图_Buttondef.OnExecute '打开文件 Dim oOpenFileDialog As New OpenFileDialog '声名新open 窗口 With oOpenFileDialog .Title = "打开" .Filter = "AutoDesk Inventor 旧文件(*.old)|*.old" '添加过滤文件 .Multiselect = True '多开文件打开 If .ShowDialog = Windows.Forms.DialogResult.OK Then '如果打开窗口OK If .FileName <> "" Then '如果有选中文件 Dim OldFullFileName As String Dim NewFullFileName As String For Each OldFullFileName In .FileNames NewFullFileName = Left(OldFullFileName, Strings.Len(OldFullFileName) - 4) Rename(OldFullFileName, NewFullFileName) Next End If MsgBox("更改旧文件名完成。") End If End With End Sub Private Sub m_关于_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_关于_Buttondef.OnExecute 'Dim HelpMessage As String = "当前版本：" & My.Application.Info.Version.ToString & GetBiaoQing() 'MsgBox(HelpMessage, MsgBoxStyle.Information) Dim frmAbout As New frmAbout frmAbout.ShowDialog() '============================================================ '测试代码 '============================================================ End Sub Private Sub m_帮助_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_帮助_Buttondef.OnExecute Dim HelpFullFileName As String HelpFullFileName = My.Application.Info.DirectoryPath & "\帮助.pdf" Process.Start(HelpFullFileName) End Sub Private Sub m_保存关闭所有部件_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_保存关闭所有部件_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim frmSaveAll As New frmSaveAll frmSaveAll.ShowDialog() 'For Each oInventorDocument As Inventor.Document In ThisApplication.Documents ' If oInventorDocument.DocumentType = kAssemblyDocumentObject Then ' With oInventorDocument ' If IsFileExsts(.FullDocumentName) = True Then ' .Save2(True) ' .Close() ' End If ' End With ' End If 'Next Catch ex As Exception MsgBox(ex.Message) End Try End Sub 'Private Sub m_保存关闭所有零件_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_保存关闭所有零件_Buttondef.OnExecute ' Try ' SetStatusBarText() ' If IsInventorOpenDoc() = False Then ' Exit Sub ' End If ' For Each oInventorDocument As Inventor.Document In ThisApplication.Documents ' If oInventorDocument.DocumentType = kPartDocumentObject Then ' With oInventorDocument ' If IsFileExsts(.FullDocumentName) = True Then ' .Save2(True) ' .Close() ' End If ' End With ' End If ' Next ' Catch ex As Exception ' MsgBox(ex.Message) ' End Try 'End Sub 'Private Sub m_保存关闭所有工程图_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_保存关闭所有工程图_Buttondef.OnExecute ' Try ' SetStatusBarText() ' If IsInventorOpenDoc() = False Then ' Exit Sub ' End If ' For Each oInventorDocument As Inventor.Document In ThisApplication.Documents ' If oInventorDocument.DocumentType = kDrawingDocumentObject Then ' With oInventorDocument ' If IsFileExsts(.FullDocumentName) = True Then ' .Save2(True) ' .Close() ' End If ' End With ' End If ' Next ' Catch ex As Exception ' MsgBox(ex.Message) ' End Try 'End Sub 'Private Sub m_关闭所有部件_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_关闭所有部件_Buttondef.OnExecute ' Try ' SetStatusBarText() ' If IsInventorOpenDoc() = False Then ' Exit Sub ' End If ' For Each oInventorDocument As Inventor.Document In ThisApplication.Documents ' If oInventorDocument.DocumentType = kAssemblyDocumentObject Then ' With oInventorDocument ' If IsFileExsts(.FullDocumentName) = True Then ' .Close(True) ' End If ' End With ' End If ' Next ' Catch ex As Exception ' MsgBox(ex.Message) ' End Try 'End Sub 'Private Sub m_关闭所有零件_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_关闭所有零件_Buttondef.OnExecute ' Try ' SetStatusBarText() ' If IsInventorOpenDoc() = False Then ' Exit Sub ' End If ' For Each oInventorDocument As Inventor.Document In ThisApplication.Documents ' If oInventorDocument.DocumentType = kPartDocumentObject Then ' With oInventorDocument ' If IsFileExsts(.FullDocumentName) = True Then ' .Close(True) ' End If ' End With ' End If ' Next ' Catch ex As Exception ' MsgBox(ex.Message) ' End Try 'End Sub 'Private Sub m_关闭所有工程图_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_关闭所有工程图_Buttondef.OnExecute ' Try ' SetStatusBarText() ' If IsInventorOpenDoc() = False Then ' Exit Sub ' End If ' For Each oInventorDocument As Inventor.Document In ThisApplication.Documents ' If oInventorDocument.DocumentType = kDrawingDocumentObject Then ' With oInventorDocument ' If IsFileExsts(.FullDocumentName) = True Then ' .Close(True) ' End If ' End With ' End If ' Next ' Catch ex As Exception ' MsgBox(ex.Message) ' End Try 'End Sub 'Private Sub m_绘制横直线_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_绘制横直线_Buttondef.OnExecute ' Dim oclsDrawLine As clsDrawHLine ' oclsDrawLine = New clsDrawHLine(ThisApplication) 'End Sub 'Private Sub m_绘制竖直线_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_绘制竖直线_Buttondef.OnExecute ' Dim oclsDrawVLine As clsDrawVLine ' oclsDrawVLine = New clsDrawVLine(ThisApplication) 'End Sub 'Private Sub m_绘制圆_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_绘制圆_Buttondef.OnExecute ' Dim oclsDrwCircle As clsDrawCircle ' oclsDrwCircle = New clsDrawCircle(ThisApplication) 'End Sub 'Private Sub m_绘制槽孔_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_绘制槽孔_Buttondef.OnExecute ' Dim DrawSlotDialog As New DrawSlotDialog ' DrawSlotDialog.Show() 'End Sub Private Sub m_添加直径_Buttondef_OnExecute() Handles m_添加直径_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If '判断是否为 assdoc Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information, "添加Φ") Exit Sub End If If ADDFai(InventorDocument) Then SetStatusBarText("添加直径符号Φ完成") 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_检查是否有工程图_Buttondef_OnExecute() Handles m_检查是否有工程图_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) 'Return False Exit Sub End If Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument Dim frmInputBox As New frmInputBox 999: With frmInputBox .txtInPut.Text = GetPropitem(InventorAssemblyDocument, Map_StochNum) .Text = "检查包号指定字符的工程图" .lblDescribe.Text = "输入要检查的部分图号的。" & vbCrLf & "如要检查全部GT100下的零件是否有工程图，输入GT100即可。" .StartPosition = FormStartPosition.CenterScreen .ShowDialog() End With If (frmInputBox.DialogResult = Windows.Forms.DialogResult.OK) And (frmInputBox.txtInPut.Text <> "") Then If CheckIsInvHaveIdw(InventorAssemblyDocument, frmInputBox.txtInPut.Text) Then MsgBox("检查是否有工程图完成，打开了未找到工程图对应的模型文件。", MsgBoxStyle.Information) Else SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If ElseIf frmInputBox.DialogResult = Windows.Forms.DialogResult.Cancel Then Exit Sub Else MsgBox("请输入部分图号！", MsgBoxStyle.Information) SetStatusBarText("错误") GoTo 999 Exit Sub End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub 'Private Sub m_打开全部工程图_Buttondef_OnExecute() Handles m_打开全部工程图_Buttondef.OnExecute ' Try ' SetStatusBarText() ' If IsInventorOpenDoc() = False Then ' Exit Sub ' End If ' If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then ' MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) ' Exit Sub ' End If ' Dim AssDoc As AssemblyDocument ' AssDoc = ThisApplication.ActiveDocument ' If OpenAllDrwInAsm(AssDoc, "") Then ' MsgBox("打开了部件所有子集对应的工程图。", MsgBoxStyle.Information) ' Else ' SetStatusBarText("错误") ' 'MsgBox("错误", MsgBoxStyle.Exclamation) ' End If ' Catch ex As Exception ' MsgBox(ex.Message) ' End Try 'End Sub Private Sub m_打开指定工程图_Buttondef_OnExecute() Handles m_打开指定工程图_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) Exit Sub End If Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument 999: Dim frmInputBox As New frmInputBox With frmInputBox .txtInPut.Text = GetPropitem(InventorAssemblyDocument, Map_StochNum) .Text = "打开指定工程图" .lblDescribe.Text = "输入包含指定的字段的图号。" & vbCrLf & "如要打开 5183-9000000.aim 下的工程图，输入5183-9即可。" .StartPosition = FormStartPosition.CenterScreen .ShowDialog() End With If (frmInputBox.DialogResult = Windows.Forms.DialogResult.OK) And (frmInputBox.txtInPut.Text <> "") Then If OpenAllDrwInAsm(InventorAssemblyDocument, frmInputBox.txtInPut.Text) Then MsgBox("打开了部件所有子集对应的工程图。", MsgBoxStyle.Information) Else SetStatusBarText("错误") End If ElseIf frmInputBox.DialogResult = Windows.Forms.DialogResult.Cancel Then Exit Sub Else MsgBox("请输入部分图号！", MsgBoxStyle.Information) SetStatusBarText("错误") GoTo 999 Exit Sub End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_部件替换文件名_Buttondef_OnExecute() Handles m_部件替换文件名_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) 'Return False Exit Sub End If Dim OldName As String Dim NewName As String OldName = InputBox("输入：查找的内容") If OldName = "" Then Exit Sub End If NewName = InputBox("输入：替换为") If NewName = "" Then Exit Sub End If 'OldName = "GT140" 'NewName = "GT240" Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument Dim IsSaveAsOld As MsgBoxResult IsSaveAsOld = MsgBox("是否更改原文件为备份文件，扩展名增加 .old ？", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "备份文件") ReplaceNameInAsm(InventorAssemblyDocument, OldName, NewName, IsSaveAsOld) MsgBox("部件替换文件名完成。", MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message) End Try End Sub ' 导出BOM平面性 Private Sub m_导出平面BOM_Buttondef_OnExecute() Handles m_导出平面BOM_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument If InventorAssemblyDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件") Exit Sub End If Dim ExcelFullFileName As String ExcelFullFileName = My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & GetFileNameInfo(InventorAssemblyDocument.FullFileName).ONlyName & "导出BOM.csv" If IsFileExsts(ExcelFullFileName) = True Then DelFile(ExcelFullFileName, FileIO.RecycleOption.SendToRecycleBin) End If 'If ExportBOMAsFlat(AssDoc, ExcelFullFileName) Then ' SetStatusBarText(" 导出BOM平面性完成") ' 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) 'Else ' SetStatusBarText("错误") ' 'MsgBox("错误", MsgBoxStyle.Exclamation) 'End If ExportBOMAsFlat(InventorAssemblyDocument, ExcelFullFileName) SetStatusBarText(" 导出BOM平面性完成") Process.Start(ExcelFullFileName) Catch ex As Exception MsgBox(ex.Message) End Try End Sub ' 刷新引用名称 Private Sub m_刷新引用_Buttondef_OnExecute() Handles m_刷新引用_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument If InventorAssemblyDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件") Exit Sub End If If RefreshShowName(InventorAssemblyDocument) Then SetStatusBarText("刷新引用完成") MsgBox("刷新引用完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_清理旧版文件_Buttondef_OnExecute() Handles m_清理旧版文件_Buttondef.OnExecute Try Dim DestinationDirectory As String = Nothing Dim inf As FileAttributes Dim Present_Folder As String = Nothing Dim FolderBrowserDialog As New FolderBrowserDialog With FolderBrowserDialog .ShowNewFolderButton = False .Description = "选择文件夹" .RootFolder = System.Environment.SpecialFolder.Desktop If .ShowDialog = DialogResult.OK Then DestinationDirectory = .SelectedPath Else Exit Sub End If End With 'If DestinationDirectory = "" Then ' Exit Sub 'End If Dim DeleteRecycleOption As Integer Select Case MsgBox("是否永久删除旧文件，而不是移动到回收站？", MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question + MsgBoxStyle.YesNo, "删除文件") Case MsgBoxResult.Yes DeleteRecycleOption = FileIO.RecycleOption.DeletePermanently Case MsgBoxResult.No DeleteRecycleOption = FileIO.RecycleOption.SendToRecycleBin End Select '是否为文件夹，在其后添加 \ inf = VisualBasic.FileSystem.GetAttr(DestinationDirectory) If inf = FileAttributes.Directory Then DestinationDirectory = DestinationDirectory + "\" End If DelOldDirectory(DestinationDirectory, DeleteRecycleOption) SetStatusBarText("就绪") MsgBox("清理旧版本文件完成！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "清理旧文件") Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_移动指定文件_Buttondef_OnExecute() Handles m_移动指定文件_Buttondef.OnExecute Try ' 获取激活文档 Dim InventorAssemblyDocument As Inventor.AssemblyDocument InventorAssemblyDocument = ThisApplication.ActiveDocument 999: Dim frmInputBox As New frmInputBox With frmInputBox .txtInPut.Text = GetPropitem(InventorAssemblyDocument, Map_StochNum) .Text = "移动文件" .lblDescribe.Text = "将保存并关闭当前文档，移动指定的文件到当前部件文件夹。" & vbCrLf & "输入从第一个图号开始的筛选字段。" .StartPosition = FormStartPosition.CenterScreen .ShowDialog() End With Dim sFilter As String If frmInputBox.DialogResult = Windows.Forms.DialogResult.OK And frmInputBox.txtInPut.Text <> "" Then sFilter = frmInputBox.txtInPut.Text ElseIf frmInputBox.DialogResult = Windows.Forms.DialogResult.Cancel Then Exit Sub Else MsgBox("请输入部分图号！", MsgBoxStyle.Information) SetStatusBarText("错误") GoTo 999 Exit Sub End If ' 获取所有引用文档 Dim InventorDocumentsEnumerator As Inventor.DocumentsEnumerator InventorDocumentsEnumerator = InventorAssemblyDocument.AllReferencedDocuments ' 遍历这些文档 Dim InvDocList(2000) As String ReDim InvDocList(InventorDocumentsEnumerator.Count - 1) Dim i As Integer = 0 For Each oReferencedDocument As Inventor.Document In InventorDocumentsEnumerator Debug.Print(oReferencedDocument.FullFileName) InvDocList(i) = oReferencedDocument.FullFileName i = i + 1 Next Dim oInventorAssemblyDocumentFullDocumentName As String oInventorAssemblyDocumentFullDocumentName = InventorAssemblyDocument.FullDocumentName '组件所在文件夹 Dim oAsmDocFolder As String oAsmDocFolder = GetFileNameInfo(oInventorAssemblyDocumentFullDocumentName).Folder '保存关闭组件 InventorAssemblyDocument.Close() Dim FileNameInfo As FileNameInfo For Each InvDoc As String In InvDocList ThisApplication.StatusBarText = InvDoc FileNameInfo = GetFileNameInfo(InvDoc) If InStr(FileNameInfo.ONlyName, sFilter) = 1 Then ReMoveFileToFolder(InvDoc, oAsmDocFolder) Dim IdwDoc As String IdwDoc = GetNewExtensionFileName(InvDoc, ".idw") If IsFileExsts(IdwDoc) = True Then ReMoveFileToFolder(IdwDoc, oAsmDocFolder) End If End If Next If MsgBox("移动指定文件完成，是否重新打开" & oInventorAssemblyDocumentFullDocumentName, MsgBoxStyle.YesNo + MsgBoxStyle.Question, "移动文件") = MsgBoxResult.Yes Then ThisApplication.Documents.Open(oInventorAssemblyDocumentFullDocumentName) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_对齐原始坐标面_Buttondef_OnExecute() Handles m_对齐原始坐标面_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If '判断是否为 assdoc Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information, "对齐原始坐标面") Exit Sub End If '设置为一个动作, 可一次撤销 Dim transientGeometry As TransientGeometry transientGeometry = ThisApplication.TransientGeometry 'start a transaction so the slot will be within a single undo step Dim createSlotTransaction As Transaction createSlotTransaction = ThisApplication.TransactionManager.StartTransaction(ThisApplication.ActiveDocument, "重新设置序号") If FlushXYZPlane() Then SetStatusBarText("对齐原始坐标面") 'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") 'MsgBox("错误", MsgBoxStyle.Exclamation) End If 'end the transactio createSlotTransaction.End() Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_查找缺失文件的部件_Buttondef_OnExecute() Handles m_查找缺失文件的部件_Buttondef.OnExecute Try If IsInventorOpenDoc() = False Then Exit Sub End If SetStatusBarText() Dim InventorDocument As Inventor.Document '当前文件 InventorDocument = ThisApplication.ActiveDocument If InventorDocument.DocumentType <> kAssemblyDocumentObject Then MsgBox("该功能仅适用于部件", MsgBoxStyle.Information) Exit Sub End If If GetUnkonwDocumentWithBOM(InventorDocument, False) Then SetStatusBarText("查找缺失文件的部件完成") MsgBox("查找缺失文件的部件完成", MsgBoxStyle.Information) Else SetStatusBarText("错误") MsgBox("错误", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_统计质量面积_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_统计质量面积_Buttondef.OnExecute Dim frmGetPart As New frmGetPart frmGetPart.Show() End Sub Private Sub m_调整IPro顺序_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_调整IPro顺序_Buttondef.OnExecute Dim frmChangeIpro As New frmChangeIpro frmChangeIpro.ShowDialog() End Sub Private Sub m_尺寸圆整_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_尺寸圆整_Buttondef.OnExecute SetDrawingDimPrecision() End Sub Private Sub m_导入存货编码_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_导入存货编码_Buttondef.OnExecute Dim frmInventoryCoding As New frmInventoryCoding frmInventoryCoding.Show() End Sub Private Sub m_打开工程图_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_打开工程图_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document InventorDocument = ThisApplication.ActiveDocument If InventorDocument.SelectSet.Count <> 0 Then 'For Each oSelect As Object In InventorDoc.SelectSet For Each ComponentOccurrence As ComponentOccurrence In InventorDocument.SelectSet() 'Next 'MsgBox(OldOcc.ReferencedDocumentDescriptor.FullDocumentName) InventorDocument = ThisApplication.Documents.ItemByName(ComponentOccurrence.ReferencedDocumentDescriptor.FullDocumentName) OpenDrawingDocument(InventorDocument) Next Else InventorDocument = ThisApplication.ActiveEditDocument OpenDrawingDocument(InventorDocument) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub 'BOM表保存新的替换项和按序号排序 Private Sub m_重写BOM序号_Buttondef_OnExecute(ByVal Context As Inventor.NameValueMap) Handles m_重写BOM序号_Buttondef.OnExecute Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information) Exit Sub End If Dim InventorDrawingDocument As Inventor.DrawingDocument Dim ActiveSheet As Sheet InventorDrawingDocument = ThisApplication.ActiveDocument ActiveSheet = InventorDrawingDocument.ActiveSheet If ActiveSheet.PartsLists.Count = 0 Then MsgBox("该工程图无明细表", MsgBoxStyle.Critical) Exit Sub End If For Each InventorPartsListRow As Inventor.PartsListRow In ActiveSheet.PartsLists.Item(1).PartsListRows InventorPartsListRow.SaveItemOverridesToBOM() Next ActiveSheet.PartsLists(1).Sort("序号", True) Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_打开ERP数据文件_Buttondef_OnExecute() Handles m_打开ERP数据文件_Buttondef.OnExecute Try If IsFileExsts(Excel_File_Name) Then Process.Start(Excel_File_Name) Else Process.Start(My.Application.Info.DirectoryPath) End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub m_查询ERP编码_Buttondef_OnExecute() Handles m_查询ERP编码_Buttondef.OnExecute 'Try SetStatusBarText() If IsInventorOpenDoc() = False Then Exit Sub End If Dim InventorDocument As Inventor.Document '当前文件 InventorDocument = ThisApplication.ActiveEditDocument Dim oPropSets As PropertySets Dim oPropSet As PropertySet Dim propitem As [Property] oPropSets = InventorDocument.PropertySets oPropSet = oPropSets.Item(3) '获取iproperty Dim StockNumPartName As StockNumPartName = Nothing For Each propitem In oPropSet Select Case propitem.DisplayName Case Map_StochNum Dim StochNum As String StochNum = propitem.Value Dim PartNum As String = Nothing 'Public Excel_File_Name As String 'excel文件名 'Public Sheet_Name As String '搜索的表 'Public Table_Array As String '搜索的范围 'Public Col_Index_Num As String '搜索列 'PartNum = VLookUpValue(Excel_File_Name, StochNum, Sheet_Name, Table_Array, Col_Index_Num, 0) PartNum = FindSrtingInSheet(Excel_File_Name, StochNum, Sheet_Name, Table_Arrays, Col_Index_Num, 0) If PartNum <> 0 Then MsgBox("查询到ERP编码：" & PartNum, MsgBoxStyle.OkOnly, "查询ERP编码") SetPropitem(InventorDocument, Map_PartNum, PartNum) Else MsgBox("未查询到ERP编码。", MsgBoxStyle.OkOnly, "查询ERP编码") End If End Select Next 'Catch ex As Exception ' MsgBox(ex.Message) 'End Try End Sub Private Sub m_快速打开_Buttondef_OnExecute() Handles m_快速打开_Buttondef.OnExecute Try SetStatusBarText() Dim WorkSpaceFloder As String WorkSpaceFloder = ThisApplication.FileLocations.Workspace & "\" Dim FileName As String FileName = InputBox("查询文件夹：" & WorkSpaceFloder & vbCrLf & vbCrLf & "输入文件名，包含扩展名", "快速打开") If FileName = "" Then Exit Sub End If Dim files As ReadOnlyCollection(Of String) files = My.Computer.FileSystem.GetFiles(WorkSpaceFloder, FileIO.SearchOption.SearchAllSubDirectories, FileName) If files.Count <> 0 Then If files.Count = 1 Then For Each FullFileName As String In files ThisApplication.Documents.Open(FullFileName) Next Else Dim frmQuitOpen As New frmQuitOpen For Each FullFileName As String In files frmQuitOpen.lvwFileListView.Items.Add(FullFileName) Next frmQuitOpen.ShowDialog() End If End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub '-------------------------------------------------------------- Public Sub Deactivate() Implements Inventor.ApplicationAddInServer.Deactivate ' This method is called by Inventor when the AddIn is unloaded. ' The AddIn will be unloaded either manually by the user or ' when the Inventor session is terminated. ' TODO: Add ApplicationAddInServer.Deactivate implementation ' Release objects. Marshal.ReleaseComObject(ThisApplication) ThisApplication = Nothing System.GC.WaitForPendingFinalizers() System.GC.Collect() End Sub Public ReadOnly Property Automation() As Object Implements Inventor.ApplicationAddInServer.Automation ' This property is provided to allow the AddIn to expose an API ' of its own to other programs. Typically, this would be done by ' implementing the AddIn's API interface in a class and returning ' that class object through this property. Get Return Nothing End Get End Property Public Sub ExecuteCommand(ByVal commandID As Integer) Implements Inventor.ApplicationAddInServer.ExecuteCommand ' Note:this method is now obsolete, you should use the ' ControlDefinition functionality for implementing commands. End Sub #End Region #Region "COM Registration" ' Registers this class as an AddIn for Inventor. ' This function is called when the assembly is registered for COM. _ Public Shared Sub Register(ByVal t As Type) Dim clssRoot As RegistryKey = Registry.ClassesRoot Dim clsid As RegistryKey = Nothing Dim subKey As RegistryKey = Nothing Try clsid = clssRoot.CreateSubKey("CLSID\" + AddInGuid(t)) clsid.SetValue(Nothing, "InventorAddIn") subKey = clsid.CreateSubKey("Implemented Categories\{39AD2B5C-7A29-11D6-8E0A-0010B541CAA8}") subKey.Close() subKey = clsid.CreateSubKey("Settings") subKey.SetValue("AddInType", "Standard") subKey.SetValue("LoadOnStartUp", "1") 'subKey.SetValue("SupportedSoftwareVersionLessThan", "") subKey.SetValue("SupportedSoftwareVersionGreaterThan", "14..") 'subKey.SetValue("SupportedSoftwareVersionEqualTo", "") 'subKey.SetValue("SupportedSoftwareVersionNotEqualTo", "") 'subKey.SetValue("Hidden", "0") 'subKey.SetValue("UserUnloadable", "1") subKey.SetValue("Version", 0) subKey.Close() subKey = clsid.CreateSubKey("Description") subKey.SetValue(Nothing, "InventorAddIn") Catch ex As Exception System.Diagnostics.Trace.Assert(False) Finally If Not subKey Is Nothing Then subKey.Close() If Not clsid Is Nothing Then clsid.Close() If Not clssRoot Is Nothing Then clssRoot.Close() End Try End Sub ' Unregisters this class as an AddIn for Inventor. ' This function is called when the assembly is unregistered. _ Public Shared Sub Unregister(ByVal t As Type) Dim clssRoot As RegistryKey = Registry.ClassesRoot Dim clsid As RegistryKey = Nothing Try clssRoot = Microsoft.Win32.Registry.ClassesRoot clsid = clssRoot.OpenSubKey("CLSID\" + AddInGuid(t), True) clsid.SetValue(Nothing, "") clsid.DeleteSubKeyTree("Implemented Categories\{39AD2B5C-7A29-11D6-8E0A-0010B541CAA8}") clsid.DeleteSubKeyTree("Settings") clsid.DeleteSubKeyTree("Description") Catch Finally If Not clsid Is Nothing Then clsid.Close() If Not clssRoot Is Nothing Then clssRoot.Close() End Try End Sub ' This property uses reflection to get the value for the GuidAttribute attached to the class. Public Shared ReadOnly Property AddInGuid(ByVal t As Type) As String Get Dim guid As String = "" Try Dim customAttributes() As Object = t.GetCustomAttributes(GetType(GuidAttribute), False) Dim guidAttribute As GuidAttribute = CType(customAttributes(0), GuidAttribute) guid = "{" + guidAttribute.Value.ToString() + "}" Finally AddInGuid = guid End Try End Get End Property #End Region End Class End Namespace