January 2008 Archives

沁园春·买票

春节又到，中华大地

有钱飞机，没钱站票

望长城内外，大包小包。大河上下，民工滔滔

早起晚睡，达旦通宵，欲与票贩试比高

须钞票。看人山人海，一票难保

车票如此难搞

引无数英雄竞折腰

昔秦皇汉武，见此遁逃；唐宗宋祖，更是没招

一代天骄，成吉思汗，只好骑马往回飙!

'矩形阵列

Private Function RecArray(Pt11 As Double, Pt12 As Double, Pt21 As Double, Pt22 As Double, Xn As Long, Yn As Long, DisXn As Double, DisYn As Double)
   
    '创建选择集
    Dim SS As Object
    Dim a As String
    Dim Pt1(0 To 2) As Double, Pt2(0 To 2) As Double
    Pt1(0) = Pt11 * GlS / LoS + lx: Pt1(1) = Pt12 * GlS / LoS + ly: Pt1(2) = 0
   
        a = CStr(SSetName)
        Pt2(0) = Pt21 * GlS / LoS + lx: Pt2(1) = Pt22 * GlS / LoS + ly: Pt2(2) = 0
        Acad.ActiveDocument.Regen acActiveViewport
        'MsgBox Pt1(0) & " and " & Pt1(1) & vbCr & Pt2(0) & " and " & Pt2(1)
       '这一行很重要,AutoCAD VBA当中使用选择集的时候,其选择到的对象范围和当前的显示对象是相关的
       '所以最好在选择前,利用ZoomWindow方法,将当前视图Zoom到需要选择的范围内
        Acad.ZoomWindow Pt1, Pt2
        Set SS = Acad.ActiveDocument.SelectionSets.Add(a)
        SS.Select acSelectionSetWindow, Pt1, Pt2
        SSetName = SSetName + 1
       
    '进行阵列
    Dim ent As Object
   
        For Each ent In SS
            ent.ArrayRectangular Yn, Xn, 1, DisYn * GlS / LoS, DisXn * GlS / LoS, 1
        Next
    Acad.ZoomAll
   
End Function

同济网论坛的一个传统的活动了。又是一年

1 继续赖在上海，年复一年...

2 读书读书读书 若干的GB50xxx 若干的ACI.若干的IEEE,若干的ASCE

3 专业软件，深入一点，再深入一点。学做开发。以及所需的一切

4 回头捡一点德语，前头捡一点法语

5 西南或者关外或者塞外或者岭南或者亚非拉，总得有个新的地方

6 CyclingWindows

7 怀念.......虽然也许还不够深厚

继续做一个坚强的理想主义者...