Skip to content

I
inventoraddin

leaky114 / inventoraddin
上一次同步 7 个月

通知 5
Star 1
Fork 1
I
inventoraddin

前往新版Gitcode，体验更适合开发者的 AI 搜索 >>

提交 746f0e39 编写于 作者: leaky114's avatar leaky114
浏览文件
操作

22.2.25

上级 08c81300
隐藏空白更改
内联 并排
Showing with 495 addition and 25 deletion
CHANGELOG
浏览文件 @ 746f0e39
......@@ -32,13 +32,13 @@
[+]增加软件仓库链接
1.21.11.28
[+]增加erp查询
[+]增加ERP查询
1.21.12.4
[+]更新erp查询函数
[+]更新ERP查询函数
1.21.12.9
[+]增加打开erp数据库文件菜单
[+]增加打开ERP数据库文件菜单
1.21.12.11
[+]增加关闭文档菜单
......@@ -50,9 +50,11 @@
[+]修正细节，规范源代码
1.22.2.12
[+]修正bug，整理代码
[+]修正BUG，整理代码
1.22.2.16
[+]工程图批量另存增加另存到【同一文件夹】
1.22.2.25
[+]优化按BOM导入ERP数据
[+]增加在线帮助
Form/frmAbout.vb
浏览文件 @ 746f0e39
......@@ -40,7 +40,11 @@ Public NotInheritable Class frmAbout
' MsgBox(ex.Message)
'End Try
NewUpdater.UpDater2(True)
'NewUpdater.UpDater2(True)
IsShowUpdateMsg = True
Dim frmupdate As New frmUpdate
frmupdate.ShowDialog()
End Sub
Private Sub btnGit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGit.Click
......
Form/frmInventoryCoding.vb
浏览文件 @ 746f0e39
......@@ -28,35 +28,115 @@ Public Class frmInventoryCoding
Exit Sub
End If
' 获取所有引用文档
Dim oAllReferencedDocuments As DocumentsEnumerator
oAllReferencedDocuments = oAssemblyDocument.AllReferencedDocuments
'==============================================================================================
'基于bom结构化数据，可跳过参考的文件
' Set a reference to the BOM
Dim oBOM As BOM
oBOM = oAssemblyDocument.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
'Set a reference to the "Structured" BOMView
Dim oBOMView As BOMView
'获取结构化的bom页面
For Each oBOMView In oBOM.BOMViews
If oBOMView.ViewType = BOMViewTypeEnum.kStructuredBOMViewType Then
'遍历这个bom页面
QueryBOMRowToLoadiPro(oBOMView.BOMRows, lvwFileList)
End If
Next
'==============================================================================================
With prgProcess
.Minimum = 0
.Maximum = oAllReferencedDocuments.Count
.Value = 0
End With
'' 获取所有引用文档
'Dim oAllReferencedDocuments As DocumentsEnumerator
'oAllReferencedDocuments = oAssemblyDocument.AllReferencedDocuments
'With prgProcess
' .Minimum = 0
' .Maximum = oAllReferencedDocuments.Count
' .Value = 0
'End With
' 遍历这些文档
'For Each ReferencedDocument As Document In oAllReferencedDocuments
' Debug.Print(ReferencedDocument.DisplayName)
' Dim oStockNumPartName As StockNumPartName
' oStockNumPartName = GetPropitems(ReferencedDocument)
' Dim LVI As ListViewItem
' LVI = lvwFileList.Items.Add(oStockNumPartName.StockNum)
' LVI.SubItems.Add(oStockNumPartName.PartName)
' LVI.SubItems.Add(oStockNumPartName.PartNum)
' LVI.SubItems.Add(ReferencedDocument.FullDocumentName)
' prgProcess.Value = prgProcess.Value + 1
'Next
btnLoadFile.Enabled = True
End Sub
Public Sub QueryBOMRowToLoadiPro(ByVal oBOMRows As BOMRowsEnumerator, olistiview As ListView)
Dim i As Integer
Dim iStepCount As Short
iStepCount = oBOMRows.Count
'Create a new ProgressBar object.
'Dim oProgressBar As Inventor.ProgressBar
'oProgressBar = ThisApplication.CreateProgressBar(False, iStepCount, "当前文件： ")
For i = 1 To oBOMRows.Count
' Get the current row.
Dim oBOMRow As BOMRow
oBOMRow = oBOMRows.Item(i)
Dim oFullFileName As String
oFullFileName = oBOMRow.ReferencedFileDescriptor.FullFileName
'测试文件
Debug.Print(oFullFileName)
' Set the message for the progress bar
'oProgressBar.Message = oFullFileName
If IsFileExsts(oFullFileName) = False Then '跳过不存在的文件
GoTo 999
End If
If InStr(oFullFileName, ContentCenterFiles) > 0 Then '跳过零件库文件
GoTo 999
End If
Dim oInventorDocument As Inventor.Document
oInventorDocument = ThisApplication.Documents.Open(oFullFileName, False) '打开文件，不显示
For Each ReferencedDocument As Document In oAllReferencedDocuments
Debug.Print(ReferencedDocument.DisplayName)
Dim oStockNumPartName As StockNumPartName
oStockNumPartName = GetPropitems(ReferencedDocument)
oStockNumPartName = GetPropitems(oInventorDocument)
Dim LVI As ListViewItem
LVI = lvwFileList.Items.Add(oStockNumPartName.StockNum)
LVI.SubItems.Add(oStockNumPartName.PartName)
LVI.SubItems.Add(oStockNumPartName.PartNum)
LVI.SubItems.Add(ReferencedDocument.FullDocumentName)
LVI.SubItems.Add(oFullFileName)
oInventorDocument.Close(True)
prgProcess.Value = prgProcess.Value + 1
'遍历下一级
If (Not oBOMRow.ChildRows Is Nothing) Then
Call QueryBOMRowToLoadiPro(oBOMRow.ChildRows, olistiview)
End If
999:
'oProgressBar.UpdateProgress()
Next
btnLoadFile.Enabled = True
'oProgressBar.Close()
End Sub
......@@ -171,5 +251,8 @@ Public Class frmInventoryCoding
btnWriteCoding.Enabled = True
End Sub
Private Sub lvwFileList_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles lvwFileList.MouseDoubleClick
ThisApplication.Documents.Open(lvwFileList.SelectedItems(0).SubItems(3).Text)
End Sub
End Class
\ No newline at end of file
Form/frmPrint.Designer.vb
浏览文件 @ 746f0e39
......@@ -55,7 +55,7 @@ Partial Class frmPrint
Me.btnStart.Size = New System.Drawing.Size(57, 28)
Me.btnStart.TabIndex = 1
Me.btnStart.TabStop = False
Me.btnStart.Text = "开始"
Me.btnStart.Text = "打印"
'
'btnClose
'
......
Form/frmUpdate.Designer.vb 0 → 100644
浏览文件 @ 746f0e39
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmUpdate
Inherits System.Windows.Forms.Form
'Form 重写 Dispose，以清理组件列表。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改它。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.lblLocalVersion = New System.Windows.Forms.Label()
Me.lblNewVersion = New System.Windows.Forms.Label()
Me.txtWhatNew = New System.Windows.Forms.TextBox()
Me.chk检查更新 = New System.Windows.Forms.CheckBox()
Me.SuspendLayout()
'
'OK_Button
'
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.OK_Button.Location = New System.Drawing.Point(214, 251)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(75, 28)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "确定"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(289, 251)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(75, 28)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "取消"
'
'lblLocalVersion
'
Me.lblLocalVersion.AutoSize = True
Me.lblLocalVersion.Location = New System.Drawing.Point(29, 15)
Me.lblLocalVersion.Name = "lblLocalVersion"
Me.lblLocalVersion.Size = New System.Drawing.Size(65, 12)
Me.lblLocalVersion.TabIndex = 2
Me.lblLocalVersion.Text = "当前版本："
'
'lblNewVersion
'
Me.lblNewVersion.AutoSize = True
Me.lblNewVersion.Location = New System.Drawing.Point(29, 40)
Me.lblNewVersion.Name = "lblNewVersion"
Me.lblNewVersion.Size = New System.Drawing.Size(77, 12)
Me.lblNewVersion.TabIndex = 3
Me.lblNewVersion.Text = "可更新新版："
'
'txtWhatNew
'
Me.txtWhatNew.BackColor = System.Drawing.SystemColors.Control
Me.txtWhatNew.Location = New System.Drawing.Point(13, 64)
Me.txtWhatNew.Multiline = True
Me.txtWhatNew.Name = "txtWhatNew"
Me.txtWhatNew.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtWhatNew.Size = New System.Drawing.Size(351, 170)
Me.txtWhatNew.TabIndex = 4
'
'chk检查更新
'
Me.chk检查更新.AutoSize = True
Me.chk检查更新.Checked = True
Me.chk检查更新.CheckState = System.Windows.Forms.CheckState.Checked
Me.chk检查更新.Location = New System.Drawing.Point(12, 256)
Me.chk检查更新.Name = "chk检查更新"
Me.chk检查更新.Size = New System.Drawing.Size(108, 16)
Me.chk检查更新.TabIndex = 14
Me.chk检查更新.Text = "启动时检查更新"
Me.chk检查更新.UseVisualStyleBackColor = True
'
'frmUpdate
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(376, 284)
Me.Controls.Add(Me.chk检查更新)
Me.Controls.Add(Me.txtWhatNew)
Me.Controls.Add(Me.lblNewVersion)
Me.Controls.Add(Me.lblLocalVersion)
Me.Controls.Add(Me.OK_Button)
Me.Controls.Add(Me.Cancel_Button)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmUpdate"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "更新"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents lblLocalVersion As System.Windows.Forms.Label
Friend WithEvents lblNewVersion As System.Windows.Forms.Label
Friend WithEvents txtWhatNew As System.Windows.Forms.TextBox
Friend WithEvents chk检查更新 As System.Windows.Forms.CheckBox
End Class
Form/frmUpdate.resx 0 → 100644
浏览文件 @ 746f0e39
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
\ No newline at end of file
Form/frmUpdate.vb 0 → 100644
浏览文件 @ 746f0e39
Imports System.Windows.Forms
Imports FSLib.App.SimpleUpdater
Imports System.IO
Public Class frmUpdate
Const InNewVison As String = "\\Likai-pc\发行版\2011\NewVersion.txt"
Const ChangeLog As String = "\\Likai-pc\发行版\2011\CHANGELOG"
Const GitWeb As String = "https://gitcode.net/leaky114/inventoraddin"
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Dim simupdate As String
Dim DisplayVersion As String
DisplayVersion = ThisApplication.SoftwareVersion.DisplayVersion
simupdate = My.Application.Info.DirectoryPath & "\simupdater.exe"
If IsFileExsts(simupdate) = True Then
Process.Start(simupdate, DisplayVersion)
Else
MsgBox("缺失升级程序 simupdater.exe，请到本软件仓库下载。", MsgBoxStyle.OkOnly, "检查更新")
Process.Start(GitWeb)
End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub frmUpdate_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Try
Select Case CheckUpdate
Case "-1"
chk检查更新.Checked = False
Case "1"
chk检查更新.Checked = True
End Select
Dim fileReader As System.IO.StreamReader
fileReader = My.Computer.FileSystem.OpenTextFileReader(InNewVison)
Dim NewVersion As String = Nothing
NewVersion = fileReader.ReadLine()
fileReader.Close()
'MsgBox(NewVersion)
Dim MyVersion As String = _
My.Application.Info.Version.Major & "." & _
My.Application.Info.Version.Minor & "." & _
Format(My.Application.Info.Version.Build, "00") & "." & _
Format(My.Application.Info.Version.Revision, "00")
'MsgBox(MyVersion)
If NewVersion Is Nothing Then
'MsgBox("未链接到服务器。", MsgBoxStyle.OkOnly, "检查更新")
Me.Close()
Else
Dim shortMyversion As Long
Dim shortNewVersion As Long
shortMyversion = ShortVersion(MyVersion)
shortNewVersion = ShortVersion(NewVersion)
If shortNewVersion > shortMyversion Then
'MsgBox("InventorAddIn插件" & vbCrLf & "当前版本：" & MyVersion & vbCrLf & "检查到 新版本：" & NewVersion, MsgBoxStyle.OkOnly, " 检查更新")
lblLocalVersion.Text = "当前版本：" & MyVersion
lblNewVersion.Text = "可更新版：" & NewVersion
'读取更新日志
Dim readText As String = File.ReadAllText(ChangeLog)
txtWhatNew.Text = readText
Me.ShowDialog()
Else
If IsShowUpdateMsg = True Then
MsgBox("当前为最新版。", MsgBoxStyle.OkOnly, "检查更新")
End If
Me.Close()
End If
End If
Catch ex As Exception
Me.Close()
'MsgBox(ex.Message)
'MsgBox("未链接到服务器。", MsgBoxStyle.OkOnly, "检查更新")
End Try
End Sub
Private Sub chk检查更新_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chk检查更新.CheckedChanged
'启动检查更新
Select Case chk检查更新.Checked
Case False
CheckUpdate = "-1"
Case True
CheckUpdate = "1"
End Select
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "CheckUpdate", CheckUpdate)
End Sub
End Class
Module/Inventorbasic.vb
浏览文件 @ 746f0e39
......@@ -66,6 +66,9 @@ Module InventorBasic
Public OPosition(9) As Point '点
Public TempPoint(9) As SketchPoint '临时绘制的点
Public IsShowUpdateMsg As Boolean '检查更新时是否显示是最新版本的msgbox
'-------------------------------------------------------------------------------
Public Sub SetStatusBarText(Optional ByVal StatusBarText As String = "就绪")
ThisApplication.StatusBarText = StatusBarText
......
Module/NewUpdater.vb
浏览文件 @ 746f0e39
......@@ -64,6 +64,8 @@ Module NewUpdater
simupdate = My.Application.Info.DirectoryPath & "\simupdater.exe"
If IsFileExsts(simupdate) = True Then
Process.Start(simupdate)
Else
MsgBox("缺失升级程序 simupdater.exe，请到本软件仓库下载。", MsgBoxStyle.OkOnly, "检查更新")
......@@ -77,7 +79,7 @@ Module NewUpdater
End If
Catch ex As Exception
'MsgBox(ex.Message)
MsgBox("未链接到服务器。", MsgBoxStyle.OkOnly, "检查更新")
'MsgBox("未链接到服务器。", MsgBoxStyle.OkOnly, "检查更新")
End Try
End Sub
......
My Project/Resources.Designer.vb
浏览文件 @ 746f0e39
......@@ -910,6 +910,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Friend ReadOnly Property 统计161624() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("统计161624", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Friend ReadOnly Property 统计323224() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("统计323224", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......
My Project/Resources.resx
浏览文件 @ 746f0e39
......@@ -117,7 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="inventor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\inventor.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
......@@ -235,7 +235,6 @@
<data name="帮助323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\帮助323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="微信" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\微信.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
......@@ -374,6 +373,13 @@
<data name="空白323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\空白323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="统计161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\统计161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="统计323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\统计323224.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="自定义日期161624" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\自定义日期161624.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
......
ReadMe.MD
浏览文件 @ 746f0e39
......@@ -34,4 +34,4 @@ Inventor 2015 以下版本，更高版本请自行编译。
微信搜索(!#^-4767-0633)
# 捐赠
![微信付款码](https://gitcode.net/leaky114/inventoraddin/-/raw/master/Resources/%E5%BE%AE%E4%BF%A1.bmp) ![支付宝付款码](https://gitcode.net/leaky114/inventoraddin/-/raw/master/Resources/%E6%94%AF%E4%BB%98%E5%AE%9D.bmp)
![]() ![]()
StandardAddInServer.vb
浏览文件 @ 746f0e39
B'设置为一个动作，可一次撤销
......
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或