日志
利用lsp清除 app 实现对外部创建dwg文件减肥.
|
- (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)
全部作者的其他最新日志
- • .Net 实现Zoom
- • 无聊发个四舍五入的函数
- • 黑板
- • sleep
- • C#代码笔记.
- • 一个路径转换的代码.