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

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

非常感谢！

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

发表回复

精选推荐