AutoCAD용 공통루틴


note [1] 모든 코드는 AutoCAD 2000 버젼에서 테스트되었습니다.
note [2] 본 게시물은 공통 루틴의 변경이 있을 때마다 갱신됩니다.


0. 일반 사항

1) AutoCAD ActiveX 프로그래밍을 위한 준비 사항

VB의 프로젝트메뉴에서 참조를 실행합니다. 참조 대화상자에서 사용가능한 참조중 "AutoCAD 2000 Type Library"를 선택합니다.

2) 변수 선언

정의되지 않은 변수의 사용을 방지하기 위해 모든 모듈의 맨 처음에 다음과 같은 선언문을 넣어둡니다.

  Option Explicit

위 선언은 모듈 수준에서 해당하는 모듈의 모든 변수를 명시적으로 선언하도록 할 때 사용합니다.

1. ACVBCOM.BAS

먼저, 다음과 같이 AutoCAD와 현재 사용중인 도면에 대한 객체를 저장하게될 변수를 선언합니다.

  Public objAcApp As AcadApplication
  Public objAcDoc As AcadDocument

1) InitApplication

Application 객체에 대한 초기화를 수행합니다.

Public Sub InitApplication()

  On Error Resume Next
  
  ' 현재 실행중인 AutoCAD Application을 찾고 없으면 생성한다.
  Set objAcApp = GetObject(, "AutoCAD.Application")
  If Err Then
    Err.Clear
    Set objAcApp = CreateObject("AutoCAD.Application")
    If Err Then
      MsgBox Err.Description
      Err.Clear
    End If
  End If

  ' Application을 검사한다.
  If IsNull(objAcApp) = False Then
    ' Application을 화면상에 보이게 한다.
    objAcApp.Visible = True
    ' 현재 도면 객체를 얻는다.
    GetActiveDocument
  End If

End Sub

2) GetActiveDocument

현재 사용중인 도면 객체를 설정합니다.

Public Sub GetActiveDocument()

  ' Application을 검사한다.
  If IsNull(objAcApp) = False Then
    Set objAcDoc = objAcApp.ActiveDocument
  End If

End Sub



관련 자료
disk [1] AutoCAD용 공통루틴 (2KB)

note 각 예제 프로젝트가 위치한 디렉토리와 같은 레벨에 COMMON이라는 디렉토리가 생성되도록 압축을 풀기 바랍니다.

Last updated 2002-09-07 by choi@moon-sun.com
Home