jacdy 发表于 2006-4-4 10:47:00

为什么我的VBA程序会很慢，对象创建后要清除吗？如何清除呢？

为什么我的VBA程序会很慢，对象创建后要清除吗？如何清除呢？

xinghesnak 发表于 2006-4-4 11:29:00

<P>具体点说。。。。。。</P>

jacdy 发表于 2006-4-4 12:35:00

我是先建一个表格头部，然后画线，每画一条线就在表格增加一行记录这条张两点的坐标和长度，当我画到20条左右的时候，就会很慢了，不知是为什么？

xinghesnak 发表于 2006-4-4 13:11:00

<P>把你的程序也贴上来吧。。。。。</P>

jacdy 发表于 2006-4-4 13:54:00


         Dim iPoint As Variant
         iPoint = ThisDrawing.Utility.GetPoint(, "Please specify table insert point:")
         Dim MyModelSpace As IAcadModelSpace2
         Set MyModelSpace = ThisDrawing.ModelSpace
         Dim tb As AcadTable
         Set tb = MyModelSpace.AddTable(iPoint, 2, 5, txtHeight * 2, txtHeight * 1.2)
         tb.HorzCellMargin = txtHeight / 2
         tb.VertCellMargin = txtHeight / 2
         tb.SetTextHeight acDataRow, txtHeight * 2
         tb.SetTextHeight acHeaderRow, txtHeight * 2
         tb.SetTextHeight acTitleRow, txtHeight * 2
         tb.SetAlignment acDataRow, acMiddleCenter
         tb.SetAlignment acHeaderRow, acMiddleCenter
         tb.SetAlignment acTitleRow, acMiddleCenter
         'tb.SetTextStyle acDataRow, "iStyle"
         'tb.SetTextStyle acHeaderRow, "iStyle"
         'tb.SetTextStyle acTitleRow, "iStyle"
         
         tb.SetRowHeight 0, txtHeight * 8
         tb.SetRowHeight 1, txtHeight * 8
      
         tb.SetColumnWidth 0, txtHeight * 2 * 5
         tb.SetColumnWidth 1, txtHeight * 2 * 12
         tb.SetColumnWidth 2, txtHeight * 2 * 12
         tb.SetColumnWidth 3, txtHeight * 2 * 10
         tb.SetColumnWidth 4, txtHeight * 2 * 10
         tb.SetText 0, 0, "WIRE LIST"
         tb.SetText 1, 0, "NO."
         tb.SetText 1, 1, "START POINT"
         tb.SetText 1, 2, "END POINT"
         tb.SetText 1, 3, "DISTANCE"
         tb.SetText 1, 4, "LENGTH"
Do While Num > 0
      ThisDrawing.Utility.InitializeUserInput 0, "D E"
      On Error Resume Next
      pt1 = ThisDrawing.Utility.GetPoint(, "Please specify first point:")
      If Err.Number = -2145320928 Then
            Dim Sel As String
            Sel = ThisDrawing.Utility.GetInput
            If LCase(Sel) = "e" Then
                Exit Do
            ElseIf LCase(Sel) = "d" Then
                No = No - 1
                objPline.Delete
                objHatch.Delete
                ThisDrawing.SendCommand "Erase" + vbCr + CStr(pt2(0)) + "," + CStr(pt2(1)) + vbCr + vbCr
                tb.DeleteRows tb.Rows - 1, 1
                pt1 = ThisDrawing.Utility.GetPoint(, "Please specify first point:")
            End If
      End If
      
      pt2 = ThisDrawing.Utility.GetPoint(pt1, "Please specify second point:")
         tb.InsertRows tb.Rows, txtHeight * 1.75, 1
            
            tb.SetText tb.Rows - 1, 0, CStr(No)
            
            Txt = CStr(Round(pt1(0), 5)) + " , " + CStr(Round(pt1(1), 5))
            If Left(Txt, 1) = "." Then Txt = "0" + Txt
            If tb.GetColumnWidth(1) < txtHeight * 2.5 * Len(Txt) Then
                tb.SetColumnWidth 1, txtHeight * 2.5 * Len(Txt)
            End If
            tb.SetText tb.Rows - 1, 1, Txt
            
            Txt = CStr(Round(pt2(0), 5)) + " , " + CStr(Round(pt2(1), 5))
            If Left(Txt, 1) = "." Then Txt = "0" + Txt
            If tb.GetColumnWidth(2) < txtHeight * 2.5 * Len(Txt) Then
                tb.SetColumnWidth 2, txtHeight * 2.5 * Len(Txt)
            End If
            tb.SetText tb.Rows - 1, 2, Txt
            
            Txt = CStr(Round(objPline.Length, 5))
            If Left(Txt, 1) = "." Then Txt = "0" + Txt
            If tb.GetColumnWidth(3) < txtHeight * 2 * Len(Txt) Then
                tb.SetColumnWidth 3, txtHeight * 2 * Len(Txt)
            End If
            tb.SetText tb.Rows - 1, 3, Txt

No = No + 1

Loop


雪山飞狐_lzh 发表于 2006-4-5 19:36:00

2007里试过了,挺正常的:)

MJTD_7777 发表于 2006-4-6 10:14:00

<P>2006里也试过了,挺正常的:) </P>
<P><BR>&nbsp;</P>

jacdy 发表于 2006-4-7 12:57:00

可我在2005运行时，当我画了15条线后就变慢，越来越慢啊，我的机器是P42.8+512MB的HP原装机。
页: [1]
查看完整版本: 为什么我的VBA程序会很慢，对象创建后要清除吗？如何清除呢？