마우스로 위치를 찍어 이동하고자 하는 경우는 어떻게 코딩을 해야 하나요?

Sub 이동예제()

        On Error Resume Next
            If ThisDrawing.SelectionSets(“SSET”) Then _
                ThisDrawing.SelectionSets(“SSET”).Delete
        On Error GoTo 0

        Dim ssetObj As AcadSelectionSet
        Set ssetObj = ThisDrawing.SelectionSets.Add(“SSET”)

        ssetObj.SelectOnScreen

        Dim point1(0 To 2) As Double
        Dim point2(0 To 2) As Double
        point1(0) = 0: point1(1) = 0: point1(2) = 0
        point2(0) = 200: point2(1) = 0: point2(2) = 0

        For Each 한개성분 In ssetObj      
          한개성분.Move point1,point2
        Next 한개성분                      

        ThisDrawing.Application.Update
        ThisDrawing.SelectionSets(“SSET”).Delete

        End Sub

——————————————————————————————————————–
여기서