Public Property Get test() As AcadDocument
Set test = Application.ActiveDocument
End Property
라는 소스가 있는데 acaddocument가 어떤 용도로 사용되는지 궁금합니다.
찾아보기에는 현재 사용중인 오토캐드의 작업이라고 나오는데, 정확하게 알고 넘어가고 싶습니다.
그리고 Set test = Application.ActiveDocument에서 test라는 프로시저 이름에 현재 사용중인 오토캐드의 작업?명령어?를 사용 할 수 있게 한다.
대강 이런뜻으로 알고 있는데, Application은 어떤 용도로 사용이 되나요???
공유
흠냐;; Application = 오토캐드고 ActiveDocument 현재 활성된 도면입니다.
간단하게 생각하세요.
상위에 캐드 있고 밑에 도면있고 도면안에 공간(모델, 레이아웃 등)있고 ….
Sub test()
Dim startPoint(0 To 2) As Double
startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0:
Dim endPoint(0 To 2) As Double
endPoint(0) = 100: endPoint(1) = 100: endPoint(2) = 0:
Dim lineObj As AcadLine
Set lineObj = Application.ActiveDocument.ModelSpace.AddLine(startPoint, endPoint)
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
‘Application.ActiveDocument = ThisDrawing 둘이 같음
End Sub
저번에도 비슷한 질문 올리고 답변 이해 안된채로 넘어갔는데 이 답변 보니 지난번에 질문의 답변이 이해가 가네요. 감사합니다.