社区 › VB › 缩放视口

Bryco 发表于 2007-3-7 11:29:38

我通常只在必要时使用GOTOs（例如错误捕捉），因为可能会出现意大利面代码。如果它对你有效，那么&#039；很好。我只是提出了一种做事情的替代方式。没有冒犯的意思。

Bryco 发表于 2007-3-7 12:46:29

没有人带走戴夫
实际上，我回到我的代码，添加我喜欢的GoTo
不过，我会对它们进行速度测试，看看是否有任何差异。

Bryco 发表于 2007-3-7 16:31:52

布莱科&#039；我们有时用镜子照我自己的。It#039；就像有一个&#039；断开#039；或#039；继续&#039；与真实语言一样，VB中也提供statemenet；（忍不住）干杯，格伦。

Bryco 发表于 2007-3-8 01:59:16

这里的速度没有差别。（我的电脑速度很慢）nogo=24.75456
请自行运行MakeSomeObjects，然后添加mupPrivate Sub MakeSomeObjects()
    Dim i As Integer, j As Integer
    Dim X As Integer, Y As Integer
    Dim c As AcadCircle
    Dim R As Double
    Dim Cen(2) As Double
    Dim L As AcadLayer
    Dim Ls As AcadLayers
   
    Set Ls = ThisDrawing.LAYERS
    For i = 1 To 90
      Set L = Ls.Add(i)
      L.Color = i
    Next
      
    R = 0.45
    For j = 0 To 1000
      For i = 0 To 89
            R = R + 0.001
            If Int(i / 10) = i / 10 Then
                X = 0: Y = Y + 1
            Else
                X = X + 1
            End If
            Cen(0) = X: Cen(1) = Y
            Set c = ThisDrawing.ModelSpace.AddCircle(Cen, R)
            c.Layer = i + 1
      Next i
    Next j
End Sub
Private Sub Addemup()
    Dim i As Integer
    Dim nogo As Single
    Dim go As Single
    For i = 1 To 10
      go = go + speedGoto
      nogo = nogo + speedNoGoto
    Next
    Debug.Print "nogo=" & nogo
    Debug.Print "go=" & go
End Sub
Private Function speedNoGoto() As Single
    Dim Ent As AcadEntity
    Dim T As Single
    T = Timer
    For Each Ent In ThisDrawing.ModelSpace
      If TypeOf Ent Is AcadCircle Then
            If Ent.Layer = "90" Then
                If Ent.radius > 90 Then
                  If Ent.radius"90" Then GoTo skip
      If Ent.radius90.5 Then GoTo skip
      
      Debug.Print Ent.radius
      Exit For
skip:
    Next Ent
    speedGoto = Timer - T
End Function

查看完整版本: 缩放视口