复制时，把特定的对象改为当前时间 YYYY.MO.DD-hh:mm
本帖最后由 669423907 于 2012-4-11 19:56 编辑哪位大师方便帮忙写一个小程序：
这个程序，就是相当于加强的 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 更加智能化！
还真的不知道怎么设置楼主不用付费了!结贴多付一个金币无所谓吧?源代码呢! 本帖最后由 669423907 于 2012-4-12 21:45 编辑
此程序是很有意义的啊，甚至可以加到自动插入图框的程序中，以后再也不用插入日期时间或改日期时间了。
哪位大师方便帮帮忙，同时也让 CAD 更加智能化。
我的意思是：
1：先选择图 1
2：按下快捷键，程序提示 请指定复制基点
3：用鼠标点取基点
4：程序提示 请确定放置点
5：鼠标左键点取放置点，程序结束，得到图 2 的效果。
也就是说，程序自动识别选择集中需要改的地方，8 位码的自动改为 8 位码，12 为码的自动改为 12 位码。
上图了，再顶一次！ 本帖最后由 【KAIXIN】 于 2012-4-15 09:53 编辑
669423907 发表于 2012-4-12 20:54 http://bbs.mjtd.com/static/image/common/back.gif
上图了，再顶一次！
不大好整啊！你的问题太简化了！
其实可以用复制后，文本替换解决......多一步就行！
文本替换的程序就简单了！
忘记说明一下,采用反应器不必任何命令,直接平常复制命令就可以.楼主可以放在cad启动项,每次都有这个效果了! danxingpen 发表于 2012-4-10 20:31 static/image/common/back.gif
还真的不知道怎么设置楼主不用付费了!结贴多付一个金币无所谓吧?源代码呢!
我本想这样的：
(defun c:c()
(setq ss (ssget "i"))
(if (= ss nil)(c1)(c2)))
(defun c1()
(command"circle")
(setvar"autosnap"63))
(defun c2()
自动改时间程序
(princ))
不知 danxingpen 大师是否方便再弄一下，如果能支持多行文字那就更好了！非常感谢您！ 669423907 发表于 2012-4-18 14:42 static/image/common/back.gif
我本想这样的：
(defun c:c()
慎重用反应器！ 669423907 发表于 2012-4-18 14:42 static/image/common/back.gif
我本想这样的：
(defun c:c()
支持多行文字?查找一下开发板块的正则表达式获取多行文本内容的程序,作为一个子程序,直接在我的程序上添加一行该子程序调用就可以!! 本帖最后由 669423907 于 2012-4-18 21:29 编辑
danxingpen 发表于 2012-4-18 20:38 http://bbs.mjtd.com/static/image/common/back.gif
支持多行文字?查找一下开发板块的正则表达式获取多行文本内容的程序,作为一个子程序,直接在我的程序上添加 ...
找到了，http://bbs.mjtd.com/thread-57445-1-1.html
但是看不懂，不会改！还有如何改成命令形式呢？还望明点！谢了。
页:
[1]
2