[求助]请教两个和事件相关的问题

sharksun

我用的是vb开发工具。有两个问题请教。


1。当触发事件类时，当有提示消息框时，提示信息总是在vb所在的界面里，而不再当前操作的cad界面里。必须把vb窗口最大话，在其中的消息框做出选择，再回到cad界面。请问如何解决？也就是焦点自动转换问题。


2。ObjectModified事件中，当创建新的对象也要触发。能够仅仅使改动对象才触发么？



多谢指教。

雪山飞狐_lzh

2、先做一个ActiveXDll clsEntity类： Private WithEvents oEntity As AcadEntity Private Sub oEntity_Modified(ByVal pObject As AutoCAD.IAcadObject)
If pObject.ObjectName = "AcDbCircle" Then
MsgBox pObject.Handle
End If
End Sub Public Sub GetEntity(Entity As AcadEntity)
Set oEntity = Entity
End Sub
TlsTest类： Private Entitys As New Collection
Public Sub Add(Entity As AcadEntity)
Dim oEnt As New clsEntity
oEnt.GetEntity Entity
Entitys.Add oEnt
End Sub
编译后在VBA这样调用： Private myTest As New TlsTest Sub test()
Dim obj As AcadEntity, pnt
ThisDrawing.Utility.GetEntity obj, pnt
myTest.Add obj
End Sub
用上面的代码选择圆 改变圆的属性时会弹出该圆的Handle

sharksun

基本上看明白了。 还得再研究一下。


谢谢飞狐兄。