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

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

軟件說(shuō)明

文件夾 PATH 列表
卷序列號(hào)碼為 00008047 08EF:17BE
D:.
│  1.txt
│  
└─AutoCAD VBA 二次開(kāi)發(fā)教程源碼
    ├─chap01 ActiveX Automation基礎(chǔ)
    │      宏.dvb
    │      集合對(duì)象的使用.dvb
    │      
    ├─chap02 控制AutoCAD環(huán)境
    │      命名視圖.dvb
    │      和用戶交互.dvb
    │      文檔操作.dvb
    │      縮放視圖.dvb
    │      
    ├─chap03 創(chuàng)建和編輯二維圖形對(duì)象
    │      使用SendCommand方法.dvb
    │      利用制圖法通過(guò)三點(diǎn)創(chuàng)建圓.dvb
    │      圓管的放樣展開(kāi).dvb
    │      在AutoCAD 2004以前版本中計(jì)算優(yōu)化多段線長(zhǎng)度.dvb
    │      多段線的幾個(gè)問(wèn)題.dvb
    │      天圓地方的放樣展開(kāi).dvb
    │      樣條曲線轉(zhuǎn)化為多段線.dvb
    │      根據(jù)起點(diǎn)、終點(diǎn)和弧長(zhǎng)創(chuàng)建圓弧.dvb
    │      點(diǎn)到多段線的最短距離.dvb
    │      直線、圓和圓弧修改為多段線.dvb
    │      選擇集.dvb
    │      
    ├─chap04 對(duì)象特性
    │      ObjectDBX測(cè)試圖形.dwg
    │      使用ObjectDBX技術(shù)導(dǎo)入其他圖形中的信息.dvb
    │      按圖層進(jìn)行縮放.dvb
    │      
    ├─chap05 文字的創(chuàng)建和編輯
    │  │  使用ObjectDBX實(shí)現(xiàn)批量文字替換.dvb
    │  │  提取多行文字中的文字內(nèi)容.dvb
    │  │  文字按插入點(diǎn)自動(dòng)對(duì)齊.dvb
    │  │  
    │  └─創(chuàng)建文字樣式
    │      │  創(chuàng)建文字樣式.dvb
    │      │  
    │      └─SystemFonts
    │              Fonts.cls
    │              MSSCCPRJ.SCC
    │              SystemFonts.dll
    │              SystemFonts.exp
    │              SystemFonts.lib
    │              SystemFonts.vbp
    │              SystemFonts.vbw
    │              
    ├─chap06 標(biāo)注和公差
    │  │  列舉所有的形位公差符號(hào).dvb
    │  │  標(biāo)注圓弧長(zhǎng)度.dvb
    │  │  
    │  └─鎖定標(biāo)注文字不隨對(duì)象縮放而動(dòng)態(tài)改變
    │          FixDimByCopyDim.dvb
    │          FixdimBySubEntity.dvb
    │          
    ├─chap07 塊和屬性
    │  │  AutoCAD中斜切功能的實(shí)現(xiàn).dvb
    │  │  使用匿名塊.dvb
    │  │  將已經(jīng)存在的實(shí)體添加到塊定義中.dvb
    │  │  屬性塊的使用.dvb
    │  │  簡(jiǎn)單塊的定義和插入.dvb
    │  │  自動(dòng)標(biāo)題欄.dvb
    │  │  
    │  └─塊屬性生成表格
    │          Att2TableSample.dwg
    │          塊屬性生成表格.dvb
    │          
    ├─chap08 使用AutoCAD中的事件
    │  │  處理對(duì)象層事件.dvb
    │  │  處理應(yīng)用程序?qū)邮录?dvb
    │  │  處理文檔層事件.dvb
    │  │  
    │  └─永久反應(yīng)器
    │      │  測(cè)試代碼.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 在三維空間工作
    │  │  偏心圓臺(tái).dvb
    │  │  創(chuàng)建UCS.dvb
    │  │  在UCS中創(chuàng)建基本圖元.dvb
    │  │  在三維空間中創(chuàng)建填充.dvb
    │  │  正多面體.dvb
    │  │  
    │  └─窗體圖片
    │          偏心圓臺(tái).wmf
    │          偏心圓臺(tái)窗體.dwg
    │          正二十面體.wmf
    │          正八面體.wmf
    │          正六面體.wmf
    │          正十二面體.wmf
    │          正四面體.wmf
    │          
    ├─chap10 布局和打印
    │      批量打印.dvb
    │      
    ├─chap11 高級(jí)繪圖與組織技術(shù)
    │      使用SummaryInfo對(duì)象保存圖形信息.dvb
    │      擴(kuò)展字典.dvb
    │      擴(kuò)展數(shù)據(jù).dvb
    │      示例圖形.dwg
    │      繪圖順序.dvb
    │      
    ├─chap12 VBA與應(yīng)用程序
    │  │  VBA應(yīng)用程序的錯(cuò)誤處理.dvb
    │  │  調(diào)試VBA應(yīng)用程序.dvb
    │  │  
    │  ├─創(chuàng)建和使用定時(shí)器
    │  │  │  創(chuàng)建和使用定時(shí)器.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
    │  │          
    │  └─解析表達(dá)式—MSScript組件
    │          msscript.ocx
    │          解析表達(dá)式—MSScript組件.dvb
    │          
    ├─chap13 與其他應(yīng)用程序和Windows API交互
    │  │  去掉關(guān)閉按鈕（X）和添加右鍵菜單.dvb
    │  │  轉(zhuǎn)換AutoCAD數(shù)據(jù)到Word和Excel中.dvb
    │  │  轉(zhuǎn)換Excel數(shù)據(jù)到AutoCAD中.dvb
    │  │  
    │  ├─使用Excel數(shù)據(jù)繪圖
    │  │      demo.xls
    │  │      使用Excel數(shù)據(jù)繪圖.dvb
    │  │      
    │  ├─轉(zhuǎn)換AutoCAD數(shù)據(jù)到Word和Excel中－測(cè)試資料
    │  │      demo.doc
    │  │      demo.dwg
    │  │      xh.dwg
    │  │      xhh.dwg
    │  │      
    │  └─轉(zhuǎn)換Excel數(shù)據(jù)到AutoCAD中－測(cè)試資料
    │          demo.xls
    │          
    ├─chap14 創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序
    │  │  使用ADODC控件.dvb
    │  │  使用記錄集從數(shù)據(jù)表中讀取數(shù)據(jù).dvb
    │  │  創(chuàng)建數(shù)據(jù)庫(kù)的ADO連接.dvb
    │  │  創(chuàng)建數(shù)據(jù)表.dvb
    │  │  
    │  └─數(shù)據(jù)記錄和AutoCAD實(shí)體的對(duì)應(yīng)
    │          Attribute.mdb
    │          Demo.bak
    │          Demo.dwg
    │          數(shù)據(jù)記錄和AutoCAD實(shí)體的對(duì)應(yīng).dvb
    │          
    ├─chap15 VBA程序的發(fā)布
    │  │  更改AutoCAD應(yīng)用程序的圖標(biāo)和標(biāo)題欄.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
    │  │      
    │  ├─在工具欄中使用自定義圖標(biāo)
    │  │  │  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
    │  │  │      
    │  │  └─按鈕圖標(biāo)
    │  │          acadbtn_dll_ICON_16_LINE.bmp
    │  │          acadbtn_dll_ICON_16_ZOO2X.bmp
    │  │          acadbtn_dll_ICON_16_ZOO5X.bmp
    │  │          
    │  ├─基本圖庫(kù)的實(shí)現(xiàn)
    │  │  │  BlockLib.mnu
    │  │  │  基本圖庫(kù)的實(shí)現(xiàn).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
    │  │          
    │  ├─實(shí)現(xiàn)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實(shí)現(xiàn)批量文字替換.dvb
    │  │          使用ObjectDBX技術(shù)導(dǎo)入其他圖形中的信息.dvb
    │  │          偏心圓臺(tái).dvb
    │  │          圓管的放樣展開(kāi).dvb
    │  │          在三維空間中創(chuàng)建填充.dvb
    │  │          按圖層進(jìn)行縮放.dvb
    │  │          文字按插入點(diǎn)自動(dòng)對(duì)齊.dvb
    │  │          樣條曲線轉(zhuǎn)化為多段線.dvb
    │  │          根據(jù)起點(diǎn)、終點(diǎn)和弧長(zhǎng)創(chuàng)建圓弧.dvb
    │  │          正多面體.dvb
    │  │          點(diǎn)到多段線的最短距離.dvb
    │  │          直線、圓和圓弧修改為多段線.dvb
    │  │          
    │  └─菜單宏
    │          Line.dvb
    │          MenuMacro.mnc
    │          MenuMacro.mnr
    │          MenuMacro.mns
    │          MenuMacro.mnu
    │          
    ├─chap16 VBA開(kāi)發(fā)相關(guān)技術(shù)
    │  │  搜索某個(gè)文件夾中所有的文件.dvb
    │  │  獲得所有加載的VBA工程的路徑和名稱.dvb
    │  │  
    │  ├─在VB中創(chuàng)建應(yī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
    │          
    └─附贈(zèng)的應(yīng)用程序源碼
            使用DBX復(fù)制對(duì)象.dvb
            創(chuàng)建與直線平行的文字.dvb
            創(chuàng)建分?jǐn)?shù).dvb
            判斷對(duì)象所在的工作空間.dvb
            判斷點(diǎn)是否在直線的右側(cè).dvb
            塊內(nèi)按點(diǎn)生成填充.dvb
            將文字轉(zhuǎn)換為屬性.dvb
            打印到文件夾.dvb
            打開(kāi)和關(guān)閉屏幕菜單.dvb
            查詢動(dòng)態(tài)塊的自定義特性.dvb
            清理組.dvb
            自動(dòng)注冊(cè)控件.dvb
            獲得填充邊界.dvb