复制时，把特定的对象改为当前时间 YYYY.MO.DD-hh:mm

669423907

哪位大师方便帮忙写一个小程序：

这个程序，就是相当于加强的 copy 命令，把要 copy 的选择集中的

1：类似 2012.00.00 数字（且含201）格式的部分改为 当前时间 2012.04.11 （八位码）；

2：类似 2012.00.00-00:00 数字（且含201）格式的部分改为 当前时间 2012.04.11-19:35 （12位码）；

3：且图层为“文字”层。

不满足以上三点的部分就原封不动的复制。

(setq date0 (menucmd "M=$(edtime,$(getvar,date),YYYY.MO.DD-hh:mm)"))
此句来于《开金工具箱》

这样，在复制图框时，日期就会自动更新了。
先在此谢过！有您的关注，CAD 更加智能化！

danxingpen

还真的不知道怎么设置楼主不用付费了!结贴多付一个金币无所谓吧?源代码呢!

669423907

此程序是很有意义的啊，甚至可以加到自动插入图框的程序中，以后再也不用插入日期时间或改日期时间了。
哪位大师方便帮帮忙，同时也让 CAD 更加智能化。

我的意思是：
1：先选择图 1
2：按下快捷键，程序提示    请指定复制基点
3：用鼠标点取基点
4：程序提示   请确定放置点
5：鼠标左键点取放置点，程序结束，得到图 2 的效果。
也就是说，程序自动识别选择集中需要改的地方，8 位码的自动改为 8 位码，12 为码的自动改为 12 位码。

669423907

上图了，再顶一次！

【KAIXIN】

669423907 发表于 2012-4-12 20:54
上图了，再顶一次！

不大好整啊！你的问题太简化了！
其实可以用复制后，文本替换解决......多一步就行！

文本替换的程序就简单了！

danxingpen

忘记说明一下,采用反应器不必任何命令,直接平常复制命令就可以.楼主可以放在cad启动项,每次都有这个效果了!

669423907

danxingpen 发表于 2012-4-10 20:31
还真的不知道怎么设置楼主不用付费了!结贴多付一个金币无所谓吧?源代码呢!

我本想这样的：
(defun c:c()

(setq ss (ssget "i"))
(if (= ss nil)(c1)(c2)))

(defun c1()
(command"circle")
(setvar"autosnap"63))

(defun c2()

自动改时间程序

(princ))


不知 danxingpen 大师是否方便再弄一下，如果能支持多行文字那就更好了！非常感谢您！

【KAIXIN】

669423907 发表于 2012-4-18 14:42
我本想这样的：
(defun c:c()

慎重用反应器！

danxingpen

669423907 发表于 2012-4-18 14:42
我本想这样的：
(defun c:c()

支持多行文字?查找一下开发板块的正则表达式获取多行文本内容的程序,作为一个子程序,直接在我的程序上添加一行该子程序调用就可以!!

669423907

danxingpen 发表于 2012-4-18 20:38
支持多行文字?查找一下开发板块的正则表达式获取多行文本内容的程序,作为一个子程序,直接在我的程序上添加 ...

找到了，http://bbs.mjtd.com/thread-57445-1-1.html
但是看不懂，不会改！还有如何改成命令形式呢？还望明点！谢了。