iwzw 发表于 2003-11-3 19:17:00

下面代码运行速度是不是太慢？

Dim entry As AcadEntity
    For Each entry In ThisDrawing.ModelSpace
      If entry.Handle = "35" Then
            entry.Highlight (True)
            Exit For
      End If
    Next

mccad 发表于 2003-11-3 19:21:00

这样是慢了点，如果这样看看：

Dim Entry as AcadEntity
On Error Resume Next
Set Entry = Thisdrawing.HandleToObject("35")
If Not Err Then Entry.Highlight(True)

iwzw 发表于 2003-11-3 19:28:00

非常感谢！
页: [1]
查看完整版本: 下面代码运行速度是不是太慢？