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