田草博客

互联网田草博客


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

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID

评论列表

所有评论
[95] [96] [97] [98] [99] [100] [101] [102] [103] [104]  ... [143]  
tiancao1001 于 2008-08-18 10:44 PM 发表评论:
抗弯截面模量相同,重量没米相差2.3公斤。
查看所评论的日志:工字钢 HW HM HN H型钢的区别
tiancao1001 于 2008-08-17 05:14 PM 发表评论:
插入Flash代码
<script type="text/javascript" src="include/swf.js"></script>
<script type="text/javascript">InsertFlash("flash/top.swf",433,160,"top");</script>
查看所评论的日志:田草日志
tiancao1001 于 2008-08-16 09:21 PM 发表评论:
由于型钢梁腹板较厚,一般截面无削弱情况,可不验算剪应力及折算应力。对于翼缘上只承受均布荷载的梁,局部承压强度亦可不验算。
查看所评论的日志:田草日志
田草 于 2008-08-16 08:04 PM 发表评论:
这个音乐我在看 老电视剧真空爱情记录得时候也听到了。看来当时很流行啊
查看所评论的日志:星爷长江7号
tiancao1001 于 2008-08-13 11:28 PM 发表评论:
看过国奥和巴西得比赛?真是没劲,假如足球也有进攻时间限制,加快足球得节奏,在混乱之中,也许国足能进一个球,争点面子回来。哈哈
查看所评论的日志:田草日志
田草 于 2008-08-13 10:41 PM 发表评论:
飞信真是垃圾,用户不能修改聊天记录得保存路径

C:\Documents and Settings\用户名\Application Data\Fetion\飞信号码\
查看所评论的日志:田草日志
田草 于 2008-08-12 07:26 PM 发表评论:
Google搜索的网页快照比百度快照漂亮多了。
查看所评论的日志:田草日志
田草 于 2008-08-12 01:50 PM 发表评论:
' 单行文字文字合并 *************************************************
Sub HBWZ_Text()
    Dim objSelected As Object
    Dim acText  As AcadText
    Dim ssText As AcadSelectionSet
    Dim AllText As String
    Dim H As Double
    Dim W As Double
    Dim S As String
    Dim P As Variant
    On Error Resume Next
    Set ssText = ThisDrawing.SelectionSets.Add("Text")
    '定义过滤机制
    Dim filterType(0) As Integer
    Dim filterData(0) As Variant
    filterType(0) = 0
    filterData(0) = "TEXT"
    
    ssText.SelectOnScreen filterType, filterData
    Dim n As Integer
    Dim i As Integer
    Dim j As Integer
    Dim Temp As Double
    Dim X() As Double
    Dim Index() As Integer
    '对选择的插入点进行排序
    '   只对Y方向进行排序
    '   不对X方向进行排序
    n = ssText.Count - 1
    ReDim X(n)
    ReDim Index(n)
    '           读取Y坐标到数组Y()中
    '           没有排序之前Text在选择集中的序号并没有变化,仍然是0、1、2、3……
    For i = 0 To n
        Set acText = ssText.item(i)
        X(i) = acText.insertionPoint(0)
        Index(i) = i
    Next i
    '           对数组X()排序
    For i = 0 To n - 1
        For j = i + 1 To n
            '如果前一个比后面小的话,则把它的序号和后面的交换。
            If X(i) >= X(j) Then
                '交换X坐标
                Temp = X(i)
                X(i) = X(j)
                X(j) = Temp
                '交换Text在选择集中的位置
                Temp = Index(i)
                Index(i) = Index(j)
                Index(j) = Temp
            End If
        Next j
    Next i
    
    Set acText = ssText.item(Index(0))
    H = acText.height
    W = acText.ScaleFactor
    S = acText.StyleName
    P = acText.insertionPoint
    
    '对选择集中的文字对象进行操作
    For i = 0 To n
            Set acText = ssText.item(Index(i))
            AllText = AllText & acText.textString
            acText.Delete
    Next
    Dim NText As AcadText
    Set NText = ThisDrawing.ModelSpace.AddText(AllText, P, H)
    NText.ScaleFactor = W
    NText.StyleName = S
    ThisDrawing.SelectionSets.item("Text").Delete
    NText.Update
End Sub
'*******************************************************
查看所评论的日志:AutoCAD vba 合并文字
[95] [96] [97] [98] [99] [100] [101] [102] [103] [104]  ... [143]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©