피 호출자 호출 거부 0x80010001 문의

Question

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))'"
발생 합니다.

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

Answer 1

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

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

MSDN Community Support Elin

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

Answer 2

감사 합니다.
지난 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와는 무관 하다고 봅니다.

Answer 3

감사 합니다.
지난 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 열고 닫음 후 초기화 하는것으로 에라를 잡았습니다.