[설계] AutoCAD VBA 예제 프로그램 총정리

소개글

VBA(Visual Basic for Application)는 AutoCAD뿐만 아니라 Excel에서도 엄청난 인기와 위력을 뽐내고 있습니다.
프로다운 직장인이라면 프로그램 하나쯤은 할 줄 알아야한다고 생각합니다. 그 중 가장 쉽게 접근할 수 있고 사용 빈도가 가장 높은 프로그램이 바로 비쥬얼 베이직입니다. 설계 업무에 종사하시거나, 사회로 나가기 위해 준비하는 취업 준비생들에게도 적극 추천해드리고 싶습니다. AutoCAD 명령어들 중 109개를 VBA로 구현한 예제들로 구성하였습니다. 혼자 책을 보며 공부하시거나 강좌를 보시거나, 또는 프로그램 개발 중 막히시는 분들은 이 파일의 예제들을 이용하시면 됩니다. AutoCAD의 명령어들 중 109개라면 거의 모든 명령어가 포함되어 있다고 보시면 됩니다.
사용 방법은 AutoCAD에서 alt+F11을 누르시면 VBA 에디터가 실행됩니다. 그 곳에서 module을 insert 하시고 본 파일의 예제 코드들 중 원하시는 것을 복사해서 붙이신 후 F5를 누르면 자동실행 됩니다.
이제 업무 자동화의 세계로 나아가 자신의 몸값을 최대로 올려봅시다.

목차

1. OPEN
2. NEW
3. SAVE
4. TEST IF IT HAS UNSAVED CHANGES
5. MODEL OR PAPER SPACE
6. ADDLINE
7. ADD LIGHT WEIGHT POLYLINE
8. ADD MULTILINE
9. ADD POLYLINE
10. ADD ARC
11. ADD CIRCLE
12. ADD ELLIPSE
13. ADD SPLINE
14. POINT
15. SOLID
중략..

본문내용

105장에 124개의 프로그램 예제들이 총 망라되어 있습니다.
1. OPEN
Sub Ch3_OpenDrawing()
Dim dwgName As String
dwgName = c:Program Filesautocad 2002samplecampus.dwg
If Dir(dwgName) <> Then
ThisDrawing.Application.Documents.Open dwgName
Else
MsgBox File & dwgName & does not exist.
End If
End Sub

2. NEW
Sub Ch3_NewDrawing()
Dim docObj As AcadDocument
Set docObj = ThisDrawing.Application.Documents.Add
End Sub

3. SAVE
Sub Ch3_SaveActiveDrawing()
Save the active drawing under the current name
ThisDrawing.Save

Save the active drawing under a new name
ThisDrawing.SaveAs MyDrawing.dwg
End Sub

4. TEST IF IT HAS UNSAVED CHANGES
Sub Ch3_TestIfSaved()
If Not (ThisDrawing.Saved) Then
If MsgBox(Do you wish to save this drawing?, _
vbYesNo) = vbYes Then
ThisDrawing.Save
End If
End If
End Sub

참고 자료

없음