Làm sao bắt được các Event Undo, Edit, Delete trong autocad

[hoathuongphuoc 9]

Chào các bạn,

Các bạn cho mình hỏi, có cách nào bắt được các event như tiêu đề của mình bằng lệnh trong vb.net không. Xin cảm ơn các bạn.

[hoathuongphuoc 9]

Trong vb.net không có mấy sự kiện đó sao ta.

[hoathuongphuoc 9]

Nếu đây là câu hỏi nhảm nhí thì các bạn có thể comment cho mình biết được không. thank.

[HoaVien 14]

Nếu đây là câu hỏi nhảm nhí thì các bạn có thể comment cho mình biết được không. thank.

Không nhảm nhí chút nào.

Nó thuộc loại câu đố "siêu tưởng" thường thấy trong báo Tuổi trẻ cười

[hoathuongphuoc 9]

Nếu không thể chắc chuyển hướng qua nghiên cứu cách sử dụng command line cho undo,edit, delete. Không biêt ý tưởng này có khả thi không.

[Detailing 281]

Nghien cuu database event nhe ban (on the phone so can't text Vietnamese)

[hoathuongphuoc 9]

Thank các bạn. Mình đã bắt được các sự kiện đó.

[gia_bach 1.549]

Thank các bạn. Mình đã bắt được các sự kiện đó.

Không cần phải khách sáo như thế.

 

Vấn đề là bạn có sẳn sàng share cách bắt các sự kiện đó như thế nào ?!

[hoathuongphuoc 9]

''Event Erase, Modify, Edit

    Private DocMan As DocumentCollection

    Private db As Database

    'Initialize sub

    Public Sub Initialize() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Initialize

 

        DocMan = AcApp.DocumentManager

 

        AddHandler DocMan.DocumentActivated, AddressOf callback_documentActivated

        AddHandler DocMan.DocumentCreated, AddressOf callback_documentCreated

        ' get First Open Drawing

        initEvents()

 

    End Sub

 

    Sub initEvents()

        For Each doc In DocMan

            Dim db As Database = doc.Database

            AddHandler db.ObjectAppended, AddressOf callback_ObjectAppended

            AddHandler db.ObjectErased, AddressOf callback_ObjectErased

            AddHandler db.ObjectModified, AddressOf callback_ObjectModified

        Next

    End Sub

 

    Private Sub callback_ObjectAppended(ByVal sender As Object, ByVal e As ObjectEventArgs)

        '  MsgBox(e.DBObject.ToString() & "-Appended" & sender.ToString())

    End Sub

 

    Private Sub callback_ObjectErased(ByVal sender As Object, ByVal e As ObjectErasedEventArgs)

        '  MsgBox(e.DBObject.ToString() & "-Erased" & sender.ToString())

    End Sub

    Private Sub callback_ObjectModified(ByVal sender As Object, ByVal e As ObjectEventArgs)

        '  MsgBox(e.DBObject.ToString() & "-Modified" & sender.ToString())

    End Sub

 

    'Terminate sub

    Public Sub Terminate() Implements Autodesk.AutoCAD.Runtime.IExtensionApplication.Terminate

        RemoveHandler DocMan.DocumentCreated, AddressOf callback_documentActivated

        RemoveHandler DocMan.DocumentCreated, AddressOf callback_documentCreated

        ' Not sure if this is needed

        RemoveHandler db.ObjectAppended, AddressOf callback_ObjectAppended

        RemoveHandler db.ObjectErased, AddressOf callback_ObjectErased

        RemoveHandler db.ObjectModified, AddressOf callback_ObjectModified

    End Sub

 

 

    Private Sub callback_documentCreated(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)

        initEvents()

    End Sub

 

    Private Sub callback_documentActivated(ByVal sender As Object, ByVal e As DocumentCollectionEventArgs)

        initEvents()

    End Sub

 

Không biết có đúng không. Nhưng mình xin mạo muội chia sẽ.