tiancao1001 于 2008-08-18 10:44 PM 发表评论: |
|
查看所评论的日志:工字钢 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 发表评论: |
|
查看所评论的日志:田草日志 |
田草 于 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 合并文字 |