AutoCAD VBA二次开发教程

AutoCAD VBA二次开发教程是一款所有的实例归入基础相关、控制AutoCAD环境、创建和编辑二维对象、对象特性、文字、标注和公差、块和属性、处理AutoCAD中的事件、三维空间的操作、打印、高级绘图组织、使用组件扩展程序功能、和Excel交换数据、数据库应用程序、发布VBA应用程序等大类的VBA二次开发教程，从不同的角度分析VBA编程的技术和技巧。提供了多个精彩实例的源码，涉及VBA的基础操作、VBA的应用领域、VBA的特殊功能，以及CAD软件开发的一些基础知识。

软件说明

文件夹 PATH 列表
卷序列号码为 00008047 08EF:17BE
D:.
│  1.txt
│  
└─AutoCAD VBA 二次开发教程源码
    ├─chap01 ActiveX Automation基础
    │      宏.dvb
    │      集合对象的使用.dvb
    │      
    ├─chap02 控制AutoCAD环境
    │      命名视图.dvb
    │      和用户交互.dvb
    │      文档操作.dvb
    │      缩放视图.dvb
    │      
    ├─chap03 创建和编辑二维图形对象
    │      使用SendCommand方法.dvb
    │      利用制图法通过三点创建圆.dvb
    │      圆管的放样展开.dvb
    │      在AutoCAD 2004以前版本中计算优化多段线长度.dvb
    │      多段线的几个问题.dvb
    │      天圆地方的放样展开.dvb
    │      样条曲线转化为多段线.dvb
    │      根据起点、终点和弧长创建圆弧.dvb
    │      点到多段线的最短距离.dvb
    │      直线、圆和圆弧修改为多段线.dvb
    │      选择集.dvb
    │      
    ├─chap04 对象特性
    │      ObjectDBX测试图形.dwg
    │      使用ObjectDBX技术导入其他图形中的信息.dvb
    │      按图层进行缩放.dvb
    │      
    ├─chap05 文字的创建和编辑
    │  │  使用ObjectDBX实现批量文字替换.dvb
    │  │  提取多行文字中的文字内容.dvb
    │  │  文字按插入点自动对齐.dvb
    │  │  
    │  └─创建文字样式
    │      │  创建文字样式.dvb
    │      │  
    │      └─SystemFonts
    │              Fonts.cls
    │              MSSCCPRJ.SCC
    │              SystemFonts.dll
    │              SystemFonts.exp
    │              SystemFonts.lib
    │              SystemFonts.vbp
    │              SystemFonts.vbw
    │              
    ├─chap06 标注和公差
    │  │  列举所有的形位公差符号.dvb
    │  │  标注圆弧长度.dvb
    │  │  
    │  └─锁定标注文字不随对象缩放而动态改变
    │          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
    │  │  创建UCS.dvb
    │  │  在UCS中创建基本图元.dvb
    │  │  在三维空间中创建填充.dvb
    │  │  正多面体.dvb
    │  │  
    │  └─窗体图片
    │          偏心圆台.wmf
    │          偏心圆台窗体.dwg
    │          正二十面体.wmf
    │          正八面体.wmf
    │          正六面体.wmf
    │          正十二面体.wmf
    │          正四面体.wmf
    │          
    ├─chap10 布局和打印
    │      批量打印.dvb
    │      
    ├─chap11 高级绘图与组织技术
    │      使用SummaryInfo对象保存图形信息.dvb
    │      扩展字典.dvb
    │      扩展数据.dvb
    │      示例图形.dwg
    │      绘图顺序.dvb
    │      
    ├─chap12 VBA与应用程序
    │  │  VBA应用程序的错误处理.dvb
    │  │  调试VBA应用程序.dvb
    │  │  
    │  ├─创建和使用定时器
    │  │  │  创建和使用定时器.dvb
    │  │  │  
    │  │  └─VBA_Timer
    │  │          MSSCCPRJ.SCC
    │  │          Timer.cls
    │  │          VBA_Timer.dll
    │  │          VBA_Timer.exp
    │  │          VBA_Timer.lib
    │  │          VBA_Timer.vbp
    │  │          VBA_Timer.vbw
    │  │          
    │  ├─显示停靠窗口—Accont组件
    │  │  │  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 创建数据库应用程序
    │  │  使用ADODC控件.dvb
    │  │  使用记录集从数据表中读取数据.dvb
    │  │  创建数据库的ADO连接.dvb
    │  │  创建数据表.dvb
    │  │  
    │  └─数据记录和AutoCAD实体的对应
    │          Attribute.mdb
    │          Demo.bak
    │          Demo.dwg
    │          数据记录和AutoCAD实体的对应.dvb
    │          
    ├─chap15 VBA程序的发布
    │  │  更改AutoCAD应用程序的图标和标题栏.dvb
    │  │  
    │  ├─在命令行或菜单中执行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
    │  │      
    │  ├─程序的打包和发布
    │  │  │  acaddoc.lsp
    │  │  │  infolist.txt
    │  │  │  license.txt
    │  │  │  mjtd.ico
    │  │  │  mjtd.mnu
    │  │  │  setup.bmp
    │  │  │  
    │  │  ├─Templates
    │  │  │      样板.dwt
    │  │  │      
    │  │  └─VBA Macros
    │  │          acad.dvb
    │  │          使用ObjectDBX实现批量文字替换.dvb
    │  │          使用ObjectDBX技术导入其他图形中的信息.dvb
    │  │          偏心圆台.dvb
    │  │          圆管的放样展开.dvb
    │  │          在三维空间中创建填充.dvb
    │  │          按图层进行缩放.dvb
    │  │          文字按插入点自动对齐.dvb
    │  │          样条曲线转化为多段线.dvb
    │  │          根据起点、终点和弧长创建圆弧.dvb
    │  │          正多面体.dvb
    │  │          点到多段线的最短距离.dvb
    │  │          直线、圆和圆弧修改为多段线.dvb
    │  │          
    │  └─菜单宏
    │          Line.dvb
    │          MenuMacro.mnc
    │          MenuMacro.mnr
    │          MenuMacro.mns
    │          MenuMacro.mnu
    │          
    ├─chap16 VBA开发相关技术
    │  │  搜索某个文件夹中所有的文件.dvb
    │  │  获得所有加载的VBA工程的路径和名称.dvb
    │  │  
    │  ├─在VB中创建应用程序
    │  │      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
            创建与直线平行的文字.dvb
            创建分数.dvb
            判断对象所在的工作空间.dvb
            判断点是否在直线的右侧.dvb
            块内按点生成填充.dvb
            将文字转换为属性.dvb
            打印到文件夹.dvb
            打开和关闭屏幕菜单.dvb
            查询动态块的自定义特性.dvb
            清理组.dvb
            自动注册控件.dvb
            获得填充边界.dvb