none
피 호출자 호출 거부 0x80010001 문의 RRS feed

  • 질문

  • Imports System

    Imports System.Math
    Imports AutoCAD 'AUTOACAD      
    Imports AutoCAD.AcadDocumentClass 'AUTOACAD 

    Module CAD_표준도면
        Sub 표준DWG() 'dwg file name 'Function ' 표준 도면 수정
            DWGNAME = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg" 'OPEN 도면 이름
            On Error Resume Next
            acadApp = GetObject(, "autocad.Application")
            If Err.Number <> 0 Then
                Err.Clear()
                acadApp = CreateObject("autocad.Application")
            End If
            acadApp.Visible = True
            Err.Clear()

            acadDoc = acadApp.Documents.Open(DWGNAME) 
            '-----------------------------------------------
            acadDoc = acadApp.ActiveDocument  <- 에라
            acadutil = acadDoc.Utility
            moSpace = acadDoc.ModelSpace

           On Error Resume Next
             acadDoc.SelectionSets("MySS").Delete <- 에라
           On Error GoTo 0

    vb.net 2019 사용 합니다.

    windows 8 -> windows 10 으로 갈아 탄 이후

    도면 작도 프로그램을 하고 있습니다.

    " 예외 처리되지 않음
    System.Runtime.InteropServices.COMException: '피호출자가 호출을 거부했습니다. (예외가 발생한 HRESULT: 0x80010001 (RPC_E_CALL_REJECTED))'"
    발생 합니다.

    노트북에서는 심하고 / 테스크 탑에서는 도면을 두장을 그릴수 있습니다.
    왜 그럴까요 어떻게 예외; 처리 할수 있을까요

    2022년 4월 15일 금요일 오전 7:40

답변

  • 감사 합니다.
    지난 5일간 이런 답이라도 주셔서 감사 합니다.

    아무도 읽지 않는줄 알았습니다.

    쪼금 서운 합니다.
    autoacad을 이용하는 것은 맞습니다. 하지만 cad에서는 에러가 아니었습니다.

    제가 변수에 또는 빌드의 옵션으로 이러난 에라였습니다.

    DWGNAME = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg" (이부분이 에라 였습니다.)

    dim DWGNAME AS STRING = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg"
    (에라가 해결됨)

    dim DWGNAME AS STRING  '이변수는 공통 변수 화일에 있습니다.
    재 설정을 해야 에라가 잡이든데요.
    이것은 AUTOCAD와는 무관 하다고 봅니다.

    • 답변으로 표시됨 박희철 2022년 4월 21일 목요일 오전 5:06
    2022년 4월 21일 목요일 오전 5:05
  • 감사 합니다.
    지난 5일간 이런 답이라도 주셔서 감사 합니다.

    아무도 읽지 않는줄 알았습니다.

    쪼금 서운 합니다.

    DWGNAME = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg" (이부분이 에라 였습니다.)

    dim DWGNAME AS STRING = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg"

    acadDoc.Close() -> acadDoc.Close(False) (이 부분 에라)

     acadDoc = Nothing '(추가)

    내용은 acad 열고 닫음 후 초기화 하는것으로 에라를 잡았습니다.

    • 답변으로 표시됨 박희철 2022년 4월 25일 월요일 오전 10:53
    2022년 4월 25일 월요일 오전 10:53

모든 응답

  • 안녕하십니까, 박희철 님
    포럼에 질문 주셔서 감사합니다.
    아쉽게도 Autocad는 타사 프로그램이라서 지원되지 않습니다. 추가 도움이 필요한 경우 아래 포럼에 질문을 게시하는 것을 추천드립니다.
    AUTOCAD Community
    이해해 주시기 바랍니다.

    위 웹 사이트는 Microsoft에서 호스팅 하지 않았기에 링크가 변경될 수 있습니다. Microsoft는 해당 정보의 정확성을 보증하지 않습니다.

    MSDN Community Support Elin

     다른 커뮤니티 멤버에게 도움이 될 수 있게 문제를 해결 한 답변을 '답변으로 표시'를 클릭하시고 그렇지 않은 경우 '답변으로 표시 취소'를 클릭하시기 바랍니다. MSDN 서포트에 대한 의견이나 불만이 있을 경우 MSDNFSF@microsoft.com 으로 연락하시기 바랍니다.

    2022년 4월 18일 월요일 오전 6:10
    중재자
  • 감사 합니다.
    지난 5일간 이런 답이라도 주셔서 감사 합니다.

    아무도 읽지 않는줄 알았습니다.

    쪼금 서운 합니다.
    autoacad을 이용하는 것은 맞습니다. 하지만 cad에서는 에러가 아니었습니다.

    제가 변수에 또는 빌드의 옵션으로 이러난 에라였습니다.

    DWGNAME = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg" (이부분이 에라 였습니다.)

    dim DWGNAME AS STRING = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg"
    (에라가 해결됨)

    dim DWGNAME AS STRING  '이변수는 공통 변수 화일에 있습니다.
    재 설정을 해야 에라가 잡이든데요.
    이것은 AUTOCAD와는 무관 하다고 봅니다.

    • 답변으로 표시됨 박희철 2022년 4월 21일 목요일 오전 5:06
    2022년 4월 21일 목요일 오전 5:05
  • 감사 합니다.
    지난 5일간 이런 답이라도 주셔서 감사 합니다.

    아무도 읽지 않는줄 알았습니다.

    쪼금 서운 합니다.

    DWGNAME = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg" (이부분이 에라 였습니다.)

    dim DWGNAME AS STRING = 함수.App_Path() & "AHU_DWG\SCAN\도면폼\A_표준도면_1.dwg"

    acadDoc.Close() -> acadDoc.Close(False) (이 부분 에라)

     acadDoc = Nothing '(추가)

    내용은 acad 열고 닫음 후 초기화 하는것으로 에라를 잡았습니다.

    • 답변으로 표시됨 박희철 2022년 4월 25일 월요일 오전 10:53
    2022년 4월 25일 월요일 오전 10:53