SolidWorks 使い方 入門

ソリッドワークス

株式会社 サンエツ

SolidWorks APIの基本操作編
「Class Form1」のコードのコードの作成
  1. 「Form1_Shown」イベントで「NumericUpDown1」の初期値を設定します。 こちらはデザイナー画面のプロパティの編集でも設定できます。
  2. 「NumericUpDown1_ValueChanged」イベントで「NumericUpDown1」の値が変化した場合 制限値を超えたらカスタムエラーにします。
  3. 「Button1_Click」イベントで「Class calc」の作成と「NumericUpDown1」の値を「Class calc」 に渡してフォームを閉じます。
デザイナー画面の画像を掲載しますので参考にしてください。
記号の表示はアルファベット1文字ですので「NumericUpDown1_ValueChanged」イベントでは 行数が2行から25行までに制限します。コードはこのようにしました。アルファベットは27文字ありますのでもっと 増やしてもいいですね。
    Private Sub  NumericUpDown1_ValueChanged( ByVal sender  As System.Object,  ByVal  As System.EventArgs)  Handles  NumericUpDown1.ValueChanged 
       
If  NumericUpDown1.Value < 2  Then 
           
NumericUpDown1.Value = 2 
       
ElseIf  NumericUpDown1.Value > 25  Then 
           
NumericUpDown1.Value = 25 
       
End If 
   End Sub

「Class calc」の作成をします。

Dim cl As New calc()

「NumericUpDown1」の値を変数intに代入します。

Dim int As Integer = NumericUpDown1.Value

「Class calc」に値を渡します。

cl.adrow(int)

adrowは「Class SolidWorksMacro」の中で作成します。


値を「Class calc」に渡したら」Form1は必要ありませんので閉じます。

Me.Close()
Button1_Clickイベントのコードです。
    Private Sub  Button1_Click(ByVal  sender As  System.Object, ByVal  As  System.EventArgs) Handles  Button1.Click 
       
'Class calcの作成 
       
Dim  cl As New  calc() 
       
'NumericUpDown1の値をintに代入 
       
Dim  int As Integer  = NumericUpDown1.Value 
       
'Class calcに値を渡す 
       
cl.adrow(int) 
       
'Form1を閉じる 
       
Me .Close() 
   
End Sub
このページでは「Class Form1」のコードを作成しました。次はマクロで生成した 「Class SolidWorksMacro」の編集をします。
前のページに戻る場合はコチラ↓
基本操作編INDEXに戻る場合はコチラ↓
株式会社 サンエツ
〒252-113 神奈川県綾瀬市小園883-1
TEL :0467-76-7228
FAX :0467-77-3448
E-mail :info@sanetu.main.jp
URL : http://sanetu.main.jp