本帖最后由 作者 于 2008-12-20 11:35:00 编辑
我的函数大概是这样的 Private Sub AcadDocument_ObjectModified(ByVal Object As Object) if Object.Objectname="AcDBPline" then if (ubound(object.coordinates)+1)/2=2 then RACAD.ObjectModified Object '这里弹出菜单,对多段线进行标注,着色等操作。 end if end if End Sub 我是问题是当我画一个多段线时,会三次进入这个函数中,当只有一个节点,即起始节点时,前两次进入函数时ubound(object.coordinates)=-1,第三次为3,而我期望的是当多段线为两个节点时弹出菜单,其他情况均不进行任何操作.这是怎么回事呢? |