设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 552|回复: 14

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

[复制链接]

签到天数: 236 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 234个

财富等级: 日进斗金

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

签到天数: 293 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 216个

财富等级: 日进斗金

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

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

使用道具 举报

签到天数: 490 天

连续签到: 72 天

[LV.9]以坛为家II

已领礼包: 854个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 225 天

连续签到: 3 天

[LV.7]常住居民III

已领礼包: 25个

财富等级: 恭喜发财

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

使用道具 举报

签到天数: 522 天

连续签到: 71 天

[LV.9]以坛为家II

已领礼包: 859个

财富等级: 财运亨通

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

使用道具 举报

签到天数: 1809 天

连续签到: 72 天

[LV.Master]伴坛终老I

已领礼包: 5322个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 1921 天

连续签到: 19 天

[LV.Master]伴坛终老I

已领礼包: 5713个

财富等级: 富甲天下

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

使用道具 举报

签到天数: 193 天

连续签到: 1 天

[LV.7]常住居民III

点击这里给我发消息

已领礼包: 189个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 193 天

连续签到: 1 天

[LV.7]常住居民III

点击这里给我发消息

已领礼包: 189个

财富等级: 日进斗金

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

使用道具 举报

签到天数: 10 天

连续签到: 1 天

[LV.3]偶尔看看II

点击这里给我发消息

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

使用道具 举报

签到天数: 236 天

连续签到: 1 天

[LV.7]常住居民III

已领礼包: 234个

财富等级: 日进斗金

 楼主| 发表于 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 15 天

连续签到: 1 天

[LV.4]偶尔看看III

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

使用道具 举报

签到天数: 15 天

连续签到: 7 天

[LV.4]偶尔看看III

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

使用道具 举报

签到天数: 1921 天

连续签到: 19 天

[LV.Master]伴坛终老I

已领礼包: 5713个

财富等级: 富甲天下

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

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2018-8-15 04:06 , Processed in 0.239124 second(s), 68 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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