吾爱汇编论坛

 找回密码
 立即注册

QQ登录

绑定QQ避免忘记帐号

查看: 544|回复: 66

[源码] Lisp关闭文件所有文件并退出CAD

  [复制链接]

  离线 

升级   13.33%

zhangmaobo721 发表于 2021-11-23 11:04 | 显示全部楼层 |阅读模式


[code="lisp] ;□□□□□□□□□□□□□□□□□□□□□□
;关闭文件代码开始
;□□□□□□□□□□□□□□□□□□□□□□

(defun C:yd-quit-alldoc-save(/ AcadApp docs cdoc);保存所有文档退出
  
  (setq AcadApp (vlax-get-acad-object))
  (setq docs (vla-get-documents AcadApp))
  (setq cdoc (vla-get-ActiveDocument AcadApp))
  ;缩放视口(比例为1)使文件处于未保存状态,如果图层未改动VLA-CLOSE的第二第三个参数会被忽略。
  (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)
  (vlax-for doc docs
    (if (not (equal cdoc doc))
      (if (= (Vlax-Get doc 'fullname) "")
        (vla-Close doc :vlax-false )
        (vla-close doc :vlax-true)
      )
    )
  )
  ;由于不能关闭当前活动文档,此处用Command关闭
  (if (= (Vlax-Get cdoc 'fullname) "")
    (command "quit" "y");y代表不保存
    (command "quit" "n");n代表保存
  )
  (prin1)
)


(defun C:yd-close-alldoc-save(/ AcadApp docs cdoc);保存关闭所有文档
  (setq AcadApp (vlax-get-acad-object))
  (setq docs (vla-get-documents AcadApp))
  (setq cdoc (vla-get-ActiveDocument AcadApp))
  (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)
  (vlax-for doc docs
    (if (not (equal cdoc doc))
      (if (= (vla-get-FullName doc) "")
        (progn (vla-Close doc :vlax-false) (alert (vla-get-FullName doc)))
        (vla-close doc)
      )
    )
  )
  ;由于不能关闭当前活动文档,此处用Command关闭
  (if (= (Vlax-Get cdoc 'fullname) "")
    (command "close" "y");y代表不保存
    (command "close" "n");n代表保存
  )
  (prin1)
)

(defun C:yd-close-otherdoc-save(/ AcadApp docs cdoc);保存关闭其他文档
  (setq AcadApp (vlax-get-acad-object))
  (setq docs (vla-get-documents AcadApp))
  (setq cdoc (vla-get-ActiveDocument AcadApp))
  (vla-zoomscaled AcadApp 1.0 acZoomScaledRelative)
  (vlax-for doc docs
    (print (vla-get-FullName doc))
    (if (not (equal cdoc doc))
      (if (= (Vlax-Get doc 'fullname) "")
        (vla-Close doc :vlax-false )
        (vla-close doc :vlax-true)
      )
    )
  )
  (princ "关闭其他文档成功!")
  (prin1)
)

(defun C:yd-quit-alldoc-withoutsave(/ AcadApp docs cdoc);不保存所有文档退出
  (setq AcadApp (vlax-get-acad-object))
  (setq docs (vla-get-documents AcadApp))
  (setq cdoc (vla-get-ActiveDocument AcadApp))
  (vlax-for doc docs
    (if (not (equal cdoc doc))
      (vla-close doc :vlax-false)
    )
  )
  ;由于不能关闭当前活动文档,此处用Command关闭
  (command "quit" "y");y代表不保存
  (prin1)
)

(defun C:yd-close-alldoc-withoutsave(/ AcadApp docs cdoc);不保存关闭所有文档
  (setq AcadApp (vlax-get-acad-object))
  (setq docs (vla-get-documents AcadApp))
  (setq cdoc (vla-get-ActiveDocument AcadApp))
  (vlax-for doc docs
    (if (not (equal cdoc doc))
      (vla-close doc :vlax-false)
    )
  )
  ;由于不能关闭当前活动文档,此处用Command关闭
  (command "close" "y");y代表不保存
  (prin1)
)
(defun C:yd-close-otherdoc-withoutsave(/ AcadApp docs cdoc);不保存关闭其他文档
  (setq AcadApp (vlax-get-acad-object))
  (setq docs (vla-get-documents AcadApp))
  (setq cdoc (vla-get-ActiveDocument AcadApp))
  (vlax-for doc docs
    (if (not (equal cdoc doc))
      (vla-close doc :vlax-false)
    )
  )
  (princ "关闭其他文档成功!")
  (prin1)
)


(defun C:gb( / mod)
  (initget "1 2 3 4 5 6")
  (setq mod (getkword "\n请选择关闭选项[保存所有文档退出(1) /保存关闭所有文档(2) /保存关闭其他文档(3) /不保存所有文档退出(4) /不保存关闭所有文档(5) /不保存关闭其他文档(6)]:"))
  (cond
    ((= mod "1") (C:yd-quit-alldoc-save))
    ((= mod "2") (C:yd-close-alldoc-save))
    ((= mod "3") (C:yd-close-otherdoc-save))
    ((= mod "4") (C:yd-quit-alldoc-withoutsave))
    ((= mod "5") (C:yd-close-alldoc-withoutsave))
    ((= mod "6") (C:yd-close-otherdoc-withoutsave))
  )
  (princ)
)
;■■■■■■■■■■■■■■■■■■■■■■
;关闭文件代码结束
;■■■■■■■■■■■■■■■■■■■■■■[/code]

评分

参与人数 8HB +5 THX +3 收起 理由
DeeDarrick + 1
agan8888 + 1
zxjzzh + 1 [吾爱汇编论坛52HB.COM]-学破解防破解,知进攻懂防守!
muker + 1
pmm018 + 1
1561478079 + 1 [快捷评语]--你将受到所有人的崇拜!
jhf123 + 1 [快捷评语]--积极评分,从我做起。感谢分享!
liugu0hai + 1 积极评分,从我做起

查看全部评分

吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

酷炫向大地 发表于 2022-1-22 18:45 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

孝顺笑大象 发表于 2022-1-22 19:18 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

顺利用鞋子 发表于 2022-1-22 20:21 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

内向演变便当 发表于 2022-1-22 20:25 | 显示全部楼层


感谢楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

魔幻迎月饼 发表于 2022-1-22 20:27 | 显示全部楼层
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   5%

温柔用凉面 发表于 2022-1-22 20:28 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   16.67%

红牛307148 发表于 2022-1-24 23:46 | 显示全部楼层


大佬无敌
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   16%

MBIZaQ 发表于 2022-1-28 14:29 | 显示全部楼层


谢谢分享
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM

  离线 

升级   39.13%

Idiptygh194 发表于 2022-1-28 15:17 | 显示全部楼层


不可多得,支持楼主
吾爱汇编论坛-学破解,防破解!知进攻,懂防守!逆向分析,软件安全!52HB.COM
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 警告:本站严惩灌水回复,尊重自己从尊重他人开始!

1层
2层
3层
4层
5层
6层
7层
8层
9层
10层

免责声明

吾爱汇编论坛(www.52hb.com)所发布的破解补丁、注册机、逆向教程、逆向文章等,包含但不限于上述内容,仅限用于学习和研究目的,不得用于非法途径或商业行为。否则,一切后果请用户自行承担。本站内容源于网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除。如果您喜欢某程序,请购买正版,支持正版,获得正版优质服务。如有侵权请邮件或微信与我们联系处理。

站长邮箱:SharkHeng@iCloud.com
站长微信:SharkHeng


QQ|RSS|手机版|小黑屋|帮助|吾爱汇编论坛 ( 京公网安备11011502005403号 , 京ICP备20003498号 )

GMT+8, 2022-5-23 19:44 , Processed in 0.280078 second(s), 78 queries .

Powered by Discuz!

吾爱汇编论坛 www.52hb.com

快速回复 返回顶部 返回列表