实例介绍
【实例简介】
本书以AutoCAD 2005中文版为开发平台，通过73个精彩的编程实例，向读者展示了AutoCAD VBA开发的高级技术。
【实例截图】
【核心代码】
AUTOCADVBA二次开发教程(PDF源代码)
└── AUTOCAD VBA二次开发教程
├── autocad vba二次开发教程.pdf
├── autorun.inf
├── chap01 ActiveX Automation基础
│ ├── _desktop.ini
│ ├── 宏.dvb
│ └── 集合对象的使用.dvb
├── chap02 控制AutoCAD环境
│ ├── _desktop.ini
│ ├── 命名视图.dvb
│ ├── 和用户交互.dvb
│ ├── 文档操作.dvb
│ └── 缩放视图.dvb
├── chap03 创建和编辑二维图形对象
│ ├── _desktop.ini
│ ├── 使用SendCommand方法.dvb
│ ├── 利用制图法通过三点创建圆.dvb
│ ├── 圆管的放样展开.dvb
│ ├── 在AutoCAD 2004以前版本中计算优化多段线长度.dvb
│ ├── 多段线的几个问题.dvb
│ ├── 天圆地方的放样展开.dvb
│ ├── 样条曲线转化为多段线.dvb
│ ├── 根据起点、终点和弧长创建圆弧.dvb
│ ├── 点到多段线的最短距离.dvb
│ ├── 直线、圆和圆弧修改为多段线.dvb
│ └── 选择集.dvb
├── chap04 对象特性
│ ├── acad.vlx.bak
│ ├── _desktop.ini
│ ├── ObjectDBX测试图形.dwg
│ ├── 使用ObjectDBX技术导入其他图形中的信息.dvb
│ └── 按图层进行缩放.dvb
├── chap05 文字的创建和编辑
│ ├── _desktop.ini
│ ├── 使用ObjectDBX实现批量文字替换.dvb
│ ├── 创建文字样式
│ │ ├── _desktop.ini
│ │ ├── SystemFonts
│ │ │ ├── _desktop.ini
│ │ │ ├── Fonts.cls
│ │ │ ├── MSSCCPRJ.SCC
│ │ │ ├── SystemFonts.dll
│ │ │ ├── SystemFonts.exp
│ │ │ ├── SystemFonts.lib
│ │ │ ├── SystemFonts.vbp
│ │ │ └── SystemFonts.vbw
│ │ └── 创建文字样式.dvb
│ ├── 提取多行文字中的文字内容.dvb
│ └── 文字按插入点自动对齐.dvb
├── chap06 标注和公差
│ ├── _desktop.ini
│ ├── 列举所有的形位公差符号.dvb
│ ├── 标注圆弧长度.dvb
│ └── 锁定标注文字不随对象缩放而动态改变
│ ├── _desktop.ini
│ ├── FixDimByCopyDim.dvb
│ └── FixdimBySubEntity.dvb
├── chap07 块和属性
│ ├── AutoCAD中斜切功能的实现.dvb
│ ├── _desktop.ini
│ ├── 使用匿名块.dvb
│ ├── 块属性生成表格
│ │ ├── Att2TableSample.dwg
│ │ ├── _desktop.ini
│ │ └── 块属性生成表格.dvb
│ ├── 将已经存在的实体添加到块定义中.dvb
│ ├── 属性块的使用.dvb
│ ├── 简单块的定义和插入.dvb
│ └── 自动标题栏.dvb
├── chap08 使用AutoCAD中的事件
│ ├── _desktop.ini
│ ├── 处理对象层事件.dvb
│ ├── 处理应用程序层事件.dvb
│ ├── 处理文档层事件.dvb
│ └── 永久反应器
│ ├── _desktop.ini
│ ├── TlsCad
│ │ ├── CDocument.cls
│ │ ├── CEntity.cls
│ │ ├── _desktop.ini
│ │ ├── MSSCCPRJ.SCC
│ │ ├── TlsApplication.cls
│ │ ├── TlsCad.dll
│ │ ├── TlsCad.exp
│ │ ├── TlsCad.lib
│ │ ├── TlsCad.rar
│ │ ├── TlsCad.vbp
│ │ ├── TlsCad.vbw
│ │ ├── TlsReactor.cls
│ │ ├── TlsReactors.cls
│ │ ├── TlsSelectionSet.cls
│ │ └── TlsUtility.cls
│ └── 测试代码.txt
├── chap09 在三维空间工作
│ ├── _desktop.ini
│ ├── 偏心圆台.dvb
│ ├── 创建UCS.dvb
│ ├── 在UCS中创建基本图元.dvb
│ ├── 在三维空间中创建填充.dvb
│ ├── 正多面体.dvb
│ └── 窗体图片
│ ├── _desktop.ini
│ ├── Thumbs.db
│ ├── 偏心圆台.wmf
│ ├── 偏心圆台窗体.dwg
│ ├── 正二十面体.wmf
│ ├── 正八面体.wmf
│ ├── 正六面体.wmf
│ ├── 正十二面体.wmf
│ └── 正四面体.wmf
├── chap10 布局和打印
│ ├── _desktop.ini
│ └── 批量打印.dvb
├── chap11 高级绘图与组织技术
│ ├── acad.vlx.bak
│ ├── _desktop.ini
│ ├── 使用SummaryInfo对象保存图形信息.dvb
│ ├── 扩展字典.dvb
│ ├── 扩展数据.dvb
│ ├── 示例图形.dwg
│ └── 绘图顺序.dvb
├── chap12 VBA与应用程序
│ ├── _desktop.ini
│ ├── VBA应用程序的错误处理.dvb
│ ├── 创建和使用定时器
│ │ ├── _desktop.ini
│ │ ├── VBA_Timer
│ │ │ ├── _desktop.ini
│ │ │ ├── MSSCCPRJ.SCC
│ │ │ ├── Timer.cls
│ │ │ ├── VBA_Timer.dll
│ │ │ ├── VBA_Timer.exp
│ │ │ ├── VBA_Timer.lib
│ │ │ ├── VBA_Timer.vbp
│ │ │ └── VBA_Timer.vbw
│ │ └── 创建和使用定时器.dvb
│ ├── 显示停靠窗口—Accont组件
│ │ ├── accont
│ │ │ ├── accont.arx
│ │ │ ├── accont_help.doc
│ │ │ ├── accont.hlp
│ │ │ ├── accont.tlb
│ │ │ ├── _desktop.ini
│ │ │ ├── docktest.zip
│ │ │ └── source.zip
│ │ ├── accont16
│ │ │ ├── accont16.arx
│ │ │ ├── accont16.tlb
│ │ │ └── _desktop.ini
│ │ ├── accont16.zip
│ │ ├── accont.zip
│ │ ├── CH3_4.dwg
│ │ ├── CH3_4.exp
│ │ ├── CH3_4.lib
│ │ ├── CH3_4.ocx
│ │ ├── CH3_4.vbp
│ │ ├── CH3_4.vbw
│ │ ├── _desktop.ini
│ │ ├── MSSCCPRJ.SCC
│ │ ├── PICKSET.BMP
│ │ ├── UserControl1.ctl
│ │ ├── UserControl1.ctx
│ │ └── 停靠窗口
│ │ ├── _desktop.ini
│ │ ├── 停靠窗口.vbp
│ │ └── 停靠窗口.vbw
│ ├── 显示幻灯片—Slide组件
│ │ ├── _desktop.ini
│ │ ├── slide
│ │ │ ├── _desktop.ini
│ │ │ ├── install.bat
│ │ │ ├── Slide.ocx
│ │ │ ├── Slm.cnt
│ │ │ ├── Slm.GID
│ │ │ └── SLM.HLP
│ │ ├── slide.zip
│ │ └── 显示幻灯片—Slide组件.dvb
│ ├── 显示缩略图—DwgThumbnail组件
│ │ ├── _desktop.ini
│ │ ├── DwgThumbnail组件
│ │ │ ├── _desktop.ini
│ │ │ ├── DWGTHUMBNAIL.HLP
│ │ │ ├── DwgThumbnail.ocx
│ │ │ └── ReadMe.txt
│ │ ├── DwgThumbnail组件.zip
│ │ └── 显示缩略图—DwgThumbnail组件.dvb
│ ├── 解析表达式—MSScript组件
│ │ ├── _desktop.ini
│ │ ├── msscript.ocx
│ │ └── 解析表达式—MSScript组件.dvb
│ └── 调试VBA应用程序.dvb
├── chap13 与其他应用程序和Windows API交互
│ ├── _desktop.ini
│ ├── 使用Excel数据绘图
│ │ ├── demo.xls
│ │ ├── _desktop.ini
│ │ └── 使用Excel数据绘图.dvb
│ ├── 去掉关闭按钮（X）和添加右键菜单.dvb
│ ├── 转换AutoCAD数据到Word和Excel中.dvb
│ ├── 转换AutoCAD数据到Word和Excel中－测试资料
│ │ ├── acad.vlx.bak
│ │ ├── demo.doc
│ │ ├── demo.dwg
│ │ ├── _desktop.ini
│ │ ├── xh.dwg
│ │ └── xhh.dwg
│ ├── 转换Excel数据到AutoCAD中.dvb
│ └── 转换Excel数据到AutoCAD中－测试资料
│ ├── demo.xls
│ └── _desktop.ini
├── chap14 创建数据库应用程序
│ ├── _desktop.ini
│ ├── 使用ADODC控件.dvb
│ ├── 使用记录集从数据表中读取数据.dvb
│ ├── 创建数据库的ADO连接.dvb
│ ├── 创建数据表.dvb
│ └── 数据记录和AutoCAD实体的对应
│ ├── Attribute.mdb
│ ├── Demo.bak
│ ├── Demo.dwg
│ ├── _desktop.ini
│ ├── 数据记录和AutoCAD实体的对应.dvb
│ └── 新建文件夹
│ └── _desktop.ini
├── chap15 VBA程序的发布
│ ├── _desktop.ini
│ ├── 在命令行或菜单中执行VBA程序
│ │ ├── _desktop.ini
│ │ ├── Draw2Line.bmp
│ │ ├── Draw3Line.bmp
│ │ ├── DrawLine1.lsp
│ │ ├── DrawLine2.lsp
│ │ ├── DrawLine3.lsp
│ │ ├── DrawLine4.lsp
│ │ ├── DrawLine5.lsp
│ │ ├── DrawLine.dvb
│ │ ├── DrawLine.mnc
│ │ ├── DrawLine.mnr
│ │ ├── DrawLine.mns
│ │ └── DrawLine.mnu
│ ├── 在工具栏中使用自定义图标
│ │ ├── _desktop.ini
│ │ ├── mjtd.dll
│ │ ├── mjtd.mnc
│ │ ├── mjtd.mnr
│ │ ├── mjtd.mns
│ │ ├── mjtd.mnu
│ │ ├── ResourceDLL
│ │ │ ├── Class1.cls
│ │ │ ├── _desktop.ini
│ │ │ ├── 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
│ │ └── _desktop.ini
│ ├── 基本图库的实现
│ │ ├── BlockLib.mnu
│ │ ├── Blocks
│ │ │ ├── circle.bak
│ │ │ ├── circle.dwg
│ │ │ ├── _desktop.ini
│ │ │ ├── donut.bak
│ │ │ ├── donut.dwg
│ │ │ ├── point.bak
│ │ │ ├── point.dwg
│ │ │ ├── rectangle.bak
│ │ │ ├── rectangle.dwg
│ │ │ ├── test.bak
│ │ │ ├── test.dwg
│ │ │ ├── 桌椅.bak
│ │ │ └── 桌椅.dwg
│ │ ├── _desktop.ini
│ │ ├── Slides
│ │ │ ├── circle.sld
│ │ │ ├── _desktop.ini
│ │ │ ├── donut.sld
│ │ │ ├── point.sld
│ │ │ ├── rectangle.sld
│ │ │ ├── test.sld
│ │ │ └── 桌椅.sld
│ │ └── 基本图库的实现.dvb
│ ├── 实现VBA程序的先选择后操作和透明命令
│ │ ├── AutoVBA.lsp
│ │ ├── ChangeColor.dvb
│ │ ├── _desktop.ini
│ │ ├── VbaRun.lsp
│ │ ├── Zoom.dvb
│ │ └── Zoom.lsp
│ ├── 更改AutoCAD应用程序的图标和标题栏.dvb
│ ├── 程序的打包和发布
│ │ ├── acaddoc.lsp
│ │ ├── _desktop.ini
│ │ ├── infolist.txt
│ │ ├── license.txt
│ │ ├── mjtd.ico
│ │ ├── mjtd.mnu
│ │ ├── setup.bmp
│ │ ├── Templates
│ │ │ ├── _desktop.ini
│ │ │ └── 样板.dwt
│ │ └── VBA Macros
│ │ ├── acad.dvb
│ │ ├── _desktop.ini
│ │ ├── 使用ObjectDBX实现批量文字替换.dvb
│ │ ├── 使用ObjectDBX技术导入其他图形中的信息.dvb
│ │ ├── 偏心圆台.dvb
│ │ ├── 圆管的放样展开.dvb
│ │ ├── 在三维空间中创建填充.dvb
│ │ ├── 按图层进行缩放.dvb
│ │ ├── 文字按插入点自动对齐.dvb
│ │ ├── 样条曲线转化为多段线.dvb
│ │ ├── 根据起点、终点和弧长创建圆弧.dvb
│ │ ├── 正多面体.dvb
│ │ ├── 点到多段线的最短距离.dvb
│ │ └── 直线、圆和圆弧修改为多段线.dvb
│ └── 菜单宏
│ ├── _desktop.ini
│ ├── Line.dvb
│ ├── MenuMacro.mnc
│ ├── MenuMacro.mnr
│ ├── MenuMacro.mns
│ └── MenuMacro.mnu
├── chap16 VBA开发相关技术
│ ├── _desktop.ini
│ ├── 在VB中创建应用程序
│ │ ├── _desktop.ini
│ │ ├── frmMain.frm
│ │ ├── Module1.bas
│ │ ├── MSSCCPRJ.SCC
│ │ ├── TextReplace.vbp
│ │ └── TextReplace.vbw
│ ├── 搜索某个文件夹中所有的文件.dvb
│ ├── 显示窗体的VB DLL工程
│ │ ├── CTest.cls
│ │ ├── _desktop.ini
│ │ ├── frmTest.frm
│ │ ├── MSSCCPRJ.SCC
│ │ ├── prjTest.dll
│ │ ├── prjTest.exp
│ │ ├── prjTest.lib
│ │ ├── prjTest.vbp
│ │ └── prjTest.vbw
│ └── 获得所有加载的VBA工程的路径和名称.dvb
├── conf.ini
├── _desktop.ini
├── tup_cd.bmp
├── tupcd.exe
├── 说明.txt
└── 附赠的应用程序源码
├── _desktop.ini
├── 使用DBX复制对象.dvb
├── 创建与直线平行的文字.dvb
├── 创建分数.dvb
├── 判断对象所在的工作空间.dvb
├── 判断点是否在直线的右侧.dvb
├── 块内按点生成填充.dvb
├── 将文字转换为属性.dvb
├── 打印到文件夹.dvb
├── 打开和关闭屏幕菜单.dvb
├── 查询动态块的自定义特性.dvb
├── 清理组.dvb
├── 自动注册控件.dvb
└── 获得填充边界.dvb
55 directories, 314 files
本书以AutoCAD 2005中文版为开发平台，通过73个精彩的编程实例，向读者展示了AutoCAD VBA开发的高级技术。
【实例截图】
【核心代码】
AUTOCADVBA二次开发教程(PDF源代码)
└── AUTOCAD VBA二次开发教程
├── autocad vba二次开发教程.pdf
├── autorun.inf
├── chap01 ActiveX Automation基础
│ ├── _desktop.ini
│ ├── 宏.dvb
│ └── 集合对象的使用.dvb
├── chap02 控制AutoCAD环境
│ ├── _desktop.ini
│ ├── 命名视图.dvb
│ ├── 和用户交互.dvb
│ ├── 文档操作.dvb
│ └── 缩放视图.dvb
├── chap03 创建和编辑二维图形对象
│ ├── _desktop.ini
│ ├── 使用SendCommand方法.dvb
│ ├── 利用制图法通过三点创建圆.dvb
│ ├── 圆管的放样展开.dvb
│ ├── 在AutoCAD 2004以前版本中计算优化多段线长度.dvb
│ ├── 多段线的几个问题.dvb
│ ├── 天圆地方的放样展开.dvb
│ ├── 样条曲线转化为多段线.dvb
│ ├── 根据起点、终点和弧长创建圆弧.dvb
│ ├── 点到多段线的最短距离.dvb
│ ├── 直线、圆和圆弧修改为多段线.dvb
│ └── 选择集.dvb
├── chap04 对象特性
│ ├── acad.vlx.bak
│ ├── _desktop.ini
│ ├── ObjectDBX测试图形.dwg
│ ├── 使用ObjectDBX技术导入其他图形中的信息.dvb
│ └── 按图层进行缩放.dvb
├── chap05 文字的创建和编辑
│ ├── _desktop.ini
│ ├── 使用ObjectDBX实现批量文字替换.dvb
│ ├── 创建文字样式
│ │ ├── _desktop.ini
│ │ ├── SystemFonts
│ │ │ ├── _desktop.ini
│ │ │ ├── Fonts.cls
│ │ │ ├── MSSCCPRJ.SCC
│ │ │ ├── SystemFonts.dll
│ │ │ ├── SystemFonts.exp
│ │ │ ├── SystemFonts.lib
│ │ │ ├── SystemFonts.vbp
│ │ │ └── SystemFonts.vbw
│ │ └── 创建文字样式.dvb
│ ├── 提取多行文字中的文字内容.dvb
│ └── 文字按插入点自动对齐.dvb
├── chap06 标注和公差
│ ├── _desktop.ini
│ ├── 列举所有的形位公差符号.dvb
│ ├── 标注圆弧长度.dvb
│ └── 锁定标注文字不随对象缩放而动态改变
│ ├── _desktop.ini
│ ├── FixDimByCopyDim.dvb
│ └── FixdimBySubEntity.dvb
├── chap07 块和属性
│ ├── AutoCAD中斜切功能的实现.dvb
│ ├── _desktop.ini
│ ├── 使用匿名块.dvb
│ ├── 块属性生成表格
│ │ ├── Att2TableSample.dwg
│ │ ├── _desktop.ini
│ │ └── 块属性生成表格.dvb
│ ├── 将已经存在的实体添加到块定义中.dvb
│ ├── 属性块的使用.dvb
│ ├── 简单块的定义和插入.dvb
│ └── 自动标题栏.dvb
├── chap08 使用AutoCAD中的事件
│ ├── _desktop.ini
│ ├── 处理对象层事件.dvb
│ ├── 处理应用程序层事件.dvb
│ ├── 处理文档层事件.dvb
│ └── 永久反应器
│ ├── _desktop.ini
│ ├── TlsCad
│ │ ├── CDocument.cls
│ │ ├── CEntity.cls
│ │ ├── _desktop.ini
│ │ ├── MSSCCPRJ.SCC
│ │ ├── TlsApplication.cls
│ │ ├── TlsCad.dll
│ │ ├── TlsCad.exp
│ │ ├── TlsCad.lib
│ │ ├── TlsCad.rar
│ │ ├── TlsCad.vbp
│ │ ├── TlsCad.vbw
│ │ ├── TlsReactor.cls
│ │ ├── TlsReactors.cls
│ │ ├── TlsSelectionSet.cls
│ │ └── TlsUtility.cls
│ └── 测试代码.txt
├── chap09 在三维空间工作
│ ├── _desktop.ini
│ ├── 偏心圆台.dvb
│ ├── 创建UCS.dvb
│ ├── 在UCS中创建基本图元.dvb
│ ├── 在三维空间中创建填充.dvb
│ ├── 正多面体.dvb
│ └── 窗体图片
│ ├── _desktop.ini
│ ├── Thumbs.db
│ ├── 偏心圆台.wmf
│ ├── 偏心圆台窗体.dwg
│ ├── 正二十面体.wmf
│ ├── 正八面体.wmf
│ ├── 正六面体.wmf
│ ├── 正十二面体.wmf
│ └── 正四面体.wmf
├── chap10 布局和打印
│ ├── _desktop.ini
│ └── 批量打印.dvb
├── chap11 高级绘图与组织技术
│ ├── acad.vlx.bak
│ ├── _desktop.ini
│ ├── 使用SummaryInfo对象保存图形信息.dvb
│ ├── 扩展字典.dvb
│ ├── 扩展数据.dvb
│ ├── 示例图形.dwg
│ └── 绘图顺序.dvb
├── chap12 VBA与应用程序
│ ├── _desktop.ini
│ ├── VBA应用程序的错误处理.dvb
│ ├── 创建和使用定时器
│ │ ├── _desktop.ini
│ │ ├── VBA_Timer
│ │ │ ├── _desktop.ini
│ │ │ ├── MSSCCPRJ.SCC
│ │ │ ├── Timer.cls
│ │ │ ├── VBA_Timer.dll
│ │ │ ├── VBA_Timer.exp
│ │ │ ├── VBA_Timer.lib
│ │ │ ├── VBA_Timer.vbp
│ │ │ └── VBA_Timer.vbw
│ │ └── 创建和使用定时器.dvb
│ ├── 显示停靠窗口—Accont组件
│ │ ├── accont
│ │ │ ├── accont.arx
│ │ │ ├── accont_help.doc
│ │ │ ├── accont.hlp
│ │ │ ├── accont.tlb
│ │ │ ├── _desktop.ini
│ │ │ ├── docktest.zip
│ │ │ └── source.zip
│ │ ├── accont16
│ │ │ ├── accont16.arx
│ │ │ ├── accont16.tlb
│ │ │ └── _desktop.ini
│ │ ├── accont16.zip
│ │ ├── accont.zip
│ │ ├── CH3_4.dwg
│ │ ├── CH3_4.exp
│ │ ├── CH3_4.lib
│ │ ├── CH3_4.ocx
│ │ ├── CH3_4.vbp
│ │ ├── CH3_4.vbw
│ │ ├── _desktop.ini
│ │ ├── MSSCCPRJ.SCC
│ │ ├── PICKSET.BMP
│ │ ├── UserControl1.ctl
│ │ ├── UserControl1.ctx
│ │ └── 停靠窗口
│ │ ├── _desktop.ini
│ │ ├── 停靠窗口.vbp
│ │ └── 停靠窗口.vbw
│ ├── 显示幻灯片—Slide组件
│ │ ├── _desktop.ini
│ │ ├── slide
│ │ │ ├── _desktop.ini
│ │ │ ├── install.bat
│ │ │ ├── Slide.ocx
│ │ │ ├── Slm.cnt
│ │ │ ├── Slm.GID
│ │ │ └── SLM.HLP
│ │ ├── slide.zip
│ │ └── 显示幻灯片—Slide组件.dvb
│ ├── 显示缩略图—DwgThumbnail组件
│ │ ├── _desktop.ini
│ │ ├── DwgThumbnail组件
│ │ │ ├── _desktop.ini
│ │ │ ├── DWGTHUMBNAIL.HLP
│ │ │ ├── DwgThumbnail.ocx
│ │ │ └── ReadMe.txt
│ │ ├── DwgThumbnail组件.zip
│ │ └── 显示缩略图—DwgThumbnail组件.dvb
│ ├── 解析表达式—MSScript组件
│ │ ├── _desktop.ini
│ │ ├── msscript.ocx
│ │ └── 解析表达式—MSScript组件.dvb
│ └── 调试VBA应用程序.dvb
├── chap13 与其他应用程序和Windows API交互
│ ├── _desktop.ini
│ ├── 使用Excel数据绘图
│ │ ├── demo.xls
│ │ ├── _desktop.ini
│ │ └── 使用Excel数据绘图.dvb
│ ├── 去掉关闭按钮（X）和添加右键菜单.dvb
│ ├── 转换AutoCAD数据到Word和Excel中.dvb
│ ├── 转换AutoCAD数据到Word和Excel中－测试资料
│ │ ├── acad.vlx.bak
│ │ ├── demo.doc
│ │ ├── demo.dwg
│ │ ├── _desktop.ini
│ │ ├── xh.dwg
│ │ └── xhh.dwg
│ ├── 转换Excel数据到AutoCAD中.dvb
│ └── 转换Excel数据到AutoCAD中－测试资料
│ ├── demo.xls
│ └── _desktop.ini
├── chap14 创建数据库应用程序
│ ├── _desktop.ini
│ ├── 使用ADODC控件.dvb
│ ├── 使用记录集从数据表中读取数据.dvb
│ ├── 创建数据库的ADO连接.dvb
│ ├── 创建数据表.dvb
│ └── 数据记录和AutoCAD实体的对应
│ ├── Attribute.mdb
│ ├── Demo.bak
│ ├── Demo.dwg
│ ├── _desktop.ini
│ ├── 数据记录和AutoCAD实体的对应.dvb
│ └── 新建文件夹
│ └── _desktop.ini
├── chap15 VBA程序的发布
│ ├── _desktop.ini
│ ├── 在命令行或菜单中执行VBA程序
│ │ ├── _desktop.ini
│ │ ├── Draw2Line.bmp
│ │ ├── Draw3Line.bmp
│ │ ├── DrawLine1.lsp
│ │ ├── DrawLine2.lsp
│ │ ├── DrawLine3.lsp
│ │ ├── DrawLine4.lsp
│ │ ├── DrawLine5.lsp
│ │ ├── DrawLine.dvb
│ │ ├── DrawLine.mnc
│ │ ├── DrawLine.mnr
│ │ ├── DrawLine.mns
│ │ └── DrawLine.mnu
│ ├── 在工具栏中使用自定义图标
│ │ ├── _desktop.ini
│ │ ├── mjtd.dll
│ │ ├── mjtd.mnc
│ │ ├── mjtd.mnr
│ │ ├── mjtd.mns
│ │ ├── mjtd.mnu
│ │ ├── ResourceDLL
│ │ │ ├── Class1.cls
│ │ │ ├── _desktop.ini
│ │ │ ├── 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
│ │ └── _desktop.ini
│ ├── 基本图库的实现
│ │ ├── BlockLib.mnu
│ │ ├── Blocks
│ │ │ ├── circle.bak
│ │ │ ├── circle.dwg
│ │ │ ├── _desktop.ini
│ │ │ ├── donut.bak
│ │ │ ├── donut.dwg
│ │ │ ├── point.bak
│ │ │ ├── point.dwg
│ │ │ ├── rectangle.bak
│ │ │ ├── rectangle.dwg
│ │ │ ├── test.bak
│ │ │ ├── test.dwg
│ │ │ ├── 桌椅.bak
│ │ │ └── 桌椅.dwg
│ │ ├── _desktop.ini
│ │ ├── Slides
│ │ │ ├── circle.sld
│ │ │ ├── _desktop.ini
│ │ │ ├── donut.sld
│ │ │ ├── point.sld
│ │ │ ├── rectangle.sld
│ │ │ ├── test.sld
│ │ │ └── 桌椅.sld
│ │ └── 基本图库的实现.dvb
│ ├── 实现VBA程序的先选择后操作和透明命令
│ │ ├── AutoVBA.lsp
│ │ ├── ChangeColor.dvb
│ │ ├── _desktop.ini
│ │ ├── VbaRun.lsp
│ │ ├── Zoom.dvb
│ │ └── Zoom.lsp
│ ├── 更改AutoCAD应用程序的图标和标题栏.dvb
│ ├── 程序的打包和发布
│ │ ├── acaddoc.lsp
│ │ ├── _desktop.ini
│ │ ├── infolist.txt
│ │ ├── license.txt
│ │ ├── mjtd.ico
│ │ ├── mjtd.mnu
│ │ ├── setup.bmp
│ │ ├── Templates
│ │ │ ├── _desktop.ini
│ │ │ └── 样板.dwt
│ │ └── VBA Macros
│ │ ├── acad.dvb
│ │ ├── _desktop.ini
│ │ ├── 使用ObjectDBX实现批量文字替换.dvb
│ │ ├── 使用ObjectDBX技术导入其他图形中的信息.dvb
│ │ ├── 偏心圆台.dvb
│ │ ├── 圆管的放样展开.dvb
│ │ ├── 在三维空间中创建填充.dvb
│ │ ├── 按图层进行缩放.dvb
│ │ ├── 文字按插入点自动对齐.dvb
│ │ ├── 样条曲线转化为多段线.dvb
│ │ ├── 根据起点、终点和弧长创建圆弧.dvb
│ │ ├── 正多面体.dvb
│ │ ├── 点到多段线的最短距离.dvb
│ │ └── 直线、圆和圆弧修改为多段线.dvb
│ └── 菜单宏
│ ├── _desktop.ini
│ ├── Line.dvb
│ ├── MenuMacro.mnc
│ ├── MenuMacro.mnr
│ ├── MenuMacro.mns
│ └── MenuMacro.mnu
├── chap16 VBA开发相关技术
│ ├── _desktop.ini
│ ├── 在VB中创建应用程序
│ │ ├── _desktop.ini
│ │ ├── frmMain.frm
│ │ ├── Module1.bas
│ │ ├── MSSCCPRJ.SCC
│ │ ├── TextReplace.vbp
│ │ └── TextReplace.vbw
│ ├── 搜索某个文件夹中所有的文件.dvb
│ ├── 显示窗体的VB DLL工程
│ │ ├── CTest.cls
│ │ ├── _desktop.ini
│ │ ├── frmTest.frm
│ │ ├── MSSCCPRJ.SCC
│ │ ├── prjTest.dll
│ │ ├── prjTest.exp
│ │ ├── prjTest.lib
│ │ ├── prjTest.vbp
│ │ └── prjTest.vbw
│ └── 获得所有加载的VBA工程的路径和名称.dvb
├── conf.ini
├── _desktop.ini
├── tup_cd.bmp
├── tupcd.exe
├── 说明.txt
└── 附赠的应用程序源码
├── _desktop.ini
├── 使用DBX复制对象.dvb
├── 创建与直线平行的文字.dvb
├── 创建分数.dvb
├── 判断对象所在的工作空间.dvb
├── 判断点是否在直线的右侧.dvb
├── 块内按点生成填充.dvb
├── 将文字转换为属性.dvb
├── 打印到文件夹.dvb
├── 打开和关闭屏幕菜单.dvb
├── 查询动态块的自定义特性.dvb
├── 清理组.dvb
├── 自动注册控件.dvb
└── 获得填充边界.dvb
55 directories, 314 files
标签：
好例子网口号：伸出你的我的手 — 分享！
小贴士
感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见 版权及免责申明
网友评论
我要评论