'*コマンドの処理の開始 (LINE コマンド) /Cmd2VbaACADApp_BeginCommand イベント/

'コマンドの処理の開始 (LINE コマンド) /AcadDocument イベント/

'座標が入力されました　(100, 100, 0)
'　※ 現在の空間のUCS　名前:名前はありません, 原点(0,0,0), X方向(1,0,0), Y方向(0,1,0)
'　※ 次も同じ座標値が入力された場合にはイベントからは入力を取得できません
'　※ 通常、コマンド処理中に入力された座標値は最後の座標値しか取得できません
'　※ 図面ウインドウを切替えた時にも、座標値が取得されます

'図面にオブジェクトが追加されました (オブジェクト名: IAcadLine, ObjectID: 1074265760)
Dim lineObj            As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2)   As Double
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0
endPoint(0) = 100: endPoint(1) = 100: endPoint(2) = 0
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
 'ユーザー入力で選択された点を取得の場合はこちら
 'Dim startPoint1 As Variant
 'Dim endPoint1   As Variant
 'ActiveDocument.SendCommand Chr(3) & Chr(3)
 'startPoint1 = ThisDrawing.Utility.GetPoint(, "_line 1 点目を指定 ")
 'endPoint1 = ThisDrawing.Utility.GetPoint(startPoint1, "次の点を指定: ")
 'Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint1, endPoint1)
lineObj.Update
Set lineObj = Nothing

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadLine, ObjectID: 1074265760)

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadModelSpace, ObjectID: 1074265336)

'座標が入力されました　(200, 200, 0)
'　※ 現在の空間のUCS　名前:名前はありません, 原点(0,0,0), X方向(1,0,0), Y方向(0,1,0)
'　※ 次も同じ座標値が入力された場合にはイベントからは入力を取得できません
'　※ 通常、コマンド処理中に入力された座標値は最後の座標値しか取得できません
'　※ 図面ウインドウを切替えた時にも、座標値が取得されます

'図面にオブジェクトが追加されました (オブジェクト名: IAcadLine, ObjectID: 1074265768)
Dim lineObj            As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2)   As Double
startPoint(0) = 100: startPoint(1) = 100: startPoint(2) = 0
endPoint(0) = 200: endPoint(1) = 200: endPoint(2) = 0
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
 'ユーザー入力で選択された点を取得の場合はこちら
 'Dim startPoint1 As Variant
 'Dim endPoint1   As Variant
 'ActiveDocument.SendCommand Chr(3) & Chr(3)
 'startPoint1 = ThisDrawing.Utility.GetPoint(, "_line 1 点目を指定 ")
 'endPoint1 = ThisDrawing.Utility.GetPoint(startPoint1, "次の点を指定: ")
 'Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint1, endPoint1)
lineObj.Update
Set lineObj = Nothing

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadLine, ObjectID: 1074265768)

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadModelSpace, ObjectID: 1074265336)

'座標が入力されました　(300, 300, 0)
'　※ 現在の空間のUCS　名前:名前はありません, 原点(0,0,0), X方向(1,0,0), Y方向(0,1,0)
'　※ 次も同じ座標値が入力された場合にはイベントからは入力を取得できません
'　※ 通常、コマンド処理中に入力された座標値は最後の座標値しか取得できません
'　※ 図面ウインドウを切替えた時にも、座標値が取得されます

'図面にオブジェクトが追加されました (オブジェクト名: IAcadLine, ObjectID: 1074265776)
Dim lineObj            As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2)   As Double
startPoint(0) = 200: startPoint(1) = 200: startPoint(2) = 0
endPoint(0) = 300: endPoint(1) = 300: endPoint(2) = 0
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
 'ユーザー入力で選択された点を取得の場合はこちら
 'Dim startPoint1 As Variant
 'Dim endPoint1   As Variant
 'ActiveDocument.SendCommand Chr(3) & Chr(3)
 'startPoint1 = ThisDrawing.Utility.GetPoint(, "_line 1 点目を指定 ")
 'endPoint1 = ThisDrawing.Utility.GetPoint(startPoint1, "次の点を指定: ")
 'Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint1, endPoint1)
lineObj.Update
Set lineObj = Nothing

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadLine, ObjectID: 1074265776)

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadModelSpace, ObjectID: 1074265336)

'座標が入力されました　(400, 400, 0)
'　※ 現在の空間のUCS　名前:名前はありません, 原点(0,0,0), X方向(1,0,0), Y方向(0,1,0)
'　※ 次も同じ座標値が入力された場合にはイベントからは入力を取得できません
'　※ 通常、コマンド処理中に入力された座標値は最後の座標値しか取得できません
'　※ 図面ウインドウを切替えた時にも、座標値が取得されます

'図面にオブジェクトが追加されました (オブジェクト名: IAcadLine, ObjectID: 1074265784)
Dim lineObj            As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2)   As Double
startPoint(0) = 300: startPoint(1) = 300: startPoint(2) = 0
endPoint(0) = 400: endPoint(1) = 400: endPoint(2) = 0
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
 'ユーザー入力で選択された点を取得の場合はこちら
 'Dim startPoint1 As Variant
 'Dim endPoint1   As Variant
 'ActiveDocument.SendCommand Chr(3) & Chr(3)
 'startPoint1 = ThisDrawing.Utility.GetPoint(, "_line 1 点目を指定 ")
 'endPoint1 = ThisDrawing.Utility.GetPoint(startPoint1, "次の点を指定: ")
 'Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint1, endPoint1)
lineObj.Update
Set lineObj = Nothing

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadLine, ObjectID: 1074265784)

'図面内のオブジェクトが変更されました (オブジェクト名: IAcadModelSpace, ObjectID: 1074265336)

'*コマンドの処理が完了 (LINE コマンド) /Cmd2VbaACADApp_EndCommand イベント/

'コマンドの処理が完了 (LINE コマンド) /AcadDocument イベント/