Skip to content

I
inventoraddin

leaky114 / inventoraddin
上一次同步 7 个月

通知 3
Star 0
Fork 0
I
inventoraddin

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

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

20231027更新

上级 d9dd2692
展开全部 隐藏空白更改
内联 并排
Showing with 1983 addition and 500 deletion
AssemblyInfo.vb
浏览文件 @ 50979850
......@@ -9,10 +9,10 @@ Imports System.Runtime.InteropServices
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("InAI")>
<Assembly: AssemblyDescription("InventorAddIn For Inventor 2016")>
<Assembly: AssemblyDescription("InventorAddIn For Inventor 2016-2024")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("InAI For 2016-2024")>
<Assembly: AssemblyCopyright("")>
<Assembly: AssemblyProduct("InAI For Inventor")>
<Assembly: AssemblyCopyright("leaky114@Bilibili")>
<Assembly: AssemblyTrademark("")>
'The following GUID is for the ID of the typelib if this project is exposed to COM
......@@ -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.23.7.7")>
<Assembly: AssemblyFileVersionAttribute("1.23.7.7")>
\ No newline at end of file
<Assembly: AssemblyVersion("1.23.10.27")>
<Assembly: AssemblyFileVersionAttribute("1.23.10.27")>
\ No newline at end of file
Class/PictureConverter.vb 0 → 100644
浏览文件 @ 50979850
Friend Class PictureConverter
Inherits System.Windows.Forms.AxHost
Private Sub New()
MyBase.New(String.Empty)
End Sub
Public Shared Function ImageToPictureDisp( _
ByVal image As System.Drawing.Image) As stdole.IPictureDisp
Return CType(GetIPictureDispFromPicture(image), stdole.IPictureDisp)
End Function
End Class
\ No newline at end of file
Class/clsMiniToolbar.vb 0 → 100644
浏览文件 @ 50979850
Imports Inventor
Imports System.Runtime.InteropServices
Public Class clsMiniToolbar
Dim invApp As Inventor.Application
Dim started As Boolean
Private WithEvents m_miniToolbar As MiniToolbar
Private WithEvents m_button1 As MiniToolbarButton
Private WithEvents m_button2 As MiniToolbarButton
Private WithEvents m_button3 As MiniToolbarTextEditor
Private WithEvents m_combo As MiniToolbarSlider
Private WithEvents m_dropDown As MiniToolbarDropdown
Public Sub New()
Try
invApp = Marshal.GetActiveObject("Inventor.Application")
Catch ex As Exception
MsgBox("Need to have a session of Inventor running")
Return
End Try
If invApp.Documents.Count > 0 Then
createMiniToolbar()
Else
MsgBox("Need to have a document open")
End If
End Sub
Public Sub createMiniToolbar()
m_miniToolbar = invApp.CommandManager.CreateMiniToolbar()
Dim controls As MiniToolbarControls
controls = m_miniToolbar.Controls
m_button1 = controls.AddButton("InName选择", "选择", "选择一个尺寸")
m_button2 = controls.AddButton("InName还原", "还原", "还原尺寸")
m_button3 = controls.AddButton("InName还原", "还原", "还原尺寸")
m_button2.AutoHide = True
m_miniToolbar.Controls.AddSeparator()
'm_button3 = controls.AddButton("MyButton3", "Button 3", "This is button 3")
'controls.AddNewLine()
'm_combo = controls.AddComboBox("MyCombo", True, True, 35)
'm_combo.AddItem("Item 1", "Item number 1", , True)
'm_combo.AddItem("Item 2", "Item number 2", , False)
'm_combo.AddItem("Item 3", "Item number 3", , False)
'm_combo.AddItem("Item 4", "Item number 4", , True)
'controls.AddLabel("MyLabel", "Some stuff:", "Stuff")
'm_dropDown = controls.AddDropdown("MyDropdown", True, True, True)
'm_dropDown.AddItem("Thing 1", "Thing 1 tooltip", , , , )
'm_dropDown.AddItem("Thing 2", "Thing 2 tooltip")
'm_dropDown.AddItem("Thing 3", "Thing 3 tooltip", , , , )
m_miniToolbar.Visible = True
End Sub
Private Sub m_button1_OnClick1() Handles m_button1.OnClick
MsgBox("Clicked ""Button 1""")
End Sub
Private Sub m_button2_OnClick1() Handles m_button2.OnClick
MsgBox("Clicked ""Button 2""")
End Sub
Private Sub m_miniToolbar_OnApply() Handles m_miniToolbar.OnApply
MsgBox("Clicked ""Apply""")
End Sub
Private Sub m_miniToolbar_OnCancel() Handles m_miniToolbar.OnCancel
MsgBox("Clicked ""Cancel""")
m_miniToolbar = Nothing
m_button1 = Nothing
m_button2 = Nothing
m_button3 = Nothing
m_combo = Nothing
End Sub
Private Sub m_miniToolbar_OnOK() Handles m_miniToolbar.OnOK
MsgBox("Clicked ""Ok""")
m_miniToolbar = Nothing
m_button1 = Nothing
m_button2 = Nothing
m_button3 = Nothing
m_combo = Nothing
End Sub
End Class
Form/frmAutoPartNumber.Designer.vb
浏览文件 @ 50979850
......@@ -101,8 +101,8 @@ Partial Class frmAutoPartNumber
'
Me.lvw文件列表.AllowDrop = True
Me.lvw文件列表.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lvw文件列表.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ch原文件名, Me.ch类型, Me.ch新文件名, Me.ch文件夹})
Me.lvw文件列表.FullRowSelect = True
Me.lvw文件列表.Location = New System.Drawing.Point(13, 12)
......@@ -236,12 +236,11 @@ Partial Class frmAutoPartNumber
Me.btn确定新文件名.Name = "btn确定新文件名"
Me.btn确定新文件名.Size = New System.Drawing.Size(25, 25)
Me.btn确定新文件名.TabIndex = 34
Me.btn确定新文件名.Text = "√"
Me.btn确定新文件名.UseVisualStyleBackColor = True
'
'frmAutoPartNumber
'
Me.AcceptButton = Me.btn开始
Me.AcceptButton = Me.btn确定新文件名
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btn关闭
......
Form/frmAutoPartNumber.vb
浏览文件 @ 50979850
......@@ -18,7 +18,12 @@ Public Class frmAutoPartNumber
Try
btn开始.Enabled = False
'ThisApplication.Cursor = Cursors.WaitCursor
Me.TopMost = False
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
For i = 0 To lvw文件列表.Items.Count - 1
oListViewItem = lvw文件列表.Items(i)
......@@ -81,13 +86,15 @@ Public Class frmAutoPartNumber
999:
Next
Me.TopMost = False
Me.TopMost = True
SetStatusBarText("自动命名图号完成！")
MsgBox("自动命名图号完成", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "自动命名图号")
btn开始.Enabled = True
'ThisApplication.Cursor = Cursors.Default
oInteraction.Stop()
Catch ex As Exception
Me.TopMost = True
btn开始.Enabled = True
MsgBox(ex.Message)
End Try
......@@ -238,7 +245,10 @@ Public Class frmAutoPartNumber
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
oInventorAssemblyDocument = ThisApplication.ActiveDocument
LoadAssBOM(oInventorAssemblyDocument, lvw文件列表)
btn确定新文件名.Image = My.Resources.确定161632.ToBitmap
End Sub
'载入数据函数
......@@ -318,9 +328,11 @@ Public Class frmAutoPartNumber
'重载数据
Private Sub btn重载_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn重载.Click
Dim oAssemblyDocument As AssemblyDocument
oAssemblyDocument = ThisApplication.ActiveDocument
LoadAssBOM(oAssemblyDocument, lvw文件列表)
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
oInventorAssemblyDocument = ThisApplication.ActiveDocument
LoadAssBOM(oInventorAssemblyDocument, lvw文件列表)
End Sub
Private Sub btn确定新文件名_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn确定新文件名.Click
......@@ -420,10 +432,10 @@ Public Class frmAutoPartNumber
End If
End Sub
Private Sub txt新文件名_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt新文件名.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
btn确定新文件名.PerformClick()
End If
End Sub
'Private Sub txt新文件名_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt新文件名.KeyPress
' If Asc(e.KeyChar) = Keys.Enter Then
' btn确定新文件名.PerformClick()
' End If
'End Sub
End Class
\ No newline at end of file
Form/frmChangeIpro.vb
浏览文件 @ 50979850
......@@ -66,14 +66,14 @@ Public Class frmChangeIpro
Next
If oInventorDocument.DocumentType = Inventor.DocumentTypeEnum.kPartDocumentObject Then
Dim oPartDocument As Inventor.PartDocument = oInventorDocument
Dim oInventorPartDocument As Inventor.PartDocument = oInventorDocument
cmb材料.Items.Clear()
For Each oMaterial In oPartDocument.Materials
For Each oMaterial In oInventorPartDocument.Materials
cmb材料.Items.Add(oMaterial.Name)
Next
cmb材料.DropDownStyle = ComboBoxStyle.DropDownList
cmb材料.Text = oPartDocument.ComponentDefinition.Material.Name.ToString
cmb材料.Text = oInventorPartDocument.ComponentDefinition.Material.Name.ToString
Else
cmb材料.Enabled = False
End If
......@@ -103,11 +103,10 @@ Public Class frmChangeIpro
btn查询.Enabled = False
'Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
'oInteraction.Start()
'oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
'System.Threading.Thread.Sleep(5000)
'oInteraction.Stop()
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
Dim oInventorDocument As Inventor.Document '当前文件
oInventorDocument = ThisApplication.ActiveEditDocument
......@@ -156,6 +155,7 @@ Public Class frmChangeIpro
'oInteraction.Stop()
btn查询.Enabled = True
oInteraction.Stop()
End Sub
......
Form/frmERPCodeSearch.Designer.vb
浏览文件 @ 50979850
......@@ -105,6 +105,7 @@ Partial Class frmERPCodeSearch
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "ERP编码反查"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
......
Form/frmERPCodeSearch.vb
浏览文件 @ 50979850
......@@ -32,6 +32,7 @@ Public Class frmERPCodeSearch
arraystrinfo = ERPCodeSearch(BasicExcelFullFileName, strERPCode, TableArrays, ColIndexNum, 0)
If arraystrinfo(0) Is Nothing Then
txt返回值.Text = "未查询到ERP编码。"
Me.Height = 280
......
Form/frmEditDimension.Designer.vb 0 → 100644
浏览文件 @ 50979850
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmEditDimension
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.TrackBar参数一 = New System.Windows.Forms.TrackBar()
Me.txt参数一 = New System.Windows.Forms.TextBox()
Me.btn选择一 = New System.Windows.Forms.Button()
Me.btn还原 = New System.Windows.Forms.Button()
Me.btn确定 = New System.Windows.Forms.Button()
CType(Me.TrackBar参数一, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TrackBar参数一
'
Me.TrackBar参数一.AutoSize = False
Me.TrackBar参数一.LargeChange = 1
Me.TrackBar参数一.Location = New System.Drawing.Point(12, 52)
Me.TrackBar参数一.Maximum = 50
Me.TrackBar参数一.Minimum = -50
Me.TrackBar参数一.Name = "TrackBar参数一"
Me.TrackBar参数一.Size = New System.Drawing.Size(256, 20)
Me.TrackBar参数一.TabIndex = 13
Me.TrackBar参数一.TickStyle = System.Windows.Forms.TickStyle.None
'
'txt参数一
'
Me.txt参数一.Location = New System.Drawing.Point(66, 18)
Me.txt参数一.Name = "txt参数一"
Me.txt参数一.Size = New System.Drawing.Size(93, 21)
Me.txt参数一.TabIndex = 12
'
'btn选择一
'
Me.btn选择一.Location = New System.Drawing.Point(12, 14)
Me.btn选择一.Name = "btn选择一"
Me.btn选择一.Size = New System.Drawing.Size(36, 32)
Me.btn选择一.TabIndex = 11
Me.btn选择一.UseVisualStyleBackColor = True
'
'btn还原
'
Me.btn还原.Location = New System.Drawing.Point(178, 14)
Me.btn还原.Name = "btn还原"
Me.btn还原.Size = New System.Drawing.Size(36, 32)
Me.btn还原.TabIndex = 14
Me.btn还原.UseVisualStyleBackColor = True
'
'btn确定
'
Me.btn确定.Location = New System.Drawing.Point(226, 14)
Me.btn确定.Name = "btn确定"
Me.btn确定.Size = New System.Drawing.Size(36, 32)
Me.btn确定.TabIndex = 15
Me.btn确定.UseVisualStyleBackColor = True
'
'frmEditDimension
'
Me.AcceptButton = Me.btn确定
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(274, 83)
Me.Controls.Add(Me.btn确定)
Me.Controls.Add(Me.btn还原)
Me.Controls.Add(Me.TrackBar参数一)
Me.Controls.Add(Me.txt参数一)
Me.Controls.Add(Me.btn选择一)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmEditDimension"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "编辑尺寸"
Me.TopMost = True
CType(Me.TrackBar参数一, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TrackBar参数一 As System.Windows.Forms.TrackBar
Friend WithEvents txt参数一 As System.Windows.Forms.TextBox
Friend WithEvents btn选择一 As System.Windows.Forms.Button
Friend WithEvents btn还原 As System.Windows.Forms.Button
Friend WithEvents btn确定 As System.Windows.Forms.Button
End Class
Form/frmEditDimension.resx 0 → 100644
浏览文件 @ 50979850
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
\ No newline at end of file
Form/frmEditDimension.vb 0 → 100644
浏览文件 @ 50979850
Imports System.Windows.Forms
Imports Inventor
Imports System.Drawing
Public Class frmEditDimension
Private strDimensionConstraintFileName As String
Private strDimensionConstraintName As String
Private strDimensionConstraintValue As String
Private oDimensionConstraint As DimensionConstraint
Private Sub txt参数一_KeyDown1(sender As Object, e As KeyEventArgs) Handles txt参数一.KeyDown
If e.KeyCode = Keys.Enter Then
Dim oInventorPartDocument As Inventor.PartDocument
oInventorPartDocument = ThisApplication.ActiveEditDocument
oDimensionConstraint.Parameter.Expression = txt参数一.Text
Select Case oDimensionConstraint.Parameter.Units
Case "mm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 10 - 50
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 10 + 50
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 10
Case "cm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value - 5
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value + 5
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value
Case "deg"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 180 / Math.PI - 45
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 180 / Math.PI + 45
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 180 / Math.PI
End Select
oInventorPartDocument.Update()
ThisApplication.ActiveView.Update()
End If
End Sub
Private Sub btn选择一_Click_1(sender As Object, e As EventArgs) Handles btn选择一.Click
Dim oInventorPartDocument As Inventor.PartDocument
oInventorPartDocument = ThisApplication.ActiveEditDocument
oDimensionConstraint = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kSketchDimConstraintFilter, "选择要编辑的尺寸，ESC键取消")
If oDimensionConstraint Is Nothing Then '取消选择
Exit Sub
End If
If ThisApplication.ActiveDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
strDimensionConstraintFileName = oDimensionConstraint.ContainingOccurrence.ReferencedDocumentDescriptor.FullDocumentName
If strDimensionConstraintFileName <> oInventorPartDocument.FullFileName Then
MsgBox("请选择当前编辑零件。", MsgBoxStyle.Information)
Exit Sub
End If
End If
strDimensionConstraintName = oDimensionConstraint.Parameter.Name
strDimensionConstraintValue = oDimensionConstraint.Parameter.Expression
Me.Text = "编辑尺寸：" & strDimensionConstraintName
txt参数一.Text = strDimensionConstraintValue
Select Case oDimensionConstraint.Parameter.Units
Case "mm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 10 - 50
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 10 + 50
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 10
Case "cm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value - 5
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value + 5
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value
Case "deg"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 180 / Math.PI - 45
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 180 / Math.PI + 45
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 180 / Math.PI
End Select
End Sub
Private Sub TrackBar参数一_ValueChanged(sender As Object, e As EventArgs) Handles TrackBar参数一.Scroll
On Error Resume Next
Dim oInventorPartDocument As Inventor.PartDocument
oInventorPartDocument = ThisApplication.ActiveEditDocument
Select Case oDimensionConstraint.Parameter.Units
Case "mm"
oDimensionConstraint.Parameter.Value = TrackBar参数一.Value * 0.1
Case "cm"
oDimensionConstraint.Parameter.Value = TrackBar参数一.Value
Case "deg"
oDimensionConstraint.Parameter.Value = TrackBar参数一.Value * Math.PI / 180
End Select
txt参数一.Text = TrackBar参数一.Value
oInventorPartDocument.Update()
ThisApplication.ActiveView.Update()
End Sub
Private Sub btn还原_Click(sender As Object, e As EventArgs) Handles btn还原.Click
Dim oInventorPartDocument As Inventor.PartDocument
oInventorPartDocument = ThisApplication.ActiveEditDocument
oDimensionConstraint.Parameter.Expression = strDimensionConstraintValue
txt参数一.Text = strDimensionConstraintValue
Select Case oDimensionConstraint.Parameter.Units
Case "mm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 10 - 50
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 10 + 50
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 10
Case "cm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value - 5
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value + 5
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value
Case "deg"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 180 / Math.PI - 45
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 180 / Math.PI + 45
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 180 / Math.PI
End Select
oInventorPartDocument.Update()
ThisApplication.ActiveView.Update()
End Sub
Private Sub frmChangeValue_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
If oDimensionConstraint Is Nothing Then
Exit Sub
End If
If ThisApplication.ActiveEditDocument.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
Dim oInventorPartDocument As Inventor.PartDocument
oInventorPartDocument = ThisApplication.ActiveEditDocument
oDimensionConstraint.Parameter.Expression = strDimensionConstraintValue
oInventorPartDocument.Update()
ThisApplication.ActiveView.Update()
End If
End Sub
Private Sub btn确定_Click(sender As Object, e As EventArgs) Handles btn确定.Click
strDimensionConstraintValue = txt参数一.Text
Select Case oDimensionConstraint.Parameter.Units
Case "mm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 10 - 50
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 10 + 50
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 10
Case "cm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value - 5
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value + 5
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value
Case "deg"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 180 / Math.PI - 45
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 180 / Math.PI + 45
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 180 / Math.PI
End Select
End Sub
Private Sub frmChangeValue_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'On Error Resume Next
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
Dim oInventorPartDocument As Inventor.PartDocument
oInventorPartDocument = ThisApplication.ActiveEditDocument
' 是否已经选择了尺寸
Dim oSelectSet As Object = Nothing
'在组件中
If ThisApplication.ActiveDocument.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
oInventorAssemblyDocument = ThisApplication.ActiveDocument
If oInventorAssemblyDocument.SelectSet.Count <> 0 Then
oSelectSet = oInventorAssemblyDocument.SelectSet(1)
End If
'在零件中
ElseIf ThisApplication.ActiveDocument.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
If oInventorPartDocument.SelectSet.Count <> 0 Then
oSelectSet = oInventorPartDocument.SelectSet(1)
End If
End If
If TypeOf oSelectSet Is DimensionConstraint Then
oDimensionConstraint = oSelectSet
strDimensionConstraintName = oDimensionConstraint.Parameter.Name
strDimensionConstraintValue = oDimensionConstraint.Parameter.Expression
Me.Text = "编辑尺寸：" & strDimensionConstraintName
txt参数一.Text = strDimensionConstraintValue
Select Case oDimensionConstraint.Parameter.Units
Case "mm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 10 - 50
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 10 + 50
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 10
Case "cm"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value - 5
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value + 5
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value
Case "deg"
TrackBar参数一.Minimum = oDimensionConstraint.Parameter.Value * 180 / Math.PI - 45
TrackBar参数一.Maximum = oDimensionConstraint.Parameter.Value * 180 / Math.PI + 45
TrackBar参数一.Value = oDimensionConstraint.Parameter.Value * 180 / Math.PI
End Select
End If
' 创建ToolTip控件并设置相关属性
Dim toolTip As New ToolTip()
toolTip.AutoPopDelay = 0
toolTip.InitialDelay = 0
toolTip.ReshowDelay = 500
toolTip.SetToolTip(btn选择一, "选择一个尺寸")
toolTip.SetToolTip(btn还原, "还原为初始尺寸")
toolTip.SetToolTip(btn确定, "修改为当前尺寸")
' 从资源文件中加载图标并设置到Button控件的Image属性中
btn选择一.Image = My.Resources.选择161632.ToBitmap
btn还原.Image = My.Resources.还原161632.ToBitmap
btn确定.Image = My.Resources.确定161632.ToBitmap
End Sub
End Class
Form/frmGetPart.Designer.vb
浏览文件 @ 50979850
......@@ -167,6 +167,7 @@ Partial Class frmGetPart
Me.AcceptButton = Me.btn添加
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btn关闭
Me.ClientSize = New System.Drawing.Size(461, 378)
Me.Controls.Add(Me.btn复制面积)
Me.Controls.Add(Me.btn复制质量)
......
Form/frmGetPart.vb
浏览文件 @ 50979850
......@@ -130,7 +130,4 @@ Public Class frmGetPart
My.Computer.Clipboard.SetText(txt面积.Text)
End Sub
Private Sub frmGetPart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
\ No newline at end of file
Form/frmImportCodeToBomExcel.Designer.vb
浏览文件 @ 50979850
......@@ -172,6 +172,7 @@ Partial Class frmImportCodeToBomExcel
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "导入ERP编码到Bom表"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
......
Form/frmImportCodeToBomExcel.vb
浏览文件 @ 50979850
......@@ -24,7 +24,7 @@ Public NotInheritable Class frmImportCodeToBomExcel
End If
btn确定.Enabled = False
'ThisApplication.Cursor = Cursors.WaitCursor
Me.UseWaitCursor = True
intLastLine = txt最后行.Text
strDataColumn = cmb查找列.Text
......@@ -117,6 +117,7 @@ Public NotInheritable Class frmImportCodeToBomExcel
MsgBox("写入ERP编码完成！", MsgBoxStyle.OkOnly, "导入ERP编码")
Me.UseWaitCursor = False
btn确定.Enabled = True
Process.Start(strBomExcelFile)
......@@ -140,7 +141,4 @@ Public NotInheritable Class frmImportCodeToBomExcel
End With
End Sub
Private Sub frmImportCodeToBomExcel_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
\ No newline at end of file
Form/frmImportCodeToIam.Designer.vb
浏览文件 @ 50979850
......@@ -48,8 +48,8 @@ Partial Class frmImportCodeToIam
'lvw文件列表
'
Me.lvw文件列表.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lvw文件列表.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ch图号, Me.ch名称, Me.ch编码, Me.ch供应商, Me.ch文件名})
Me.lvw文件列表.ContextMenuStrip = Me.ContextMenuStrip右键菜单
Me.lvw文件列表.FullRowSelect = True
......
Form/frmImportCodeToIam.vb
浏览文件 @ 50979850
......@@ -35,14 +35,14 @@ Public Class frmImportCodeToIam
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
Dim oAssemblyDocument As AssemblyDocument
oAssemblyDocument = oInventorDocument
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
oInventorAssemblyDocument = oInventorDocument
'==============================================================================================
'基于bom结构化数据，可跳过参考的文件
' Set a reference to the BOM
Dim oBOM As BOM
oBOM = oAssemblyDocument.ComponentDefinition.BOM
oBOM = oInventorAssemblyDocument.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = False
......@@ -71,9 +71,12 @@ Public Class frmImportCodeToIam
lvw文件列表.EndUpdate()
Me.Text = "导入ERP编码 ( 共" & lvw文件列表.Items.Count & "个文件)"
oInteraction.Stop()
btn装载.Enabled = True
'ThisApplication.Cursor = Cursors.Default
'==============================================================================================
'' 获取所有引用文档
......@@ -198,6 +201,7 @@ Public Class frmImportCodeToIam
'PartNum = FindSrtingInSheet(Excel_File_Name, StochNum, Sheet_Name, Table_Array, Col_Index_Num, 0)
btn查询.Enabled = False
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
......@@ -248,12 +252,31 @@ Public Class frmImportCodeToIam
strFindRange = ColIndexNum & dblMatchRow
strFindRangeValue = oWorksheet.Range(strFindRange).Value
If strNowRangeValue <> strFindRangeValue Then
If strNowRangeValue = "" Then '当前erp编码为空值
oListViewItem.SubItems(2).Text = strFindRangeValue
oListViewItem.UseItemStyleForSubItems = False
oListViewItem.SubItems(2).ForeColor = Drawing.Color.Red
Exit For
Else
If strNowRangeValue = strFindRangeValue Then '查询值等于当前值
Exit For
Else
Me.TopMost = False
If MsgBox(oListViewItem.Text & "(" & strNowRangeValue & ") 查询到新的编码：" & vbCrLf & strFindRangeValue & vbCrLf & "是否替换？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
oListViewItem.SubItems(2).Text = strFindRangeValue
oListViewItem.UseItemStyleForSubItems = False
oListViewItem.SubItems(2).ForeColor = Drawing.Color.DarkOrange
Me.TopMost = True
Exit For
Else
Me.TopMost = True
Exit For
End If
End If
End If
End If
Next
......@@ -303,7 +326,7 @@ Public Class frmImportCodeToIam
For Each oListViewItem As ListViewItem In lvw文件列表.Items
If oListViewItem.SubItems(2).ForeColor = Drawing.Color.Red Then
If oListViewItem.SubItems(2).ForeColor = Drawing.Color.Red Or oListViewItem.SubItems(2).ForeColor = Drawing.Color.DarkOrange Then
oListViewItem.SubItems(2).ForeColor = Drawing.Color.Black '写入后变为黑色
strERPCoding = oListViewItem.SubItems(2).Text
strInventorFullFileName = oListViewItem.SubItems(4).Text
......
Form/frmInputBox.vb
浏览文件 @ 50979850
......@@ -16,7 +16,7 @@ Public Class frmInputBox
End Sub
Private Sub frmInputBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txt输入.Focus()
txt输入.SelectAll()
End Sub
Private Sub btn复制_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn复制.Click
......
Form/frmMassiPoperties.Designer.vb
浏览文件 @ 50979850
......@@ -270,7 +270,7 @@ Partial Class frmMassiPoperties
Me.tab1.Size = New System.Drawing.Size(294, 172)
Me.tab1.TabIndex = 19
'
'frmiPoperties
'frmMassiPoperties
'
Me.AcceptButton = Me.btn开始
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
......@@ -287,10 +287,11 @@ Partial Class frmMassiPoperties
Me.ImeMode = System.Windows.Forms.ImeMode.Off
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmiPoperties"
Me.Name = "frmMassiPoperties"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "量产iProperty"
Me.TopMost = True
Me.tp自定义.ResumeLayout(False)
Me.tp自定义.PerformLayout()
Me.tp项目.ResumeLayout(False)
......
Form/frmOption.Designer.vb
浏览文件 @ 50979850
......@@ -75,6 +75,7 @@ Partial Class frmOption
Me.txt图框模板文件 = New System.Windows.Forms.TextBox()
Me.lbl模板工程图 = New System.Windows.Forms.Label()
Me.GroupBoxERP查询 = New System.Windows.Forms.GroupBox()
Me.btn选择erp数据库 = New System.Windows.Forms.Button()
Me.btn更新数据库 = New System.Windows.Forms.Button()
Me.btn打开erp数据库 = New System.Windows.Forms.Button()
Me.txt查询列 = New System.Windows.Forms.TextBox()
......@@ -90,7 +91,6 @@ Partial Class frmOption
Me.cbo添加 = New System.Windows.Forms.ComboBox()
Me.txtBOM导出项 = New System.Windows.Forms.TextBox()
Me.lblBOM导出项目 = New System.Windows.Forms.Label()
Me.btn选择erp数据库 = New System.Windows.Forms.Button()
Me.TabControl.SuspendLayout()
Me.TabPage常规.SuspendLayout()
Me.GroupBox快速打印.SuspendLayout()
......@@ -663,6 +663,15 @@ Partial Class frmOption
Me.GroupBoxERP查询.TabStop = False
Me.GroupBoxERP查询.Text = "ERP查询"
'
'btn选择erp数据库
'
Me.btn选择erp数据库.Location = New System.Drawing.Point(518, 16)
Me.btn选择erp数据库.Name = "btn选择erp数据库"
Me.btn选择erp数据库.Size = New System.Drawing.Size(52, 25)
Me.btn选择erp数据库.TabIndex = 19
Me.btn选择erp数据库.Text = "选择"
Me.btn选择erp数据库.UseVisualStyleBackColor = True
'
'btn更新数据库
'
Me.btn更新数据库.Location = New System.Drawing.Point(423, 51)
......@@ -775,7 +784,7 @@ Partial Class frmOption
'
Me.cbo添加.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbo添加.FormattingEnabled = True
Me.cbo添加.Items.AddRange(New Object() {"|", "材料", "空格", "库存编号", "零件代号", "成本中心", "描述", "数量", "所属装配", "所属装配代号", "文件路径", "文件名", "质量", "面积", "总数量", "供应商"})
Me.cbo添加.Items.AddRange(New Object() {"| (分隔符)", "材料", "成本中心", "供应商", "空格", "库存编号", "零件代号", "面积", "描述", "数量", "所属装配", "所属装配代号", "文件路径", "文件名", "质量", "总数量", "总质量"})
Me.cbo添加.Location = New System.Drawing.Point(335, 50)
Me.cbo添加.Name = "cbo添加"
Me.cbo添加.Size = New System.Drawing.Size(170, 20)
......@@ -798,15 +807,6 @@ Partial Class frmOption
Me.lblBOM导出项目.TabIndex = 4
Me.lblBOM导出项目.Text = "BOM导出项目："
'
'btn选择erp数据库
'
Me.btn选择erp数据库.Location = New System.Drawing.Point(518, 16)
Me.btn选择erp数据库.Name = "btn选择erp数据库"
Me.btn选择erp数据库.Size = New System.Drawing.Size(52, 25)
Me.btn选择erp数据库.TabIndex = 19
Me.btn选择erp数据库.Text = "选择"
Me.btn选择erp数据库.UseVisualStyleBackColor = True
'
'frmOption
'
Me.AcceptButton = Me.btn确定
......@@ -825,6 +825,7 @@ Partial Class frmOption
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "应用程序选项"
Me.TopMost = True
Me.TabControl.ResumeLayout(False)
Me.TabPage常规.ResumeLayout(False)
Me.GroupBox快速打印.ResumeLayout(False)
......
Form/frmOption.vb
浏览文件 @ 50979850
......@@ -11,6 +11,11 @@ Public Class frmOption
'//先获取复制文本
Dim newstr As String = cbo添加.Text
If newstr = "| (分隔符)" Then
newstr = "|"
End If
'//获取textBox2 中的光标
Dim index As Integer = txtBOM导出项.SelectionStart
txtBOM导出项.Text = txtBOM导出项.Text.Insert(index, newstr)
......
Form/frmPlayer.Designer.vb
浏览文件 @ 50979850
......@@ -42,6 +42,7 @@ Partial Class frmPlayer
Me.btn确定编辑 = New System.Windows.Forms.Button()
Me.btn预览 = New System.Windows.Forms.Button()
Me.btn选择约束 = New System.Windows.Forms.Button()
Me.ch运动 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.SuspendLayout()
'
'btn添加
......@@ -71,7 +72,7 @@ Partial Class frmPlayer
Me.lvw文件列表.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lvw文件列表.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ch约束名称, Me.ch抑制, Me.ch开始, Me.ch结束, Me.ch步长, Me.ch延时})
Me.lvw文件列表.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ch约束名称, Me.ch抑制, Me.ch运动, Me.ch开始, Me.ch结束, Me.ch步长, Me.ch延时})
Me.lvw文件列表.FullRowSelect = True
Me.lvw文件列表.Location = New System.Drawing.Point(12, 55)
Me.lvw文件列表.Name = "lvw文件列表"
......@@ -210,6 +211,10 @@ Partial Class frmPlayer
Me.btn选择约束.Text = "选择约束"
Me.btn选择约束.UseVisualStyleBackColor = True
'
'ch运动
'
Me.ch运动.Text = "运动"
'
'frmPlayer
'
Me.AcceptButton = Me.btn添加
......@@ -263,5 +268,6 @@ Partial Class frmPlayer
Friend WithEvents btn确定编辑 As System.Windows.Forms.Button
Friend WithEvents btn预览 As System.Windows.Forms.Button
Friend WithEvents btn选择约束 As System.Windows.Forms.Button
Friend WithEvents ch运动 As System.Windows.Forms.ColumnHeader
End Class
Form/frmPlayer.vb
浏览文件 @ 50979850
......@@ -31,24 +31,36 @@ Public Class frmPlayer
oInventorAssemblyDocument = oInventorDocument
ThisApplication.CommandManager.Pick(kMateConstraintObject, "选择一个约束")
For Each constrt As Object In oInventorAssemblyDocument.SelectSet
Select Case constrt.type
Dim oselect As Object
Dim oAssemblyConstraint As AssemblyConstraint = Nothing
If oInventorAssemblyDocument.SelectSet.Count <> 0 Then
'For Each oSelect As Object In InventorDoc.SelectSet
oselect = oInventorAssemblyDocument.SelectSet(1)
Select Case oselect.type
Case kAngleConstraintObject, kAssemblySymmetryConstraintObject, kCompositeConstraintObject, kCustomConstraintObject, _
kFlushConstraintObject, kInsertConstraintObject, kMateConstraintObject, kTangentConstraintObject, kTransitionalConstraintObject
Dim oAssemblyConstraint As AssemblyConstraint
oAssemblyConstraint = constrt
btn选择约束.Text = oAssemblyConstraint.Name
txt开始.Text = oAssemblyConstraint.DriveSettings.StartValue
txt结束.Text = oAssemblyConstraint.DriveSettings.EndValue
txt步长.Text = oAssemblyConstraint.DriveSettings.FrameRate
oAssemblyConstraint = oselect
Case Else
MsgBox("请选择一个约束。")
MsgBox("选择一个约束。")
Exit Sub
End Select
Next
Else
MsgBox("选择一个约束。")
Exit Sub
End If
If oAssemblyConstraint Is Nothing Then '取消选择
Exit Sub
End If
btn选择约束.Text = oAssemblyConstraint.Name
txt开始.Text = oAssemblyConstraint.DriveSettings.StartValue
txt结束.Text = oAssemblyConstraint.DriveSettings.EndValue
txt步长.Text = oAssemblyConstraint.DriveSettings.FrameRate
txt延时.Text = oAssemblyConstraint.DriveSettings.PauseDelay
IsAddNew = True
......@@ -78,28 +90,26 @@ Public Class frmPlayer
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
oInventorAssemblyDocument = ThisApplication.ActiveDocument
Dim lvItem As ListViewItem
lvItem = lvw文件列表.SelectedItems(0)
'Dim lvItem As ListViewItem
'lvItem = lvw文件列表.SelectedItems(0)
If lvItem Is Nothing Then
Exit Sub
End If
'If lvItem Is Nothing Then
' Exit Sub
'End If
Dim oAssemblyConstraint As AssemblyConstraint
For Each oAssemblyConstraint In oInventorAssemblyDocument.ComponentDefinition.Constraints
If oAssemblyConstraint.Name = lvItem.Text Then
If oAssemblyConstraint.Name = btn选择约束.Text Then
With oAssemblyConstraint.DriveSettings
.StartValue = txt开始.Text.ToString
.EndValue = txt结束.Text.ToString
.PauseDelay = txt延时.Text.ToString
.GoToStart()
.PlayForward()
.PlayReverse()
End With
Exit Sub
End If
......@@ -111,30 +121,29 @@ Public Class frmPlayer
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
oInventorAssemblyDocument = ThisApplication.ActiveDocument
Dim lvItem As ListViewItem
lvItem = lvw文件列表.SelectedItems(0)
If lvItem Is Nothing Then
Exit Sub
End If
Dim oAssemblyConstraint As AssemblyConstraint
For Each oAssemblyConstraint In oInventorAssemblyDocument.ComponentDefinition.Constraints
If oAssemblyConstraint.Name = lvItem.Text Then
With oAssemblyConstraint.DriveSettings
.StartValue = txt开始.Text.ToString
.EndValue = txt结束.Text.ToString
.GoToStart()
.PlayForward()
.PlayReverse()
End With
For Each lvItem As ListViewItem In lvw文件列表.Items
For Each oAssemblyConstraint In oInventorAssemblyDocument.ComponentDefinition.Constraints
If oAssemblyConstraint.Name = lvItem.Text Then
Exit Sub
End If
If lvItem.SubItems(1).Text = True Then
oAssemblyConstraint.Suppressed = True
Else
With oAssemblyConstraint.DriveSettings
.StartValue = txt开始.Text.ToString
.EndValue = txt结束.Text.ToString
.PauseDelay = txt延时.Text.ToString
.GoToStart()
.PlayForward()
.PlayReverse()
End With
End If
End If
Next
Next
End Sub
......@@ -143,7 +152,6 @@ Public Class frmPlayer
Dim oListViewItem As ListViewItem
If IsAddNew = True Then
oListViewItem = lvw文件列表.Items.Add(btn选择约束.Text)
With oListViewItem
.SubItems.Add(CheckBox抑制.Checked)
......@@ -172,6 +180,30 @@ Public Class frmPlayer
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument
oInventorAssemblyDocument = ThisApplication.ActiveDocument
Dim oselect As Object
Dim oAssemblyConstraint As AssemblyConstraint = Nothing
If oInventorAssemblyDocument.SelectSet.Count <> 0 Then
'For Each oSelect As Object In InventorDoc.SelectSet
oselect = oInventorAssemblyDocument.SelectSet(1)
Select Case oselect.type
Case kAngleConstraintObject, kAssemblySymmetryConstraintObject, kCompositeConstraintObject, kCustomConstraintObject, _
kFlushConstraintObject, kInsertConstraintObject, kMateConstraintObject, kTangentConstraintObject, kTransitionalConstraintObject
oAssemblyConstraint = oselect
Case Else
MsgBox("选择一个约束。")
Exit Sub
End Select
Else
MsgBox("选择一个约束。")
Exit Sub
End If
'If oAssemblyConstraint Is Nothing Then '取消选择
' Exit Sub
'End If
btn选择约束.Text = oAssemblyConstraint.Name
'Dim oComponentOccurrence As ComponentOccurrence '选择的部件或零件
......@@ -214,33 +246,27 @@ Public Class frmPlayer
' End Select
'Next
Dim oselect As Object
Dim oAssemblyConstraint As AssemblyConstraint = Nothing
If oInventorAssemblyDocument.SelectSet.Count <> 0 Then
'For Each oSelect As Object In InventorDoc.SelectSet
oselect = oInventorAssemblyDocument.SelectSet(1)
Select Case oselect.type
Case kAngleConstraintObject, kAssemblySymmetryConstraintObject, kCompositeConstraintObject, kCustomConstraintObject, _
kFlushConstraintObject, kInsertConstraintObject, kMateConstraintObject, kTangentConstraintObject, kTransitionalConstraintObject
oAssemblyConstraint = oselect
Case Else
End Sub
Private Sub lvw文件列表_Click(sender As Object, e As EventArgs) Handles lvw文件列表.Click
Dim oListViewItem As ListViewItem
oListViewItem = lvw文件列表.SelectedItems(0)
With oListViewItem
btn选择约束.Text = .Text
Select Case .SubItems(1).Text
Case "True"
CheckBox抑制.Checked = True
Case "False"
CheckBox抑制.Checked = False
End Select
txt开始.Text = .SubItems(2).Text
txt结束.Text = .SubItems(3).Text
txt步长.Text = .SubItems(4).Text
txt延时.Text = .SubItems(5).Text
End With
'Next
Else
oAssemblyConstraint = ThisApplication.CommandManager.Pick( kFlushConstraintObject, "选择约束")
End If
If oAssemblyConstraint Is Nothing Then '取消选择
Exit Sub
End If
btn选择约束.Text = oAssemblyConstraint.Name
End Sub
......
Form/frmPrint.Designer.vb
浏览文件 @ 50979850
......@@ -31,6 +31,7 @@ Partial Class frmPrint
Me.btn添加文件夹 = New System.Windows.Forms.Button()
Me.lbl建议 = New System.Windows.Forms.Label()
Me.grp选项 = New System.Windows.Forms.GroupBox()
Me.btn保存配置 = New System.Windows.Forms.Button()
Me.chk关闭窗口 = New System.Windows.Forms.CheckBox()
Me.chk刷新工程图 = New System.Windows.Forms.CheckBox()
Me.chk保存工程图 = New System.Windows.Forms.CheckBox()
......@@ -124,6 +125,7 @@ Partial Class frmPrint
'grp选项
'
Me.grp选项.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.grp选项.Controls.Add(Me.btn保存配置)
Me.grp选项.Controls.Add(Me.chk关闭窗口)
Me.grp选项.Controls.Add(Me.chk刷新工程图)
Me.grp选项.Controls.Add(Me.chk保存工程图)
......@@ -145,6 +147,15 @@ Partial Class frmPrint
Me.grp选项.TabStop = False
Me.grp选项.Text = "选项"
'
'btn保存配置
'
Me.btn保存配置.Location = New System.Drawing.Point(723, 37)
Me.btn保存配置.Name = "btn保存配置"
Me.btn保存配置.Size = New System.Drawing.Size(86, 28)
Me.btn保存配置.TabIndex = 47
Me.btn保存配置.Text = "保存配置"
Me.btn保存配置.UseVisualStyleBackColor = True
'
'chk关闭窗口
'
Me.chk关闭窗口.AutoSize = True
......@@ -154,7 +165,7 @@ Partial Class frmPrint
Me.chk关闭窗口.Name = "chk关闭窗口"
Me.chk关闭窗口.Size = New System.Drawing.Size(72, 16)
Me.chk关闭窗口.TabIndex = 46
Me.chk关闭窗口.Text = "关闭窗口"
Me.chk关闭窗口.Text = "退出打印"
Me.chk关闭窗口.UseVisualStyleBackColor = True
'
'chk刷新工程图
......@@ -319,8 +330,8 @@ Partial Class frmPrint
Me.lvw文件列表.AllowColumnReorder = True
Me.lvw文件列表.AllowDrop = True
Me.lvw文件列表.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lvw文件列表.AutoArrange = False
Me.lvw文件列表.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader文件名})
Me.lvw文件列表.ContextMenuStrip = Me.cms右键菜单
......@@ -342,24 +353,24 @@ Partial Class frmPrint
'
Me.cms右键菜单.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmi移出, Me.tsmi筛选移出, Me.tsmi筛选保留})
Me.cms右键菜单.Name = "cmsRemove"
Me.cms右键菜单.Size = New System.Drawing.Size(153, 92)
Me.cms右键菜单.Size = New System.Drawing.Size(125, 70)
'
'tsmi移出
'
Me.tsmi移出.Name = "tsmi移出"
Me.tsmi移出.Size = New System.Drawing.Size(152, 22)
Me.tsmi移出.Size = New System.Drawing.Size(124, 22)
Me.tsmi移出.Text = "移出"
'
'tsmi筛选移出
'
Me.tsmi筛选移出.Name = "tsmi筛选移出"
Me.tsmi筛选移出.Size = New System.Drawing.Size(152, 22)
Me.tsmi筛选移出.Size = New System.Drawing.Size(124, 22)
Me.tsmi筛选移出.Text = "筛选移出"
'
'tsmi筛选保留
'
Me.tsmi筛选保留.Name = "tsmi筛选保留"
Me.tsmi筛选保留.Size = New System.Drawing.Size(152, 22)
Me.tsmi筛选保留.Size = New System.Drawing.Size(124, 22)
Me.tsmi筛选保留.Text = "筛选保留"
'
'btn导入当前部件
......@@ -434,5 +445,6 @@ Partial Class frmPrint
Friend WithEvents chk刷新工程图 As System.Windows.Forms.CheckBox
Friend WithEvents chk保存工程图 As System.Windows.Forms.CheckBox
Friend WithEvents chk关闭窗口 As System.Windows.Forms.CheckBox
Friend WithEvents btn保存配置 As System.Windows.Forms.Button
End Class
Form/frmPrint.resx
浏览文件 @ 50979850
......@@ -121,7 +121,7 @@
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>28</value>
<value>45</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
......
Form/frmPrint.vb
浏览文件 @ 50979850
......@@ -8,6 +8,7 @@ Imports System.Collections.ObjectModel
Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms
Imports System.Xml
Public Class frmPrint
......@@ -22,6 +23,10 @@ Public Class frmPrint
btn开始.Enabled = False
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
Dim strPrinterName As String = ""
strPrinterName = cmb打印机.Text
......@@ -46,16 +51,17 @@ Public Class frmPrint
' GoTo 999
'End If
Me.TopMost = False
'Me.TopMost = False
Dim oInventorDrawingDocument As Inventor.DrawingDocument
'打开工程图
oInventorDrawingDocument = ThisApplication.Documents.Open(strInventorDrawingFullFileName, True)
Me.TopMost = True
'Me.TopMost = True
'刷新sheets
If chk刷新工程图.Checked = True Then
SetStatusBarText("正在更新工程图 ......")
SetStatusBarText("正在更新工程图 ...")
oInventorDrawingDocument.Rebuild()
End If
......@@ -79,19 +85,11 @@ Public Class frmPrint
'打印文件
PrintDrawing(oInventorDrawingDocument, strPrinterName, chk打印为黑色.Checked, nud份数.Value, chk匹配A3.Checked)
Me.TopMost = False
'Me.TopMost = False
Dim strIdwFullFileName As String
strIdwFullFileName = oInventorDrawingDocument.FullFileName
'另存为pdf
If chk存为pdf.Checked = True Then
Dim strPdfFullFileName As String 'pdf文件全文件名
strPdfFullFileName = GetChangeExtension(strIdwFullFileName, DWG)
IdwSaveAsDwgSub(strIdwFullFileName, strPdfFullFileName)
IdwSaveAsPdfSub(strIdwFullFileName, PDF)
End If
'另存为pdf
If chk存为pdf.Checked = True Then
Dim strPdfFullFileName As String 'pdf文件全文件名
......@@ -124,6 +122,9 @@ Public Class frmPrint
'MsgBox("批量打印工程图完成", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "批量打印")
btn开始.Enabled = True
oInteraction.Stop()
SetStatusBarText("批量打印工程图完成")
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
......@@ -242,38 +243,56 @@ Public Class frmPrint
End If
Next
If IsSign = 1 Then
chk签字.Checked = True
Else
chk签字.Checked = False
End If
If IsPaperA3 = 1 Then
chk匹配A3.Checked = True
Else
chk匹配A3.Checked = False
End If
'If IsSign = 1 Then
' chk签字.Checked = True
'Else
' chk签字.Checked = False
'End If
'If IsPaperA3 = 1 Then
' chk匹配A3.Checked = True
'Else
' chk匹配A3.Checked = False
'End If
'Select Case SaveAsDawAndPdf
' Case "不另存"
' chk存为dwg.Checked = False
' chk存为pdf.Checked = False
' Case "另存为dwg"
' chk存为dwg.Checked = True
' chk存为pdf.Checked = False
' Case "另存为pdf"
' chk存为dwg.Checked = False
' chk存为pdf.Checked = True
' Case "另存为dwg和pdf"
' chk存为dwg.Checked = True
' chk存为pdf.Checked = True
'End Select
Dim binaryArray(PrintSetting.Length - 1) As String
For i As Integer = 0 To PrintSetting.Length - 1
binaryArray(i) = Strings.Mid(PrintSetting, i + 1, 1)
Next
Select Case SaveAsDawAndPdf
Case "不另存"
chk存为dwg.Checked = False
chk存为pdf.Checked = False
Case "另存为dwg"
chk存为dwg.Checked = True
chk存为pdf.Checked = False
Case "另存为pdf"
chk存为dwg.Checked = False
chk存为pdf.Checked = True
Case "另存为dwg和pdf"
chk存为dwg.Checked = True
chk存为pdf.Checked = True
End Select
chk匹配A3.Checked = IntToBool(binaryArray(0))
chk签字.Checked = IntToBool(binaryArray(1))
chk刷新工程图.Checked = IntToBool(binaryArray(2))
chk存为pdf.Checked = IntToBool(binaryArray(3))
chk关闭窗口.Checked = IntToBool(binaryArray(4))
chk打印为黑色.Checked = IntToBool(binaryArray(5))
chk打印后关闭.Checked = IntToBool(binaryArray(6))
chk保存签字.Checked = IntToBool(binaryArray(7))
chk保存工程图.Checked = IntToBool(binaryArray(8))
chk存为dwg.Checked = IntToBool(binaryArray(9))
End Sub
Private Sub btn从部件导入_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn从部件导入.Click
Dim oOpenFileDialog As New OpenFileDialog
Dim oAssemblyDocument As Inventor.AssemblyDocument = Nothing
Dim oInventorAssemblyDocument As Inventor.AssemblyDocument = Nothing
lbl建议.Visible = False
......@@ -284,7 +303,7 @@ Public Class frmPrint
.FileName = ""
If .ShowDialog = Windows.Forms.DialogResult.OK Then '如果打开窗口OK
If .FileName <> "" Then '如果有选中文件
oAssemblyDocument = ThisApplication.Documents.Open(.FileName)
oInventorAssemblyDocument = ThisApplication.Documents.Open(.FileName)
End If
Else
Exit Sub
......@@ -322,7 +341,7 @@ Public Class frmPrint
'基于bom结构化数据，可跳过参考的文件
' Set a reference to the BOM
Dim oBOM As BOM
oBOM = oAssemblyDocument.ComponentDefinition.BOM
oBOM = oInventorAssemblyDocument.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
'Set a reference to the "Structured" BOMView
......@@ -535,14 +554,14 @@ Public Class frmPrint
Exit Sub
End If
Dim oAssemblyDocument As AssemblyDocument
oAssemblyDocument = oInventorDocument
Dim oInventorAssemblyDocument As AssemblyDocument
oInventorAssemblyDocument = oInventorDocument
'===================================
'基于bom结构化数据，可跳过参考的文件
' Set a reference to the BOM
Dim oBOM As BOM
oBOM = oAssemblyDocument.ComponentDefinition.BOM
oBOM = oInventorAssemblyDocument.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
'Set a reference to the "Structured" BOMView
......@@ -631,4 +650,12 @@ Public Class frmPrint
e.Effect = DragDropEffects.All
End If
End Sub
Private Sub btn保存配置_Click(sender As Object, e As EventArgs) Handles btn保存配置.Click
PrintSetting = BoolToInt(chk匹配A3.Checked) & BoolToInt(chk签字.Checked) & BoolToInt(chk刷新工程图.Checked) & _
BoolToInt(chk存为pdf.Checked) & BoolToInt(chk关闭窗口.Checked) & BoolToInt(chk打印为黑色.Checked) & _
BoolToInt(chk打印后关闭.Checked) & BoolToInt(chk保存签字.Checked) & BoolToInt(chk保存工程图.Checked) & BoolToInt(chk存为dwg.Checked)
InAISettingXmlWriteSetting()
End Sub
End Class
\ No newline at end of file
Form/frmQuitOpen.Designer.vb
浏览文件 @ 50979850
......@@ -75,6 +75,7 @@ Partial Class frmQuitOpen
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "快速打开"
Me.TopMost = True
Me.ResumeLayout(False)
End Sub
......
Form/frmQuitOpen.vb
浏览文件 @ 50979850
......@@ -27,7 +27,4 @@ Public Class frmQuitOpen
Me.Dispose()
End Sub
Private Sub frmQuitOpen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
\ No newline at end of file
Form/frmSaveAll.Designer.vb
浏览文件 @ 50979850
......@@ -167,6 +167,7 @@ Partial Class frmSaveAll
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "全部保存"
Me.TopMost = True
Me.grp文件类型.ResumeLayout(False)
Me.grp文件类型.PerformLayout()
Me.grp执行操作.ResumeLayout(False)
......
Form/frmSaveAll.vb
浏览文件 @ 50979850
......@@ -12,6 +12,8 @@ Public Class frmSaveAll
Exit Sub
End If
Me.TopMost = False
For Each oInventorDocument As Inventor.Document In ThisApplication.Documents.VisibleDocuments
If IsFileExsts(oInventorDocument.FullDocumentName) = False Then
Continue For
......@@ -78,7 +80,4 @@ Public Class frmSaveAll
RadioState = 3
End Sub
Private Sub frmSaveAll_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
\ No newline at end of file
Form/frmSaveAs.Designer.vb
浏览文件 @ 50979850
......@@ -225,6 +225,7 @@ Partial Class frmSaveAs
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "批量另存"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
......
Form/frmSaveAs.vb
浏览文件 @ 50979850
......@@ -24,8 +24,9 @@ Public Class frmSaveAs
Exit Sub
End If
'btnStart.Enabled = False
'ThisApplication.Cursor = Cursors.WaitCursor
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
For i = 0 To lvw文件列表.Items.Count - 1
'当前项标记颜色
......@@ -108,9 +109,11 @@ Public Class frmSaveAs
999:
Next
oInteraction.Stop()
MsgBox("批量另存完成。", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "批量另存")
'btnStart.Enabled = True
'ThisApplication.Cursor = Cursors.WaitCursor
End Sub
......@@ -196,10 +199,16 @@ Public Class frmSaveAs
strExtension = IDW
End If
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
GetAllFile(strPresentFolder, strDestinationFolder, lvw文件列表, strExtension)
oInteraction.Stop()
btn添加文件夹.Enabled = True
'ThisApplication.Cursor = Cursors.Default
End Sub
'当前文件夹
......
Form/frmSearchERPCode.Designer.vb
浏览文件 @ 50979850
......@@ -156,6 +156,7 @@ Partial Class frmSearchERPCode
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "查询ERP编码"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
......
Form/frmSearchERPCode.vb
浏览文件 @ 50979850
......@@ -31,8 +31,12 @@ Public NotInheritable Class frmSearchERPCode
Dim arraystrERPCode() As String
'Me.UseWaitCursor = True
arraystrERPCode = FindAllSrtingInSheet(BasicExcelFullFileName, strDrawingNo, TableArrays, ColIndexNum, 0)
'Me.UseWaitCursor = False
If arraystrERPCode(0) Is Nothing Then
txtERP编码.Text = "未查询到ERP编码。"
btn查询编码.Enabled = True
......
Form/frmSetWriteOnly.Designer.vb
浏览文件 @ 50979850
......@@ -193,8 +193,10 @@ Partial Class frmSetWriteOnly
'
'frmSetWriteOnly
'
Me.AcceptButton = Me.btn开始
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btn关闭
Me.ClientSize = New System.Drawing.Size(1067, 401)
Me.Controls.Add(Me.CheckBox本部件)
Me.Controls.Add(Me.CheckBox工程图)
......@@ -214,6 +216,7 @@ Partial Class frmSetWriteOnly
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "批量只读"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
......
Form/frmSetWriteOnly.vb
浏览文件 @ 50979850
......@@ -45,6 +45,7 @@ Public Class frmSetWriteOnly
End If
Next
btn导入当前部件_Click(sender, e)
MsgBox("设置文件属性完成。", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
......
Form/frmSign.Designer.vb
浏览文件 @ 50979850
......@@ -113,6 +113,7 @@ Partial Class frmSign
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = " 签字"
Me.TopMost = True
Me.ResumeLayout(False)
Me.PerformLayout()
......
Form/frmSpecification.Designer.vb
浏览文件 @ 50979850
......@@ -82,7 +82,7 @@ Partial Class frmSpecification
'GroupBox基础数据
'
Me.GroupBox基础数据.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox基础数据.Controls.Add(Me.ToolStrip基础数据)
Me.GroupBox基础数据.Controls.Add(Me.TreeView基础数据树)
Me.GroupBox基础数据.Controls.Add(Me.lst基础数据列表)
......@@ -157,7 +157,7 @@ Partial Class frmSpecification
'TreeView基础数据树
'
Me.TreeView基础数据树.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.TreeView基础数据树.Location = New System.Drawing.Point(13, 44)
Me.TreeView基础数据树.Name = "TreeView基础数据树"
Me.TreeView基础数据树.Size = New System.Drawing.Size(141, 151)
......@@ -166,8 +166,8 @@ Partial Class frmSpecification
'lst基础数据列表
'
Me.lst基础数据列表.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lst基础数据列表.FormattingEnabled = True
Me.lst基础数据列表.HorizontalScrollbar = True
Me.lst基础数据列表.ItemHeight = 12
......@@ -179,7 +179,7 @@ Partial Class frmSpecification
'GroupBox技术要求
'
Me.GroupBox技术要求.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox技术要求.Controls.Add(Me.GroupBox导入自定义)
Me.GroupBox技术要求.Controls.Add(Me.ToolStrip自定义数据)
Me.GroupBox技术要求.Controls.Add(Me.TreeView自定义)
......@@ -226,8 +226,8 @@ Partial Class frmSpecification
'txt导入文本
'
Me.txt导入文本.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txt导入文本.Location = New System.Drawing.Point(16, 18)
Me.txt导入文本.Multiline = True
Me.txt导入文本.Name = "txt导入文本"
......@@ -394,7 +394,7 @@ Partial Class frmSpecification
'TreeView自定义
'
Me.TreeView自定义.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.TreeView自定义.Location = New System.Drawing.Point(13, 45)
Me.TreeView自定义.Name = "TreeView自定义"
Me.TreeView自定义.Size = New System.Drawing.Size(141, 189)
......@@ -403,8 +403,8 @@ Partial Class frmSpecification
'lst技术要求文本
'
Me.lst技术要求文本.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lst技术要求文本.FormattingEnabled = True
Me.lst技术要求文本.HorizontalScrollbar = True
Me.lst技术要求文本.ItemHeight = 12
......@@ -448,6 +448,7 @@ Partial Class frmSpecification
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "技术要求"
Me.TopMost = True
Me.GroupBox基础数据.ResumeLayout(False)
Me.GroupBox基础数据.PerformLayout()
Me.ToolStrip基础数据.ResumeLayout(False)
......
Form/frmSpecification.vb
浏览文件 @ 50979850
......@@ -95,11 +95,13 @@ Public Class frmSpecification
Private Sub 添加自定义ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加自定义ToolStripButton.Click
Dim strChildNodeValue As String
Me.TopMost = False
strChildNodeValue = InputBox("输入技术要求。 ", "技术要求")
If strChildNodeValue <> "" Then
lst技术要求文本.Items.Add(strChildNodeValue)
boolIsUserChange = True
End If
Me.TopMost = True
End Sub
Private Sub 修改自定义ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改自定义ToolStripButton.Click
......@@ -110,12 +112,13 @@ Public Class frmSpecification
Else
Exit Sub
End If
Me.TopMost = False
strChildNodeValue = InputBox("输入技术要求。 ", "技术要求", strChildNodeValue)
If strChildNodeValue <> "" Then
lst技术要求文本.Items(lst技术要求文本.SelectedIndex) = strChildNodeValue
boolIsUserChange = True
End If
Me.TopMost = True
End Sub
Private Sub 保存基础数据ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存基础数据ToolStripButton.Click
......@@ -143,10 +146,11 @@ Public Class frmSpecification
Private Sub 修改基础数据ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改基础数据ToolStripButton.Click
Dim strChildNodeValue As String
Me.TopMost = False
If lst基础数据列表.SelectedItems.Count <> 0 Then
strChildNodeValue = lst基础数据列表.SelectedItems(0).ToString
Else
Me.TopMost = True
Exit Sub
End If
......@@ -155,6 +159,7 @@ Public Class frmSpecification
lst基础数据列表.Items(lst基础数据列表.SelectedIndex) = strChildNodeValue
boolIsBasicChange = True
End If
Me.TopMost = True
End Sub
Private Sub 删除基础数据ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除基础数据ToolStripButton.Click
......@@ -166,11 +171,14 @@ Public Class frmSpecification
Private Sub 添加基础数据ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加基础数据ToolStripButton.Click
Dim strChildNodeValue As String
Me.TopMost = False
strChildNodeValue = InputBox("输入技术要求。 ", "技术要求")
If strChildNodeValue <> "" Then
lst基础数据列表.Items.Add(strChildNodeValue)
boolIsBasicChange = True
End If
Me.TopMost = True
End Sub
Private Sub 保存自定义ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存自定义ToolStripButton.Click
......@@ -246,6 +254,8 @@ Public Class frmSpecification
Private Sub 新建自定义ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建自定义ToolStripButton.Click
Dim strChildNodeName As String
Me.TopMost = False
strChildNodeName = InputBox("输入新技术要求名称！", "技术要求")
If strChildNodeName <> "" Then
......@@ -273,6 +283,9 @@ Public Class frmSpecification
boolIsUserChange = False
End If
Me.TopMost = True
End Sub
Private Sub 自动编号ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 自动编号ToolStripMenuItem.Click
......@@ -328,7 +341,7 @@ Public Class frmSpecification
oInventorDocument = ThisApplication.ActiveDocument
If oInventorDocument.DocumentType <> kDrawingDocumentObject Then
MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information, "添加Φ")
MsgBox("该功能仅适用于工程图", MsgBoxStyle.Information)
Exit Sub
End If
......
Form/frmain.Designer.vb
浏览文件 @ 50979850
此差异已折叠。
Form/frmain.vb
浏览文件 @ 50979850
......@@ -9,8 +9,6 @@ Imports Microsoft.VisualBasic
Imports System.Collections.ObjectModel
Imports System.Runtime.InteropServices
Public Class frmain
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
......@@ -22,25 +20,65 @@ Public Class frmain
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
' 创建进度条
Dim progressBar As Inventor.ProgressBar = ThisApplication.CreateProgressBar(True, 10, "Progress Bar Demo")
progressBar.Message = "Processing..."
'' 创建进度条
'Dim progressBar As Inventor.ProgressBar = ThisApplication.CreateProgressBar(True, 10, "Progress Bar Demo")
'progressBar.Message = "Processing..."
'' 更新进度条
'For i = 1 To 10
' progressBar.UpdateProgress()
' System.Threading.Thread.Sleep(1000)
'Next
' 更新进度条
For i = 1 To 10
progressBar.UpdateProgress()
System.Threading.Thread.Sleep(1000)
Next
'' 隐藏并销毁进度条
'progressBar.Close()
' 隐藏并销毁进度条
progressBar.Close()
'Dim oMiniToolbar As clsMiniToolbar = New clsMiniToolbar
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AddPanelToToolsTab()
'AddPanelToToolsTab()
'If NewUpdater.GetGitVersion = "New" Then
' If MsgBox("检查到InAI新版：" & NewVersion & "，是否下载？", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "更新") = MsgBoxResult.Yes Then
' Process.Start("https://github.com/leaky114/InAI/tree/master/Release")
' End If
'End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'On Error Resume Next
'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
'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("Assembly")
' oRibbonTab = oRibbon.RibbonTabs.Item("id_TabAssemble")
'End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
End Sub
......@@ -821,4 +859,38 @@ Public Class frmain
MsgBox(ex.Message)
End Try
End Sub
Private Sub 标准件可见性ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 标准件可见性ToolStripMenuItem.Click
SetStandIptVisible()
End Sub
Private Sub 替换为库文件ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 替换为库文件ToolStripMenuItem.Click
ReplaceWithContentCenterFile()
End Sub
Private Sub 编辑尺寸ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 编辑尺寸ToolStripMenuItem.Click
Try
SetStatusBarText()
If IsInventorOpenDocument() = False Then
Exit Sub
End If
If ThisApplication.ActiveEditDocument.DocumentType <> kPartDocumentObject Then
MsgBox("该功能仅适用于零件。", MsgBoxStyle.Information)
Exit Sub
End If
Dim frmEditDimension As New frmEditDimension
frmEditDimension.Show()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub 生成展开图ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 生成展开图ToolStripMenuItem.Click
CreateFlat()
End Sub
End Class
\ No newline at end of file
Module/BasicFileSystem.vb
浏览文件 @ 50979850
......@@ -135,7 +135,7 @@ Module BasicFileSystem
'重命名(旧文件名,新文件名)
Public Function ReFileName(ByVal strOldFullFileName As String, ByVal strNewFullFileName As String) As Boolean
If IsFileExsts(strNewFullFileName) = False And IsFileExsts(strOldFullFileName) = True Then
IO.File.Move(strOldFullFileName, GetSingleName(strNewFullFileName))
System.IO.File.Move(strOldFullFileName, strNewFullFileName)
ReFileName = IsFileExsts(strNewFullFileName)
Else
ReFileName = False
......
Module/Calc.vb
浏览文件 @ 50979850
......@@ -26,4 +26,23 @@
'End Function
'将布尔值转换为整数
Public Function BoolToInt(ByVal boolValue As Boolean) As Integer
If boolValue Then
Return 1
Else
Return 0
End If
End Function
'将整数转换为布尔值
Public Function IntToBool(ByVal intValue As Integer) As Boolean
If intValue = 0 Then
Return False
ElseIf intValue = 1 Then
Return True
Else
Throw New ArgumentException("intValue must be 0 or 1")
End If
End Function
End Module
Module/IamModule.vb
浏览文件 @ 50979850
此差异已折叠。
Module/IdwModule.vb
浏览文件 @ 50979850
......@@ -37,7 +37,7 @@ Module IdwModule
Dim strInventorDrawingDocumentFullFileName As String
strInventorDrawingDocumentFullFileName = oInventorDrawingDocument.FullFileName
If strInventorDrawingDocumentFullFileName = "" Then
If IsFileExsts(strInventorDrawingDocumentFullFileName) = False Then
MsgBox("请先保存本工程图。", MsgBoxStyle.Information)
Exit Sub
End If
......@@ -147,7 +147,7 @@ Module IdwModule
Dim strInventorDrawingDocumentFullFileName As String
strInventorDrawingDocumentFullFileName = oInventorDrawingDocument.FullFileName
If strInventorDrawingDocumentFullFileName = "" Then
If IsFileExsts(strInventorDrawingDocumentFullFileName) = False Then
MsgBox("请先保存本工程图。", MsgBoxStyle.Information)
Exit Sub
End If
......@@ -354,7 +354,9 @@ Module IdwModule
For Each oDrawingDim In oSheet.DrawingDimensions
If TypeOf oDrawingDim Is LinearGeneralDimension Or TypeOf oDrawingDim Is AngularGeneralDimension Then
Call oDrawingDim.CenterText()
oDrawingDim.CenterText()
End If
Next
......@@ -396,7 +398,7 @@ Module IdwModule
Do
oDrawingDim = ThisApplication.CommandManager.Pick(kDrawingDimensionFilter, "选择要文字居中的尺寸，ESC键取消。")
If TypeOf oDrawingDim Is LinearGeneralDimension Or TypeOf oDrawingDim Is AngularGeneralDimension Then
Call oDrawingDim.CenterText()
oDrawingDim.CenterText()
End If
Loop Until (oDrawingDim Is Nothing)
......@@ -1057,7 +1059,7 @@ Module IdwModule
SetStatusBarText("重建序号完成")
'MsgBox("设置工程图自定义属性：比例完成", MsgBoxStyle.Information)
If MsgBox("是否重写BOM序号？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes Then
If MsgBox("明细栏是否排序？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes Then
oActiveSheet = oInventorDrawingDocument.ActiveSheet
......
Module/Inventorbasic.vb
浏览文件 @ 50979850
......@@ -99,6 +99,9 @@ Module InventorBasic
'标题栏模板
Public TitleBlockIdwDoc As String
'批量打印设置
Public PrintSetting As String
'声明并初始化变量
Public _ListViewSorter As clsListViewSorter.EnumSortOrder = clsListViewSorter.EnumSortOrder.Ascending
......@@ -138,9 +141,6 @@ Module InventorBasic
'End If
End If
End Sub
......@@ -497,9 +497,10 @@ Module InventorBasic
Return False
End Select
Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
oInteraction.Start()
oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
'Dim oInteraction As InteractionEvents = ThisApplication.CommandManager.CreateInteractionEvents
'oInteraction.Start()
'oInteraction.SetCursor(CursorTypeEnum.kCursorTypeWindows, 32514)
'System.Threading.Thread.Sleep(5000)
'oInteraction.Stop()
......@@ -523,7 +524,7 @@ Module InventorBasic
End If
Next
'==============================================================================================
oInteraction.Stop()
'oInteraction.Stop()
Return True
End Function
......
Module/IptModule.vb
浏览文件 @ 50979850
......@@ -34,7 +34,7 @@ Module IptModule
End If
Dim oInventorDocument As Inventor.Document
oInventorDocument = ThisApplication.ActiveDocument
oInventorDocument = ThisApplication.ActiveEditDocument
If oInventorDocument.SelectSet.Count <> 0 Then
'For Each oSelect As Object In InventorDoc.SelectSet
......@@ -68,7 +68,7 @@ Module IptModule
End If
Dim oInventorDocument As Inventor.Document
oInventorDocument = ThisApplication.ActiveDocument
oInventorDocument = ThisApplication.ActiveEditDocument
Dim strInventorDocument As String
strInventorDocument = oInventorDocument.FullFileName
......
Module/OpenFrom.vb
浏览文件 @ 50979850
......@@ -62,7 +62,7 @@ Module OpenFrom
End If
Dim AutoPartNumber As New frmAutoPartNumber
AutoPartNumber.Show()
AutoPartNumber.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -74,14 +74,14 @@ Module OpenFrom
Try
SetStatusBarText()
If IsInventorOpenDocument() = False Then
Exit Sub
End If
'If IsInventorOpenDocument() = False Then
' Exit Sub
'End If
If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then
MsgBox("该功能仅适用于工程图。", MsgBoxStyle.Information)
Exit Sub
End If
'If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then
' MsgBox("该功能仅适用于工程图。", MsgBoxStyle.Information)
' Exit Sub
'End If
Dim frmSpecification As New frmSpecification
frmSpecification.ShowDialog()
......@@ -96,7 +96,7 @@ Module OpenFrom
Try
SetStatusBarText()
Dim frmPrint As New frmPrint
frmPrint.Show()
frmPrint.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -108,7 +108,7 @@ Module OpenFrom
Try
SetStatusBarText()
Dim frmSearchERPCode As New frmSearchERPCode
frmSearchERPCode.Show()
frmSearchERPCode.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -120,7 +120,7 @@ Module OpenFrom
Try
SetStatusBarText()
Dim frmERPCodeSearch As New frmERPCodeSearch
frmERPCodeSearch.Show()
frmERPCodeSearch.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -141,8 +141,8 @@ Module OpenFrom
Exit Sub
End If
Dim frmInventoryCoding As New frmImportCodeToIam
frmInventoryCoding.Show()
Dim frmImportCodeToIam As New frmImportCodeToIam
frmImportCodeToIam.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -154,12 +154,12 @@ Module OpenFrom
Try
SetStatusBarText()
If IsInventorOpenDocument() = False Then
Exit Sub
End If
'If IsInventorOpenDocument() = False Then
' Exit Sub
'End If
Dim frmImportCodeToBomExcel As New frmImportCodeToBomExcel
frmImportCodeToBomExcel.Show()
frmImportCodeToBomExcel.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -242,7 +242,7 @@ Module OpenFrom
End If
Dim frmGetPart As New frmGetPart
frmGetPart.Show()
frmGetPart.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......@@ -265,7 +265,31 @@ Module OpenFrom
End If
Dim frmSetWriteOnly As New frmSetWriteOnly
frmSetWriteOnly.Show()
frmSetWriteOnly.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
'打开编辑尺寸窗口
Public Sub FrmEditDimensionShow()
Try
SetStatusBarText()
If IsInventorOpenDocument() = False Then
Exit Sub
End If
If ThisApplication.ActiveEditDocument.DocumentType <> kPartDocumentObject Then
MsgBox("该功能仅适用于零件。", MsgBoxStyle.Information)
Exit Sub
End If
Dim frmEditDimension As New frmEditDimension
frmEditDimension.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message)
End Try
......
Module/WRXml.vb
浏览文件 @ 50979850
......@@ -63,6 +63,9 @@ Module WrXml
XWriter.WriteElementString("NewVersionTxt", NewVersionTxt)
XWriter.WriteElementString("TitleBlockIdwDoc", TitleBlockIdwDoc)
XWriter.WriteElementString("PrintSetting", PrintSetting)
XWriter.WriteEndElement()
XWriter.Close()
......@@ -133,6 +136,8 @@ Module WrXml
Case "TitleBlockIdwDoc" : TitleBlockIdwDoc = XReader.Value
Case "PrintSetting" : PrintSetting = XReader.Value
End Select
End Select
End While
......@@ -176,6 +181,8 @@ Module WrXml
TitleBlockIdwDoc = My.Application.Info.DirectoryPath & "\模板.idw"
PrintSetting = "1101111001"
End Sub
End Module
\ No newline at end of file
My Project/Resources.Designer.vb
浏览文件 @ 50979850
......@@ -250,6 +250,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public 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>
......@@ -810,6 +820,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public 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>
Public ReadOnly Property 替换为库文件1616241() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("替换为库文件1616241", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public 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>
Public ReadOnly Property 替换为库文件3232241() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("替换为库文件3232241", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......@@ -890,6 +940,66 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public 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>
Public ReadOnly Property 标准件可见性1616241() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("标准件可见性1616241", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 标准件可见性1616242() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("标准件可见性1616242", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public 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>
Public ReadOnly Property 标准件可见性3232241() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("标准件可见性3232241", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 标准件可见性3232242() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("标准件可见性3232242", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......@@ -1050,6 +1160,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 确定161632() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("确定161632", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 确定1616322() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("确定1616322", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......@@ -1100,6 +1230,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 编辑尺寸161632() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("编辑尺寸161632", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 编辑尺寸1616321() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("编辑尺寸1616321", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 编辑尺寸323232() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("编辑尺寸323232", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 编辑尺寸3232321() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("编辑尺寸3232321", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......@@ -1360,6 +1530,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 还原161632() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("还原161632", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 还原1616322() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("还原1616322", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......@@ -1380,6 +1570,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 选择161632() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("选择161632", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
Public ReadOnly Property 选择1616322() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("选择1616322", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' 查找类似于 (图标) 的 System.Drawing.Icon 类型的本地化资源。
'''</summary>
......
My Project/Resources.resx
浏览文件 @ 50979850
......@@ -550,4 +550,67 @@
<data name="设置属性323224" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\设置属性323224.ICO;System.Drawing.Icon, System.Drawing, Version=4.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=4.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=4.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=4.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=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="标准件可见性1616241" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\标准件可见性161624.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="标准件可见性3232241" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\标准件可见性323224.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="确定161632" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\确定161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="编辑尺寸161632" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\编辑尺寸161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="编辑尺寸323232" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\编辑尺寸323232.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="还原161632" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\还原161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="选择161632" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\选择161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="替换为库文件1616241" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\替换为库文件161624.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="替换为库文件3232241" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\替换为库文件323224.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="标准件可见性1616242" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\标准件可见性161624.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="标准件可见性3232242" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\标准件可见性323224.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="确定1616322" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\确定161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="编辑尺寸1616321" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\编辑尺寸161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="编辑尺寸3232321" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\编辑尺寸323232.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="还原1616322" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\还原161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="选择1616322" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\选择161632.ICO;System.Drawing.Icon, System.Drawing, Version=4.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=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>
\ No newline at end of file
Release/NewVison.txt
浏览文件 @ 50979850
1230628
\ No newline at end of file
1231027
\ No newline at end of file
update/2015/update.xml 已删除 100644 → 0
浏览文件 @ d9dd2692
<?xml version="1.0"?>
<UpdateInfo xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<AppName>InventorAddIn</AppName>
<AppVersion>1.23.3.6</AppVersion>
<PublishUrl />
<FileExecuteBefore />
<FileExecuteAfter>startinventor.bat</FileExecuteAfter>
<ExecuteTimeout>0</ExecuteTimeout>
<TreatErrorAsNotUpdated>false</TreatErrorAsNotUpdated>
<PromptUserBeforeAutomaticUpgrade>true</PromptUserBeforeAutomaticUpgrade>
<AutoCloseSucceedWindow>true</AutoCloseSucceedWindow>
<Desc />
<Package>81d256c289f04ec9ac2f6381e9c4a8ce.zip</Package>
<MD5>AD59866F112D998B6513C1BEB810386E</MD5>
<DeleteMethod>None</DeleteMethod>
<PackageSize>843450</PackageSize>
<ForceUpdate>true</ForceUpdate>
<Packages>
<PackageInfo>
<FilePath>InAISetting.xml</FilePath>
<FileSize>1011</FileSize>
<Version>0.0.0.0</Version>
<PackageHash>D8D487A35DD246E3333FD29CF4C6C344</PackageHash>
<PackageName>0ff2e9ecd16f4fdd861c18ab0876be2d.zip</PackageName>
<PackageSize>633</PackageSize>
<Method>SkipIfExists</Method>
<VerificationLevel>None</VerificationLevel>
<FileHash>64FDB765B25D1D0305C1F895749C70E9</FileHash>
<Files>
<string>InAISetting.xml</string>
</Files>
</PackageInfo>
<PackageInfo>
<FilePath>InventorAddIn.dll</FilePath>
<FileSize>1615360</FileSize>
<Version>1.23.3.6</Version>
<PackageHash>AE97BD8EB3094F87E51DCF7F570163ED</PackageHash>
<PackageName>e080d2087ab84494a0f833b127f289be.zip</PackageName>
<PackageSize>331890</PackageSize>
<Method>VersionCompare</Method>
<VerificationLevel>Hash</VerificationLevel>
<FileHash>2A45BD2314A348DDA0628EADA8CE5337</FileHash>
<Files>
<string>InventorAddIn.dll</string>
</Files>
</PackageInfo>
<PackageInfo>
<FilePath>SimpleUpdater.exe</FilePath>
<FileSize>460800</FileSize>
<Version>4.3.0.0</Version>
<PackageHash>36EF028544D4FFE8BC238B5F63360555</PackageHash>
<PackageName>b0ade73accca40a0a478df7fe6df4639.zip</PackageName>
<PackageSize>165130</PackageSize>
<Method>SkipIfExists</Method>
<VerificationLevel>None</VerificationLevel>
<FileHash>1D26E9AEA002A60DC91DC9925AC72EFE</FileHash>
<Files>
<string>SimpleUpdater.exe</string>
</Files>
</PackageInfo>
<PackageInfo>
<FilePath>startinventor.bat</FilePath>
<FileSize>447</FileSize>
<Version>0.0.0.0</Version>
<PackageHash>F33A243A93DAA65DADD8F703754745BF</PackageHash>
<PackageName>69d6accfc88644cfb7342355245694d5.zip</PackageName>
<PackageSize>283</PackageSize>
<Method>VersionCompare</Method>
<VerificationLevel>Hash</VerificationLevel>
<FileHash>7B8CF2926393D10E6AA32CA9C5B01686</FileHash>
<Files>
<string>startinventor.bat</string>
</Files>
</PackageInfo>
<PackageInfo>
<FilePath>模板.idw</FilePath>
<FileSize>345600</FileSize>
<Version>0.0.0.0</Version>
<PackageHash>58559D8D6D3C97E1F7DA40ED1D15B2DE</PackageHash>
<PackageName>4d83f42a547e422aade2dedf67617624.zip</PackageName>
<PackageSize>345602</PackageSize>
<Method>SkipIfExists</Method>
<VerificationLevel>Hash</VerificationLevel>
<FileHash>B78511FC3DEAE6B076F05AD72D510429</FileHash>
<Files>
<string>模板.idw</string>
</Files>
</PackageInfo>
</Packages>
<HideBeforeExecuteWindow>false</HideBeforeExecuteWindow>
<HideAfterExecuteWindow>true</HideAfterExecuteWindow>
<WebUpdateNote>\\likai-pc\发行版\更新包\CHANGELOG.html</WebUpdateNote>
<MustUpdate>false</MustUpdate>
<AutoExitCurrentProcess>true</AutoExitCurrentProcess>
<AutoEndProcessesWithinAppDir>true</AutoEndProcessesWithinAppDir>
<AutoKillProcesses>true</AutoKillProcesses>
<RequreAdminstrorPrivilege>true</RequreAdminstrorPrivilege>
</UpdateInfo>
\ No newline at end of file
update/NewVersion.txt 已删除 100644 → 0
浏览文件 @ d9dd2692
230306
\ No newline at end of file
Markdown is supported
0% 或 .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑！
想要评论请 注册 或