Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
leaky114
inventoraddin
提交
fd325722
I
inventoraddin
项目概览
leaky114
/
inventoraddin
上一次同步 11 个月
通知
6
Star
1
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
I
inventoraddin
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
fd325722
编写于
5月 27, 2022
作者:
leaky114
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
22.5.27新增新建序号时颜色指示
上级
2b610981
变更
12
隐藏空白更改
内联
并排
Showing
12 changed file
with
105 addition
and
55 deletion
+105
-55
AssemblyInfo.vb
AssemblyInfo.vb
+2
-2
CHANGELOG
CHANGELOG
+0
-0
Form/frmAbout.vb
Form/frmAbout.vb
+13
-3
Form/frmAutoPartNumber.Designer.vb
Form/frmAutoPartNumber.Designer.vb
+2
-2
Form/frmAutoPartNumber.vb
Form/frmAutoPartNumber.vb
+2
-1
Form/frmInventoryCoding.vb
Form/frmInventoryCoding.vb
+1
-1
Form/frmQuitOpen.Designer.vb
Form/frmQuitOpen.Designer.vb
+6
-6
Form/frmQuitOpen.vb
Form/frmQuitOpen.vb
+11
-2
Form/frmUpdate.vb
Form/frmUpdate.vb
+1
-1
Module/Inventorbasic.vb
Module/Inventorbasic.vb
+56
-27
Module/NewUpdater.vb
Module/NewUpdater.vb
+11
-10
StandardAddInServer.vb
StandardAddInServer.vb
+0
-0
未找到文件。
AssemblyInfo.vb
浏览文件 @
fd325722
...
...
@@ -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.22.5.11"
)
>
<
Assembly
:
AssemblyFileVersionAttribute
(
"1.22.5.11"
)
>
\ No newline at end of file
<
Assembly
:
AssemblyVersion
(
"1.22.5.27"
)
>
<
Assembly
:
AssemblyFileVersionAttribute
(
"1.22.5.27"
)
>
\ No newline at end of file
CHANGELOG
浏览文件 @
fd325722
B
更新日志
...
...
Form/frmAbout.vb
浏览文件 @
fd325722
Imports
FSLib.App.SimpleUpdater
'
Imports FSLib.App.SimpleUpdater
Public
NotInheritable
Class
frmAbout
...
...
@@ -26,9 +26,19 @@ Public NotInheritable Class frmAbout
My
.
Application
.
Info
.
DirectoryPath
&
"\"
&
My
.
Application
.
Info
.
AssemblyName
&
".dll"
'释放更新程序
NewUpdater
.
CreateUpdate
()
NewUpdater
.
CreateUpdate
Exe
()
NewUpdater
.
UpDater2
(
btnCheckUpdate
)
'检查释放有新版本
Select
Case
NewUpdater
.
CheckNewVesion
()
Case
"New"
With
btnCheckUpdate
.
Text
=
"当前为最新版"
.
Visible
=
False
End
With
Case
Else
btnCheckUpdate
.
Text
=
"检查到新版"
&
NewVersion
End
Select
End
Sub
...
...
Form/frmAutoPartNumber.Designer.vb
浏览文件 @
fd325722
...
...
@@ -102,8 +102,8 @@ Partial Class frmAutoPartNumber
'
Me
.
lvwFile
.
AllowDrop
=
True
Me
.
lvwFile
.
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
.
lvwFile
.
Columns
.
AddRange
(
New
System
.
Windows
.
Forms
.
ColumnHeader
()
{
Me
.
chOriginalFileName
,
Me
.
chType
,
Me
.
chNewFileName
,
Me
.
chFolder
})
Me
.
lvwFile
.
FullRowSelect
=
True
Me
.
lvwFile
.
Location
=
New
System
.
Drawing
.
Point
(
13
,
12
)
...
...
Form/frmAutoPartNumber.vb
浏览文件 @
fd325722
...
...
@@ -75,7 +75,8 @@ Public Class frmAutoPartNumber
999
:
Next
MsgBox
(
"自动命名图号完成"
,
MsgBoxStyle
.
Information
+
MsgBoxStyle
.
OkOnly
,
"自动命名图号"
)
SetStatusBarText
(
"自动命名图号完成!"
)
'MsgBox("自动命名图号完成", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "自动命名图号")
btnStart
.
Enabled
=
True
Catch
ex
As
Exception
...
...
Form/frmInventoryCoding.vb
浏览文件 @
fd325722
...
...
@@ -4,10 +4,10 @@ Imports Inventor.SelectTypeEnum
Imports
Inventor.DocumentTypeEnum
Imports
Inventor
Imports
Microsoft.Office.Interop
Imports
stdole
Public
Class
frmInventoryCoding
Private
Sub
btnLoadFile_Click
(
ByVal
sender
As
System
.
Object
,
ByVal
e
As
System
.
EventArgs
)
Handles
btnLoadFile
.
Click
btnLoadFile
.
Enabled
=
False
...
...
Form/frmQuitOpen.Designer.vb
浏览文件 @
fd325722
...
...
@@ -31,7 +31,7 @@ Partial Class frmQuitOpen
'OK_Button
'
Me
.
OK_Button
.
Anchor
=
CType
((
System
.
Windows
.
Forms
.
AnchorStyles
.
Bottom
Or
System
.
Windows
.
Forms
.
AnchorStyles
.
Right
),
System
.
Windows
.
Forms
.
AnchorStyles
)
Me
.
OK_Button
.
Location
=
New
System
.
Drawing
.
Point
(
520
,
13
6
)
Me
.
OK_Button
.
Location
=
New
System
.
Drawing
.
Point
(
667
,
29
6
)
Me
.
OK_Button
.
Name
=
"OK_Button"
Me
.
OK_Button
.
Size
=
New
System
.
Drawing
.
Size
(
75
,
28
)
Me
.
OK_Button
.
TabIndex
=
2
...
...
@@ -41,7 +41,7 @@ Partial Class frmQuitOpen
'
Me
.
Cancel_Button
.
Anchor
=
CType
((
System
.
Windows
.
Forms
.
AnchorStyles
.
Bottom
Or
System
.
Windows
.
Forms
.
AnchorStyles
.
Right
),
System
.
Windows
.
Forms
.
AnchorStyles
)
Me
.
Cancel_Button
.
DialogResult
=
System
.
Windows
.
Forms
.
DialogResult
.
Cancel
Me
.
Cancel_Button
.
Location
=
New
System
.
Drawing
.
Point
(
600
,
13
6
)
Me
.
Cancel_Button
.
Location
=
New
System
.
Drawing
.
Point
(
747
,
29
6
)
Me
.
Cancel_Button
.
Name
=
"Cancel_Button"
Me
.
Cancel_Button
.
Size
=
New
System
.
Drawing
.
Size
(
75
,
28
)
Me
.
Cancel_Button
.
TabIndex
=
3
...
...
@@ -50,7 +50,8 @@ Partial Class frmQuitOpen
'lvwFileListView
'
Me
.
lvwFileListView
.
AllowColumnReorder
=
True
Me
.
lvwFileListView
.
Anchor
=
CType
(((
System
.
Windows
.
Forms
.
AnchorStyles
.
Top
Or
System
.
Windows
.
Forms
.
AnchorStyles
.
Left
)
_
Me
.
lvwFileListView
.
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
.
lvwFileListView
.
AutoArrange
=
False
Me
.
lvwFileListView
.
Columns
.
AddRange
(
New
System
.
Windows
.
Forms
.
ColumnHeader
()
{
Me
.
ColumnHeader1
})
...
...
@@ -58,7 +59,7 @@ Partial Class frmQuitOpen
Me
.
lvwFileListView
.
Location
=
New
System
.
Drawing
.
Point
(
12
,
12
)
Me
.
lvwFileListView
.
MultiSelect
=
False
Me
.
lvwFileListView
.
Name
=
"lvwFileListView"
Me
.
lvwFileListView
.
Size
=
New
System
.
Drawing
.
Size
(
663
,
118
)
Me
.
lvwFileListView
.
Size
=
New
System
.
Drawing
.
Size
(
810
,
266
)
Me
.
lvwFileListView
.
Sorting
=
System
.
Windows
.
Forms
.
SortOrder
.
Ascending
Me
.
lvwFileListView
.
TabIndex
=
37
Me
.
lvwFileListView
.
UseCompatibleStateImageBehavior
=
False
...
...
@@ -73,11 +74,10 @@ Partial Class frmQuitOpen
'
Me
.
AutoScaleDimensions
=
New
System
.
Drawing
.
SizeF
(
6.0
!,
12.0
!)
Me
.
AutoScaleMode
=
System
.
Windows
.
Forms
.
AutoScaleMode
.
Font
Me
.
ClientSize
=
New
System
.
Drawing
.
Size
(
687
,
17
6
)
Me
.
ClientSize
=
New
System
.
Drawing
.
Size
(
834
,
33
6
)
Me
.
Controls
.
Add
(
Me
.
lvwFileListView
)
Me
.
Controls
.
Add
(
Me
.
OK_Button
)
Me
.
Controls
.
Add
(
Me
.
Cancel_Button
)
Me
.
FormBorderStyle
=
System
.
Windows
.
Forms
.
FormBorderStyle
.
FixedDialog
Me
.
MaximizeBox
=
False
Me
.
MinimizeBox
=
False
Me
.
Name
=
"frmQuitOpen"
...
...
Form/frmQuitOpen.vb
浏览文件 @
fd325722
...
...
@@ -9,9 +9,18 @@ Public Class frmQuitOpen
Private
Sub
OK_Button_Click
(
sender
As
System
.
Object
,
e
As
System
.
EventArgs
)
Handles
OK_Button
.
Click
If
lvwFileListView
.
SelectedItems
.
Count
<>
0
Then
ThisApplication
.
Documents
.
Open
(
lvwFileListView
.
SelectedItems
(
0
).
Text
)
'ThisApplication.Documents.Open(lvwFileListView.SelectedItems(0).Text)
Process
.
Start
(
lvwFileListView
.
SelectedItems
(
0
).
Text
)
End
If
Me
.
DialogResult
=
System
.
Windows
.
Forms
.
DialogResult
.
OK
me
.
close
Me
.
Close
()
End
Sub
Private
Sub
lvwFileListView_SelectedIndexChanged
(
ByVal
sender
As
System
.
Object
,
ByVal
e
As
System
.
EventArgs
)
Handles
lvwFileListView
.
SelectedIndexChanged
If
lvwFileListView
.
SelectedItems
.
Count
<>
0
Then
'ThisApplication.Documents.Open(lvwFileListView.SelectedItems(0).Text)
Process
.
Start
(
lvwFileListView
.
SelectedItems
(
0
).
Text
)
End
If
Me
.
Close
()
End
Sub
End
Class
Form/frmUpdate.vb
浏览文件 @
fd325722
Imports
System.Windows.Forms
Imports
FSLib.App.SimpleUpdater
'
Imports FSLib.App.SimpleUpdater
Imports
System.IO
Public
Class
frmUpdate
...
...
Module/Inventorbasic.vb
浏览文件 @
fd325722
...
...
@@ -1351,37 +1351,66 @@ Module InventorBasic
partslistrow
.
Item
(
1
).
Value
=
0
End
If
Next
'
' '点击每个序号组
' Dim oBalloon As Balloon
' For i = 1 To oActiveSheet.PartsLists.Item(1).PartsListRows.Count
' oBalloon = ThisApplication.CommandManager.Pick(kDrawingBalloonFilter, "选择引出序号")
' '遍历序号组中的序号,不为0就设置序号,并加1,设置下一个,有序号则跳过
' For Each oBalloonValueSet As BalloonValueSet In oBalloon.BalloonValueSets
' If oBalloonValueSet.Value = 0 Then
' oBalloonValueSet.Value = i
' i = i + 1
' End If
' Next
' '多加的1要减去
' i = i - 1
' Next
'获取当前balloon的textstyle
Dim
OldBalloonTextStyl
As
String
=
oDrawingDocument
.
StylesManager
.
ActiveStandardStyle
.
ActiveObjectDefaults
.
BalloonStyle
.
TextStyle
.
Name
'获取当前balloonstyle
Dim
oActiveBalloonStyle
As
BalloonStyle
=
oDrawingDocument
.
StylesManager
.
ActiveStandardStyle
.
ActiveObjectDefaults
.
BalloonStyle
'新建 ZeroBalloonText
Try
If
oDrawingDocument
.
StylesManager
.
TextStyles
.
Item
(
"ZeroBalloonText"
)
Is
Nothing
Then
End
If
Catch
ex
As
Exception
Dim
oZeroBalloonText
As
TextStyle
oZeroBalloonText
=
oDrawingDocument
.
StylesManager
.
TextStyles
.
Item
(
OldBalloonTextStyl
).
Copy
(
"ZeroBalloonText"
)
Dim
oZeroBalloonTextColor
As
Color
=
ThisApplication
.
TransientObjects
.
CreateColor
(
255
,
0
,
128
)
oZeroBalloonText
.
Color
=
oZeroBalloonTextColor
End
Try
'设置当前balloon style 为新的 zeroballoonstyle
oActiveBalloonStyle
.
TextStyle
=
oDrawingDocument
.
StylesManager
.
TextStyles
.
Item
(
"ZeroBalloonText"
)
' '' ''
' '' '' '点击每个序号组
' '' '' Dim oBalloon As Balloon
' '' '' For i = 1 To oActiveSheet.PartsLists.Item(1).PartsListRows.Count
' '' '' oBalloon = ThisApplication.CommandManager.Pick(kDrawingBalloonFilter, "选择引出序号")
' '' '' '遍历序号组中的序号,不为0就设置序号,并加1,设置下一个,有序号则跳过
' '' '' For Each oBalloonValueSet As BalloonValueSet In oBalloon.BalloonValueSets
' '' '' If oBalloonValueSet.Value = 0 Then
' '' '' oBalloonValueSet.Value = i
' '' '' i = i + 1
' '' '' End If
' '' '' Next
' '' '' '多加的1要减去
' '' '' i = i - 1
' '' '' Next
'点击每个序号组
Dim
oBalloon
As
Balloon
Do
oBalloon
=
ThisApplication
.
CommandManager
.
Pick
(
kDrawingBalloonFilter
,
"选择引出序号"
)
Try
Dim
oBalloon
As
Balloon
Do
oBalloon
=
ThisApplication
.
CommandManager
.
Pick
(
kDrawingBalloonFilter
,
"选择引出序号"
)
For
Each
oBalloonValueSet
As
BalloonValueSet
In
oBalloon
.
BalloonValueSets
'If (oBalloonValueSet.Value >= FirstBalloonNumber) Then
If
oBalloonValueSet
.
Value
=
0
Then
oBalloonValueSet
.
Value
=
BalloonNumber
BalloonNumber
=
BalloonNumber
+
1
End
If
Next
Loop
While
True
Catch
ex
As
Exception
For
Each
oBalloonValueSet
As
BalloonValueSet
In
oBalloon
.
BalloonValueSets
'If (oBalloonValueSet.Value >= FirstBalloonNumber) Then
If
oBalloonValueSet
.
Value
=
0
Then
oBalloonValueSet
.
Value
=
BalloonNumber
BalloonNumber
=
BalloonNumber
+
1
End
If
Next
Loop
While
True
'esc 退出后,还原balloon style
oActiveBalloonStyle
.
TextStyle
=
oDrawingDocument
.
StylesManager
.
TextStyles
.
Item
(
OldBalloonTextStyl
)
Return
True
Return
True
End
Try
End
Function
'检查序号完整性
...
...
Module/NewUpdater.vb
浏览文件 @
fd325722
Imports
FSLib.App.SimpleUpdater
'
Imports FSLib.App.SimpleUpdater
Imports
System.Windows.Forms
Module
NewUpdater
...
...
@@ -30,7 +30,7 @@ Module NewUpdater
' End Try
'End Sub
Public
Sub
UpDater2
(
ByVal
btnCheckUpDate
As
Button
)
Public
Function
CheckNewVesion
()
As
String
Try
Dim
NewVersionInfo
As
String
=
"\\Likai-pc\发行版\2011\NewVersion.txt"
...
...
@@ -62,21 +62,22 @@ Module NewUpdater
'simupdate = My.Application.Info.DirectoryPath & "\simupdater.exe"
'Process.Start(simupdate)
btnCheckUpDate
.
Text
=
"检查到新版"
&
NewVersion
'btnCheckUpDate.Text = "检查到新版" & NewVersion
Return
NewVersion
Else
With
btnCheckUpDate
.
Text
=
"当前为最新版"
.
Visible
=
False
End
With
Return
"New"
End
If
Else
Return
"Null"
End
If
Catch
ex
As
Exception
'MsgBox(ex.Message)
Return
"Null"
End
Try
End
Sub
End
Function
Public
Function
ShortVersion
(
ByVal
LongVesion
As
String
)
As
Long
...
...
@@ -109,7 +110,7 @@ Module NewUpdater
End
Try
End
Sub
Public
Function
CreateUpdate
()
As
Boolean
Public
Function
CreateUpdate
Exe
()
As
Boolean
Try
Dim
path
As
String
=
ThisApplication
.
InstallPath
&
"Bin\SimpleUpdater.exe"
'文件释放路径
...
...
StandardAddInServer.vb
浏览文件 @
fd325722
B
'设置为一个动作,可一次撤销
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录