[чайник]

Вот, на сайте autocad.ru задал вопрос "AutoCAD 2004. Как очистить чертеж от приложений?", подразумевая решение вопроса средствами lisp для чертежей autocad2002-2004.
Посоветовали программу http://www.jtbworld.com/lisp/purger.htm.

Код:

[Выделить все]

; Purges all RegApp or RegApp's.
(defun PurgeAPPID (/ appid)
  (vl-load-com)
  (vlax-for appid (vla-get-registeredapplications
		    (vla-get-activedocument
		      (vlax-get-acad-object)
		    )
		  )
    (vl-catch-all-apply 'vla-delete (list appid))
  )
  (princ)
)

Вещь хорошая, но удаляет ВСЕ незарегистрированные в чертеже приложения. А как удалить не все, а ВЫБОРОЧНО? Ведь в autocad2005-2006 в команде PURGE это реализовано.
Может кто что-нибудь присоветует?
Ковырял объектную модель, всякие методы и прочее, касающееся RegisteredApplication, но так дурак ни чего и не понял!

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

(defun purgeappid (lst / appid)
  (vl-load-com)
  (vlax-for appid (vla-get-registeredapplications
		    (vla-get-activedocument
		      (vlax-get-acad-object)
		      ) ;_ end of vla-get-activedocument
		    ) ;_ end of vla-get-registeredapplications
    (if	(not (member (strcase (vla-get-name appid)) (mapcar 'strcase lst)))
      (vl-catch-all-apply 'vla-delete (list appid))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (princ)
  ) ;_ end of defun

[чайник]

>kpbls
Спасибо.

Вот, если кому интересно
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=29456Ho