田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



柱下钢筋混凝土独立基础最小配筋率讨论 允许使用HTML代码发贴的论坛--转帖
未知 AutoCAD VBA 二次开发教程源码   [ 日期:2008-03-10 ]   [ 来自:本站原创 ]  HTML
AutoCAD VBA 二次开发教程源码


按此在新窗口打开图片




百度云链接:点击下载

百度云密码:kzci



文件夹 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
            


[本日志由 tiancao1001 于 2018-08-31 10:37 PM 编辑]


[1] [2] [3] [4] [5] 
引用这个评论 gohoujing 于 2008-12-28 10:34 AM 发表评论: 
辛苦传给我!
gohoujing@yahoo.com.cn  谢谢!

引用这个评论 azjmjsj 于 2008-12-13 00:28 AM 发表评论: 
我也需要,谢谢,azjmjsj@126.com

引用这个评论 zw_1977 于 2008-12-03 04:53 PM 发表评论: 
我也要!下不来!zw_1977@163.com

引用这个评论 goodgood 于 2008-12-02 06:11 PM 发表评论: 
我也需要,LZ邮寄个到 onedot@sina.com好吗

引用这个评论 catia005 于 2008-11-08 11:15 AM 发表评论: 

我这边下载不下了啊,急求
lgf1206@126.com
谢谢!!!

引用这个评论 catia005 于 2008-11-08 11:13 AM 发表评论: 
我这边下载不下了啊,急求
谢谢!!!

引用这个评论 zqh2008 于 2008-11-06 07:33 PM 发表评论: 
你好:
  我正在学习CADVBA,能不能传份给我,谢谢!!
zqh200801@126.com

引用这个评论 tyzhi222 于 2008-10-31 11:55 PM 发表评论: 
你好,田草:
  我正在学习CAD的VBA,能不能发一份给我,非常感谢!!!!
tyzhi222@163.com。

引用这个评论 123321jf 于 2008-10-23 10:43 AM 发表评论: 
田大,可以给我发一份吗?谢谢!!
123321jfjf@163.com

引用这个评论 angkahong 于 2008-10-06 00:47 AM 发表评论: 
我也正在学习CADVBA,能不能传份给我,这个真是好东西,很难找。谢谢!!
ang_kahong@yahoo.com.cn

引用这个评论 dengpeng 于 2008-09-22 10:46 AM 发表评论: 
peng.d@163.com
非常感谢。
敬佩高人

引用这个评论 dsfei 于 2008-08-08 08:54 AM 发表评论: 
dengye@cmdi.chinamobile.com

没有办法下载,很有兴趣,能不能发一份给我

引用这个评论 ladybug 于 2008-07-11 10:33 PM 发表评论: 
我不能下
给我一个,谢谢
nj_wzg@163.com

引用这个评论 yucaichen 于 2008-06-12 11:14 AM 发表评论: 
你好

引用这个评论 田草 于 2008-06-07 12:11 AM 发表评论: 
你好,可以,不过等假期过后,我就传给你

引用这个评论 农能富 于 2008-06-07 09:54 AM 发表评论: 
你好:
  我也正在学习CADVBA,能不能传份给我,这个真是好东西,很难找。谢谢!!
llj7286040@163.com

引用这个评论 huliming 于 2008-05-13 08:54 PM 发表评论: 
你好:
  我正在学习CADVBA,能不能传份给我,谢谢!!
huliming@yahoo.cn

[1] [2] [3] [4] [5] 
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:2*8=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©