请教高手!!!-->mccad转移

wuxjld · 发表于 2002-4-25 15:20:00

1、如何屏蔽掉在2000中使用的DELETE键？
2、如何判断某一点在给定的闭合多边形（LWPOLYLINE）内？
先谢谢了！

南子 · 发表于 2002-4-25 15:48:00

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If CommandName = "ERASE" Then
ThisDrawing.SendCommand "undo" & Chr(13) & Chr(13)
End If
End Sub

wuxjld · 发表于 2002-4-25 16:06:00

判断点是否在多边形内我想用boundary命令，因为要判断的点较多！有其它方法吗？

南子 · 发表于 2002-4-25 16:08:00

Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
Dim ent As AcadEntity
Set ent = ThisDrawing.ObjectIdToObject(ObjectID)
If (ent.ObjectName = "AcDBText") Or (ent.ObjectName = "AcDBLine") Then
MsgBox "您刚才删除的是" & ent.ObjectName
End If
End Sub