田草博客
日志搜索


 标题   内容 评论


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

微信 公众号:ByCAD

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

用户登陆
用户:
密码:
 

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

站点统计

最新评论


友情链接

其他信息

[81] [82] [83] [84] [85] [86] [87] [88] [89] [90]  ... [115]  显示模式: 默认视图 | 文章列表
阅读全文……
作者:tiancao1001 | 分类:结构 | 评论:1 | 引用:0 | 查看:10455
阅读全文……
作者:tiancao1001 | 分类:结构 | 评论:0 | 引用:0 | 查看:9333
阅读全文……
作者:tiancao1001 | 分类:结构 | 评论:0 | 引用:0 | 查看:12466
按此在新窗口打开图片

(王亚勇在泰州市建设局抗震宣贯会议上的讲稿)
阅读全文……
作者:tiancao1001 | 分类:结构 | 评论:0 | 引用:0 | 查看:8964
按此在新窗口打开图片
这个精度,不同于标注样式的精度,我们也不需要精度太高,有2~4位小数就能满足要求了。怎么改这个精度的呢?
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:1 | 引用:0 | 查看:15213
按此在新窗口打开图片

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:12477
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:11683
未知 如何从word里导出图片   [ 2009-07-27  |  本站原创 ]
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:12801
阅读全文……
作者:tiancao1001 | 分类:电脑 | 评论:0 | 引用:0 | 查看:37462
未知 500年一见的日全食   [ 2009-07-22  |  本站转帖 ]
阅读全文……
作者:tiancao1001 | 分类:普通 | 评论:0 | 引用:0 | 查看:18454
阅读全文……
作者:田草 | 分类:电脑 | 评论:0 | 引用:0 | 查看:14340
阅读全文……
作者:田草 | 分类:电脑 | 评论:0 | 引用:0 | 查看:13981
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:11318
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:18911
@attachments/month_0906/qnft_18737207.jpg@
图片收藏,不作分析。


阅读全文……
作者:tiancao1001 | 分类:结构 | 评论:0 | 引用:0 | 查看:8743
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:18440
未知 VBA重命名图块   [ 2009-06-25  |  本站原创 ]
'重命名图块
Sub ReNameBLock()
    On Error Resume Next
    Dim E As AcadEntity
    Dim P As Variant
    Dim B As AcadBlockReference
    ThisDrawing.Utility.GetEntity E, P, "选择一个你要重命名的参照块: "
    If Err <> 0 Then Exit Sub
    Dim NewName As String
    NewName = InputBox("输入新的图块名称:", "田草结构工具箱")
    If NewName = "" Then Exit Sub
    If Err = 0 Then
        If E.ObjectName = "AcDbBlockReference" Then
            Set B = E
            ThisDrawing.Blocks(B.name).name = NewName
        End If
    End If
End Sub

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:10836
拿到别人的初步设计,窗户都是随便插入的,一般情况下,我们都会将窗户放在墙段的中间,因此需要以下操作:
'对象居中
'天正建筑中的窗居墙体中间
'   在此操作之前应该将窗编号隐藏
Sub Center_E2E_Center1()
    Dim P As Variant
    Dim E As AcadEntity
    Dim SSet As AcadSelectionSet
    Dim I As Long
    Dim PC1 As Variant, PC2 As Variant
    Dim Wall As AcadEntity
    On Error GoTo xErr
xNext:
    ThisDrawing.Utility.GetEntity E, P, "第一个窗对象:"
    PC1 = GetCenter(E)
    Set SSet = GetE_SideByE(E)
    For I = 0 To SSet.Count - 1
        'Prompt SSet.item(I).ObjectName & vbCrLf
        If SSet.item(I).ObjectName = "TDbWall" Then
            Set Wall = SSet.item(I)
            PC2 = GetCenter(Wall)
            E.Move PC1, PC2
        End If
    Next I
xErr:
End Sub

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:10741
'找到一个CAD对象附近的CAD对象
Function GetE_SideByE(E As AcadEntity) As AcadSelectionSet   '返回
    Dim Pmin As Variant, Pmax As Variant
    E.GetBoundingBox Pmin, Pmax
    Dim SSet  As AcadSelectionSet
    Set SSet = CreateSelectionSet("XX")
    'SSet.Select acSelectionSetWindow, Pmin, Pmax
    SSet.Select acSelectionSetCrossing, Pmin, Pmax
    Set GetE_SideByE = SSet
End Function

阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:10937
1、电瓶车的脚踏离地面的最小高度太小,在车很小的转弯情况下,都有可能脚踏触地,脚踏很容易损毁。
2、电瓶车的车灯最好能够上下调节,车灯应该能照到前下方的地面。电瓶车的灯光微弱,如果固定,且光线直射向前,在没有路灯的情况之下,这个等没有一点实用价值,微弱的灯光不足以照到远方的地面上,前方的地面依旧看不清。
3、电瓶车功能不应过多,没实际意义,特别是有很多塑料壳在上面的,坏了,不值得维修,很难看。
阅读全文……
作者:tiancao1001 | 分类:AutoCAD | 评论:0 | 引用:0 | 查看:11112

[81] [82] [83] [84] [85] [86] [87] [88] [89] [90]  ... [115]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©