将图纸存为当前日期与时间的lisp程序

sunshinejwt · 发表于 2017-5-21 02:52:08

购买主题 已有 12 人购买 本主题需向作者支付 2 D豆 才能浏览

yufeng37 · 发表于 2017-5-21 23:12:02

本帖最后由 yufeng37 于 2017-5-21 23:18 编辑

买之前以为是lsp、结果没有源代码。不过程序的思路不错，一键备份图纸。试用了一下，感觉有点很奇怪，bak文件夹里面的文件名是原文件名，bak文件夹外面的文件是加了日期和时间了。我觉得这是不是弄反了。bak文件夹里面的文件名应该是带日期和时间的吧，这样就可以作为一个过程版备份起来了。

lw5297590 · 发表于 2017-5-21 13:00:31

是VLX程序，试试能不能用

winerfjy · 发表于 2017-5-21 15:21:54

以前收集过一个叫存为今天的VLX你这个可能是

evayleung · 发表于 2017-5-21 21:36:07

好程序就应该多分享下，谢谢

kqqt6236 · 发表于 2017-5-22 00:03:00

这个可以有。

sicky111 · 发表于 2017-5-22 00:06:02

支持一下。

shuaier · 发表于 2017-5-22 08:23:52

我以为是源码，另外08下BAK文件夹不生成文件

shuaier · 发表于 2017-5-22 08:31:19

记得它山之石工作室分享过这个程序

qinchao_qc · 发表于 2017-12-4 15:44:48

这个很有用。

sunshinejwt · 发表于 2018-6-29 11:08:35

源码在这里
(defun c:ccc ( /  oldpath oldname oldname1 midname newname)

;;;;;下面的程序为获取文件原始的文件名及路径
(setq oldpath (getvar "DWGPREFIX"));获取文件路径
(setq oldname (getvar "dwgname"));获取文件名
  (vl-mkdir "d:\\BAK\\") ;在源目录下创建一个名称为BAK的文件夹
  (setq oldname1 (vl-filename-base (getvar "DWGNAME")))
;将去掉路径和后缀名的文件名赋值给变量
  (vl-file-copy
(strcat oldpath oldname1 ".dwg")
(strcat "d:\\bak\\" oldname1 ".dwg")
nil
  )
;;;;;下面的程序为以现在的时刻时间加到原文件名后并保存
(if (wcmatch oldname "* *.dwg")
   (setq midname (substr oldname 1 (vl-string-search " " oldname)))
   (setq midname (substr oldname 1 (- (strlen oldname)  4)))
)
(setq newname (strcat midname " " "[" (menucmd "M=$(edtime,$(getvar,date),YYYY-MO-DD HH-MM-SS)") "]" ".dwg"))
(command "saveas" "2004" (strcat oldpath newname))

;;;;;下面的程序为删除加上新时刻时间前的文件
(vl-file-delete (strcat oldpath oldname1 ".dwg"))
(vl-file-delete (strcat oldpath oldname1 ".bak"))
(princ)
)

gyq850101 · 发表于 2018-7-31 16:44:41

看看怎么样。

yiyu_ye · 发表于 2018-8-9 21:50:50

这个bak文件夹是建在D盘不是在原目录啊。。。。。。。。。。。。。。。

sicky111 · 发表于 2018-8-13 09:07:24

sunshinejwt 发表于 2018-6-29 11:08
源码在这里
(defun c:ccc ( / oldpath oldname oldname1 midname newname)

谢谢分享源码。

jackhsu · 发表于 2020-5-2 10:52:41

diesel+属性块就可以实现，将属性设置为diesel代码，自动获取保存时间。

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

sunshinejwt sunshinejwt 当前离线 UID 765537 积分 329 精华贡献威望活跃度 D豆在线时间小时注册时间 2016-12-19 最后登录 1970-1-1 窥视卡雷达卡已领礼包: 466个财富等级: 日进斗金	发表于 2017-5-21 02:52:08 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略购买主题已有 12 人购买本主题需向作者支付 2 D豆才能浏览
	相关帖子 • 没有人回应，这贴关了也好~ • 发个展点程序 • 让ARX程序随CAD一起启动的方法 • lisp程序想定期更新版本到时间后必须更新如何实现？ • 求一个能修改标注尺寸的程序 • 文件夹拷贝 • 关于lisp程序回退的问题 • 求切除块内连续的程序 • 求助源代码程序 • 求此程序的实现思路论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

[发布] 将图纸存为当前日期与时间的lisp程序

相关帖子