AutoCAD LTをVisualBasicでコントロール


このプログラムで使用する画像はここからダウンロードして下さい。　→　CadData.zip
窓自動作成

Public Class MainForm
''-------------------------------------------------------------------------------------------------------------------------------------

　

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim A, B As Integer

A = Integer.Parse(TextBox1.Text)
B = Integer.Parse(TextBox2.Text)

'枠を作図
' AutoCAD をアクティブにします。
AppActivate("Autodesk AutoCAD")
'LTに[RECTANG]コマンドを送ります。
SendKeys.Send("rectang 0,0 " & A & "," & B & Chr(13))
SendKeys.Send("select L ")
'扉を作図
'LTに[ARC]コマンドを送ります。
SendKeys.Send("arc c 0," & B & Chr(13) & A & "," & B & " a 90" & Chr(13))
SendKeys.Send("select L P ")
'LTに[LINE]コマンドを送ります。
SendKeys.Send("line 0," & B & Chr(13) & "0," & (A + B) & Chr(13) & Chr(13))
SendKeys.Send("select L P ")
'LTに[MOVE]コマンドを送ります。
SendKeys.Send("move L P 0,0" & Chr(13))
End Sub
''-------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Application.Exit()
End Sub
''-------------------------------------------------------------------------------------------------------------------------------------

　

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim A, B As Integer

A = Integer.Parse(TextBox4.Text)
B = Integer.Parse(TextBox3.Text)

' AutoCAD をアクティブにします。
AppActivate("Autodesk AutoCAD")

'枠を作図
'LTに[RECTANG]コマンドを送ります。
SendKeys.Send("rectang 0,0 " & (2 * A) & "," & B & Chr(13))
SendKeys.Send("select L ")
'左の扉を作図
'LTに[ARC]コマンドを送ります。
SendKeys.Send("arc c 0," & B & Chr(13) & A & "," & B & " a 90" & Chr(13))
SendKeys.Send("select L P ")
'LTに[LINE]コマンドを送ります。
SendKeys.Send("line 0," & B & Chr(13) & "0," & (A + B) & Chr(13))
SendKeys.Send("select L P ")
'右の扉を作図
'LTに[ARC]コマンドを送ります。
SendKeys.Send("arc c " & (2 * A) & "," & B & Chr(13) & (2 * A) & "," & (A + B) & " a 90" & Chr(13))
SendKeys.Send("select L P ")
'LTに[LINE]コマンドを送ります。
SendKeys.Send("line " & (2 * A) & "," & B & Chr(13) & (2 * A) & "," & (A + B) & Chr(13) & Chr(13))
SendKeys.Send("select L P ")
'LTに[MOVE]コマンドを送ります。
SendKeys.Send("move L P 0,0" & Chr(13))
End Sub
''-------------------------------------------------------------------------------------------------------------------------------------

　

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim A, B, C As Integer

A = Integer.Parse(TextBox6.Text)
B = Integer.Parse(TextBox5.Text)
C = Integer.Parse(TextBox7.Text)

' AutoCAD をアクティブにします。
AppActivate("Autodesk AutoCAD")

'枠を作図
LTに[RECTANG]コマンドを送ります。
SendKeys.Send("rectang 0,0 " & (A + C) & "," & B & Chr(13))
SendKeys.Send("select L ")
'左の扉を作図
'LTに[ARC]コマンドを送ります。
SendKeys.Send("arc c 0," & B & Chr(13) & A & "," & B & " a 90" & Chr(13))
SendKeys.Send("select L P ")
'LTに[LINE]コマンドを送ります。
SendKeys.Send("line 0," & B & Chr(13) & "0," & (A + B) & Chr(13))
SendKeys.Send("select L P ")
'右の扉を作図
'LTに[ARC]コマンドを送ります。
SendKeys.Send("arc c " & (A + C) & "," & B & Chr(13) & (A + C) & "," & (B + C) & " a 90" & Chr(13))
SendKeys.Send("select L P ")
'LTに[LINE]コマンドを送ります。
SendKeys.Send("line " & (A + C) & "," & B & Chr(13) & (A + C) & "," & (B + C) & Chr(13) & Chr(13))
SendKeys.Send("select L P ")
'LTに[MOVE]コマンドを送ります。
SendKeys.Send("move L P 0,0" & Chr(13))
End Sub
''-------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Application.Exit()
End Sub
''-------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Application.Exit()
End Sub
''-------------------------------------------------------------------------------------------------------------------------------------
End Class