社区 › VB › 这段代码怎么改

awei 发表于 2005-3-3 11:42:00

这段代码怎么改

我想判断删除的内容是不是一条多段线,是则判断是那条,然后进行处理
Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
                       '得到cadid和objectid的 nzdid
                       Dim nzdId As Integer
                       Dim tempObj As AcadObject
                       On Error GoTo ErrorLine
                       Set tempObj = ThisDrawing.ObjectIdToObject(ObjectID)
                       If LCase(tempObj.ObjectName)"polylwline" Then                       
                                                       Exit Sub
                       End If
               '然后对该线进行操作
                       Exit Sub
ErrorLine:
                       MsgBox Err.Description
End Sub

雪山飞狐_lzh 发表于 2005-3-3 14:00:00

恐怕很难实现你要的功能，ObjectErased事件触发时对象已经删除掉了，不能对该线进行操作

awei 发表于 2005-3-8 10:46:00

谢谢，我也发现了这个问题

查看完整版本: 这段代码怎么改