如何判断CAD中有图素发生改变

winer3086

  G9 ?4 q& f7 J斑竹大人、各位大侠：
2 D9 e2 U$ Y( \) H1 r0 i我希望在CAD退出的时候，判断CAD中是否有图素发生改变，如新增、修改、删除等，但不包括整个图形的缩放。

1. Private Sub AcadDocument_BeginClose()
   
2. Dim doc As AcadDocument
   ' }8 E, z6 @1 [# j
3. Set doc = ThisDrawing.Application.ActiveDocument
   
4. If doc.Saved = False Then
   
5. MsgBox "已改变"
   * |* x- ^; {% ?) t+ i+ U
6. Else
   
7. MsgBox "未改变"
   
8. End If
   
9. End Sub

复制代码

现在有个问题，即使是滚动鼠标滚轮，缩放一下图形，都会认为已经发生改变。我该怎么办呢？

woaishuijia

要求得越细致,代码就会越复杂,呵呵

1. 
   . H1 u# {5 Z: `8 l$ O
2. '声明一个全局变量,用来记录是否发生修改
   ( J3 C1 x4 @( ^* Y' Q
3. Dim B As Boolean
   
4. '在响应文档对象的BeginDocClose事件的代码中检查B变量记录的修改
   
5. Private Sub AcadDocument_BeginDocClose(Cancel As Boolean)
   ' `9 C2 o( h: K" m9 F  ~" Z
6.     If B Then
   
7.         '当文档被修改时用消息框通知用户"已改变",当用户按下"取消"按钮时不关闭文档
   
8.         If MsgBox("已改变", vbOKCancel) = vbCancel Then Cancel = True
   
9.         '清空记录
   
10.         B = False
    
11.     Else
    + O4 T3 d" g. g+ ~) Z
12.         MsgBox "未改变"
    ; X- I& f* O% m2 u, l, I  {
13.     End If
    7 a! T6 R8 D/ J5 f3 ~& o, [& n( D1 k
14. End Sub
    
15. '在响应文档保存事件的代码中清空记录
    * r+ u$ g# O: Y; t0 u' D0 m7 s
16. Private Sub AcadDocument_EndSave(ByVal FileName As String)
    
17.     B = False
    
18. End Sub
    
19. '在响应文档对象的ObjectAdded事件(对象被添加到图形中时触发)的代码中记录文档修改
    6 n5 h9 t( L; n/ {
20. '可以在代码中检查Object参数的对象类型,以了解是哪一类对象被添加.
    2 _4 [9 U& `7 c, Y) }  k! f
21. 'ObjectModified事件代码也一样
    9 m2 l7 X3 l; Q' Y  T7 Q
22. Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
    % ]  P. z  Y" D: I
23.     B = True
    / U8 c5 H# b+ g+ U' C
24. End Sub
    
25. '在响应文档对象的ObjectErased事件(对象从图形中删除时触发)的代码中记录文档修改
      l- ^/ y- ?1 Y
26. Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
    & e; \% ~+ n7 F7 L2 q
27.     B = True
    2 y% ]5 f& y+ S" p3 k6 e
28. End Sub
    
29. '在响应文档对象的ObjectModified事件(图形中的对象被修改时触发)的代码中记录文档修改
    ! y1 J% R# v) [3 |+ t$ h9 q
30. Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
    
31.     B = True
      F+ K* h9 L# z( c0 i& {
32. End Sub
    5 X- A2 _7 C+ S) T; l, |

复制代码

winer3086

老大，你太厉害啦，不管我提什么问题，你总能在第一时间给我答复。太感谢了，帮了我很大的忙！

winer3086

老大，你太厉害啦，不管我提什么问题，你总能在第一时间给我答复。太感谢了，帮了我很大的忙！
winer3086 发表于 2010-9-5 22:32 http://www.3dportal.cn/discuz/images/common/back.gif

& T* @1 n, s( S5 h以后我得好好向您学习呢！

woaishuijia

不用客气,来以这里都是朋友,呵呵.