我想删除cad图里线型不是随层的直线，处理了一半，断了，说是“方法delete作用于对象icadline时失败。这很什么原因呢？
Private Sub CommandButton1_Click()
Dim obj As Object
For Each obj In ThisDrawing.ModelSpace
If Not (InStr(obj.ObjectName, "Line") = 0) And Not obj.Linetype = "随层" Then
obj.Delete
End If
ThisDrawing.Regen True
Next
End Sub
置顶卡
