找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3574|回复: 15

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

[复制链接]

已领礼包: 466个

财富等级: 日进斗金

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

已领礼包: 217个

财富等级: 日进斗金

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

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

使用道具 举报

已领礼包: 1827个

财富等级: 堆金积玉

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

使用道具 举报

已领礼包: 25个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 2104个

财富等级: 金玉满堂

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

使用道具 举报

已领礼包: 6056个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 194个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 194个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 466个

财富等级: 日进斗金

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

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

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

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

使用道具 举报

发表于 2020-5-2 10:52:41 | 显示全部楼层
diesel+属性块就可以实现,将属性设置为diesel代码,自动获取保存时间。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-19 14:14 , Processed in 0.464860 second(s), 68 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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