freshair 发表于 2003-7-18 17:41:00

请教！111111111111111111111111111111111

我想删除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

topirol 发表于 2003-7-19 00:13:00

是不是有图层LOCKED呢？

freshair 发表于 2003-7-19 10:51:00

大虾，高明，就是这个原因，谢谢！
页: [1]
查看完整版本: 请教！111111111111111111111111111111111