设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 764|回复: 14

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

[复制链接]

签到天数: 342 天

连续签到: 22 天

[LV.8]以坛为家I

已领礼包: 382个

财富等级: 日进斗金

发表于 2017-5-21 02:52:08 | 显示全部楼层 |阅读模式
购买主题 已有 7 人购买  本主题需向作者支付 2 D豆 才能浏览
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

签到天数: 361 天

连续签到: 2 天

[LV.8]以坛为家I

已领礼包: 217个

财富等级: 日进斗金

发表于 2017-5-21 23:12:02 | 显示全部楼层
本帖最后由 yufeng37 于 2017-5-21 23:18 编辑

买之前以为是lsp、结果没有源代码。不过程序的思路不错,一键备份图纸。试用了一下,感觉有点很奇怪,bak文件夹里面的文件名是原文件名,bak文件夹外面的文件是加了日期和时间了。我觉得这是不是弄反了。bak文件夹里面的文件名应该是带日期和时间的吧,这样就可以作为一个过程版备份起来了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

签到天数: 608 天

连续签到: 102 天

[LV.9]以坛为家II

已领礼包: 1098个

财富等级: 财源广进

发表于 2017-5-21 13:00:31 | 显示全部楼层
是VLX程序,试试能不能用
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 225 天

连续签到: 3 天

[LV.7]常住居民III

已领礼包: 25个

财富等级: 恭喜发财

发表于 2017-5-21 15:21:54 | 显示全部楼层
以前收集过一个叫存为今天的VLX你这个可能是
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 642 天

连续签到: 191 天

[LV.9]以坛为家II

已领礼包: 1178个

财富等级: 财源广进

发表于 2017-5-21 21:36:07 | 显示全部楼层
好程序就应该多分享下,谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1929 天

连续签到: 192 天

[LV.Master]伴坛终老I

已领礼包: 5653个

财富等级: 富甲天下

发表于 2017-5-22 00:03:00 | 显示全部楼层
这个可以有。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 2041 天

连续签到: 139 天

[LV.Master]伴坛终老I

已领礼包: 6050个

财富等级: 富甲天下

发表于 2017-5-22 00:06:02 | 显示全部楼层
支持一下。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

签到天数: 248 天

连续签到: 3 天

[LV.8]以坛为家I

点击这里给我发消息

已领礼包: 190个

财富等级: 日进斗金

发表于 2017-5-22 08:23:52 | 显示全部楼层
我以为是源码,另外08下BAK文件夹不生成文件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 248 天

连续签到: 3 天

[LV.8]以坛为家I

点击这里给我发消息

已领礼包: 190个

财富等级: 日进斗金

发表于 2017-5-22 08:31:19 | 显示全部楼层
记得它山之石工作室分享过这个程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 10 天

连续签到: 1 天

[LV.3]偶尔看看II

点击这里给我发消息

发表于 2017-12-4 15:44:48 | 显示全部楼层
这个很有用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 342 天

连续签到: 22 天

[LV.8]以坛为家I

已领礼包: 382个

财富等级: 日进斗金

 楼主| 发表于 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)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 19 天

连续签到: 1 天

[LV.4]偶尔看看III

发表于 2018-7-31 16:44:41 | 显示全部楼层
看看怎么样。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 32 天

连续签到: 1 天

[LV.5]常住居民I

发表于 2018-8-9 21:50:50 | 显示全部楼层
这个bak文件夹是建在D盘不是在原目录啊。。。。。。。。。。。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 2041 天

连续签到: 139 天

[LV.Master]伴坛终老I

已领礼包: 6050个

财富等级: 富甲天下

发表于 2018-8-13 09:07:24 | 显示全部楼层
sunshinejwt 发表于 2018-6-29 11:08
源码在这里
(defun c:ccc ( /  oldpath oldname oldname1 midname newname)

谢谢分享源码。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2018-12-12 22:37 , Processed in 0.224518 second(s), 70 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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