[编程申请]：docbar中的缩放到范围居中保存并依次关闭全部打开的文档的代码谁会写啊

逐月飞鸿

docbar中的缩放到范围居中保存并依次关闭全部打开的文档的lisp代码谁会写啊！
这个功能很好用的，就是问了很多人不知道代码怎么写的
谢谢

Dallas_whu

自己稍微改造一下就可以了！
[php]
(Defun C:Sac (/ Vl_Doc D0 DD FILE H M MM S TIMESTR YY)
  (Vl-Load-Com)
  (Vlax-For Vl_Doc (Vla-Get-Documents (Vlax-Get-Acad-Object))
    (Setq File (Vla-Get-Fullname Vl_Doc))
    (If        (And (=        :Vlax-False (Vla-Get-Saved Vl_Doc)(Vla-Get-Readonly Vl_Doc)))
      (Progn
        (Princ (Strcat "\n正在保存文件: "  (Vla-Get-Name Vl_Doc)  "请稍候..." ))
        (Setq D0 (Getvar "Cdate")    D0 (Rtos D0 2 8))
        (Setq Yy (Substr D0 1 4)
              Mm (Substr D0 5 2)
              Dd (Substr D0 7 2)
              H         (Substr D0 10 2)
              M         (Substr D0 12 2)
              S         (Substr D0 14 2)
        )
        (Setq Timestr  (Strcat Yy "年" Mm "月" Dd "日" H "点" M "分" S "秒."))
        (Vla-Saveas Vl_Doc File Ac2004_Dwg)
        (Princ (Strcat "\n*** 文件\"" (Vla-Get-Name Vl_Doc) "\"已保存为R2004格式,时间: " Timestr  " ***"))
      )
      ;|(If (= (Vla-Get-Active Vl_Doc) :Vlax-False)
        (Vla-Close Vl_Doc :Vlax-False)
      )|;
    )
  (Vlax-Release-Object Vl_Doc)
  )
  (Vla-Eval (Vlax-Get-Acad-Object) "Thisdrawing.Application.Quit")
  (Princ)
)
[/php]

逐月飞鸿

好的，先谢谢了！测试一下先！