||||아래와 같이 고쳐 보았습니다.
참고해 보십시오..


Sub LWpolyline_좌표2()
      
   '캐드의 활성화
    AppActivate Application.Caption
  
   '혹 선택 에러발생시 처리
   On Error Resume Next
   ThisDrawing.SelectionSets("TEMP").Delete
   On Error GoTo 0
  
   Dim i As Integer
   Dim j As Integer
  
   '선택을 하기 위한 선언
   Dim ssetObj As AcadSelectionSet
   Set ssetObj = ThisDrawing.SelectionSets.Add("TEMP")

   '캐드 화면에서 선택하라는 명령
   ssetObj.SelectOnScreen

   '여러개를 선택하였을때 한개씩 처리하는 부분
  
   Dim X좌표 As Double
   Dim Y좌표 As Double
   Dim 좌표순서 As Boolean
   Dim excel As Object
   Dim excelsheet As Object
  
   Set excel = GetObject(, "excel.application")
   Set excelsheet = excel.ActiveWorkbook.Sheets("sheet1")
    
   i = 1
   For Each 한개성분 In ssetObj
    
        j = 1
        For Each 좌표 In 한개성분.Coordinates
            excelsheet.cells(i, j) = 좌표
            j = j + 1
        Next
   i = i + 1
   Next
  
   '선택그룹을 삭제하지 않으면 두번째 실행시 에러표시 !주의!
   ThisDrawing.SelectionSets("TEMP").Delete

End Sub


이 게시물을...