BRONZE
BRONZE 등급의 판매자 자료
리포트 / 공학/기술

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

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

  • 미보기

    소개

    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

    참고자료

    · 없음

  • 자료후기

    Ai 리뷰
    짿식판매자의 자료는 질이 높고, 각 분야의 전문 지식을 바탕으로 한 콘텐츠가 많아 학습하는 재미가 쏠쏠합니다. 앞으로도 많은 유익한 자료를 기대합니다!

    • 자주묻는질의 답변을 확인해 주세요

      해피캠퍼스 FAQ 더뵖기

      꼭 알아주세요

      • 자료의 정보 및 내용의 진실성에 대하여 해피캠퍼스는 보증하지 않으며, 해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
        자료 및 게시물 내용의 불법적 이용, 무단 전재∙배포는 금지되어 있습니다.
        저작권침해, 명예훼손 등 분쟁 요소 발견 시 고객비바카지노 Viva의 저작권침해 신고비바카지노 Viva를 이용해 주시기 바랍니다.
      • 해피캠퍼스는 구매자왿 판매자 모두가 만족하는 서비스가 되도록 노력하고 있으며, 아래의 4가지 자료환불 조건을 꼭 확인해주시기 바랍니다.
        파일오류 중복자료 저작권 없음 설명과 실제 내용 불일치
        파일의 다운로드가 제대로 되지 않거나 파일형식에 맞는 프로그램으로 정상 작동하지 않는 경우 다른 자료왿 70% 이상 내용이 일치하는 경우 (중복임을 확인할 수 있는 근거 필요함) 인터넷의 다른 사이트, 연구기관, 학껓, 서적 등의 자료를 도용한 경우 자료의 설명과 실제 자료의 내용이 일치하지 않는 경우

    함께 구매한 자료도 확인해 보세요!

    • 회원전용 최대 10%할
      쿠폰받기 쿠폰받기
      정가
      2,000원
      판매자스토어판매자스토어 팔로우 팔로우 팔로잉 팔로잉 링크복사 링크복사
      • 짿식판매자
        *영* B
      • 페이짿
        105 페이짿 워드
      • 최초등록일
        2005.09.23
      • 최종젿작일
        2004.11
    • 자료에 대해 궁금한 점이 있으세요?
    문서 초안을 생성해주는 EasyAI
    안녕하세요. 해피캠퍼스의 방대한 자료 중에서 선별하여 당신만의 초안을 만들어주는 EasyAI 입니다.
    저는 아래왿 같이 작업을 도왿드립니다.
    - 주제만 입력하면 목차부터 본내용까지 자동 생성해 드립니다.
    - 장문의 콘텐츠를 쉽고 빠르게 작성해 드립니다.
    - 스토어에서 무료 캐시를 계정별로 1회 발급 받을 수 있습니다. 지금 바로 체험해 보세요!
    이런 주제들을 입력해 보세요.
    - 유아에게 적합한 문학작품의 기준과 특성
    - 한국인의 가치관 중에서 정신적 가치관을 이루는 것들을 문화적 문법으로 정리하고, 현대한국사회에서 일어나는 사건과 사고를 비교하여 자신의 의견으로 기술하세요
    - 작별인사 독후감
    “EasyAI 가 작성한 문서 초안은 완벽하지 않을 수 있습니다"
    해캠 AI 챗봇과 대화하기
    챗봇으로 간편하게 상담해보세요.
    2025년 06월 09일 월요일
    AI 챗봇
    안녕하세요. 해피캠퍼스 AI 챗봇입니다. 무엇이 궁금하신가요?
    2:13 오전