有关窗口刷新问题

supercorn

为什么执行以下代码，绘图窗口不是立刻刷新为图层刷新后的效果。而是要等Form窗体关闭后才刷新？ Private Sub CommandButton3_Click()
On Error Resume Next
For I = 0 To ThisDrawing.ModelSpace.Count
If ThisDrawing.ModelSpace(I).Layer = "ABC" Then
ThisDrawing.ModelSpace(I).Delete
End If
Next
ThisDrawing.Layers.Item("ABC").Delete
End Sub

zfbj

在代码的最后加上 ThisDrawing.Regen acActiveViewport
< class=constant>原因在于你使用的是模态对话框，AutoCAD只有在你的对话框消失之后进行一次自动刷新，为了实时刷新就必须强制其进行。

alin

楼主的代码即使加上regen一句也删不干净，下面则可以，不知为何？

2. Private Sub CommandButton3_Click()
3.    On Error Resume Next
4.    For Each OBJ In ThisDrawing.ModelSpace
5.      If OBJ.Layer = "ABC" Then
6.        OBJ.Erase
7.      End If
8.    Next
9.    ThisDrawing.Layers.Item("ABC").Delete
10.    ThisDrawing.Regen acActiveViewport
11. End Sub

Private Sub CommandButton3_Click()    On Error Resume Next    For Each OBJ In ThisDrawing.ModelSpace      If OBJ.Layer = "ABC" Then        OBJ.Erase      End If    Next    ThisDrawing.Layers.Item("ABC").Delete    ThisDrawing.Regen acActiveViewport End Sub

雪山飞狐_lzh

为什么要历遍？ 这样就可以了 Sub ttt() On Error Resume Next

Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("*TEST*").Delete
Set ss = ThisDrawing.SelectionSets.Add("*TEST*")
Dim ft(0) As Integer, fd(0)
ft(0) = 8: fd(0) = "ABC"
ss.Erase
End Sub

alin

谢谢，那为什么楼主的代码在我的机器上会删不掉？还有要得到模型空间的对象是


Thisdrawing.Modelspace(I)呢，还是Thisdrawing.Modelspace.Item(i)?

雪山飞狐_lzh

两个是一回事，因为Item是Thisdrawing.Modelspace的默认属性


试试For I = 0 To ThisDrawing.ModelSpace.Count - 1

alin

早试过了，还是不行

zhu1

我不得不说,众人的智慧是无穷的


谢谢你们了