Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
8 replies to this topic

#1 hoathuongphuoc

hoathuongphuoc

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 30 November 2013 - 05:15 PM

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.


  • 0

#2 hoathuongphuoc

hoathuongphuoc

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 01 December 2013 - 03:58 PM

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


  • 0

#3 hoathuongphuoc

hoathuongphuoc

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 03 December 2013 - 08:41 AM

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.


  • 0

#4 HoaVien

HoaVien

    biết vẽ arc

  • Members
  • PipPip
  • 44 Bài viết
Điểm đánh giá: 12 (tàm tạm)

Đã gửi 03 December 2013 - 10:24 AM

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


  • 0

#5 hoathuongphuoc

hoathuongphuoc

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 03 December 2013 - 11:31 AM

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.


  • 0

#6 Detailing

Detailing

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 667 Bài viết
Điểm đánh giá: 278 (khá)

Đã gửi 03 December 2013 - 03:08 PM

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

Ideas don't matter, execution does!

1908412_308002392716743_8165279281236341


#7 hoathuongphuoc

hoathuongphuoc

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 04 December 2013 - 10:24 AM

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


  • 1

#8 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1432 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 04 December 2013 - 11:02 AM

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 ?!


  • 0

#9 hoathuongphuoc

hoathuongphuoc

    biết lệnh erase

  • Members
  • PipPipPip
  • 102 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 04 December 2013 - 01:27 PM

''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ẽ.


  • 0