田草博客

互联网田草博客


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

微信 公众号:ByCAD

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

用户登陆
用户:
密码:
 

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


站点统计

最新评论



布尔运算 CAD VBA 极坐标标注
未知 田草CAD工具箱(VBA)安装程序(2009.04.13)   [ 日期:2007-01-26 ]   [ 来自:本站原创 ]  HTML
田草CAD工具箱(VBA)安装程序(2009.04.13)

停止玩VBA了,所以以后也不会对VBA写的工具箱进行更新了。
如果感兴趣的话可以使用我的.Net版本的工具箱:


源文件下载地址:


百度云链接:点击下载

密码:p4sd


全部用VBA写成:DVB文件没有加密,源码和大家分享。





按此在新窗口打开图片

独创的createmenu模块,一次生成菜单,方便添加删除和修改。
按此在新窗口打开图片

安装程序
型钢断面绘制
按此在新窗口打开图片

按此在新窗口打开图片

CAD图纸注释
按此在新窗口打开图片

绘制结构钢筋等
按此在新窗口打开图片

拾取图纸目录
按此在新窗口打开图片

按此在新窗口打开图片

连续标注
按此在新窗口打开图片

统计工具面板
按此在新窗口打开图片

提取轴线数据绘制PKPM轴网
按此在新窗口打开图片

按此在新窗口打开图片

线段长度等统计
按此在新窗口打开图片

连续绘制标高
按此在新窗口打开图片

文字对齐整理
按此在新窗口打开图片

由线段直接生成长方体
按此在新窗口打开图片

快速绘制轴网
按此在新窗口打开图片

文字查找和替换(可指定选择集)
按此在新窗口打开图片

截面特性
按此在新窗口打开图片

快速打印
按此在新窗口打开图片

打开文件历史记录
按此在新窗口打开图片

真正的建筑CAD字库
按此在新窗口打开图片

梯段平面剖面图
按此在新窗口打开图片

按此在新窗口打开图片

 按此在新窗口打开图片 

命令管理器,vba命令多了,写过管理器,运行vba更加方便。
 
按此在新窗口打开图片 

词库管理器,规范工程做法,直接输入。
按此在新窗口打开图片

平法梁配筋分析
按此在新窗口打开图片

柱子配筋分析(柱表,截面形式2)
按此在新窗口打开图片

吊环的计算和绘图
按此在新窗口打开图片

批量输出为WMF格式

'2000中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R14.0\ACAD-1:804
'2002中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R15.0\ACAD-1:804
'2004中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.0\ACAD-201:804
'2005中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.1\ACAD-301:804
'2005英文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.1\ACAD-301:409
'2006中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:804
'2007中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.0\ACAD-5001:804
'2008中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.1\ACAD-6001:804
'2009中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.2\ACAD-7001:804 
'2010中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.0\ACAD-8001:804 
'2011中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:804 
'2012中文版       HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R18.2\ACAD-A001:804 


[本日志由 tiancao1001 于 2018-08-25 08:57 PM 编辑]


[1] [2] 
引用这个评论 zx0sl 于 2009-02-15 07:24 PM 发表评论: 
具体图纸和要求已发往你的邮箱,请查收

引用这个评论 tiancao1001 于 2009-02-12 09:03 AM 发表评论: 
zx0sl 
你好,不知道你想的钢筋标注是什么样子的?
可否具体说明一下?

引用这个评论 zx0sl 于 2009-02-11 09:19 PM 发表评论: 
要是写个好用的钢筋标注程序就好了

引用这个评论 vodoo 于 2009-01-27 00:20 AM 发表评论: 
请问:你们公司是怎么审图的?有没有什么审图软件?

引用这个评论 ahhfsy 于 2009-01-20 10:36 AM 发表评论: 
真是个好办法。
请问一下:
使用CAD的VBA 创建一个打印程序,打印图纸空间(图纸空间比较多),使用上一次打印设置怎么搞?谢谢
这是我的代码:
Private Sub CommandButton2_Click()
'
' 建立要打印的图纸空间布局
    Dim strLayouts(0 To 999) As String
    Dim varLayouts As Variant
    Dim n As Integer
    Dim m As Integer
    
    For m = 0 To ListBox1.ListCount - 1
        strLayouts(m) = ListBox1.List(m)
        'MsgBox (ListBox1.List(m))
            
    Next m
    
  
    varLayouts = strLayouts
   

    ThisDrawing.Plot.SetLayoutsToPlot varLayouts

    
    ' 将打印份数设置为 1
    ThisDrawing.Plot.NumberOfCopies = 1
        
    ' 初始化打印
    'ThisDrawing.Plot.PlotToDevice ThisDrawing.ModelSpace.Layout.ConfigName
    ThisDrawing.Plot.PlotToDevice

---------------------------------------------------------------------------
我用他打印listbox里显示的图纸空间,可我不晓得怎么使用“上一次打印”的样式,请帮帮忙,谢谢

引用这个评论 田草 于 2007-06-26 08:51 PM 发表评论: 
兄弟这个是vba程序,你可点击里面的setup程序安装,不过这个程序还没添加卸载功能。

或者你可以在cad中加载tiancaocadtools.dvb 程序。然后

然后输入命令 vbarun , 运行createmenu 命令加载菜单。

引用这个评论 scibs 于 2007-06-26 09:30 AM 发表评论: 
怎么使用啊,我弄不来,弄个教程嘛

引用这个评论 田草 于 2007-06-22 02:57 PM 发表评论: 
你好 这是我的疏忽,请原谅。

我已经更新了地址

引用这个评论 cjdxnh 于 2007-06-22 02:03 PM 发表评论: 
好东西要分享,为何下不来!请楼主检查连接。

引用这个评论 田草 于 2007-01-31 01:13 PM 发表评论: 
同样的DVD文件经过CAD2007另存为之后,比在2002和2004中的文件要小得多,看来CAD2007对vba的优化是很大的。 就拿我的工具箱来说,2002编辑后保存1.4m左右,而2007编辑后文件突然就变成了900k。

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

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

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