AutoCAD VBA二次開發(fā)教程

AutoCAD VBA二次開發(fā)教程是一款所有的實例歸入基礎相關、控制AutoCAD環(huán)境、創(chuàng)建和編輯二維對象、對象特性、文字、標注和公差、塊和屬性、處理AutoCAD中的事件、三維空間的操作、打印、高級繪圖組織、使用組件擴展程序功能、和Excel交換數據、數據庫應用程序、發(fā)布VBA應用程序等大類的VBA二次開發(fā)教程，從不同的角度分析VBA編程的技術和技巧。提供了多個精彩實例的源碼，涉及VBA的基礎操作、VBA的應用領域、VBA的特殊功能，以及CAD軟件開發(fā)的一些基礎知識。

軟件說明

文件夾 PATH 列表
卷序列號碼為 00008047 08EF:17BE
D:.
│  1.txt
│  
└─AutoCAD VBA 二次開發(fā)教程源碼
    ├─chap01 ActiveX Automation基礎
    │      宏.dvb
    │      集合對象的使用.dvb
    │      
    ├─chap02 控制AutoCAD環(huán)境
    │      命名視圖.dvb
    │      和用戶交互.dvb
    │      文檔操作.dvb
    │      縮放視圖.dvb
    │      
    ├─chap03 創(chuàng)建和編輯二維圖形對象
    │      使用SendCommand方法.dvb
    │      利用制圖法通過三點創(chuàng)建圓.dvb
    │      圓管的放樣展開.dvb
    │      在AutoCAD 2004以前版本中計算優(yōu)化多段線長度.dvb
    │      多段線的幾個問題.dvb
    │      天圓地方的放樣展開.dvb
    │      樣條曲線轉化為多段線.dvb
    │      根據起點、終點和弧長創(chuàng)建圓弧.dvb
    │      點到多段線的最短距離.dvb
    │      直線、圓和圓弧修改為多段線.dvb
    │      選擇集.dvb
    │      
    ├─chap04 對象特性
    │      ObjectDBX測試圖形.dwg
    │      使用ObjectDBX技術導入其他圖形中的信息.dvb
    │      按圖層進行縮放.dvb
    │      
    ├─chap05 文字的創(chuàng)建和編輯
    │  │  使用ObjectDBX實現批量文字替換.dvb
    │  │  提取多行文字中的文字內容.dvb
    │  │  文字按插入點自動對齊.dvb
    │  │  
    │  └─創(chuàng)建文字樣式
    │      │  創(chuàng)建文字樣式.dvb
    │      │  
    │      └─SystemFonts
    │              Fonts.cls
    │              MSSCCPRJ.SCC
    │              SystemFonts.dll
    │              SystemFonts.exp
    │              SystemFonts.lib
    │              SystemFonts.vbp
    │              SystemFonts.vbw
    │              
    ├─chap06 標注和公差
    │  │  列舉所有的形位公差符號.dvb
    │  │  標注圓弧長度.dvb
    │  │  
    │  └─鎖定標注文字不隨對象縮放而動態(tài)改變
    │          FixDimByCopyDim.dvb
    │          FixdimBySubEntity.dvb
    │          
    ├─chap07 塊和屬性
    │  │  AutoCAD中斜切功能的實現.dvb
    │  │  使用匿名塊.dvb
    │  │  將已經存在的實體添加到塊定義中.dvb
    │  │  屬性塊的使用.dvb
    │  │  簡單塊的定義和插入.dvb
    │  │  自動標題欄.dvb
    │  │  
    │  └─塊屬性生成表格
    │          Att2TableSample.dwg
    │          塊屬性生成表格.dvb
    │          
    ├─chap08 使用AutoCAD中的事件
    │  │  處理對象層事件.dvb
    │  │  處理應用程序層事件.dvb
    │  │  處理文檔層事件.dvb
    │  │  
    │  └─永久反應器
    │      │  測試代碼.txt
    │      │  
    │      └─TlsCad
    │              CDocument.cls
    │              CEntity.cls
    │              MSSCCPRJ.SCC
    │              TlsApplication.cls
    │              TlsCad.dll
    │              TlsCad.exp
    │              TlsCad.lib
    │              TlsCad.rar
    │              TlsCad.vbp
    │              TlsCad.vbw
    │              TlsReactor.cls
    │              TlsReactors.cls
    │              TlsSelectionSet.cls
    │              TlsUtility.cls
    │              
    ├─chap09 在三維空間工作
    │  │  偏心圓臺.dvb
    │  │  創(chuàng)建UCS.dvb
    │  │  在UCS中創(chuàng)建基本圖元.dvb
    │  │  在三維空間中創(chuàng)建填充.dvb
    │  │  正多面體.dvb
    │  │  
    │  └─窗體圖片
    │          偏心圓臺.wmf
    │          偏心圓臺窗體.dwg
    │          正二十面體.wmf
    │          正八面體.wmf
    │          正六面體.wmf
    │          正十二面體.wmf
    │          正四面體.wmf
    │          
    ├─chap10 布局和打印
    │      批量打印.dvb
    │      
    ├─chap11 高級繪圖與組織技術
    │      使用SummaryInfo對象保存圖形信息.dvb
    │      擴展字典.dvb
    │      擴展數據.dvb
    │      示例圖形.dwg
    │      繪圖順序.dvb
    │      
    ├─chap12 VBA與應用程序
    │  │  VBA應用程序的錯誤處理.dvb
    │  │  調試VBA應用程序.dvb
    │  │  
    │  ├─創(chuàng)建和使用定時器
    │  │  │  創(chuàng)建和使用定時器.dvb
    │  │  │  
    │  │  └─VBA_Timer
    │  │          MSSCCPRJ.SCC
    │  │          Timer.cls
    │  │          VBA_Timer.dll
    │  │          VBA_Timer.exp
    │  │          VBA_Timer.lib
    │  │          VBA_Timer.vbp
    │  │          VBA_Timer.vbw
    │  │          
    │  ├─顯示�？看翱凇狝ccont組件
    │  │  │  accont.zip
    │  │  │  accont16.zip
    │  │  │  CH3_4.dwg
    │  │  │  CH3_4.exp
    │  │  │  CH3_4.lib
    │  │  │  CH3_4.ocx
    │  │  │  CH3_4.vbp
    │  │  │  CH3_4.vbw
    │  │  │  MSSCCPRJ.SCC
    │  │  │  PICKSET.BMP
    │  │  │  UserControl1.ctl
    │  │  │  UserControl1.ctx
    │  │  │  
    │  │  ├─accont
    │  │  │      accont.arx
    │  │  │      accont.hlp
    │  │  │      accont.tlb
    │  │  │      accont_help.doc
    │  │  │      docktest.zip
    │  │  │      source.zip
    │  │  │      
    │  │  ├─accont16
    │  │  │      accont16.arx
    │  │  │      accont16.tlb
    │  │  │      
    │  │  └─�？看翱�
    │  │          停靠窗口.vbp
    │  │          �？看翱�.vbw
    │  │          
    │  ├─顯示幻燈片—Slide組件
    │  │  │  slide.zip
    │  │  │  顯示幻燈片—Slide組件.dvb
    │  │  │  
    │  │  └─slide
    │  │          install.bat
    │  │          Slide.ocx
    │  │          Slm.cnt
    │  │          SLM.HLP
    │  │          
    │  ├─顯示縮略圖—DwgThumbnail組件
    │  │  │  DwgThumbnail組件.zip
    │  │  │  顯示縮略圖—DwgThumbnail組件.dvb
    │  │  │  
    │  │  └─DwgThumbnail組件
    │  │          DWGTHUMBNAIL.HLP
    │  │          DwgThumbnail.ocx
    │  │          ReadMe.txt
    │  │          
    │  └─解析表達式—MSScript組件
    │          msscript.ocx
    │          解析表達式—MSScript組件.dvb
    │          
    ├─chap13 與其他應用程序和Windows API交互
    │  │  去掉關閉按鈕（X）和添加右鍵菜單.dvb
    │  │  轉換AutoCAD數據到Word和Excel中.dvb
    │  │  轉換Excel數據到AutoCAD中.dvb
    │  │  
    │  ├─使用Excel數據繪圖
    │  │      demo.xls
    │  │      使用Excel數據繪圖.dvb
    │  │      
    │  ├─轉換AutoCAD數據到Word和Excel中－測試資料
    │  │      demo.doc
    │  │      demo.dwg
    │  │      xh.dwg
    │  │      xhh.dwg
    │  │      
    │  └─轉換Excel數據到AutoCAD中－測試資料
    │          demo.xls
    │          
    ├─chap14 創(chuàng)建數據庫應用程序
    │  │  使用ADODC控件.dvb
    │  │  使用記錄集從數據表中讀取數據.dvb
    │  │  創(chuàng)建數據庫的ADO連接.dvb
    │  │  創(chuàng)建數據表.dvb
    │  │  
    │  └─數據記錄和AutoCAD實體的對應
    │          Attribute.mdb
    │          Demo.bak
    │          Demo.dwg
    │          數據記錄和AutoCAD實體的對應.dvb
    │          
    ├─chap15 VBA程序的發(fā)布
    │  │  更改AutoCAD應用程序的圖標和標題欄.dvb
    │  │  
    │  ├─在命令行或菜單中執(zhí)行VBA程序
    │  │      Draw2Line.bmp
    │  │      Draw3Line.bmp
    │  │      DrawLine.dvb
    │  │      DrawLine.mnc
    │  │      DrawLine.mnr
    │  │      DrawLine.mns
    │  │      DrawLine.mnu
    │  │      DrawLine1.lsp
    │  │      DrawLine2.lsp
    │  │      DrawLine3.lsp
    │  │      DrawLine4.lsp
    │  │      DrawLine5.lsp
    │  │      
    │  ├─在工具欄中使用自定義圖標
    │  │  │  mjtd.dll
    │  │  │  mjtd.mnc
    │  │  │  mjtd.mnr
    │  │  │  mjtd.mns
    │  │  │  mjtd.mnu
    │  │  │  
    │  │  ├─ResourceDLL
    │  │  │      Class1.cls
    │  │  │      mjtd.exp
    │  │  │      mjtd.lib
    │  │  │      mjtd.RES
    │  │  │      mjtd.vbp
    │  │  │      mjtd.vbw
    │  │  │      MSSCCPRJ.SCC
    │  │  │      
    │  │  └─按鈕圖標
    │  │          acadbtn_dll_ICON_16_LINE.bmp
    │  │          acadbtn_dll_ICON_16_ZOO2X.bmp
    │  │          acadbtn_dll_ICON_16_ZOO5X.bmp
    │  │          
    │  ├─基本圖庫的實現
    │  │  │  BlockLib.mnu
    │  │  │  基本圖庫的實現.dvb
    │  │  │  
    │  │  ├─Blocks
    │  │  │      circle.bak
    │  │  │      circle.dwg
    │  │  │      donut.bak
    │  │  │      donut.dwg
    │  │  │      point.bak
    │  │  │      point.dwg
    │  │  │      rectangle.bak
    │  │  │      rectangle.dwg
    │  │  │      test.bak
    │  │  │      test.dwg
    │  │  │      桌椅.bak
    │  │  │      桌椅.dwg
    │  │  │      
    │  │  └─Slides
    │  │          circle.sld
    │  │          donut.sld
    │  │          point.sld
    │  │          rectangle.sld
    │  │          test.sld
    │  │          桌椅.sld
    │  │          
    │  ├─實現VBA程序的先選擇后操作和透明命令
    │  │      AutoVBA.lsp
    │  │      ChangeColor.dvb
    │  │      VbaRun.lsp
    │  │      Zoom.dvb
    │  │      Zoom.lsp
    │  │      
    │  ├─程序的打包和發(fā)布
    │  │  │  acaddoc.lsp
    │  │  │  infolist.txt
    │  │  │  license.txt
    │  │  │  mjtd.ico
    │  │  │  mjtd.mnu
    │  │  │  setup.bmp
    │  │  │  
    │  │  ├─Templates
    │  │  │      樣板.dwt
    │  │  │      
    │  │  └─VBA Macros
    │  │          acad.dvb
    │  │          使用ObjectDBX實現批量文字替換.dvb
    │  │          使用ObjectDBX技術導入其他圖形中的信息.dvb
    │  │          偏心圓臺.dvb
    │  │          圓管的放樣展開.dvb
    │  │          在三維空間中創(chuàng)建填充.dvb
    │  │          按圖層進行縮放.dvb
    │  │          文字按插入點自動對齊.dvb
    │  │          樣條曲線轉化為多段線.dvb
    │  │          根據起點、終點和弧長創(chuàng)建圓弧.dvb
    │  │          正多面體.dvb
    │  │          點到多段線的最短距離.dvb
    │  │          直線、圓和圓弧修改為多段線.dvb
    │  │          
    │  └─菜單宏
    │          Line.dvb
    │          MenuMacro.mnc
    │          MenuMacro.mnr
    │          MenuMacro.mns
    │          MenuMacro.mnu
    │          
    ├─chap16 VBA開發(fā)相關技術
    │  │  搜索某個文件夾中所有的文件.dvb
    │  │  獲得所有加載的VBA工程的路徑和名稱.dvb
    │  │  
    │  ├─在VB中創(chuàng)建應用程序
    │  │      frmMain.frm
    │  │      Module1.bas
    │  │      MSSCCPRJ.SCC
    │  │      TextReplace.vbp
    │  │      TextReplace.vbw
    │  │      
    │  └─顯示窗體的VB DLL工程
    │          CTest.cls
    │          frmTest.frm
    │          MSSCCPRJ.SCC
    │          prjTest.dll
    │          prjTest.exp
    │          prjTest.lib
    │          prjTest.vbp
    │          prjTest.vbw
    │          
    └─附贈的應用程序源碼
            使用DBX復制對象.dvb
            創(chuàng)建與直線平行的文字.dvb
            創(chuàng)建分數.dvb
            判斷對象所在的工作空間.dvb
            判斷點是否在直線的右側.dvb
            塊內按點生成填充.dvb
            將文字轉換為屬性.dvb
            打印到文件夾.dvb
            打開和關閉屏幕菜單.dvb
            查詢動態(tài)塊的自定義特性.dvb
            清理組.dvb
            自動注冊控件.dvb
            獲得填充邊界.dvb