怎样响应delete

yulijin608

当删除图中的一些图元时，怎么样才能知道删除的是哪些图元？

龙龙仔

就是你要删除的那些图元,难道图元会自动删除????

无痕

哈哈，龙龙仔很会搞笑啊


不过问题问的也有的。。。


你是问 SSGET 吧？


(ssget "p")?


然后 (ssname ss i)

yulijin608

我是想写一个反应器，当删除图中的图元时，执行一定的动作。

龙龙仔

再详细一点!

yulijin608

龙版主，我要的功能是写一个反应器，从打开CAD直到关闭CAD一直让它运行，一旦当图形中有图元被删除时，我将获得被删除的图元的信息，并将外部ORACLE数据库的相应信息进行删除。我就是想该如何得到删除的图元信息，因为CAD删除图元有好几种方式，不知该如何捕获用户的操作？


先说我这个想法可行不可行，先谢了！

龙龙仔

2. ;;我认为不可行,反应器对UNDO不是很好
3. ;;即图元删除又UNDO恐怕很容易当机
4. ;;下列程序对简单的图可以,但大图会受不了!
5. ;;BY 龙龙仔(LUCAS)
6. ;;打开图时先记录图元到表
7. (defun TT (/ ENT ENT1)
8.    (vl-load-com)
9.    (setq LST_ST NIL)
10.    (vlax-for ENT  (vla-get-blocks
11.        (vla-get-activedocument (vlax-get-acad-object))
12.     )
13.        (setq LST_ST (cons (vla-get-handle ENT) LST_ST))
14.        (vlax-for ENT1 ENT
15.            (setq LST_ST (cons (vla-get-handle ENT1) LST_ST))
16.        )
17.    )
18.    (princ)
19. )
20. ;;关图时统计那些图元被删除了
21. (defun TTT (/ ENT ENT1 X)
22.    (vl-load-com)
23.    (setq LST_END NIL)
24.    (vlax-for ENT  (vla-get-blocks
25.        (vla-get-activedocument (vlax-get-acad-object))
26.     )
27.        (setq LST_END (cons (vla-get-handle ENT) LST_END))
28.        (vlax-for ENT1 ENT
29.            (setq LST_END (cons (vla-get-handle ENT1) LST_END))
30.        )
31.    )
32.    (vl-remove 'NIL
33.            (mapcar '(lambda (X)
34.       (if (not (vl-position X LST_END))
35.          ;;(not (member X LST_END))
36.          X
37.       )
38.                )
39.              LST_ST
40.            )
41.    )
42. );|
43. ;;关图时统计那些图元被删除了
44. (defun TTT (/ X)
45.    (vl-load-com)
46.    (vl-remove 'NIL
47.            (mapcar '(lambda (X)
48.       (if (not (entget (handent X)));;无效???
49.          X
50.       )
51.                )
52.              LST_ST
53.            )
54.    )
55. )
56. |;

;;我认为不可行,反应器对UNDO不是很好 ;;即图元删除又UNDO恐怕很容易当机 ;;下列程序对简单的图可以,但大图会受不了! ;;BY 龙龙仔(LUCAS) ;;打开图时先记录图元到表 (defun TT (/ ENT ENT1)    (vl-load-com)    (setq LST_ST NIL)    (vlax-for ENT  (vla-get-blocks        (vla-get-activedocument (vlax-get-acad-object))     )        (setq LST_ST (cons (vla-get-handle ENT) LST_ST))        (vlax-for ENT1 ENT            (setq LST_ST (cons (vla-get-handle ENT1) LST_ST))        )    )    (princ) ) ;;关图时统计那些图元被删除了 (defun TTT (/ ENT ENT1 X)    (vl-load-com)    (setq LST_END NIL)    (vlax-for ENT  (vla-get-blocks        (vla-get-activedocument (vlax-get-acad-object))     )        (setq LST_END (cons (vla-get-handle ENT) LST_END))        (vlax-for ENT1 ENT            (setq LST_END (cons (vla-get-handle ENT1) LST_END))        )    )    (vl-remove 'NIL            (mapcar '(lambda (X)       (if (not (vl-position X LST_END))          ;;(not (member X LST_END))          X       )                )              LST_ST            )    ) );| ;;关图时统计那些图元被删除了 (defun TTT (/ X)    (vl-load-com)    (vl-remove 'NIL            (mapcar '(lambda (X)       (if (not (entget (handent X)));;无效???          X       )                )              LST_ST            )    ) ) |;