1.21.11.20

AssemblyInfo.vb

@@ -28,5 +28,5 @@ Imports System.Runtime.InteropServices
 ' You can specify all the values or you can default the Build and Revision Numbers 
 ' by using the '*' as shown below:
 
-<Assembly: AssemblyVersion("1.21.11.18")> 
-<Assembly: AssemblyFileVersionAttribute("1.21.11.18")> 
\ No newline at end of file
+<Assembly: AssemblyVersion("1.21.11.20")> 
+<Assembly: AssemblyFileVersionAttribute("1.21.11.20")> 
\ No newline at end of file

Form/About.Designer.vb

@@ -32,6 +32,7 @@ Partial Class About
         Me.PictureBox2 = New System.Windows.Forms.PictureBox
         Me.PictureBox1 = New System.Windows.Forms.PictureBox
         Me.Button1 = New System.Windows.Forms.Button
+        Me.Button2 = New System.Windows.Forms.Button
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -40,7 +41,7 @@ Partial Class About
         '
         Me.OKButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.OKButton.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.OKButton.Location = New System.Drawing.Point(268, 221)
+        Me.OKButton.Location = New System.Drawing.Point(268, 233)
         Me.OKButton.Name = "OKButton"
         Me.OKButton.Size = New System.Drawing.Size(79, 24)
         Me.OKButton.TabIndex = 40
@@ -136,18 +137,28 @@ Partial Class About
         '
         'Button1
         '
-        Me.Button1.Location = New System.Drawing.Point(136, 221)
+        Me.Button1.Location = New System.Drawing.Point(180, 233)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(79, 24)
         Me.Button1.TabIndex = 44
         Me.Button1.Text = "检查更新"
         Me.Button1.UseVisualStyleBackColor = True
         '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(21, 233)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(87, 24)
+        Me.Button2.TabIndex = 45
+        Me.Button2.Text = "访问软件仓库"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
         'About
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(359, 252)
+        Me.ClientSize = New System.Drawing.Size(359, 264)
+        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.PictureBox2)
         Me.Controls.Add(Me.PictureBox1)
@@ -180,5 +191,6 @@ Partial Class About
     Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
     Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
     Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
 
 End Class

Form/About.vb

@@ -3,6 +3,9 @@ Imports FSLib.App.SimpleUpdater
 
 Public NotInheritable Class About
 
+    Const GitWeb As String = "https://codechina.csdn.net/leaky114/inventoraddin"
+
+
     Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         ' 设置此窗体的标题。
         Dim ApplicationTitle As String
@@ -40,4 +43,8 @@ Public NotInheritable Class About
 
     NewUpdater.UpDater2(True)
     End Sub
+
+    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
+        Process.Start(GitWeb)
+    End Sub
 End Class

Form/GetPartDialog.vb

@@ -145,4 +145,8 @@ Public Class GetPartDialog
     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
         My.Computer.Clipboard.SetText(TextBox2.Text)
     End Sub
+
+    Private Sub GetPartDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
 End Class

InventorAddIn.vbproj.user

@@ -12,7 +12,7 @@
     </BootstrapperUrlHistory>
     <FallbackCulture>zh-CN</FallbackCulture>
     <VerifyUploadedFiles>false</VerifyUploadedFiles>
-    <ProjectView>ShowAllFiles</ProjectView>
+    <ProjectView>ProjectFiles</ProjectView>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <StartAction>Program</StartAction>

Module/Inventorbasic.vb

@@ -2351,9 +2351,9 @@ Module InventorBasic
 
             ' Set the message for the progress bar
             'oProgressBar.Message = FullFileName
-            If InStr(FullFileName, ContentCenterFiles) > 0 Then    '跳过零件库文件
-                GoTo 999
-            End If
+            'If InStr(FullFileName, ContentCenterFiles) > 0 Then    '跳过零件库文件
+            '    GoTo 999
+            'End If
 
 
             '文件不存在，就打开父级文件

Module/NewUpdater.vb

 Imports FSLib.App.SimpleUpdater
 Module NewUpdater
 
+    Const InNewVisonTXT As String = "\\Likai-pc\发行版\2011\NewVersion.txt"
+    Const GitWeb As String = "https://codechina.csdn.net/leaky114/inventoraddin"
+
+
     Public Sub UpDater1()
         Try
 
@@ -22,8 +26,6 @@ Module NewUpdater
 
             UpdaterInstance.Dispose()
 
-
-
         Catch ex As Exception
 
 
@@ -34,13 +36,12 @@ Module NewUpdater
 
     Public Sub UpDater2(ByVal IsPutOutMsg As Boolean)
         Try
-            Dim simupdate As String = "\\Likai-pc\发行版\2011\NewVersion.txt"
 
             Dim fileReader As System.IO.StreamReader
-            fileReader = My.Computer.FileSystem.OpenTextFileReader(simupdate)
+            fileReader = My.Computer.FileSystem.OpenTextFileReader(InNewVisonTXT)
             Dim NewVersion As String
             NewVersion = fileReader.ReadLine()
-
+            fileReader.Close()
             'MsgBox(NewVersion)
 
             Dim MyVersion As String = _
@@ -51,8 +52,8 @@ Module NewUpdater
 
             'MsgBox(MyVersion)
 
-            If NewVersion <> "" Then
 
+            If NewVersion <> "" Then
                 Dim shortMyversion As Long
                 Dim shortNewVersion As Long
 
@@ -62,8 +63,15 @@ Module NewUpdater
                 If shortNewVersion > shortMyversion Then
                     MsgBox("InventorAddIn插件" & vbCrLf & "当前版本：" & MyVersion & vbCrLf & "检查到 新版本：" & NewVersion, MsgBoxStyle.OkOnly, " 检查更新")
 
+                    Dim simupdate As String
+
                     simupdate = My.Application.Info.DirectoryPath & "\simupdater.exe"
-                    Process.Start(simupdate)
+                    If IsFileExsts(simupdate) = True Then
+                        Process.Start(simupdate)
+                    Else
+                        MsgBox("缺失升级程序 simupdater.exe，请到本软件仓库下载。", MsgBoxStyle.OkOnly, "检查更新")
+                        Process.Start(GitWeb)
+                    End If
                 Else
                     If IsPutOutMsg = True Then
                         MsgBox("当前是最新版本。", MsgBoxStyle.OkOnly, "检查更新")
@@ -71,11 +79,9 @@ Module NewUpdater
                 End If
             End If
         Catch ex As Exception
-
-          '  MsgBox(ex.Message)
-
+            'MsgBox(ex.Message)
+            MsgBox("未链接到服务器。", MsgBoxStyle.OkOnly, "检查更新")
         End Try
-
     End Sub
 
     Public Function ShortVersion(ByVal LongVesion As String) As Long