Skip to content

I
inventoraddin

leaky114 / inventoraddin
上一次同步 8 个月

通知 6
Star 1
Fork 1
I
inventoraddin

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

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

21.12.3

上级 7560c3b4
展开全部 隐藏空白更改
内联 并排
Showing with 131 addition and 310 deletion
AssemblyInfo.vb
浏览文件 @ 4c602016
...@@ -2,7 +2,7 @@ Imports System ...@@ -2,7 +2,7 @@ Imports System
Imports System.Reflection Imports System.Reflection
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following ' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information ' set of attributes. Change these attribute values to modify the information
' associated with an assembly. ' associated with an assembly.
...@@ -21,11 +21,11 @@ Imports System.Runtime.InteropServices ...@@ -21,11 +21,11 @@ Imports System.Runtime.InteropServices
' Version information for an assembly consists of the following four values: ' Version information for an assembly consists of the following four values:
' '
' Major Version ' Major Version
' Minor Version ' Minor Version
' Build Number ' Build Number
' Revision ' Revision
' '
' You can specify all the values or you can default the Build and Revision Numbers ' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below: ' by using the '*' as shown below:
<Assembly: AssemblyVersion("1.21.11.28")> <Assembly: AssemblyVersion("1.21.11.28")>
......
Class/clsDrawSlot.vb
浏览文件 @ 4c602016
 Imports Inventor
Imports Inventor
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////// '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
'// Use: Implements a simple user interaction. User picks up an entity and its type will be displayed. '// Use: Implements a simple user interaction. User picks up an entity and its type will be displayed.
...@@ -13,7 +12,6 @@ Public Class clsDrawSlot ...@@ -13,7 +12,6 @@ Public Class clsDrawSlot
Private mMouseEvents As MouseEvents Private mMouseEvents As MouseEvents
Private mMousePosition As MouseEvents Private mMousePosition As MouseEvents
Public Sub New(ByVal oApplication As Inventor.Application) Public Sub New(ByVal oApplication As Inventor.Application)
mApplication = oApplication mApplication = oApplication
...@@ -39,7 +37,6 @@ Public Class clsDrawSlot ...@@ -39,7 +37,6 @@ Public Class clsDrawSlot
mMouseEvents.MouseMoveEnabled = True mMouseEvents.MouseMoveEnabled = True
mMouseEvents.PointInferenceEnabled = True mMouseEvents.PointInferenceEnabled = True
'Remember to Start/Stop the interaction event 'Remember to Start/Stop the interaction event
mInteractionEvents.Start() mInteractionEvents.Start()
...@@ -56,7 +53,6 @@ Public Class clsDrawSlot ...@@ -56,7 +53,6 @@ Public Class clsDrawSlot
End Sub End Sub
'OnMouseClick(Button As MouseButtonEnum, ShiftKeys As ShiftStateEnum, ModelPosition As Point, ViewPosition As Point2d, view As View) 'OnMouseClick(Button As MouseButtonEnum, ShiftKeys As ShiftStateEnum, ModelPosition As Point, ViewPosition As Point2d, view As View)
Public Sub mMousePostion_Click(ByVal Button As MouseButtonEnum, ByVal ShiftKeys As ShiftStateEnum, ByVal ModelPosition As Point, _ Public Sub mMousePostion_Click(ByVal Button As MouseButtonEnum, ByVal ShiftKeys As ShiftStateEnum, ByVal ModelPosition As Point, _
ByVal ViewPosition As Point2d, ByVal view As View) ByVal ViewPosition As Point2d, ByVal view As View)
...@@ -83,10 +79,8 @@ Public Class clsDrawSlot ...@@ -83,10 +79,8 @@ Public Class clsDrawSlot
createSlotTransaction.End() createSlotTransaction.End()
mInteractionEvents.Stop() mInteractionEvents.Stop()
End Sub End Sub
Private Sub mSelectEvents_OnSelect(ByVal JustSelectedEntities As Inventor.ObjectsEnumerator, ByVal SelectionDevice As Inventor.SelectionDeviceEnum, ByVal ModelPosition As Inventor.Point, ByVal ViewPosition As Inventor.Point2d, ByVal View As Inventor.View) Private Sub mSelectEvents_OnSelect(ByVal JustSelectedEntities As Inventor.ObjectsEnumerator, ByVal SelectionDevice As Inventor.SelectionDeviceEnum, ByVal ModelPosition As Inventor.Point, ByVal ViewPosition As Inventor.Point2d, ByVal View As Inventor.View)
......
Form/About.vb
浏览文件 @ 4c602016
 Imports FSLib.App.SimpleUpdater
Imports FSLib.App.SimpleUpdater
Public NotInheritable Class About Public NotInheritable Class About
Const GitWeb As String = "https://codechina.csdn.net/leaky114/inventoraddin" 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 Private Sub AboutBox1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' 设置此窗体的标题。 ' 设置此窗体的标题。
Dim ApplicationTitle As String Dim ApplicationTitle As String
...@@ -16,7 +14,7 @@ Public NotInheritable Class About ...@@ -16,7 +14,7 @@ Public NotInheritable Class About
End If End If
Me.Text = String.Format("关于 {0}", ApplicationTitle) Me.Text = String.Format("关于 {0}", ApplicationTitle)
' 初始化“关于”对话框显示的所有文字。 ' 初始化“关于”对话框显示的所有文字。
' TODO: 在项目的“应用程序”窗格中自定义此应用程序的程序集信息 ' TODO: 在项目的“应用程序”窗格中自定义此应用程序的程序集信息
' 属性对话框(在“项目”菜单下)。 ' 属性对话框(在“项目”菜单下)。
Me.LabelProductName.Text = String.Format("产品 {0}", My.Application.Info.ProductName) Me.LabelProductName.Text = String.Format("产品 {0}", My.Application.Info.ProductName)
Me.LabelVersion.Text = String.Format("版本 {0}", My.Application.Info.Version.ToString) Me.LabelVersion.Text = String.Format("版本 {0}", My.Application.Info.Version.ToString)
...@@ -41,10 +39,10 @@ Public NotInheritable Class About ...@@ -41,10 +39,10 @@ Public NotInheritable Class About
' MsgBox(ex.Message) ' MsgBox(ex.Message)
'End Try 'End Try
NewUpdater.UpDater2(True) NewUpdater.UpDater2(True)
End Sub End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start(GitWeb) Process.Start(GitWeb)
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/AllSaveAsDialog.vb
浏览文件 @ 4c602016
...@@ -41,7 +41,6 @@ Public Class AllSaveAsDialog ...@@ -41,7 +41,6 @@ Public Class AllSaveAsDialog
' GoTo 999 ' GoTo 999
'End If 'End If
If RadioButton1.Checked = True Then If RadioButton1.Checked = True Then
DwgFullFileName = Strings.Replace(IdwFullFileName, LCaseGetFileExtension(IdwFullFileName), ".dwg") DwgFullFileName = Strings.Replace(IdwFullFileName, LCaseGetFileExtension(IdwFullFileName), ".dwg")
PdfFullFileName = Strings.Replace(IdwFullFileName, LCaseGetFileExtension(IdwFullFileName), ".pdf") PdfFullFileName = Strings.Replace(IdwFullFileName, LCaseGetFileExtension(IdwFullFileName), ".pdf")
...@@ -122,7 +121,6 @@ Public Class AllSaveAsDialog ...@@ -122,7 +121,6 @@ Public Class AllSaveAsDialog
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Dim NeFolderBrowserDialog As New FolderBrowserDialog Dim NeFolderBrowserDialog As New FolderBrowserDialog
If RadioButton2.Checked = True Then If RadioButton2.Checked = True Then
RadioButton1.Checked = False RadioButton1.Checked = False
Button3.Enabled = True Button3.Enabled = True
...@@ -190,4 +188,4 @@ Public Class AllSaveAsDialog ...@@ -190,4 +188,4 @@ Public Class AllSaveAsDialog
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/AutoPartNumberDialog.vb
浏览文件 @ 4c602016
...@@ -55,7 +55,6 @@ Public Class AutoPartNumberDialog ...@@ -55,7 +55,6 @@ Public Class AutoPartNumberDialog
End If End If
Next Next
Dim OldIdwFullFileName As String Dim OldIdwFullFileName As String
OldIdwFullFileName = GetNewExtensionFileName(OldFullFileName, ".idw") '旧工程图 OldIdwFullFileName = GetNewExtensionFileName(OldFullFileName, ".idw") '旧工程图
If IsFileExsts(OldIdwFullFileName) = True Then If IsFileExsts(OldIdwFullFileName) = True Then
...@@ -93,7 +92,6 @@ Public Class AutoPartNumberDialog ...@@ -93,7 +92,6 @@ Public Class AutoPartNumberDialog
Me.Close() Me.Close()
End Sub End Sub
'上移 '上移
Private Sub ListViewUp(ByVal ListView As ListView) Private Sub ListViewUp(ByVal ListView As ListView)
Dim index As Integer Dim index As Integer
...@@ -195,7 +193,6 @@ Public Class AutoPartNumberDialog ...@@ -195,7 +193,6 @@ Public Class AutoPartNumberDialog
' ListView1.DoDragDrop(ListView1.SelectedItems, DragDropEffects.Move) ' ListView1.DoDragDrop(ListView1.SelectedItems, DragDropEffects.Move)
'End Sub 'End Sub
'键盘上下键移动 '键盘上下键移动
Private Sub ListView1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown Private Sub ListView1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListView1.KeyDown
Select Case e.KeyCode Select Case e.KeyCode
...@@ -226,7 +223,6 @@ Public Class AutoPartNumberDialog ...@@ -226,7 +223,6 @@ Public Class AutoPartNumberDialog
PartNum = 1 PartNum = 1
BasicStockNumn = TextBox1.Text BasicStockNumn = TextBox1.Text
For i = 0 To ListView1.Items.Count - 1 For i = 0 To ListView1.Items.Count - 1
LVI = ListView1.Items(i) LVI = ListView1.Items(i)
If LVI.SubItems(1).Text = ".ipt" Then If LVI.SubItems(1).Text = ".ipt" Then
...@@ -260,7 +256,6 @@ Public Class AutoPartNumberDialog ...@@ -260,7 +256,6 @@ Public Class AutoPartNumberDialog
Dim AssFullFileName As String Dim AssFullFileName As String
AssFullFileName = assdoc.FullFileName AssFullFileName = assdoc.FullFileName
Dim StockNumPartName As StockNumPartName Dim StockNumPartName As StockNumPartName
...@@ -327,7 +322,6 @@ Public Class AutoPartNumberDialog ...@@ -327,7 +322,6 @@ Public Class AutoPartNumberDialog
LoadAssBOM(AsmDoc, ListView1) LoadAssBOM(AsmDoc, ListView1)
End Sub End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If ListView1.SelectedIndices.Count > 0 Then If ListView1.SelectedIndices.Count > 0 Then
Dim index As Integer = ListView1.SelectedIndices(0) Dim index As Integer = ListView1.SelectedIndices(0)
...@@ -352,11 +346,11 @@ Public Class AutoPartNumberDialog ...@@ -352,11 +346,11 @@ Public Class AutoPartNumberDialog
AsmDoc = ThisApplication.ActiveDocument AsmDoc = ThisApplication.ActiveDocument
AssFullFileName = AsmDoc.FullFileName AssFullFileName = AsmDoc.FullFileName
' 获取装配定义 ' 获取装配定义
Dim oAsmDef As AssemblyComponentDefinition Dim oAsmDef As AssemblyComponentDefinition
oAsmDef = AsmDoc.ComponentDefinition oAsmDef = AsmDoc.ComponentDefinition
' 获取装配子集 ' 获取装配子集
Dim oOccs As ComponentOccurrences Dim oOccs As ComponentOccurrences
oOccs = oAsmDef.Occurrences oOccs = oAsmDef.Occurrences
...@@ -390,7 +384,7 @@ Public Class AutoPartNumberDialog ...@@ -390,7 +384,7 @@ Public Class AutoPartNumberDialog
Dim ptScreen As Drawing.Point = New Drawing.Point(e.X, e.Y) Dim ptScreen As Drawing.Point = New Drawing.Point(e.X, e.Y)
Dim pt As Drawing.Point = ListView1.PointToClient(ptScreen) Dim pt As Drawing.Point = ListView1.PointToClient(ptScreen)
Dim TargetItem As ListViewItem Dim TargetItem As ListViewItem
TargetItem = ListView1.GetItemAt(pt.X, pt.Y) '拖动的项将放置于该项之前 TargetItem = ListView1.GetItemAt(pt.X, pt.Y) '拖动的项将放置于该项之前
If (TargetItem Is Nothing) Then If (TargetItem Is Nothing) Then
Exit Sub Exit Sub
End If End If
...@@ -414,7 +408,6 @@ Public Class AutoPartNumberDialog ...@@ -414,7 +408,6 @@ Public Class AutoPartNumberDialog
ListView1.InsertionMark.Index = index ListView1.InsertionMark.Index = index
End Sub End Sub
Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag Private Sub ListView1_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles ListView1.ItemDrag
ListView1.InsertionMark.Color = System.Drawing.Color.ForestGreen ListView1.InsertionMark.Color = System.Drawing.Color.ForestGreen
ListView1.DoDragDrop(e.Item, DragDropEffects.Move) ListView1.DoDragDrop(e.Item, DragDropEffects.Move)
...@@ -424,4 +417,4 @@ Public Class AutoPartNumberDialog ...@@ -424,4 +417,4 @@ Public Class AutoPartNumberDialog
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/ChangeIpro.vb
浏览文件 @ 4c602016
...@@ -60,5 +60,4 @@ Public Class ChangeIproDialog ...@@ -60,5 +60,4 @@ Public Class ChangeIproDialog
TextBox3.Text = Str_TempText TextBox3.Text = Str_TempText
End Sub End Sub
End Class
End Class \ No newline at end of file
Form/GetPartDialog.vb
浏览文件 @ 4c602016
...@@ -4,7 +4,6 @@ Imports Inventor.SelectTypeEnum ...@@ -4,7 +4,6 @@ Imports Inventor.SelectTypeEnum
Imports Inventor.DocumentTypeEnum Imports Inventor.DocumentTypeEnum
Imports Inventor Imports Inventor
Public Class GetPartDialog Public Class GetPartDialog
'添加 '添加
...@@ -33,12 +32,11 @@ Public Class GetPartDialog ...@@ -33,12 +32,11 @@ Public Class GetPartDialog
End If End If
For Each oSelect As Object In InventorDoc.SelectSet For Each oSelect As Object In InventorDoc.SelectSet
'Dim 'Dim
'If (oSelect.GetType Is ) = True Then 'If (oSelect.GetType Is ) = True Then
'Dim FullFileName As String 'Dim FullFileName As String
'Dim FNI As FileNameInfo 'Dim FNI As FileNameInfo
'FullFileName = oSelect.name 'FullFileName = oSelect.name
'FNI = GetFileNameInfo(FullFileName) 'FNI = GetFileNameInfo(FullFileName)
...@@ -64,7 +62,6 @@ Public Class GetPartDialog ...@@ -64,7 +62,6 @@ Public Class GetPartDialog
Val_Mass_Accuracy = Val(Mass_Accuracy) Val_Mass_Accuracy = Val(Mass_Accuracy)
valMass = Math.Round(valMass, Val_Mass_Accuracy) valMass = Math.Round(valMass, Val_Mass_Accuracy)
Dim valArea As Double Dim valArea As Double
valArea = oSelect.MassProperties.area / 10000 valArea = oSelect.MassProperties.area / 10000
valArea = valArea + 0.00000001 valArea = valArea + 0.00000001
...@@ -143,4 +140,4 @@ Public Class GetPartDialog ...@@ -143,4 +140,4 @@ Public Class GetPartDialog
Private Sub GetPartDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub GetPartDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/HanFengJiSuan.vb
浏览文件 @ 4c602016
...@@ -36,4 +36,4 @@ Public Class HanFengJiSuan ...@@ -36,4 +36,4 @@ Public Class HanFengJiSuan
Me.Close() Me.Close()
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/InputBoxDialog.vb
浏览文件 @ 4c602016
...@@ -15,4 +15,4 @@ Public Class InputBoxDialog ...@@ -15,4 +15,4 @@ Public Class InputBoxDialog
Private Sub InputBoxDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub InputBoxDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Focus() TextBox1.Focus()
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/InventoryCoding.vb
浏览文件 @ 4c602016
...@@ -23,11 +23,11 @@ Public Class InventoryCoding ...@@ -23,11 +23,11 @@ Public Class InventoryCoding
Exit Sub Exit Sub
End If End If
' 获取所有引用文档 ' 获取所有引用文档
Dim oRefDocs As DocumentsEnumerator Dim oRefDocs As DocumentsEnumerator
oRefDocs = AsmDoc.AllReferencedDocuments oRefDocs = AsmDoc.AllReferencedDocuments
' 遍历这些文档 ' 遍历这些文档
Dim oRefDoc As Document Dim oRefDoc As Document
For Each oRefDoc In oRefDocs For Each oRefDoc In oRefDocs
Debug.Print(oRefDoc.DisplayName) Debug.Print(oRefDoc.DisplayName)
...@@ -61,7 +61,6 @@ Public Class InventoryCoding ...@@ -61,7 +61,6 @@ Public Class InventoryCoding
Private Sub 导入Excel文件ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 导入Excel文件ToolStripMenuItem.Click Private Sub 导入Excel文件ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 导入Excel文件ToolStripMenuItem.Click
Dim ExcelFullFileName As String = Nothing Dim ExcelFullFileName As String = Nothing
'打开文件 '打开文件
...@@ -121,7 +120,6 @@ Public Class InventoryCoding ...@@ -121,7 +120,6 @@ Public Class InventoryCoding
Dim i As Integer = 0 Dim i As Integer = 0
Dim j As Integer Dim j As Integer
LV.Items.Clear() LV.Items.Clear()
For Each exsheet In exbook.Sheets For Each exsheet In exbook.Sheets
...@@ -139,8 +137,6 @@ Public Class InventoryCoding ...@@ -139,8 +137,6 @@ Public Class InventoryCoding
oBOMRowData(k, j) = exrangevalue oBOMRowData(k, j) = exrangevalue
Next Next
i = i + 1 i = i + 1
k = k + 1 k = k + 1
Loop Loop
...@@ -157,8 +153,6 @@ Public Class InventoryCoding ...@@ -157,8 +153,6 @@ Public Class InventoryCoding
LVI.SubItems.Add(oBOMRowData(i, 2)) LVI.SubItems.Add(oBOMRowData(i, 2))
Next Next
'删除空项 '删除空项
'For Each LVI In LV.Items 'For Each LVI In LV.Items
' If LVI.Text = "" Then ' If LVI.Text = "" Then
......
Form/OptionDialog.Designer.vb
浏览文件 @ 4c602016
...@@ -22,59 +22,59 @@ Partial Class OptionDialog ...@@ -22,59 +22,59 @@ Partial Class OptionDialog
'不要使用代码编辑器修改它。 '不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button Me.Cancel_Button = New System.Windows.Forms.Button()
Me.cbo图号 = New System.Windows.Forms.ComboBox Me.cbo图号 = New System.Windows.Forms.ComboBox()
Me.cbo文件名 = New System.Windows.Forms.ComboBox Me.cbo文件名 = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cbo存货编码 = New System.Windows.Forms.ComboBox Me.cbo存货编码 = New System.Windows.Forms.ComboBox()
Me.Label12 = New System.Windows.Forms.Label Me.Label12 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.txt文件名映射 = New System.Windows.Forms.TextBox Me.txt文件名映射 = New System.Windows.Forms.TextBox()
Me.txt图号映射 = New System.Windows.Forms.TextBox Me.txt图号映射 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox4 = New System.Windows.Forms.GroupBox Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.chk签字 = New System.Windows.Forms.CheckBox Me.chk签字 = New System.Windows.Forms.CheckBox()
Me.txt工程师 = New System.Windows.Forms.TextBox Me.txt工程师 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label()
Me.chk签字后打印 = New System.Windows.Forms.CheckBox Me.chk签字后打印 = New System.Windows.Forms.CheckBox()
Me.txt打印日期 = New System.Windows.Forms.TextBox Me.txt打印日期 = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label()
Me.GroupBox5 = New System.Windows.Forms.GroupBox Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.btn清除 = New System.Windows.Forms.Button Me.btn清除 = New System.Windows.Forms.Button()
Me.btn还原 = New System.Windows.Forms.Button Me.btn还原 = New System.Windows.Forms.Button()
Me.btn添加 = New System.Windows.Forms.Button Me.btn添加 = New System.Windows.Forms.Button()
Me.cbo添加 = New System.Windows.Forms.ComboBox Me.cbo添加 = New System.Windows.Forms.ComboBox()
Me.txtBOM导出项 = New System.Windows.Forms.TextBox Me.txtBOM导出项 = New System.Windows.Forms.TextBox()
Me.Label8 = New System.Windows.Forms.Label Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label Me.Label9 = New System.Windows.Forms.Label()
Me.cbo质量精度 = New System.Windows.Forms.ComboBox Me.cbo质量精度 = New System.Windows.Forms.ComboBox()
Me.Label5 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label()
Me.txt比例 = New System.Windows.Forms.TextBox Me.txt比例 = New System.Windows.Forms.TextBox()
Me.GroupBox3 = New System.Windows.Forms.GroupBox Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.CheckBox3 = New System.Windows.Forms.CheckBox Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.GroupBox6 = New System.Windows.Forms.GroupBox Me.GroupBox6 = New System.Windows.Forms.GroupBox()
Me.cbo面积精度 = New System.Windows.Forms.ComboBox Me.cbo面积精度 = New System.Windows.Forms.ComboBox()
Me.Label10 = New System.Windows.Forms.Label Me.Label10 = New System.Windows.Forms.Label()
Me.GroupBox7 = New System.Windows.Forms.GroupBox Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.txt图号 = New System.Windows.Forms.TextBox Me.txt图号 = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label Me.Label11 = New System.Windows.Forms.Label()
Me.chk检查更新 = New System.Windows.Forms.CheckBox Me.chk检查更新 = New System.Windows.Forms.CheckBox()
Me.GroupBox8 = New System.Windows.Forms.GroupBox Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.txt查询列 = New System.Windows.Forms.TextBox Me.txt查询列 = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label Me.Label16 = New System.Windows.Forms.Label()
Me.txt查找范围 = New System.Windows.Forms.TextBox Me.txt查找范围 = New System.Windows.Forms.TextBox()
Me.Label15 = New System.Windows.Forms.Label Me.Label15 = New System.Windows.Forms.Label()
Me.txt数据表 = New System.Windows.Forms.TextBox Me.txt数据表 = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label Me.Label14 = New System.Windows.Forms.Label()
Me.btnexcel文件 = New System.Windows.Forms.Button Me.btnexcel文件 = New System.Windows.Forms.Button()
Me.txtexcel文件 = New System.Windows.Forms.TextBox Me.txtexcel文件 = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label Me.Label13 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout() Me.TableLayoutPanel1.SuspendLayout()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
...@@ -541,7 +541,7 @@ Partial Class OptionDialog ...@@ -541,7 +541,7 @@ Partial Class OptionDialog
Me.txt查询列.Name = "txt查询列" Me.txt查询列.Name = "txt查询列"
Me.txt查询列.Size = New System.Drawing.Size(89, 21) Me.txt查询列.Size = New System.Drawing.Size(89, 21)
Me.txt查询列.TabIndex = 15 Me.txt查询列.TabIndex = 15
Me.txt查询列.Text = "2,4" Me.txt查询列.Text = "2"
' '
'Label16 'Label16
' '
......
Form/OptionDialog.vb
浏览文件 @ 4c602016
...@@ -24,7 +24,6 @@ Public Class OptionDialog ...@@ -24,7 +24,6 @@ Public Class OptionDialog
Table_Array = txt查找范围.Text Table_Array = txt查找范围.Text
Col_Index_Num = txt查询列.Text Col_Index_Num = txt查询列.Text
'打印签字 '打印签字
Select Case chk签字后打印.Checked Select Case chk签字后打印.Checked
Case False Case False
...@@ -58,7 +57,6 @@ Public Class OptionDialog ...@@ -58,7 +57,6 @@ Public Class OptionDialog
IsSetMass = "1" IsSetMass = "1"
End Select End Select
'启动检查更新 '启动检查更新
Select Case chk检查更新.Checked Select Case chk检查更新.Checked
Case False Case False
...@@ -97,8 +95,6 @@ Public Class OptionDialog ...@@ -97,8 +95,6 @@ Public Class OptionDialog
Area_Accuracy = "6" Area_Accuracy = "6"
End Select End Select
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapStochNum", Map_StochNum) My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapStochNum", Map_StochNum)
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPartName", Map_PartName) My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPartName", Map_PartName)
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPartNum", Map_PartNum) My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "MapPartNum", Map_PartNum)
...@@ -129,7 +125,6 @@ Public Class OptionDialog ...@@ -129,7 +125,6 @@ Public Class OptionDialog
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Table_Array", Table_Array) My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Table_Array", Table_Array)
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Col_Index_Num", Col_Index_Num) My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\InventorTool", "Col_Index_Num", Col_Index_Num)
Me.DialogResult = System.Windows.Forms.DialogResult.OK Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close() Me.Close()
End Sub End Sub
...@@ -175,7 +170,6 @@ Public Class OptionDialog ...@@ -175,7 +170,6 @@ Public Class OptionDialog
cbo面积精度.Text = "0.000001" cbo面积精度.Text = "0.000001"
End Select End Select
txt图号映射.Text = Map_Mir_StochNum txt图号映射.Text = Map_Mir_StochNum
txt文件名映射.Text = Map_Mir_PartName txt文件名映射.Text = Map_Mir_PartName
txt比例.Text = Map_DrawingScale txt比例.Text = Map_DrawingScale
...@@ -261,4 +255,4 @@ Public Class OptionDialog ...@@ -261,4 +255,4 @@ Public Class OptionDialog
End If End If
End With End With
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/PrintIPWDialog.vb
浏览文件 @ 4c602016
...@@ -8,9 +8,6 @@ Imports System.Collections.ObjectModel ...@@ -8,9 +8,6 @@ Imports System.Collections.ObjectModel
Imports stdole Imports stdole
Imports System.Drawing Imports System.Drawing
Public Class PrintIPWDialog Public Class PrintIPWDialog
'批量打印开始 '批量打印开始
...@@ -65,7 +62,6 @@ Public Class PrintIPWDialog ...@@ -65,7 +62,6 @@ Public Class PrintIPWDialog
ListView1.Items.Clear() ListView1.Items.Clear()
SetStatusBarText("批量打印工程图完成") SetStatusBarText("批量打印工程图完成")
End Sub End Sub
'关闭 '关闭
...@@ -75,7 +71,6 @@ Public Class PrintIPWDialog ...@@ -75,7 +71,6 @@ Public Class PrintIPWDialog
Me.Close() Me.Close()
End Sub End Sub
'添加文件 '添加文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
...@@ -137,7 +132,6 @@ Public Class PrintIPWDialog ...@@ -137,7 +132,6 @@ Public Class PrintIPWDialog
End Sub End Sub
'打印文档，打印机名称 '打印文档，打印机名称
Private Sub PrintDrawing(ByVal IdwDoc As DrawingDocument, ByVal sPrinterName As String) Private Sub PrintDrawing(ByVal IdwDoc As DrawingDocument, ByVal sPrinterName As String)
...@@ -151,7 +145,7 @@ Public Class PrintIPWDialog ...@@ -151,7 +145,7 @@ Public Class PrintIPWDialog
' Get the name of the printer that will be used. ' Get the name of the printer that will be used.
.Printer = sPrinterName .Printer = sPrinterName
'所有颜色打印为黑色 '所有颜色打印为黑色
If CheckBox1.Checked = True Then If CheckBox1.Checked = True Then
.AllColorsAsBlack = True .AllColorsAsBlack = True
Else Else
...@@ -171,9 +165,8 @@ Public Class PrintIPWDialog ...@@ -171,9 +165,8 @@ Public Class PrintIPWDialog
'设置为默认纸张大小 '设置为默认纸张大小
' 如果是打印到打印机，修正为A3 ' 如果是打印到打印机，修正为A3
If CheckBox3.Checked = True Then If CheckBox3.Checked = True Then
Select Case IdwDoc.ActiveSheet.Size Select Case IdwDoc.ActiveSheet.Size
Case DrawingSheetSizeEnum.kA4DrawingSheetSize Case DrawingSheetSizeEnum.kA4DrawingSheetSize
.PaperSize = PaperSizeEnum.kPaperSizeA4 .PaperSize = PaperSizeEnum.kPaperSizeA4
...@@ -214,8 +207,6 @@ Public Class PrintIPWDialog ...@@ -214,8 +207,6 @@ Public Class PrintIPWDialog
.Orientation = PrintOrientationEnum.kPortraitOrientation .Orientation = PrintOrientationEnum.kPortraitOrientation
End Select End Select
' Set to print all sheets. ' Set to print all sheets.
.PrintRange = PrintRangeEnum.kPrintAllSheets .PrintRange = PrintRangeEnum.kPrintAllSheets
...@@ -258,24 +249,20 @@ Public Class PrintIPWDialog ...@@ -258,24 +249,20 @@ Public Class PrintIPWDialog
End If End If
End With End With
' 获取所有引用文档
' 获取所有引用文档
Dim oRefDocs As DocumentsEnumerator Dim oRefDocs As DocumentsEnumerator
oRefDocs = AssDoc.AllReferencedDocuments oRefDocs = AssDoc.AllReferencedDocuments
' 遍历这些文档 ' 遍历这些文档
Dim oRefDoc As Document Dim oRefDoc As Document
For Each oRefDoc In oRefDocs For Each oRefDoc In oRefDocs
Dim FullFileName As String Dim FullFileName As String
FullFileName = oRefDoc.FullDocumentName FullFileName = oRefDoc.FullDocumentName
Dim IdwFullFileName As String Dim IdwFullFileName As String
IdwFullFileName = GetNewExtensionFileName(FullFileName, ".idw") IdwFullFileName = GetNewExtensionFileName(FullFileName, ".idw")
If IsFileExsts(IdwFullFileName) = False Then '跳过不存在的文件 If IsFileExsts(IdwFullFileName) = False Then '跳过不存在的文件
GoTo 999 GoTo 999
End If End If
...@@ -289,8 +276,6 @@ Public Class PrintIPWDialog ...@@ -289,8 +276,6 @@ Public Class PrintIPWDialog
999: 999:
Next Next
End Sub End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
...@@ -328,5 +313,4 @@ Public Class PrintIPWDialog ...@@ -328,5 +313,4 @@ Public Class PrintIPWDialog
End Try End Try
End Sub End Sub
End Class
End Class \ No newline at end of file
Form/SaveAsDialog.vb
浏览文件 @ 4c602016
...@@ -77,12 +77,11 @@ Public Class SaveAsDialog ...@@ -77,12 +77,11 @@ Public Class SaveAsDialog
'关闭 '关闭
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
ListBox1.Items .Clear ListBox1.Items.Clear()
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close() Me.Close()
End Sub End Sub
'添加文件 '添加文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'打开文件 '打开文件
...@@ -139,5 +138,4 @@ Public Class SaveAsDialog ...@@ -139,5 +138,4 @@ Public Class SaveAsDialog
End Sub End Sub
End Class
End Class \ No newline at end of file
Form/SignDialog.vb
浏览文件 @ 4c602016
...@@ -65,4 +65,4 @@ Public Class SignDialog ...@@ -65,4 +65,4 @@ Public Class SignDialog
End Select End Select
End Sub End Sub
End Class End Class
\ No newline at end of file
Form/iPopertiesDialog.vb
浏览文件 @ 4c602016
...@@ -12,13 +12,11 @@ Public Class iPopertiesDialog ...@@ -12,13 +12,11 @@ Public Class iPopertiesDialog
Private oOption As enumPType = enumPType.eString Private oOption As enumPType = enumPType.eString
Private oUserPropertySet As Inventor.PropertySet Private oUserPropertySet As Inventor.PropertySet
Private PropID As Long = 0 Private PropID As Long = 0
Public Sub getUserPropertySet(ByVal oUSet As Inventor.PropertySet) Public Sub getUserPropertySet(ByVal oUSet As Inventor.PropertySet)
'获得缺省的自定义特性集 '获得缺省的自定义特性集
oUserPropertySet = oUSet oUserPropertySet = oUSet
...@@ -43,7 +41,7 @@ Public Class iPopertiesDialog ...@@ -43,7 +41,7 @@ Public Class iPopertiesDialog
Dim InventorDoc As Inventor.Document Dim InventorDoc As Inventor.Document
For Each InventorDoc In ThisApplication.Documents For Each InventorDoc In ThisApplication.Documents
Select InventorDoc.DocumentType Select Case InventorDoc.DocumentType
Case DocumentTypeEnum.kDrawingDocumentObject, DocumentTypeEnum.kAssemblyDocumentObject, DocumentTypeEnum.kPartDocumentObject Case DocumentTypeEnum.kDrawingDocumentObject, DocumentTypeEnum.kAssemblyDocumentObject, DocumentTypeEnum.kPartDocumentObject
ListBox1.Items.Add(InventorDoc.FullDocumentName) ListBox1.Items.Add(InventorDoc.FullDocumentName)
End Select End Select
...@@ -70,7 +68,6 @@ Public Class iPopertiesDialog ...@@ -70,7 +68,6 @@ Public Class iPopertiesDialog
'oDesignerProp = oDTProps.Item("Designer") 'oDesignerProp = oDTProps.Item("Designer")
'Debug.Print(oDesignerProp.DisplayName & " = " & oDesignerProp.Value) 'Debug.Print(oDesignerProp.DisplayName & " = " & oDesignerProp.Value)
'用显示名 displayname 的代码 '用显示名 displayname 的代码
'定义单个项目 '定义单个项目
Dim oDesignerProp As Inventor.Property Dim oDesignerProp As Inventor.Property
...@@ -107,17 +104,17 @@ Public Class iPopertiesDialog ...@@ -107,17 +104,17 @@ Public Class iPopertiesDialog
Dim pEachScale As Inventor.Property Dim pEachScale As Inventor.Property
'Try 'Try
' '若该iProperty已经存在，则直接修改其值 ' '若该iProperty已经存在，则直接修改其值
' pEachScale = IdwDoc.PropertySets.Item("User Defined Properties").Item(Map_PrintDay) ' pEachScale = IdwDoc.PropertySets.Item("User Defined Properties").Item(Map_PrintDay)
' pEachScale.Value = Print_Day ' pEachScale.Value = Print_Day
'Catch 'Catch
' ' 若该iProperty不存在，则添加一个 ' ' 若该iProperty不存在，则添加一个
' IdwDoc.PropertySets.Item("User Defined Properties").Add(Print_Day, Map_PrintDay) ' IdwDoc.PropertySets.Item("User Defined Properties").Add(Print_Day, Map_PrintDay)
'End Try 'End Try
'Try 'Try
'若该iProperty已经存在，则直接修改其值 '若该iProperty已经存在，则直接修改其值
pEachScale = InventorDoc.PropertySets.Item("User Defined Properties").Item(PropertyName.Text) pEachScale = InventorDoc.PropertySets.Item("User Defined Properties").Item(PropertyName.Text)
Select Case oOption Select Case oOption
Case enumPType.eString Case enumPType.eString
...@@ -131,7 +128,7 @@ Public Class iPopertiesDialog ...@@ -131,7 +128,7 @@ Public Class iPopertiesDialog
End Select End Select
'Catch 'Catch
' 若该iProperty不存在，则添加一个 ' 若该iProperty不存在，则添加一个
Select Case oOption Select Case oOption
Case enumPType.eString Case enumPType.eString
InventorDoc.PropertySets.Item("User Defined Properties").Add(StringP.Text, PropertyName.Text, PropID) InventorDoc.PropertySets.Item("User Defined Properties").Add(StringP.Text, PropertyName.Text, PropID)
...@@ -203,4 +200,4 @@ Public Class iPopertiesDialog ...@@ -203,4 +200,4 @@ Public Class iPopertiesDialog
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear() ListBox1.Items.Clear()
End Sub End Sub
End Class End Class
\ No newline at end of file
InventorAddIn.vbproj.user 已删除 100644 → 0
浏览文件 @ 7560c3b4
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory>
</PublishUrlHistory>
<InstallUrlHistory>
</InstallUrlHistory>
<SupportUrlHistory>
</SupportUrlHistory>
<UpdateUrlHistory>
</UpdateUrlHistory>
<BootstrapperUrlHistory>
</BootstrapperUrlHistory>
<FallbackCulture>zh-CN</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
<ProjectView>ShowAllFiles</ProjectView>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<StartAction>Program</StartAction>
<StartProgram>C:\Program Files\Autodesk\Inventor 2015\Bin\Inventor.exe</StartProgram>
<RemoteDebugEnabled>false</RemoteDebugEnabled>
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
<StartWorkingDirectory>
</StartWorkingDirectory>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<StartAction>Program</StartAction>
<StartProgram>C:\Program Files\Autodesk\Inventor 2015\Bin\Inventor.exe</StartProgram>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
<StartAction>Program</StartAction>
<StartProgram>C:\Program Files\Autodesk\Inventor 2015\Bin\Inventor.exe</StartProgram>
</PropertyGroup>
</Project>
\ No newline at end of file
Module/BasicFileSystem.vb
浏览文件 @ 4c602016
...@@ -191,7 +191,6 @@ Module BasicFileSystem ...@@ -191,7 +191,6 @@ Module BasicFileSystem
End If End If
End Function End Function
'删除一个文件(文件名,是否删除到回收站选项) '删除一个文件(文件名,是否删除到回收站选项)
Public Function DelFile(ByVal FullFileName As String, ByVal RecycleOption As FileIO.RecycleOption) As Boolean Public Function DelFile(ByVal FullFileName As String, ByVal RecycleOption As FileIO.RecycleOption) As Boolean
If IsFileExsts(FullFileName) Then If IsFileExsts(FullFileName) Then
...@@ -290,7 +289,6 @@ Module BasicFileSystem ...@@ -290,7 +289,6 @@ Module BasicFileSystem
'按文件删除，速度太慢，改为直接删除文件夹 '按文件删除，速度太慢，改为直接删除文件夹
'Dim strFile As String() = System.IO.Directory.GetFiles(strDir(i)) 'Dim strFile As String() = System.IO.Directory.GetFiles(strDir(i))
'For Each f As String In strFile 'For Each f As String In strFile
' SetStatusBarText(f) ' SetStatusBarText(f)
' Select Case DeletePermanently ' Select Case DeletePermanently
...@@ -307,7 +305,6 @@ Module BasicFileSystem ...@@ -307,7 +305,6 @@ Module BasicFileSystem
directoryname = inf.FullName directoryname = inf.FullName
SetStatusBarText(directoryname) SetStatusBarText(directoryname)
Select Case DeletePermanently Select Case DeletePermanently
Case True '永久删除 Case True '永久删除
DelFolder(directoryname, FileIO.RecycleOption.DeletePermanently) DelFolder(directoryname, FileIO.RecycleOption.DeletePermanently)
...@@ -316,8 +313,6 @@ Module BasicFileSystem ...@@ -316,8 +313,6 @@ Module BasicFileSystem
DelFolder(directoryname, FileIO.RecycleOption.SendToRecycleBin) DelFolder(directoryname, FileIO.RecycleOption.SendToRecycleBin)
End Select End Select
End If End If
DelOldFile(strDir(i), DeletePermanently) DelOldFile(strDir(i), DeletePermanently)
Next Next
...@@ -357,4 +352,4 @@ Module BasicFileSystem ...@@ -357,4 +352,4 @@ Module BasicFileSystem
End If End If
End Sub End Sub
End Module End Module
\ No newline at end of file
Module/BiaoQingBao.vb
浏览文件 @ 4c602016
Module BiaoQingBao Module BiaoQingBao
Private biaoqingbao As String() = {"", "(´⊙ω⊙`)！", "ʕ⊙ᴥ⊙ʔ", "╰(◕﹏◕)つ", "ʕ ͡°̲ (oo) ͡°̲ ʔ", "୧༼◔益◔╭∩╮༽", "╭∩╮໒(✪ਊ✪)७╭∩╮", "︻╦̵̵͇̿̿̿̿══╤─", _ Private biaoqingbao As String() = {"", "(´⊙ω⊙`)！", "ʕ⊙ᴥ⊙ʔ", "╰(◕﹏◕)つ", "ʕ ͡°̲ (oo) ͡°̲ ʔ", "୧༼◔益◔╭∩╮༽", "╭∩╮໒(✪ਊ✪)७╭∩╮", "︻╦̵̵͇̿̿̿̿══╤─", _
"(▀̿ ̿ -▀̿ ̿ )つ├┬┴┬┴", "ε=(･д･｀*)ﾊｧ…", "(:ㄏ■ Д ■ :)ㄏ", "(>﹏<。)～呜呜呜……", "w(@。@;)w", "óÔÔò ʕ·͡ᴥ·ʔ óÔÔò", _ "(▀̿ ̿ -▀̿ ̿ )つ├┬┴┬┴", "ε=(･д･｀*)ﾊｧ…", "(:ㄏ■ Д ■ :)ㄏ", "(>﹏<。)～呜呜呜……", "w(@。@;)w", "óÔÔò ʕ·͡ᴥ·ʔ óÔÔò", _
"ˋのˊ I LǒvのYoひ" & vbCrLf & " ˊˋ ㄖ你爱我 =__我爱你〆 " & vbCrLf & "╭~~~╮ ╭ ﹌╮" & vbCrLf & "(=^.^=) (o.o)" & vbCrLf & "(~)ǒ(~) (~)ǒ(~) 石头--剪子--布~你输了~罚你爱我一辈子!~~~ ", _ "ˋのˊ I LǒvのYoひ" & vbCrLf & " ˊˋ ㄖ你爱我 =__我爱你〆 " & vbCrLf & "╭~~~╮ ╭ ﹌╮" & vbCrLf & "(=^.^=) (o.o)" & vbCrLf & "(~)ǒ(~) (~)ǒ(~) 石头--剪子--布~你输了~罚你爱我一辈子!~~~ ", _
" |||||||||||||" & vbCrLf & "╭| ━ ━ |╮" & vbCrLf & "╰| • • |╯找女朋友中……………………" & vbCrLf & " ╰╭╮-╭╮╯"} " |||||||||||||" & vbCrLf & "╭| ━ ━ |╮" & vbCrLf & "╰| • • |╯找女朋友中……………………" & vbCrLf & " ╰╭╮-╭╮╯"}
Public Function GetBiaoQing() As String Public Function GetBiaoQing() As String
Dim strlength As Integer Dim strlength As Integer
Dim i As Integer Dim i As Integer
...@@ -17,6 +15,4 @@ ...@@ -17,6 +15,4 @@
End Function End Function
End Module
\ No newline at end of file
End Module
Module/Inventorbasic.vb
浏览文件 @ 4c602016
此差异已折叠。
Module/NewUpdater.vb
浏览文件 @ 4c602016
...@@ -4,7 +4,6 @@ Module NewUpdater ...@@ -4,7 +4,6 @@ Module NewUpdater
Const InNewVisonTXT As String = "\\Likai-pc\发行版\2011\NewVersion.txt" Const InNewVisonTXT As String = "\\Likai-pc\发行版\2011\NewVersion.txt"
Const GitWeb As String = "https://codechina.csdn.net/leaky114/inventoraddin" Const GitWeb As String = "https://codechina.csdn.net/leaky114/inventoraddin"
Public Sub UpDater1() Public Sub UpDater1()
Try Try
...@@ -28,7 +27,6 @@ Module NewUpdater ...@@ -28,7 +27,6 @@ Module NewUpdater
Catch ex As Exception Catch ex As Exception
'MsgBox(ex.Message) 'MsgBox(ex.Message)
End Try End Try
...@@ -52,7 +50,6 @@ Module NewUpdater ...@@ -52,7 +50,6 @@ Module NewUpdater
'MsgBox(MyVersion) 'MsgBox(MyVersion)
If NewVersion <> "" Then If NewVersion <> "" Then
Dim shortMyversion As Long Dim shortMyversion As Long
Dim shortNewVersion As Long Dim shortNewVersion As Long
...@@ -91,4 +88,4 @@ Module NewUpdater ...@@ -91,4 +88,4 @@ Module NewUpdater
Return ShortVersion Return ShortVersion
End Function End Function
End Module End Module
\ No newline at end of file
Module/Strings.vb
浏览文件 @ 4c602016
...@@ -53,7 +53,7 @@ Module StringsModel ...@@ -53,7 +53,7 @@ Module StringsModel
GetStockNumPartName.IsGet = False GetStockNumPartName.IsGet = False
GetStockNumPartName.StockNum = "" GetStockNumPartName.StockNum = ""
GetStockNumPartName.PartName = FileName GetStockNumPartName.PartName = FileName
GetStockNumPartName.partNum = "" GetStockNumPartName.PartNum = ""
'MsgBox(FullFileName & " 无图号！", MsgBoxStyle.Information) 'MsgBox(FullFileName & " 无图号！", MsgBoxStyle.Information)
Case s = "" '无汉字 Case s = "" '无汉字
GetStockNumPartName.IsGet = False GetStockNumPartName.IsGet = False
...@@ -87,4 +87,4 @@ Module StringsModel ...@@ -87,4 +87,4 @@ Module StringsModel
Return strReturn Return strReturn
End Function End Function
End Module End Module
\ No newline at end of file
Module/excelcode.vb
浏览文件 @ 4c602016
...@@ -9,12 +9,13 @@ Module excelcode ...@@ -9,12 +9,13 @@ Module excelcode
'VLOOKUP (lookup_value, table_array, col_index_num, [range_lookup]) 'VLOOKUP (lookup_value, table_array, col_index_num, [range_lookup])
Public Function VLookUpValue(ByVal oExcel_File_Name As String, ByVal oStochNum As String, ByVal oSheet_Name As String, _ Public Function VLookUpValue(ByVal oExcel_File_Name As String, ByVal oStochNum As String, ByVal oSheet_Name As String, _
ByVal oTable_Array As String, ByVal oCol_Index_Nums As String, ByVal oRange_LookUp As Integer) As String ByVal oTable_Array As String, ByVal oCol_Index_Num As String, ByVal oRange_LookUp As Integer) As String
VLookUpValue = Nothing VLookUpValue = Nothing
Dim excelApp As Excel.Application Dim excelApp As Excel.Application
excelApp = New Excel.Application excelApp = New Excel.Application
excelApp.Visible = True
Dim wb As Excel.Workbook = excelApp.Workbooks.Open(oExcel_File_Name) Dim wb As Excel.Workbook = excelApp.Workbooks.Open(oExcel_File_Name)
Dim sht As Excel.Worksheet Dim sht As Excel.Worksheet
sht = wb.Sheets(Sheet_Name) sht = wb.Sheets(Sheet_Name)
...@@ -22,27 +23,24 @@ Module excelcode ...@@ -22,27 +23,24 @@ Module excelcode
Dim userange As Excel.Range Dim userange As Excel.Range
userange = sht.Range(oTable_Array) userange = sht.Range(oTable_Array)
Dim oCol_Index_Num(9) As String 'Dim oCol_Index_Num(10) As String
ReDim oCol_Index_Num(4) 'oCol_Index_Num = Split(oCol_Index_Nums, ",")
oCol_Index_Num = Split(oCol_Index_Nums, ",") 'For Each a In oCol_Index_Num
VLookUpValue = excelApp.WorksheetFunction.VLookup(oStochNum, userange, oCol_Index_Num, oRange_LookUp)
For Each a In oCol_Index_Num If VLookUpValue <> Nothing Then
VLookUpValue = excelApp.WorksheetFunction.VLookup(oStochNum, userange, oCol_Index_Num, oRange_LookUp) wb.Close()
If VLookUpValue <> Nothing Then excelApp.Quit()
wb.Close() Return VLookUpValue
excelApp.Quit() End If
Return VLookUpValue 'Next
End If
Next
'关闭文件 '关闭文件
wb.Close() wb.Close()
' 8.退出Excel程序 ' 8.退出Excel程序
excelApp.Quit() excelApp.Quit()
'9.释放资源 '9.释放资源
System.Runtime.InteropServices.Marshal.ReleaseComObject(userange) System.Runtime.InteropServices.Marshal.ReleaseComObject(userange)
System.Runtime.InteropServices.Marshal.ReleaseComObject(sht) System.Runtime.InteropServices.Marshal.ReleaseComObject(sht)
...@@ -50,11 +48,9 @@ Module excelcode ...@@ -50,11 +48,9 @@ Module excelcode
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp) System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
'方法来源 https://blog.csdn.net/hsyj_0001/article/details/7686364 '方法来源 https://blog.csdn.net/hsyj_0001/article/details/7686364
Return VLookUpValue Return VLookUpValue
End Function End Function
End Module
\ No newline at end of file
End Module
StandardAddInServer.vb
浏览文件 @ 4c602016
B'设置为一个动作，可一次撤销 B'设置为一个动作，可一次撤销
......
cls/PictureConverter.vb
浏览文件 @ 4c602016
 Friend Class PictureConverter
Friend Class PictureConverter
Inherits System.Windows.Forms.AxHost Inherits System.Windows.Forms.AxHost
Private Sub New() Private Sub New()
...@@ -10,4 +9,4 @@ Friend Class PictureConverter ...@@ -10,4 +9,4 @@ Friend Class PictureConverter
ByVal image As System.Drawing.Image) As stdole.IPictureDisp ByVal image As System.Drawing.Image) As stdole.IPictureDisp
Return CType(GetIPictureDispFromPicture(image), stdole.IPictureDisp) Return CType(GetIPictureDispFromPicture(image), stdole.IPictureDisp)
End Function End Function
End Class End Class
\ No newline at end of file
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或