清理图形中的APP，给图形减肥

Lisphk · 发表于 2017-1-12 22:31:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:_purge ( / apps doc i n)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq apps (vla-get-registeredapplications doc))
  (setq i (vla-get-count apps))
  (vlax-for n apps (vl-catch-all-apply '(lambda nil
                                          (vla-delete n)
                                        )
                   ) (vlax-release-object n)
  )
  (setq i (- i (vla-get-count apps)))
  (print (strcat "\n\t已完成清理APPID.[ " (ff_str i) " ].."))
  (vla-purgeall)
  (princ)
)

WhoCanSay · 发表于 2017-1-13 08:04:12

(setq a(vla-get-registeredapplications *doc*))
(repeat        (setq n (vlax-get a 'Count))
  (setq b (vla-item a (setq n (1- n))))
  (princ "\n")
  (princ (vlax-get b 'Name))
  (vla-delete b)
)

这样删除会不会带来不良后果呢？

longer1000 · 发表于 2017-1-13 10:18:50

啥也不说了，感谢楼主分享哇！

zhangq_cai1 · 发表于 2017-1-13 12:04:11

正需要，支持楼主大人了！

dabingrain · 发表于 2017-1-23 15:10:27

(vla-purgeall (vla-get-activedocument (vlax-get-acad-object)))

xvjiex · 发表于 2021-12-7 00:10:15

感谢分享清理图形中的APP，给图形减肥

utopio · 发表于 2021-12-9 11:20:06

ff_str 是什么函数？

账号		自动登录	找回密码
密码			立即注册

[每日一码] 清理图形中的APP，给图形减肥

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子