홈/ 질문/Q 104187
다음
진행 중
Lv.0
등록일: 2015-05-27T19:34:02+09:00 카테고리:

64Bit Win7 VBA에서 Layer.Add 명령어가 먹질 않습니다.

32Bit Win7 환경에서 정상적으로 동작하던 

객체.Layers.ADD 명령어가 Win7 64Bit에서 정상적으로 동작하지 않고
프로그램이 강제 다운 됩니다. 
아래 코드에서 먹통이 됩니다. 
Set oLayerObj = oAcadDoc.Layers.Add(“PICBOX”)
환경상의 문제인가요? 아니면 참조하는 DLL 파일이나 VBA 버젼의 문제인가요?
만약 DLL 버젼상의 오류라면 어떤 DLL을 찾아봐야 하는걸까요?
도움 주시면 대단히 감사하겠습니다. 
아래는 풀 코드 입니다. 
    Dim oAcadApp As Object
    Dim oAcadDoc As Object
    Dim oLayerObj As AcadLayer
    Set oAcadApp = GetObject(, “AutoCAD.Application”)
    Set oAcadDoc = oAcadApp.ActiveDocument
    ‘PICBOX
    ‘On Error Resume Next
    Set oLayerObj = oAcadDoc.Layers(“PICBOX”)
    If Err = 0 Then
    Else
        Err.Clear
        Set oLayerObj = oAcadDoc.Layers.Add(“PICBOX”)
    End If
공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.10

      64비트에선 VBA를 지원하지않습니다…ㅠㅠ
      .NET 이나 C#, C++로 하셔야…

      • 0

    3. CAD2010에서 지원하는 비쥬얼 베이직 편집기에선 불가능한가요?

      컴파일하면 실행은 되던데요
      • 0
    4. 64비트에서는 몇가지 32비트와 다른 것이 있을 뿐 VBA 잘됩니다.
      외부 프로그램인가요? 왜 모두 오브젝트로 변수 선언하셨는지 모르겠네요.
      지금 코드확인은 할 수 없지만..그냥 제일 단순히
      Dim oLayer As AcadLayer
      Set oLayer = ThisDrawing.Layers.Add(“PICBOX”)
      이러면 될것 같습니다.
      • 0

    5. 했는데 똑같은 증상이네요 layers.add 명령어가 안먹히는거 같습니다. 

      디버그로 넘겨봐도 저 위치에서 명령어 실행 후 멈춰버리네요
      혹시 DLL 문제일 수도 있나요?
      • 0

    6. 나는 잘 되네요 ㅋ

      • 0

    7. 64bit Win7 운영체제인가요?

      32Bit에선 저도 문제없이 잘 동작합니다. 
      • 0

    8. 네 64bit Win7 입니다.

      • 0