簡単なアプリケーション
コードの作成からショートカットアイコンの作成まで。今回の作成方法を元に皆さんは
使い易いオリジナリティなアプリケーションを作ってください。
今回の目標
- コードの作成
- コードの編集とクラスの作成
- アイコンをソリッドワークスのツールバーに表示するところまでです。
作成するプログラムの内容
下の画像のようなFormを表示して「ヌメリックアップダウン」コントロールで
検査表の行数を決めてボタンをクリックすると図面に検査表が表示される
といった簡単なものです。
作成された検査表の画像です。
生成されたコードの全文です。
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports System
Partial Class
SolidWorksMacro
Public Sub
main()
Dim swDoc
As
ModelDoc2 =
Nothing
Dim
swPart As
PartDoc =
Nothing
Dim
swDrawing As
DrawingDoc =
Nothing
Dim
swAssembly As
AssemblyDoc =
Nothing
Dim
boolstatus
As Boolean
= False
Dim
longstatus
As Integer
= 0
Dim longwarnings
As Integer = 0
swDoc =
CType
(swApp.ActiveDoc, ModelDoc2)
Dim
myTable As
TableAnnotation =
Nothing
swDrawing = CType
(swDoc, DrawingDoc)
myTable =
CType
(swDrawing.InsertTableAnnotation(-0.05, -0.007, 1, 5, 5), TableAnnotation)
If
(Not
(myTable) Is Nothing
)
Then
myTable.BorderLineWeight = 0
myTable.GridLineWeight = 0
End If
End Sub
'''
''' The SldWorks swApp variable is pre-assigned for you.
'''
Public swApp
As SldWorks
End Class
下記のコードは必要がありませんので削除します。
Dim swPart As PartDoc = Nothing
Dim swAssembly As AssemblyDoc = Nothing
Dim longstatus As Integer = 0
Dim longwarnings As Integer = 0