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

这段代码怎么改

我想判断删除的内容是不是一条多段线,是则判断是那条,然后进行处理


Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)<BR>                       '得到cadid和objectid的 nzdid<BR>                       Dim nzdId As Integer<BR>                       Dim tempObj As AcadObject<BR>                       On Error GoTo ErrorLine<BR>                       Set tempObj = ThisDrawing.ObjectIdToObject(ObjectID)<BR>                       If LCase(tempObj.ObjectName) &lt;&gt; "polylwline" Then                        <BR>                                                       Exit Sub<BR>                       End If


               '然后对该线进行操作


                       Exit Sub<BR>ErrorLine:<BR>                       MsgBox Err.Description<BR>End Sub<BR>

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

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

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

谢谢，我也发现了这个问题
页: [1]
查看完整版本: 这段代码怎么改