AutoCAD LTをVisualBasicでコントロール

AutoCAD LT補助線グループ



 Public Class Xline

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

AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "tan" + Chr(13)) '[Oスナップ]の[接線]をONにします。
SendKeys.Send("XLINE ") 'LTに[XLINE]コマンドを送ります。

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button3.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "qua" + Chr(13)) '[Oスナップ]の[四半円点]をONにします。
SendKeys.Send("XLINE " + "H" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button4.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "qua" + Chr(13)) '[Oスナップ]の[四半円点]をONにします。
SendKeys.Send("XLINE " + "V" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button5.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
'SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[接線]をONにします。
SendKeys.Send("XLINE " + "A" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button6.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
'SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[接線]をONにします。
SendKeys.Send("XLINE " + "A" + Chr(13) + "r" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button7.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
'SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[接線]をONにします。
SendKeys.Send("XLINE " + "O" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button8.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
'SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[接線]をONにします。
SendKeys.Send("XLINE " + "O" + Chr(13) + "t" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button9.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "per" + Chr(13))'[Oスナップ]の[垂線]をONにします。
SendKeys.Send("XLINE ") 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button10.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "per" + Chr(13))'[Oスナップ]の[垂線]をONにします。
SendKeys.Send("XLINE ") 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button11.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "end" + Chr(13))'[Oスナップ]の[端点]をONにします。
SendKeys.Send("XLINE " + "B" + Chr(13)) 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button12.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("CIRCLE ") 'LTに[CIRCLE]コマンドを送ります。
End Sub

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button13.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[接線]をONにします。
SendKeys.Send("XLINE ") 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button14.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13))'[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[垂線]をONにします。
SendKeys.Send("XLINE ") 'LTに[XLINE]コマンドを送ります。
End Sub

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button15.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "cen" + Chr(13))'[Oスナップ]の[中心]をONにします。
SendKeys.Send("CIRCLE ") 'LTに[CIRCLE]コマンドを送ります。
End Sub

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button16.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "int" + Chr(13))'[Oスナップ]の[交点]をONにします。
SendKeys.Send("CIRCLE " + "2P" + Chr(13)) 'LTに[CIRCLE]コマンドを送ります。
End Sub

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button17.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "tan" + Chr(13))'[Oスナップ]の[接線]をONにします。
SendKeys.Send("CIRCLE ") 'LTに[CIRCLE]コマンドを送ります。
End Sub

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button18.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("CIRCLE " + "t" + Chr(13))'LTに[CIRCLE]コマンドを送ります。
End Sub

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button19.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "s" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層を[AM_CL]に変更します。
SendKeys.Send("-osnap " + "non" + Chr(13)) '[Oスナップ]モードをオフにします。
SendKeys.Send("-osnap " + "cen,qua" + Chr(13))'[Oスナップ]の[中心、四半円点]をONにします。
SendKeys.Send("polygon " + "4" + Chr(13)) 'LTに[polygon]コマンドを送ります。
End Sub

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button1.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "on" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層[AM_CL]を[ON]に変更します。
End Sub

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
AppActivate("autodesk autocad") 'AutoCADをアクティブにします。
SendKeys.Send("-LAYER " + "off" + Chr(13) + "AM_CL" + Chr(13) + Chr(13)) '画層[AM_CL]を[OFF]に変更します。
End Sub

End Class