也许这会给你一些想法,它是综合在一起的,需要更多的工作,但它可能会让你在正确的方向上。
在撤消、取消或删除某些内容时检索实体信息的问题是,反应器将返回实体名称,但实体信息将为零。
-
- (vl-load-com)
- (defun OAcb (a b / nent)
- (setq nent (vl-princ-to-string(cadr b)))
- (princ (strcat nent " Added to Drawing"))
- );_defun
- (defun OEcb (a b / delent)
- (setq delent (vl-princ-to-string(cadr b)))
- (princ (strcat delent " Deleted From Drawing"))
- );_defun
- (if (not (= (type OArct) 'VLR-AcDb-Reactor))
- (progn
- (setq OArct(vlr-acdb-reactor nil '((:vlr-objectAppended . OAcb))))
- (setq OErct(vlr-acdb-reactor nil '((:vlr-objectErased . OEcb))))
- );_progn
- );_if
|