홈/ 질문/Q 104297
다음
진행 중
Lv.0
등록일: 2015-06-10T21:54:31+09:00 카테고리:

.net 도면오픈 관련 질문이요

 

도면 일괄 작업해주는걸 짜보려고 하는데요

아래코드를 사용할 경우 사용중이 캐드창이 아닌

새 캐드창에 도면을 열게 되는데,

현재 사용중인 캐드창에 도면을 열려면 어떻게 해야할까요??ㅠ

Dim AcadApp As AcadApplication
 Dim AcadDoc As AcadDocument

 AcadApp = New AcadApplication
 AcadApp.Visible = True
 AcadApp.WindowState = AcWindowState.acMax
AcadDoc = AcadApp.Documents.Open(“path”, True)

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 예제 만들어봤습니다. 참고하세요.

      Imports System
      Imports System.Windows
      Imports Autodesk.AutoCAD.Runtime
      Imports Autodesk.AutoCAD.ApplicationServices
      Imports AcApp = Autodesk.AutoCAD.ApplicationServices.Application

      Public Class DwgOpen
          <CommandMethod(“sample”, CommandFlags.Session)> _
          Public Sub OpenDrawing()
              Dim OpenFileDialog1 As OpenFileDialog = New OpenFileDialog
              With OpenFileDialog1
                  .Filter = “도면 (*.dwg)|*.dwg”
                  Dim DocCol As DocumentCollection = AcApp.DocumentManager
                  If .ShowDialog() = DialogResult.OK Then
                      DocumentCollectionExtension.Open(DocCol, .FileName)
                  End If
              End With
          End Sub
      End Class

      • 0

    3. New AcadApplication하지 마시고
      AcadApp = GetObject(, “AutoCAD.Application”)

      • 0